equal
deleted
inserted
replaced
230 isClassChange |
230 isClassChange |
231 ^ true |
231 ^ true |
232 ! |
232 ! |
233 |
233 |
234 nameSpaceForVWNamespace:ns class:className ifAbsent:default |
234 nameSpaceForVWNamespace:ns class:className ifAbsent:default |
|
235 "map the namespace for a given class" |
|
236 |
235 ns = 'Core' ifTrue:[^ 'Smalltalk']. |
237 ns = 'Core' ifTrue:[^ 'Smalltalk']. |
236 ns = 'Kernel' ifTrue:[^ 'Smalltalk']. |
238 ns = 'Kernel' ifTrue:[^ 'Smalltalk']. |
237 ns = 'Graphics' ifTrue:[^ 'Smalltalk']. |
239 ns = 'Graphics' ifTrue:[^ 'Smalltalk']. |
238 ns = 'OS' ifTrue:[^ 'Smalltalk']. |
240 ns = 'OS' ifTrue:[^ 'Smalltalk']. |
239 ns = 'Smalltalk' ifTrue:[^ 'Smalltalk']. |
241 ns = 'Smalltalk' ifTrue:[^ 'Smalltalk']. |
|
242 ns = 'UI' ifTrue:[^ 'Smalltalk']. |
240 ^ default value |
243 ^ default value |
241 ! ! |
244 ! ! |
242 |
245 |
243 !ClassChange class methodsFor:'documentation'! |
246 !ClassChange class methodsFor:'documentation'! |
244 |
247 |
245 version |
248 version |
246 ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.36 2003-06-18 15:44:53 cg Exp $' |
249 ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.37 2003-06-18 21:29:13 cg Exp $' |
247 ! ! |
250 ! ! |