equal
deleted
inserted
replaced
94 " |
94 " |
95 Metaclass new <- new metaclass |
95 Metaclass new <- new metaclass |
96 Metaclass new new <- new class |
96 Metaclass new new <- new class |
97 Metaclass new new new <- new instance |
97 Metaclass new new new <- new instance |
98 " |
98 " |
|
99 ! ! |
|
100 |
|
101 !Metaclass class methodsFor:'method templates'! |
|
102 |
|
103 classTemplateFor:aSuperClass in:categoryString asNamespace:asNameSpace private:isPrivate |
|
104 "returning nil here, will let the browser generate a template. |
|
105 However, special metaclasses (other languages) |
|
106 may redefine this" |
|
107 |
|
108 ^ nil |
|
109 |
|
110 "Created: / 12-04-2019 / 05:18:51 / Claus Gittinger" |
99 ! ! |
111 ! ! |
100 |
112 |
101 !Metaclass class methodsFor:'queries'! |
113 !Metaclass class methodsFor:'queries'! |
102 |
114 |
103 asPrivate |
115 asPrivate |