equal
deleted
inserted
replaced
17 ! ! |
17 ! ! |
18 |
18 |
19 !Class methodsFor:'*monticello'! |
19 !Class methodsFor:'*monticello'! |
20 |
20 |
21 asClassDefinition |
21 asClassDefinition |
|
22 self isLoaded ifFalse:[ |
|
23 ^ self autoload asClassDefinition |
|
24 ]. |
22 ^ MCClassDefinition |
25 ^ MCClassDefinition |
23 name: self name |
26 name: self name |
24 superclassName: self superclass name |
27 superclassName: self superclass name |
25 category: self category |
28 category: self category |
26 instVarNames: self instVarNames |
29 instVarNames: self instVarNames |
39 ! ! |
42 ! ! |
40 |
43 |
41 !Class methodsFor:'*monticello'! |
44 !Class methodsFor:'*monticello'! |
42 |
45 |
43 poolDictionaryNames |
46 poolDictionaryNames |
44 ^ self sharedPools collect: [:ea | self environment keyAtIdentityValue: ea] |
47 ^ self sharedPools "/ collect: [:ea | ea name "self environment keyAtIdentityValue: ea"] |
45 ! ! |
48 ! ! |
46 |
49 |
47 !ClassBuilder methodsFor:'compatibility - squeak'! |
50 !ClassBuilder methodsFor:'compatibility - squeak'! |
48 |
51 |
49 name:newName |
52 name:newName |