FileBrowser.st
changeset 5152 6c6716dd6642
parent 5121 572990eefe2e
child 5161 9866e56eccd5
equal deleted inserted replaced
5151:53c19d72ff59 5152:6c6716dd6642
   517      UIPainter new openOnClass:FileBrowser andSelector:#fileSearchDialogSpec
   517      UIPainter new openOnClass:FileBrowser andSelector:#fileSearchDialogSpec
   518     "
   518     "
   519 
   519 
   520     <resource: #canvas>
   520     <resource: #canvas>
   521 
   521 
   522     ^
   522     ^ 
   523      
   523      #(FullSpec
   524        #(#FullSpec
   524         name: fileSearchDialogSpec
   525           #window: 
   525         window: 
   526            #(#WindowSpec
   526        (WindowSpec
   527               #name: 'File Search'
   527           label: 'File Search'
   528               #layout: #(#LayoutFrame 4 0 50 0 315 0 349 0)
   528           name: 'File Search'
   529               #level: 0
   529           min: (Point 10 10)
   530               #label: 'File Search'
   530           bounds: (Rectangle 14 46 326 346)
   531               #min: #(#Point 10 10)
   531         )
   532               #max: #(#Point 1280 1024)
   532         component: 
   533               #bounds: #(#Rectangle 4 50 316 350)
   533        (SpecCollection
   534               #usePreferredExtent: false
   534           collection: (
   535               #returnIsOKInDialog: true
   535            (LabelSpec
   536               #escapeIsCancelInDialog: true
   536               label: 'Search for files named:'
   537           )
   537               name: 'Label1'
   538           #component: 
   538               layout: (LayoutFrame 0 0 10 0 0 1 32 0)
   539            #(#SpecCollection
   539               translateLabel: true
   540               #collection: 
   540               adjust: left
   541                #(
   541             )
   542                  #(#LabelSpec
   542            (InputFieldSpec
   543                     #name: 'Label1'
   543               name: 'EntryField1'
   544                     #layout: #(#LayoutFrame 0 0 10 0 0 1 32 0)
   544               layout: (LayoutFrame 10 0 36 0 305 0 58 0)
   545                     #label: 'Search for files named:'
   545               tabable: true
   546                     #translateLabel: true
   546               model: namePatternHolder
   547                     #adjust: #left
   547               acceptOnPointerLeave: false
   548                 )
   548             )
   549                  #(#InputFieldSpec
   549            (CheckBoxSpec
   550                     #name: 'EntryField1'
   550               label: 'Ignore case'
   551                     #layout: #(#LayoutFrame 10 0 36 0 305 0 58 0)
   551               name: 'CheckBox1'
   552                     #tabable: true
   552               layout: (LayoutFrame 7 0 66 0 143 0 88 0)
   553                     #model: #namePatternHolder
   553               tabable: true
   554                 )
   554               model: ignoreCaseInName
   555                  #(#CheckBoxSpec
   555               translateLabel: true
   556                     #name: 'CheckBox1'
   556             )
   557                     #layout: #(#LayoutFrame 7 0 66 0 143 0 88 0)
   557            (LabelSpec
   558                     #tabable: true
   558               label: 'Containing the string:'
   559                     #model: #ignoreCaseInName
   559               name: 'Label2'
   560                     #label: 'Ignore case'
   560               layout: (LayoutFrame 0 0.0 107 0 0 1.0 129 0)
   561                     #translateLabel: true
   561               translateLabel: true
   562                 )
   562               adjust: left
   563                  #(#LabelSpec
   563             )
   564                     #name: 'Label2'
   564            (InputFieldSpec
   565                     #layout: #(#LayoutFrame 0 0.0 107 0 0 1.0 129 0)
   565               name: 'EntryField2'
   566                     #label: 'Containing the string:'
   566               layout: (LayoutFrame 10 0 133 0 305 0 155 0)
   567                     #translateLabel: true
   567               enableChannel: notSearchForSameContents
   568                     #adjust: #left
   568               tabable: true
   569                 )
   569               model: contentsPatternHolder
   570                  #(#InputFieldSpec
   570               acceptOnPointerLeave: false
   571                     #name: 'EntryField2'
   571             )
   572                     #layout: #(#LayoutFrame 10 0 133 0 305 0 155 0)
   572            (CheckBoxSpec
   573                     #enableChannel: #notSearchForSameContents
   573               label: 'Ignore case'
   574                     #tabable: true
   574               name: 'CheckBox2'
   575                     #model: #contentsPatternHolder
   575               layout: (LayoutFrame 6 0 163 0 142 0 185 0)
   576                 )
   576               enableChannel: notSearchForSameContents
   577                  #(#CheckBoxSpec
   577               tabable: true
   578                     #name: 'CheckBox2'
   578               model: ignoreCaseInContents
   579                     #layout: #(#LayoutFrame 6 0 163 0 142 0 185 0)
   579               translateLabel: true
   580                     #enableChannel: #notSearchForSameContents
   580             )
   581                     #tabable: true
   581            (LabelSpec
   582                     #model: #ignoreCaseInContents
   582               label: 'Containing same contents as selected:'
   583                     #label: 'Ignore case'
   583               name: 'Label3'
   584                     #translateLabel: true
   584               layout: (LayoutFrame 0 0.0 223 0 -30 1.0 245 0)
   585                 )
   585               translateLabel: true
   586                  #(#LabelSpec
   586               adjust: left
   587                     #name: 'Label3'
   587             )
   588                     #layout: #(#LayoutFrame 0 0.0 223 0 -30 1.0 245 0)
   588            (DividerSpec
   589                     #label: 'Containing same contents as selected:'
   589               name: 'Separator1'
   590                     #translateLabel: true
   590               layout: (LayoutFrame 0 0.0 97 0 0 1.0 101 0)
   591                     #adjust: #left
   591             )
   592                 )
   592            (CheckToggleSpec
   593                  #(#DividerSpec
   593               name: 'CheckToggle1'
   594                     #name: 'Separator1'
   594               layout: (LayoutOrigin -25 1 225 0)
   595                     #layout: #(#LayoutFrame 0 0.0 97 0 0 1.0 101 0)
   595               tabable: true
   596                 )
   596               model: searchForSameContents
   597                  #(#CheckToggleSpec
   597               enableChannel: searchForSameContentsEnabled
   598                     #name: 'CheckToggle1'
   598               isTriggerOnDown: true
   599                     #layout: #(#LayoutOrigin -25 1 225 0)
   599               showLamp: false
   600                     #tabable: true
   600               lampColor: (Color 100.0 100.0 0.0)
   601                     #model: #searchForSameContents
   601             )
   602                     #enableChannel: #searchForSameContentsEnabled
   602            (HorizontalPanelViewSpec
   603                     #isTriggerOnDown: true
   603               name: 'HorizontalPanel1'
   604                     #showLamp: false
   604               layout: (LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
   605                     #lampColor: #(#Color 100.0 100.0 0.0)
   605               horizontalLayout: fitSpace
   606                 )
   606               verticalLayout: centerMax
   607                  #(#HorizontalPanelViewSpec
   607               horizontalSpace: 3
   608                     #name: 'HorizontalPanel1'
   608               verticalSpace: 3
   609                     #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
   609               component: 
   610                     #component: 
   610              (SpecCollection
   611                      #(#SpecCollection
   611                 collection: (
   612                         #collection: 
   612                  (ActionButtonSpec
   613                          #(
   613                     label: 'Cancel'
   614                            #(#ActionButtonSpec
   614                     name: 'Button1'
   615                               #name: 'Button1'
   615                     translateLabel: true
   616                               #label: 'Cancel'
   616                     tabable: true
   617                               #translateLabel: true
   617                     model: cancel
   618                               #tabable: true
   618                     extent: (Point 151 25)
   619                               #model: #cancel
   619                   )
   620                               #extent: #(#Point 151 25)
   620                  (ActionButtonSpec
   621                           )
   621                     label: 'Search'
   622                            #(#ActionButtonSpec
   622                     name: 'Button2'
   623                               #name: 'Button2'
   623                     translateLabel: true
   624                               #label: 'Search'
   624                     tabable: true
   625                               #translateLabel: true
   625                     model: accept
   626                               #tabable: true
   626                     isDefault: true
   627                               #model: #accept
   627                     extent: (Point 152 25)
   628                               #isDefault: true
   628                   )
   629                               #extent: #(#Point 152 25)
   629                  )
   630                           )
   630                
   631                         )
       
   632                     )
       
   633                     #horizontalLayout: #fitSpace
       
   634                     #verticalLayout: #centerMax
       
   635                     #horizontalSpace: 3
       
   636                     #verticalSpace: 3
       
   637                 )
       
   638               )
   631               )
   639           )
   632             )
       
   633            )
       
   634          
       
   635         )
   640       )
   636       )
   641 ! !
   637 ! !
   642 
   638 
   643 !FileBrowser class methodsFor:'menu specs'!
   639 !FileBrowser class methodsFor:'menu specs'!
   644 
   640 
  7850 ! !
  7846 ! !
  7851 
  7847 
  7852 !FileBrowser class methodsFor:'documentation'!
  7848 !FileBrowser class methodsFor:'documentation'!
  7853 
  7849 
  7854 version
  7850 version
  7855     ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.543 2003-08-28 11:23:03 cg Exp $'
  7851     ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.544 2003-09-04 18:56:43 stefan Exp $'
  7856 ! !
  7852 ! !