added: #isAbstract
authorClaus Gittinger <cg@exept.de>
Sun, 01 Feb 2015 15:14:45 +0100
changeset 962 4be64c29f4c4
parent 961 d7d23e7c5c83
child 963 be466bd63210
added: #isAbstract
MCBrowserList.st
--- a/MCBrowserList.st	Sun Feb 01 15:14:41 2015 +0100
+++ b/MCBrowserList.st	Sun Feb 01 15:14:45 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 Tools::BrowserList subclass:#MCBrowserList
 	instanceVariableNames:'listHolder'
 	classVariableNames:''
@@ -78,6 +80,12 @@
     "Modified: / 17-09-2010 / 11:37:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!MCBrowserList class methodsFor:'queries'!
+
+isAbstract
+    ^ self == MCBrowserList
+! !
+
 !MCBrowserList methodsFor:'aspects'!
 
 listHolder
@@ -101,13 +109,14 @@
 !MCBrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCBrowserList.st,v 1.4 2012-09-11 20:54:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCBrowserList.st,v 1.5 2015-02-01 14:14:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCBrowserList.st,v 1.4 2012-09-11 20:54:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCBrowserList.st,v 1.5 2015-02-01 14:14:45 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: MCBrowserList.st 34 2011-08-04 21:44:46Z vranyj1 §'
+    ^ '$Id: MCBrowserList.st,v 1.5 2015-02-01 14:14:45 cg Exp $'
 ! !
+