Mercurial Mercurial > hg > stx-libtool / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__SearchDialog.st
branchjv
changeset 12265 f1b3696cf042
parent 12262 d25ef6bb0ef3
child 12268 cb43ab66c093
equal deleted inserted replaced
12264:75581322c03b 12265:f1b3696cf042 
   480         browser isMethodListBrowser ifTrue:[
 
   480         browser isMethodListBrowser ifTrue:[
 
   481             searchAreas size == 0 ifTrue:[
 
   481             searchAreas size == 0 ifTrue:[
 
   482                 self addCheckBoxForEverywhere.
 
   482                 self addCheckBoxForEverywhere.
 
   483             ].
 
   483             ].
 
   484             self addCheckBoxForMethodList.
 
   484             self addCheckBoxForMethodList.
 
   485             browser selectedMethods value size > 1 ifTrue:[
 
   485             self addCheckBoxForSelectedMethods.
 
   486                 self addCheckBoxForSelectedMethods.
 
       
   487             ].
 
       
   488             self addCheckBoxForSelectedMethodClasses.
 
   486             self addCheckBoxForSelectedMethodClasses.
 
   489             self addCheckBoxForSelectedMethodPackages.
 
   487             self addCheckBoxForSelectedMethodPackages.
 
   490         ] ifFalse:[
 
   488         ] ifFalse:[
 
   491             searchAreas size == 0 ifTrue:[
 
   489             searchAreas size == 0 ifTrue:[
 
   492                 self addCheckBoxForEverywhere.
 
   490                 self addCheckBoxForEverywhere.
 
   554     ].
 
   552     ].
 
   555     self addButtons.
 
   553     self addButtons.
 
   556 
   554 
   557     self label:(resources string:'Search').
 
   555     self label:(resources string:'Search').
 
   558 
   556 
   559     "Modified: / 29-02-2012 / 19:48:17 / cg"
 
   557     "Modified: / 20-07-2012 / 11:37:57 / cg"
 
   560 ! !
 
   558 ! !
 
   561 
   559 
   562 !SearchDialog methodsFor:'setup'!
 
   560 !SearchDialog methodsFor:'setup'!
 
   563 
   561 
   564 addCheckBox:b forSearchArea:area 
   562 addCheckBox:b forSearchArea:area 
   803     self addCheckBox:b forSearchArea:#classCategories.
 
   801     self addCheckBox:b forSearchArea:#classCategories.
 
   804     ^ b.
 
   802     ^ b.
 
   805 !
 
   803 !
 
   806 
   804 
   807 addCheckBoxForSelectedMethodClasses
 
   805 addCheckBoxForSelectedMethodClasses
 
   808     |b classes|
 
   806     |b classes numClasses|
 
   809 
   807 
   810     classes := ((browser selectedMethods value ? #()) 
   808     classes := ((browser selectedMethods value ? #()) 
   811                     select:[:m | m mclass notNil]
 
   809                     select:[:m | m mclass notNil]
 
   812                     thenCollect:[:m | m mclass theNonMetaclass]) asSet.
 
   810                     thenCollect:[:m | m mclass theNonMetaclass]) asSet.
 
   813     classes size == 1 ifTrue:[
 
   811     numClasses := classes size.
 
       
   812     numClasses == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
 
       
   813 
       
   814     numClasses == 1 ifTrue:[
 
   814         b := CheckBox label:(resources string:'Selected method''s class ("%1")'
 
   815         b := CheckBox label:(resources string:'Selected method''s class ("%1")'
 
   815                             with:classes first name).
 
   816                             with:classes first name).
 
   816     ] ifFalse:[
 
   817     ] ifFalse:[
 
   817         b := CheckBox label:(resources string:'Selected methods'' classes (%1)'
 
   818         b := CheckBox label:(resources string:'Selected methods'' classes (%1)'
 
   818                             with:classes size).
 
   819                             with:numClasses).
 
       
   820         numClasses == 0 ifTrue:[
 
       
   821             b disable
 
       
   822         ].
 
   819     ].
 
   823     ].
 
   820     self addCheckBox:b forSearchArea:#listOfSelectedMethodClasses.
 
   824     self addCheckBox:b forSearchArea:#listOfSelectedMethodClasses.
 
   821     ^ b.
 
   825     ^ b.
 
   822 
   826 
   823     "Modified: / 29-02-2012 / 19:42:33 / cg"
 
   827     "Modified (comment): / 20-07-2012 / 11:40:44 / cg"
 
   824 !
 
   828 !
 
   825 
   829 
   826 addCheckBoxForSelectedMethodPackages
 
   830 addCheckBoxForSelectedMethodPackages
 
   827     |b packages|
 
   831     |b packages numPackages|
 
   828 
   832 
   829     packages := ((browser selectedMethods value ? #()) 
   833     packages := ((browser selectedMethods value ? #()) 
   830                     collect:[:m | m package]) asSet.
 
   834                     collect:[:m | m package]) asSet.
 
   831 
   835     numPackages := packages size.
 
   832     packages size == 1 ifTrue:[
 
   836     numPackages size == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
 
       
   837 
       
   838     numPackages == 1 ifTrue:[
 
   833         b := CheckBox label:(resources string:'Selected method''s package ("%1")'
 
   839         b := CheckBox label:(resources string:'Selected method''s package ("%1")'
 
   834                             with:packages first).
 
   840                             with:packages first).
 
   835     ] ifFalse:[
 
   841     ] ifFalse:[
 
   836         b := CheckBox label:(resources string:'Selected methods'' packages (%1)'
 
   842         b := CheckBox label:(resources string:'Selected methods'' packages (%1)'
 
   837                             with:packages size).
 
   843                             with:numPackages).
 
       
   844         numPackages == 0 ifTrue:[
 
       
   845             b disable
 
       
   846         ].
 
   838     ].
 
   847     ].
 
   839     self addCheckBox:b forSearchArea:#listOfSelectedMethodPackages.
 
   848     self addCheckBox:b forSearchArea:#listOfSelectedMethodPackages.
 
   840     ^ b.
 
   849     ^ b.
 
   841 
   850 
   842     "Created: / 29-02-2012 / 19:42:26 / cg"
 
   851     "Created: / 29-02-2012 / 19:42:26 / cg"
 
   843 !
 
   852 !
 
   844 
   853 
   845 addCheckBoxForSelectedMethods
 
   854 addCheckBoxForSelectedMethods
 
   846     |b|
 
   855     |b numSelected|
 
   847 
   856 
   848     b := CheckBox label:(resources string:'Selected methods (%1)'
 
   857     numSelected := browser selectedMethods value size.
 
   849 			with:browser selectedMethods value size).
 
   858     numSelected == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
 
       
   859 
       
   860     b := CheckBox label:(resources string:'Selected methods (%1)' with:numSelected).
 
   850     self addCheckBox:b forSearchArea:#listOfSelectedMethods.
 
   861     self addCheckBox:b forSearchArea:#listOfSelectedMethods.
 
   851     ^ b.
 
   862     numSelected == 0 ifTrue:[b disable].
 
       
   863     ^ b.
 
       
   864 
       
   865     "Modified (comment): / 20-07-2012 / 11:40:33 / cg"
 
   852 !
 
   866 !
 
   853 
   867 
   854 addCheckBoxForSelectedPackage
 
   868 addCheckBoxForSelectedPackage
 
   855     |b lbl arg|
 
   869     |b lbl arg|
 
   856 
   870 
  1323 ! !
 
  1337 ! !
 
  1324 
  1338 
  1325 !SearchDialog class methodsFor:'documentation'!
 
  1339 !SearchDialog class methodsFor:'documentation'!
 
  1326 
  1340 
  1327 version_CVS
 
  1341 version_CVS
 
  1328     ^ '§Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.69 2012/02/29 18:50:58 cg Exp §'
 
  1342     ^ '§Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.70 2012/07/20 09:42:22 cg Exp §'
 
  1329 !
 
  1343 !
 
  1330 
  1344 
  1331 version_SVN
 
  1345 version_SVN
 
  1332     ^ '$Id: Tools__SearchDialog.st 8018 2012-07-18 17:00:57Z vranyj1 $'
 
  1346     ^ '$Id: Tools__SearchDialog.st 8022 2012-07-25 09:51:30Z vranyj1 $'
 
  1333 ! !
 
  1347 ! !
 
  1334 
  1348 
  1335 SearchDialog initialize!
 
  1349 SearchDialog initialize!
hg/stx-libtool