equal
deleted
inserted
replaced
1205 |methods classList aNumber| |
1205 |methods classList aNumber| |
1206 |
1206 |
1207 (anInteger isNil) ifTrue:[ |
1207 (anInteger isNil) ifTrue:[ |
1208 ^ self |
1208 ^ self |
1209 ]. |
1209 ]. |
1210 anInteger isNil ifTrue:[ |
1210 aNumber := anInteger ? 1. |
1211 aNumber := 1 |
|
1212 ] ifFalse:[ |
|
1213 aNumber := anInteger |
|
1214 ]. |
|
1215 methods := SystemBrowser |
1211 methods := SystemBrowser |
1216 findImplementorsOf:(resultSelectors at:aNumber) |
1212 findImplementorsOf:(resultSelectors at:aNumber) |
1217 in:Smalltalk allClasses |
1213 in:Smalltalk allClasses |
1218 ignoreCase:false. |
1214 ignoreCase:false. |
1219 classList := methods asOrderedCollection |
1215 classList := methods asOrderedCollection |
1227 ] ifFalse:[ |
1223 ] ifFalse:[ |
1228 self selectedClassOfResultHolder value:nil. |
1224 self selectedClassOfResultHolder value:nil. |
1229 ]. |
1225 ]. |
1230 |
1226 |
1231 "Modified (comment): / 24-06-2012 / 18:41:45 / cg" |
1227 "Modified (comment): / 24-06-2012 / 18:41:45 / cg" |
1232 "Modified: / 01-03-2019 / 16:00:38 / Claus Gittinger" |
1228 "Modified: / 03-03-2019 / 23:13:43 / Claus Gittinger" |
1233 ! |
1229 ! |
1234 |
1230 |
1235 updateListAfterPatternSearch:resultList |
1231 updateListAfterPatternSearch:resultList |
1236 |searchPattern idx| |
1232 |searchPattern idx| |
1237 |
1233 |