equal
deleted
inserted
replaced
68 packages := packageFilter value value. |
68 packages := packageFilter value value. |
69 |
69 |
70 protocols size > 0 ifTrue:[ |
70 protocols size > 0 ifTrue:[ |
71 protocols size == 1 ifTrue:[ |
71 protocols size == 1 ifTrue:[ |
72 theProtocol := protocols first. |
72 theProtocol := protocols first. |
73 Smalltalk allClassesDo:[:eachClass | |
73 environment allClassesDo:[:eachClass | |
74 eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod | |
74 eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod | |
75 |cat| |
75 |cat| |
76 |
76 |
77 cat := eachMethod category. |
77 cat := eachMethod category. |
78 (all |
78 (all |
84 ]. |
84 ]. |
85 ]. |
85 ]. |
86 ]. |
86 ]. |
87 ] |
87 ] |
88 ] ifFalse:[ |
88 ] ifFalse:[ |
89 Smalltalk allClassesDo:[:eachClass | |
89 environment allClassesDo:[:eachClass | |
90 eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod | |
90 eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod | |
91 |cat| |
91 |cat| |
92 |
92 |
93 cat := eachMethod category. |
93 cat := eachMethod category. |
94 (all |
94 (all |
121 ! ! |
121 ! ! |
122 |
122 |
123 !FullMethodCategoryList class methodsFor:'documentation'! |
123 !FullMethodCategoryList class methodsFor:'documentation'! |
124 |
124 |
125 version |
125 version |
126 ^ '$Id: Tools__FullMethodCategoryList.st 8083 2013-01-14 11:48:37Z vranyj1 $' |
126 ^ '$Header: /cvs/stx/stx/libtool/Tools_FullMethodCategoryList.st,v 1.6 2013-09-05 10:46:11 vrany Exp $' |
127 ! |
127 ! |
128 |
128 |
129 version_HG |
129 version_HG |
130 |
130 |
131 ^ '$Changeset: <not expanded> $' |
131 ^ '$Changeset: <not expanded> $' |