484 self addCheckBoxForMethodList. |
484 self addCheckBoxForMethodList. |
485 browser selectedMethods value size > 1 ifTrue:[ |
485 browser selectedMethods value size > 1 ifTrue:[ |
486 self addCheckBoxForSelectedMethods. |
486 self addCheckBoxForSelectedMethods. |
487 ]. |
487 ]. |
488 self addCheckBoxForSelectedMethodClasses. |
488 self addCheckBoxForSelectedMethodClasses. |
|
489 self addCheckBoxForSelectedMethodPackages. |
489 ] ifFalse:[ |
490 ] ifFalse:[ |
490 searchAreas size == 0 ifTrue:[ |
491 searchAreas size == 0 ifTrue:[ |
491 self addCheckBoxForEverywhere. |
492 self addCheckBoxForEverywhere. |
492 ]. |
493 ]. |
493 self addCheckBoxForChangedMethodList. |
494 self addCheckBoxForChangedMethodList. |
808 |
809 |
809 classes := ((browser selectedMethods value ? #()) |
810 classes := ((browser selectedMethods value ? #()) |
810 select:[:m | m mclass notNil] |
811 select:[:m | m mclass notNil] |
811 thenCollect:[:m | m mclass theNonMetaclass]) asSet. |
812 thenCollect:[:m | m mclass theNonMetaclass]) asSet. |
812 classes size == 1 ifTrue:[ |
813 classes size == 1 ifTrue:[ |
813 b := CheckBox label:(resources string:'Selected method''s class (%1)' |
814 b := CheckBox label:(resources string:'Selected method''s class ("%1")' |
814 with:classes first name). |
815 with:classes first name). |
815 ] ifFalse:[ |
816 ] ifFalse:[ |
816 b := CheckBox label:(resources string:'Selected methods'' classes (%1)' |
817 b := CheckBox label:(resources string:'Selected methods'' classes (%1)' |
817 with:classes size). |
818 with:classes size). |
818 ]. |
819 ]. |
819 self addCheckBox:b forSearchArea:#listOfSelectedMethodClasses. |
820 self addCheckBox:b forSearchArea:#listOfSelectedMethodClasses. |
820 ^ b. |
821 ^ b. |
821 |
822 |
822 "Modified: / 01-11-2010 / 21:35:46 / cg" |
823 "Modified: / 29-02-2012 / 19:42:33 / cg" |
|
824 ! |
|
825 |
|
826 addCheckBoxForSelectedMethodPackages |
|
827 |b packages| |
|
828 |
|
829 packages := ((browser selectedMethods value ? #()) |
|
830 collect:[:m | m package]) asSet. |
|
831 |
|
832 packages size == 1 ifTrue:[ |
|
833 b := CheckBox label:(resources string:'Selected method''s package ("%1")' |
|
834 with:packages first). |
|
835 ] ifFalse:[ |
|
836 b := CheckBox label:(resources string:'Selected methods'' packages (%1)' |
|
837 with:packages size). |
|
838 ]. |
|
839 self addCheckBox:b forSearchArea:#listOfSelectedMethodPackages. |
|
840 ^ b. |
|
841 |
|
842 "Created: / 29-02-2012 / 19:42:26 / cg" |
823 ! |
843 ! |
824 |
844 |
825 addCheckBoxForSelectedMethods |
845 addCheckBoxForSelectedMethods |
826 |b| |
846 |b| |
827 |
847 |
1162 (where == #listOfSelectedMethodClasses) ifTrue:[ |
1182 (where == #listOfSelectedMethodClasses) ifTrue:[ |
1163 classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass]) asSet asOrderedCollection. |
1183 classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass]) asSet asOrderedCollection. |
1164 methods := nil. |
1184 methods := nil. |
1165 ^ self. |
1185 ^ self. |
1166 ]. |
1186 ]. |
|
1187 (where == #listOfSelectedMethodPackages) ifTrue:[ |
|
1188 classes := (((browser selectedMethods value ? #()) collect:[:m | m package]) asSet |
|
1189 collectAll:[:p | Smalltalk allClassesInPackage:p ]) asOrderedCollection. |
|
1190 methods := nil. |
|
1191 ^ self. |
|
1192 ]. |
1167 (where == #listOfChangedClasses) ifTrue:[ |
1193 (where == #listOfChangedClasses) ifTrue:[ |
1168 classes := ChangeSet current changedClasses. |
1194 classes := ChangeSet current changedClasses. |
1169 methods := nil. |
1195 methods := nil. |
1170 ^ self. |
1196 ^ self. |
1171 ]. |
1197 ]. |
1188 ^ self. |
1214 ^ self. |
1189 ]. |
1215 ]. |
1190 |
1216 |
1191 self halt:'inumplemented search'. |
1217 self halt:'inumplemented search'. |
1192 |
1218 |
1193 "Modified: / 19-11-2010 / 12:01:15 / cg" |
|
1194 "Modified: / 05-10-2011 / 15:48:20 / az" |
1219 "Modified: / 05-10-2011 / 15:48:20 / az" |
|
1220 "Modified: / 29-02-2012 / 19:47:42 / cg" |
1195 ! |
1221 ! |
1196 |
1222 |
1197 helpTextForMetaPatterns |
1223 helpTextForMetaPatterns |
1198 ^ 'MetaPatterns: |
1224 ^ 'MetaPatterns: |
1199 ' , '`' allBold , ' = meta |
1225 ' , '`' allBold , ' = meta |