equal
deleted
inserted
replaced
173 Here, infer such prefix. Individual packages may override this method |
173 Here, infer such prefix. Individual packages may override this method |
174 and return a string to enforce a particular name." |
174 and return a string to enforce a particular name." |
175 |
175 |
176 | cats longest prefix index nm | |
176 | cats longest prefix index nm | |
177 |
177 |
178 self classes do:[:each| each autoload]. |
178 cats := (self classes collect:[:each | each autoload; category ]) asSet. |
179 cats := (self classes collect:[:each | each category ]) asSet. |
|
180 cats remove:#'* Projects & Packages *'. |
179 cats remove:#'* Projects & Packages *'. |
181 cats size == 1 ifTrue:[ |
180 cats size == 1 ifTrue:[ |
182 ^ cats anElement |
181 ^ cats anElement |
183 ]. |
182 ]. |
184 cats isEmpty ifTrue:[ |
183 cats isEmpty ifTrue:[ |
483 ! ! |
482 ! ! |
484 |
483 |
485 !stx_goodies_monticello class methodsFor:'documentation'! |
484 !stx_goodies_monticello class methodsFor:'documentation'! |
486 |
485 |
487 extensionsVersion_CVS |
486 extensionsVersion_CVS |
488 ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.24 2013-06-23 20:13:55 vrany Exp $' |
487 ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.25 2013-06-23 23:08:00 vrany Exp $' |
489 ! ! |
488 ! ! |
490 |
489 |