hg/stx-libbasic: comparison Class.st

equal deleted inserted replaced

-:8388292bc41d
+:51ed366a10b1
 "Created: 20.6.1997 / 17:18:14 / cg"
 "Modified: 20.6.1997 / 17:18:26 / cg"
 !
-isStartableWithMain
+rename:newName
-"return true, if this is an application class,
+"same as renameTo: - for ST80 compatibility"
-which can be started via #main"
+^ Smalltalk renameClass:self to:newName.
-^ self theMetaclass includesSelector:#main
+"/    ^ self renameTo:newName
-"Created: / 2.11.2001 / 09:37:01 / cg"
+"Created: / 18.6.1998 / 22:08:45 / cg"
-"Modified: / 2.11.2001 / 09:48:05 / cg"
+! !
-!
+!Class methodsFor:'Compatibility - VW'!
 isVisualStartable
 "return true, if this is an application class,
 which can be started via #open"
 ^ false
 "Created: / 27.10.1997 / 16:42:05 / cg"
-!
-rename:newName
-"same as renameTo: - for ST80 compatibility"
-^ Smalltalk renameClass:self to:newName.
-"/    ^ self renameTo:newName
-"Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 !Class methodsFor:'accessing'!
 addClassVarName:aString
 Class new isBehavior
 Class new isClass
 "
 !
+isStartableWithMain
+"return true, if this is an application class,
+which can be started via #main"
+^ self theMetaclass includesSelector:#main
+"Created: / 2.11.2001 / 09:37:01 / cg"
+"Modified: / 2.11.2001 / 09:48:05 / cg"
+!
 rootsOfTheWorld
 "return a collection of classes which have a nil superclass"
 |set|
 ! !
 !Class class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.415 2002-08-02 06:37:48 stefan Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.416 2002-08-16 11:49:35 cg Exp $'
 ! !

changeset 6723	51ed366a10b1
parent 6703	ffea6ebb676d
child 6731	630b8b5260cc