13 "{ Package: 'stx:libbasic' }" |
13 "{ Package: 'stx:libbasic' }" |
14 |
14 |
15 ClassDescription subclass:#Class |
15 ClassDescription subclass:#Class |
16 instanceVariableNames:'name category classvars comment subclasses classFilename package |
16 instanceVariableNames:'name category classvars comment subclasses classFilename package |
17 revision primitiveSpec environment signature hook' |
17 revision primitiveSpec environment signature hook' |
18 classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE' |
18 classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE |
|
19 DefaultCategoryForDolphin' |
19 poolDictionaries:'' |
20 poolDictionaries:'' |
20 category:'Kernel-Classes' |
21 category:'Kernel-Classes' |
21 ! |
22 ! |
22 |
23 |
23 !Class class methodsFor:'documentation'! |
24 !Class class methodsFor:'documentation'! |
258 |
259 |
259 "Created: 15.4.1996 / 17:17:13 / cg" |
260 "Created: 15.4.1996 / 17:17:13 / cg" |
260 "Modified: 23.4.1996 / 15:56:58 / cg" |
261 "Modified: 23.4.1996 / 15:56:58 / cg" |
261 ! ! |
262 ! ! |
262 |
263 |
|
264 !Class methodsFor:'Compatibility - Dolphin'! |
|
265 |
|
266 defaultCategoryForDolphinClasses |
|
267 ^ DefaultCategoryForDolphin ? 'Dolphin classes'. |
|
268 ! |
|
269 |
|
270 subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s classInstanceVariableNames:classInstanceVariableNames |
|
271 "{ Pragma: +optSpace }" |
|
272 |
|
273 "this method allows fileIn of Dolphin classes " |
|
274 |
|
275 ^ self subclass:t |
|
276 instanceVariableNames:f |
|
277 classVariableNames:d |
|
278 poolDictionaries:s |
|
279 category:(self defaultCategoryForDolphinClasses) |
|
280 classInstanceVariableNames:classInstanceVariableNames |
|
281 |
|
282 "Modified: / 15.6.1998 / 21:31:34 / cg" |
|
283 "Modified: / 18.3.1999 / 18:16:11 / stefan" |
|
284 ! |
|
285 |
|
286 variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s classInstanceVariableNames:classInstanceVariableNames |
|
287 "{ Pragma: +optSpace }" |
|
288 |
|
289 "this method allows fileIn of Dolphin classes " |
|
290 |
|
291 ^ self variableSubclass:t |
|
292 instanceVariableNames:f |
|
293 classVariableNames:d |
|
294 poolDictionaries:s |
|
295 category:(self defaultCategoryForDolphinClasses) |
|
296 classInstanceVariableNames:classInstanceVariableNames |
|
297 |
|
298 "Modified: / 15.6.1998 / 21:31:34 / cg" |
|
299 "Modified: / 18.3.1999 / 18:16:11 / stefan" |
|
300 ! ! |
|
301 |
263 !Class methodsFor:'Compatibility - ST/V and V''Age'! |
302 !Class methodsFor:'Compatibility - ST/V and V''Age'! |
264 |
303 |
265 defaultCategoryForSTVorVAGEClasses |
304 defaultCategoryForSTVorVAGEClasses |
266 |cat app| |
305 |cat app| |
267 |
306 |