equal
deleted
inserted
replaced
246 (packageToItemDictionary includesKey:package) ifFalse:[ |
246 (packageToItemDictionary includesKey:package) ifFalse:[ |
247 self addPackage:package |
247 self addPackage:package |
248 ]. |
248 ]. |
249 ]. |
249 ]. |
250 |
250 |
251 "/ Smalltalk allClassesDo:[:eachClass | |
251 "/ environment allClassesDo:[:eachClass | |
252 "/ |package| |
252 "/ |package| |
253 "/ |
253 "/ |
254 "/ package := eachClass package asSymbol. |
254 "/ package := eachClass package asSymbol. |
255 "/ (packageToItemDictionary includesKey:package) ifFalse:[ |
255 "/ (packageToItemDictionary includesKey:package) ifFalse:[ |
256 "/ self addPackage:package |
256 "/ self addPackage:package |