equal
deleted
inserted
replaced
51 classBindingOf: varName |
51 classBindingOf: varName |
52 "For initialization messages grant the regular scope" |
52 "For initialization messages grant the regular scope" |
53 |
53 |
54 self halt:'unfinished implementation'. |
54 self halt:'unfinished implementation'. |
55 ^super bindingOf: varName |
55 ^super bindingOf: varName |
|
56 ! |
|
57 |
|
58 includesKey:aSymbol |
|
59 ^ self keys includes:aSymbol |
|
60 |
|
61 " |
|
62 OpenGLConstants includesKey:#GL3Bytes |
|
63 " |
|
64 ! |
|
65 |
|
66 keys |
|
67 ^ self classVarNames |
|
68 |
|
69 " |
|
70 OpenGLConstants keys |
|
71 " |
|
72 ! ! |
|
73 |
|
74 !SharedPool class methodsFor:'printing & storing'! |
|
75 |
|
76 displayString |
|
77 "return a printed represenation - here, a reminder is appended, |
|
78 that this is not a regular class" |
|
79 |
|
80 self == SharedPool ifTrue:[ |
|
81 ^ super displayString |
|
82 ]. |
|
83 ^ self name , ' (* SharedPool *)' |
56 ! ! |
84 ! ! |
57 |
85 |
58 !SharedPool class methodsFor:'queries'! |
86 !SharedPool class methodsFor:'queries'! |
59 |
87 |
60 isSharedPool |
88 isSharedPool |
62 ! ! |
90 ! ! |
63 |
91 |
64 !SharedPool class methodsFor:'documentation'! |
92 !SharedPool class methodsFor:'documentation'! |
65 |
93 |
66 version |
94 version |
67 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.1 2004-09-13 08:57:23 ca Exp $' |
95 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.2 2004-09-20 08:47:24 ca Exp $' |
68 ! ! |
96 ! ! |