equal
deleted
inserted
replaced
285 |
285 |
286 "Created: 15.10.1996 / 18:57:57 / cg" |
286 "Created: 15.10.1996 / 18:57:57 / cg" |
287 "Modified: 16.10.1996 / 16:54:40 / cg" |
287 "Modified: 16.10.1996 / 16:54:40 / cg" |
288 ! ! |
288 ! ! |
289 |
289 |
|
290 !Class class methodsFor:'misc'! |
|
291 |
|
292 template:aCategoryString |
|
293 "return a class-definition template" |
|
294 |
|
295 ^ 'NameOfSuperclass subclass:#NameOfClass |
|
296 instanceVariableNames:''instVarName1 instVarName2'' |
|
297 classVariableNames:''classVarName1 classVarName2'' |
|
298 poolDictionaries:'''' |
|
299 category:''' , aCategoryString , '''' |
|
300 |
|
301 "Created: / 19.6.1998 / 02:09:06 / cg" |
|
302 ! ! |
|
303 |
290 !Class class methodsFor:'queries'! |
304 !Class class methodsFor:'queries'! |
291 |
305 |
292 isBuiltInClass |
306 isBuiltInClass |
293 "return true if this class is known by the run-time-system. |
307 "return true if this class is known by the run-time-system. |
294 Here, true is returned for myself, false for subclasses." |
308 Here, true is returned for myself, false for subclasses." |
3883 ! ! |
3897 ! ! |
3884 |
3898 |
3885 !Class class methodsFor:'documentation'! |
3899 !Class class methodsFor:'documentation'! |
3886 |
3900 |
3887 version |
3901 version |
3888 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.315 1998-06-18 23:04:04 cg Exp $' |
3902 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.316 1998-06-19 00:10:24 cg Exp $' |
3889 ! ! |
3903 ! ! |