110 ! ! |
110 ! ! |
111 |
111 |
112 !Autoload class methodsFor:'adding/removing autoloaded classes'! |
112 !Autoload class methodsFor:'adding/removing autoloaded classes'! |
113 |
113 |
114 addClass:aClassName |
114 addClass:aClassName |
115 "given a name, install a corresponding autoload class stub for it" |
115 "given a name, install a corresponding autoload class stub for it. |
116 |
116 Return the (autoload-) stubClass or nil, if no new class was created." |
117 self addClass:aClassName inCategory:'autoloaded-Classes' |
117 |
|
118 ^ self addClass:aClassName inCategory:'autoloaded-Classes' |
118 |
119 |
119 " |
120 " |
120 Autoload addClass:'Clock' |
121 Autoload addClass:'Clock' |
121 " |
122 " |
122 |
123 |
123 "Modified: 24.4.1996 / 19:54:16 / cg" |
124 "Modified: 24.4.1996 / 19:54:16 / cg" |
124 ! |
125 ! |
125 |
126 |
126 addClass:aClassName inCategory:aCategory |
127 addClass:aClassName inCategory:aCategory |
127 "given a name, install a corresponding autoload class stub for it" |
128 "given a name, install a corresponding autoload class stub for it. |
128 |
129 Return the (autoload-) stubClass or nil, if no new class was created." |
129 |nameSymbol| |
130 |
|
131 |nameSymbol cls| |
130 |
132 |
131 nameSymbol := aClassName asSymbol. |
133 nameSymbol := aClassName asSymbol. |
132 (Smalltalk at:nameSymbol) isNil ifTrue:[ |
134 (Smalltalk at:nameSymbol) isNil ifTrue:[ |
133 Autoload subclass:nameSymbol |
135 cls := Autoload |
134 instanceVariableNames:'' |
136 subclass:nameSymbol |
135 classVariableNames:'' |
137 instanceVariableNames:'' |
136 poolDictionaries:'' |
138 classVariableNames:'' |
137 category:aCategory. |
139 poolDictionaries:'' |
138 ] |
140 category:aCategory. |
|
141 ]. |
|
142 ^ cls |
|
143 |
139 " |
144 " |
140 Autoload addClass:'Clock' inCategory:'autoloaded-Demos' |
145 Autoload addClass:'Clock' inCategory:'autoloaded-Demos' |
141 " |
146 " |
142 |
147 |
143 "Modified: 24.4.1996 / 19:54:20 / cg" |
148 "Modified: 24.4.1996 / 19:54:20 / cg" |