Tools_SearchDialog.st
changeset 13736 5b4288045978
parent 12711 e970bedfb0af
child 13875 a1e9ad9d39eb
equal deleted inserted replaced
13735:bfac4cb1f1d6 13736:5b4288045978
   381                 "/ selectedClasses := selectedClasses select:[:each | each notNil ].
   381                 "/ selectedClasses := selectedClasses select:[:each | each notNil ].
   382             ].
   382             ].
   383         ].
   383         ].
   384     ].
   384     ].
   385 
   385 
   386     (self addTextLabel:(resources stringWithCRs:title)) adjust:#left.
   386     self addTextLabel:(resources stringWithCRs:title) adjust:#left.
   387 
   387 
   388     currentClass notNil ifTrue:[
   388     currentClass notNil ifTrue:[
   389         currentClass := currentClass theNonMetaclass.
   389         currentClass := currentClass theNonMetaclass.
   390     ].
   390     ].
   391     withTextEntry ifTrue:[
   391     withTextEntry ifTrue:[
  1099     b helpKey:#matchAnyNode.
  1099     b helpKey:#matchAnyNode.
  1100     b := Button label:'+Stats' action:[ codeField pasteOrReplace:'`.@stats' ] in:metaBox.
  1100     b := Button label:'+Stats' action:[ codeField pasteOrReplace:'`.@stats' ] in:metaBox.
  1101     b helpKey:#matchAnyStats.                                      
  1101     b helpKey:#matchAnyStats.                                      
  1102     self addComponent:metaBox.
  1102     self addComponent:metaBox.
  1103 
  1103 
  1104     errMessageField := (self addTextLabel:'') adjust:#left.
  1104     errMessageField := self addTextLabel:'' adjust:#left.
  1105     errMessageField level:-1.    
  1105     errMessageField level:-1.    
  1106     self addCheckBox:(resources string:'Method') on:self isMethodHolder.
  1106     self addCheckBox:(resources string:'Method') on:self isMethodHolder.
  1107 
  1107 
  1108     checkCodeAction := [ self checkCodeIn:codeField notifying:errMessageField. ].
  1108     checkCodeAction := [ self checkCodeIn:codeField notifying:errMessageField. ].
  1109 
  1109 
  1393 ! !
  1393 ! !
  1394 
  1394 
  1395 !SearchDialog class methodsFor:'documentation'!
  1395 !SearchDialog class methodsFor:'documentation'!
  1396 
  1396 
  1397 version_CVS
  1397 version_CVS
  1398     ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.76 2013-04-25 13:11:05 stefan Exp $'
  1398     ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.77 2014-01-05 13:16:34 cg Exp $'
  1399 ! !
  1399 ! !
  1400 
  1400 
  1401 
  1401 
  1402 SearchDialog initialize!
  1402 SearchDialog initialize!