FileSelectionBrowser.st
changeset 3490 e3b6106384a8
parent 3252 b5b2f185aa98
child 3656 84177d270097
equal deleted inserted replaced
3489:ed003c06c33b 3490:e3b6106384a8
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1997 by eXept Software AG
     2  COPYRIGHT (c) 1997 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
   194 !FileSelectionBrowser class methodsFor:'accessing'!
   192 !FileSelectionBrowser class methodsFor:'accessing'!
   195 
   193 
   196 loadImageFileNameFilters
   194 loadImageFileNameFilters
   197     ^ OrderedCollection 
   195     ^ OrderedCollection 
   198         withAll: #(
   196         withAll: #(
   199                     '*.png ; *.gif ; *.bmp ; *.tif ; *.tiff ; *.xpm ; *.xbm ; *.jpeg ; *.jpg'
   197                     '*.png ; *.gif ; *.bmp ; *.tif ; *.tiff ; *.xpm ; *.xbm ; *.jpeg ; *.jpg ; *.ico'
   200                     '*'
   198                     '*'
   201                   )
   199                   )
   202 
   200 
   203     "Modified: / 12.9.1998 / 17:23:42 / cg"
   201     "Modified: / 13-09-2017 / 10:06:23 / cg"
   204 !
   202 !
   205 
   203 
   206 projectFileNameFilters
   204 projectFileNameFilters
   207     ^Array withAll: #(
   205     ^Array withAll: #(
   208                       '*.st ; *.*o ; *.s ; *.c ; Make* ; *.project'
   206                       '*.st ; *.*o ; *.s ; *.c ; Make* ; *.project'
   238     "
   236     "
   239 
   237 
   240     <resource: #canvas>
   238     <resource: #canvas>
   241 
   239 
   242     ^ 
   240     ^ 
   243      #(#FullSpec
   241     #(FullSpec
   244         #name: #windowSpec
   242        name: windowSpec
   245         #window: 
   243        window: 
   246        #(#WindowSpec
   244       (WindowSpec
   247           #label: 'File Selection Browser'
   245          label: 'File Selection Browser'
   248           #name: 'File Selection Browser'
   246          name: 'File Selection Browser'
   249           #min: #(#Point 10 10)
   247          min: (Point 10 10)
   250           #bounds: #(#Rectangle 18 51 618 401)
   248          bounds: (Rectangle 0 0 697 523)
   251         )
   249        )
   252         #component: 
   250        component: 
   253        #(#SpecCollection
   251       (SpecCollection
   254           #collection: #(
   252          collection: (
   255            #(#VariableHorizontalPanelSpec
   253           (VariableHorizontalPanelSpec
   256               #name: 'panel'
   254              name: 'panel'
   257               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
   255              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
   258               #component: 
   256              component: 
   259              #(#SpecCollection
   257             (SpecCollection
   260                 #collection: #(
   258                collection: (
   261                  #(#ViewSpec
   259                 (ViewSpec
   262                     #name: 'view1'
   260                    name: 'view1'
   263                     #component: 
   261                    component: 
   264                    #(#SpecCollection
   262                   (SpecCollection
   265                       #collection: #(
   263                      collection: (
   266                        #(#FileSelectionTreeSpec
   264                       (FileSelectionTreeSpec
   267                           #name: 'directoryTreeView'
   265                          name: 'directoryTreeView'
   268                           #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
   266                          layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
   269                           #model: #selectionOfDirectory
   267                          model: selectionOfDirectory
   270                           #menu: #treeMenu
   268                          menu: treeMenu
   271                           #hasHorizontalScrollBar: true
   269                          hasHorizontalScrollBar: true
   272                           #hasVerticalScrollBar: true
   270                          hasVerticalScrollBar: true
   273                           #miniScrollerHorizontal: true
   271                          miniScrollerHorizontal: true
   274                           #showDirectoryIndicatorForRoot: false
   272                          showDirectoryIndicatorForRoot: false
   275                           #showDirectoryIndicator: true
   273                          showDirectoryIndicator: true
   276                           #valueChangeSelector: #readDirectory
   274                          valueChangeSelector: readDirectory
   277                           #hierarchicalList: #rootOfDirectory
   275                          hierarchicalList: rootOfDirectory
   278                           #highlightMode: #line
   276                          highlightMode: line
   279                           #itemClass: 'Directory'
   277                          itemClass: 'Directory'
   280                         )
       
   281                        #(#InputFieldSpec
       
   282                           #name: 'directoryInputField'
       
   283                           #layout: #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
       
   284                           #model: #selectionOfDirectory
       
   285                           #immediateAccept: false
       
   286                           #acceptOnPointerLeave: false
       
   287                         )
       
   288                        )
   278                        )
   289                      
   279                       (InputFieldSpec
   290                     )
   280                          name: 'directoryInputField'
   291                   )
   281                          layout: (LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
   292                  #(#ViewSpec
   282                          model: selectionOfDirectory
   293                     #name: 'view2'
   283                          immediateAccept: false
   294                     #component: 
   284                          acceptOnPointerLeave: false
   295                    #(#SpecCollection
       
   296                       #collection: #(
       
   297                        #(#InputFieldSpec
       
   298                           #name: 'EditField'
       
   299                           #layout: #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
       
   300                           #model: #valueOfFileName
       
   301                           #acceptOnReturn: false
       
   302                           #acceptOnTab: false
       
   303                           #acceptOnPointerLeave: false
       
   304                         )
       
   305                        #(#SubCanvasSpec
       
   306                           #name: 'subCanvas1'
       
   307                           #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
       
   308                           #clientHolder: #directoryView
       
   309                         )
       
   310                        )
   285                        )
   311                      
   286                       )
   312                     )
   287                     
   313                   )
   288                    )
   314                  )
   289                  )
   315                
   290                 (ViewSpec
   316               )
   291                    name: 'view2'
   317               #handles: #(#Any 0.5 1.0)
   292                    component: 
   318             )
   293                   (SpecCollection
   319            #(#UISubSpecification
   294                      collection: (
   320               #name: 'SubSpecification'
   295                       (InputFieldSpec
   321               #layout: #(#LayoutFrame 2 0.0 -32 1 0 1.0 0 1.0)
   296                          name: 'EditField'
   322               #majorKey: #ToolApplicationModel
   297                          layout: (LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
   323               #minorKey: #windowSpecForCommitWithoutChannels
   298                          model: valueOfFileName
   324             )
   299                          acceptOnReturn: false
       
   300                          acceptOnTab: false
       
   301                          acceptOnPointerLeave: false
       
   302                        )
       
   303                       (SubCanvasSpec
       
   304                          name: 'subCanvas1'
       
   305                          layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
       
   306                          clientHolder: directoryView
       
   307                          createNewBuilder: false
       
   308                        )
       
   309                       )
       
   310                     
       
   311                    )
       
   312                  )
       
   313                 )
       
   314               
       
   315              )
       
   316              handles: (Any 0.5 1.0)
   325            )
   317            )
   326          
   318           (UISubSpecification
   327         )
   319              name: 'SubSpecification'
   328       )
   320              layout: (LayoutFrame 2 0.0 -37 1 -16 1.0 0 1.0)
       
   321              majorKey: ToolApplicationModel
       
   322              minorKey: windowSpecForCommitWithoutChannels
       
   323              keepSpaceForOSXResizeHandleH: true
       
   324            )
       
   325           )
       
   326         
       
   327        )
       
   328      )
   329 ! !
   329 ! !
   330 
   330 
   331 !FileSelectionBrowser class methodsFor:'menu specs'!
   331 !FileSelectionBrowser class methodsFor:'menu specs'!
   332 
   332 
   333 treeMenu
   333 treeMenu