FindFileApplication.st
changeset 5743 ab4c777f25f2
parent 5730 6c04f3f1d04e
child 5766 97f7422b1ea6
equal deleted inserted replaced
5742:d9fa63dfd978 5743:ab4c777f25f2
    18 		ignoreCaseInContents notContentsPatternHolder
    18 		ignoreCaseInContents notContentsPatternHolder
    19 		ignoreCaseInNotContents sameContentsAsHolder findFileView
    19 		ignoreCaseInNotContents sameContentsAsHolder findFileView
    20 		searchResultTable resultList enableStop enableSearch stopSignal
    20 		searchResultTable resultList enableStop enableSearch stopSignal
    21 		accessLock searchTask expanded searchRecursively selectionHolder
    21 		accessLock searchTask expanded searchRecursively selectionHolder
    22 		hasListEntries targetApplication useLocate useGrep
    22 		hasListEntries targetApplication useLocate useGrep
    23 		rememberInCache searchOnlyInCache'
    23 		rememberInCache searchOnlyInCache searchForSameContents'
    24 	classVariableNames:'ContentsInfoCache'
    24 	classVariableNames:'ContentsInfoCache'
    25 	poolDictionaries:''
    25 	poolDictionaries:''
    26 	category:'Interface-Tools-File'
    26 	category:'Interface-Tools-File'
    27 !
    27 !
    28 
    28 
   203                     name: 'ContentsEntryField'
   203                     name: 'ContentsEntryField'
   204                     layout: (LayoutFrame 156 0 52 0 -315 1 72 0)
   204                     layout: (LayoutFrame 156 0 52 0 -315 1 72 0)
   205                     enableChannel: notSearchForSameContents
   205                     enableChannel: notSearchForSameContents
   206                     tabable: true
   206                     tabable: true
   207                     model: contentsPatternHolder
   207                     model: contentsPatternHolder
       
   208                     formatString: ''
   208                     immediateAccept: true
   209                     immediateAccept: true
   209                     acceptOnPointerLeave: false
   210                     acceptOnPointerLeave: false
   210                   )
   211                   )
   211                  (CheckBoxSpec
   212                  (CheckBoxSpec
   212                     label: 'Use ''grep'' Cmd'
   213                     label: 'Use ''grep'' Cmd'
   213                     name: 'UseGrepCheckBox'
   214                     name: 'UseGrepCheckBox'
   214                     layout: (LayoutFrame -300 1 53 0 -158 1 76 0)
   215                     layout: (LayoutFrame -300 1 53 0 -158 1 76 0)
   215                     visibilityChannel: canUseGrep
   216                     visibilityChannel: canUseGrep
       
   217                     enableChannel: notSearchForSameContents
   216                     tabable: true
   218                     tabable: true
   217                     model: useGrep
   219                     model: useGrep
   218                     translateLabel: true
   220                     translateLabel: true
   219                   )
   221                   )
   220                  (CheckBoxSpec
   222                  (CheckBoxSpec
   258                     translateLabel: true
   260                     translateLabel: true
   259                     adjust: right
   261                     adjust: right
   260                   )
   262                   )
   261                  (InputFieldSpec
   263                  (InputFieldSpec
   262                     name: 'SameContentsAsEntryField'
   264                     name: 'SameContentsAsEntryField'
   263                     layout: (LayoutFrame 156 0 100 0 -315 1 120 0)
   265                     layout: (LayoutFrame 156 0 100 0 -339 1 120 0)
   264                     enableChannel: notSearchForSameContents
   266                     enableChannel: searchForSameContents
   265                     tabable: true
   267                     tabable: true
   266                     model: sameContentsAsHolder
   268                     model: sameContentsAsHolder
   267                     formatString: ''
   269                     formatString: ''
   268                     immediateAccept: true
   270                     immediateAccept: true
   269                     acceptOnPointerLeave: false
   271                     acceptOnPointerLeave: false
   271                  (CheckBoxSpec
   273                  (CheckBoxSpec
   272                     label: 'Cache Info'
   274                     label: 'Cache Info'
   273                     name: 'RememberInCacheCheckBox'
   275                     name: 'RememberInCacheCheckBox'
   274                     layout: (LayoutFrame -300 1 101 0 -158 1 124 0)
   276                     layout: (LayoutFrame -300 1 101 0 -158 1 124 0)
   275                     visibilityChannel: canUseGrep
   277                     visibilityChannel: canUseGrep
       
   278                     enableChannel: searchForSameContents
   276                     tabable: true
   279                     tabable: true
   277                     model: rememberInCache
   280                     model: rememberInCache
   278                     translateLabel: true
   281                     translateLabel: true
   279                   )
   282                   )
   280                  (CheckBoxSpec
   283                  (CheckBoxSpec
   281                     label: 'Search In Cache'
   284                     label: 'Search In Cache'
   282                     name: 'SearchOnlyInCacheCheckBox'
   285                     name: 'SearchOnlyInCacheCheckBox'
   283                     layout: (LayoutFrame -160 1 101 0 -4 1 124 0)
   286                     layout: (LayoutFrame -160 1 101 0 -4 1 124 0)
   284                     enableChannel: notSearchForSameContents
   287                     enableChannel: searchForSameContents
   285                     tabable: true
   288                     tabable: true
   286                     model: searchOnlyInCache
   289                     model: searchOnlyInCache
   287                     translateLabel: true
   290                     translateLabel: true
       
   291                   )
       
   292                  (CheckToggleSpec
       
   293                     name: 'EnableSameContentsCheckToggle'
       
   294                     layout: (LayoutOrigin -334 1 104 0)
       
   295                     model: searchForSameContents
       
   296                     isTriggerOnDown: true
       
   297                     showLamp: false
       
   298                     lampColor: (Color 100.0 100.0 0.0)
   288                   )
   299                   )
   289                  )
   300                  )
   290                
   301                
   291               )
   302               )
   292             )
   303             )
   778     ].
   789     ].
   779     ^ notContentsPatternHolder.
   790     ^ notContentsPatternHolder.
   780 !
   791 !
   781 
   792 
   782 notSearchForSameContents
   793 notSearchForSameContents
   783 
   794     ^ BlockValue forLogicalNot:self searchForSameContents
   784     notSearchForSameContents isNil ifTrue:[
       
   785         notSearchForSameContents := true asValue.
       
   786     ].
       
   787     ^ notSearchForSameContents.
       
   788 !
   795 !
   789 
   796 
   790 rememberInCache
   797 rememberInCache
   791     rememberInCache isNil ifTrue:[
   798     rememberInCache isNil ifTrue:[
   792         rememberInCache := false asValue.
   799         rememberInCache := false asValue.
   829 
   836 
   830     searchDirectoryHolder isNil ifTrue:[
   837     searchDirectoryHolder isNil ifTrue:[
   831         searchDirectoryHolder := ValueHolder new.
   838         searchDirectoryHolder := ValueHolder new.
   832     ].
   839     ].
   833     ^ searchDirectoryHolder.
   840     ^ searchDirectoryHolder.
       
   841 !
       
   842 
       
   843 searchForSameContents
       
   844     searchForSameContents isNil ifTrue:[
       
   845         searchForSameContents := false asValue.
       
   846     ].
       
   847     ^ searchForSameContents.
   834 !
   848 !
   835 
   849 
   836 searchOnlyInCache
   850 searchOnlyInCache
   837     searchOnlyInCache isNil ifTrue:[
   851     searchOnlyInCache isNil ifTrue:[
   838         searchOnlyInCache := false asValue.
   852         searchOnlyInCache := false asValue.
  1350 ! !
  1364 ! !
  1351 
  1365 
  1352 !FindFileApplication class methodsFor:'documentation'!
  1366 !FindFileApplication class methodsFor:'documentation'!
  1353 
  1367 
  1354 version
  1368 version
  1355     ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.31 2004-03-16 08:51:10 cg Exp $'
  1369     ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.32 2004-03-16 16:56:27 cg Exp $'
  1356 ! !
  1370 ! !