equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
222 |
224 |
223 " |
225 " |
224 (mis(use) parser for the scanning |
226 (mis(use) parser for the scanning |
225 " |
227 " |
226 a := Compiler evaluate:'#(' , organizationString , ')'. |
228 a := Compiler evaluate:'#(' , organizationString , ')'. |
227 (a isMemberOf:Array) ifFalse:[^ self error:'malformed argument']. |
229 (a isArray) ifFalse:[^ self error:'malformed argument']. |
228 a do:[:row | |
230 a do:[:row | |
229 category := row at:1. |
231 category := row at:1. |
230 2 to:row size do:[:idx | |
232 2 to:row size do:[:idx | |
231 |selector| |
233 |selector| |
232 |
234 |
244 TestClass |
246 TestClass |
245 organization |
247 organization |
246 changeFromString:'( ''category1'' #foo1 #foo2 foo3) |
248 changeFromString:'( ''category1'' #foo1 #foo2 foo3) |
247 ( ''category2'' #bar1 #bar2)' |
249 ( ''category2'' #bar1 #bar2)' |
248 " |
250 " |
|
251 |
|
252 "Modified: / 08-06-2019 / 16:52:33 / Claus Gittinger" |
249 ! |
253 ! |
250 |
254 |
251 classify:aSelector under:aCategory |
255 classify:aSelector under:aCategory |
252 "change the category of the method stored under aSelector |
256 "change the category of the method stored under aSelector |
253 to aCategory." |
257 to aCategory." |