FileDialog.st
changeset 13741 65519eaa7ae3
parent 13221 7f17eb83b12e
child 14151 649b6d53e148
equal deleted inserted replaced
13740:3c5c447870be 13741:65519eaa7ae3
   761     "
   761     "
   762 
   762 
   763     <resource: #canvas>
   763     <resource: #canvas>
   764 
   764 
   765     ^ 
   765     ^ 
   766      #(FullSpec
   766     #(FullSpec
   767         name: windowSpec
   767        name: windowSpec
   768         window: 
   768        window: 
   769        (WindowSpec
   769       (WindowSpec
   770           label: 'FileDialog'
   770          label: 'FileDialog'
   771           name: 'FileDialog'
   771          name: 'FileDialog'
   772           min: (Point 10 10)
   772          min: (Point 10 10)
   773           bounds: (Rectangle 0 0 400 400)
   773          bounds: (Rectangle 0 0 400 400)
   774           menu: mainMenu
   774          menu: mainMenu
   775           performer: treeBrowser
   775          performer: treeBrowser
   776         )
   776        )
   777         component: 
   777        component: 
   778        (SpecCollection
   778       (SpecCollection
   779           collection: (
   779          collection: (
   780            (VerticalPanelViewSpec
   780           (VerticalPanelViewSpec
   781               name: 'FilePanel'
   781              name: 'FilePanel'
   782               layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
   782              layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
   783               horizontalLayout: fit
   783              horizontalLayout: fit
   784               verticalLayout: bottomFit
   784              verticalLayout: bottomFit
   785               horizontalSpace: 0
   785              horizontalSpace: 0
   786               verticalSpace: 3
   786              verticalSpace: 3
   787               elementsChangeSize: true
   787              elementsChangeSize: true
   788               component: 
   788              component: 
   789              (SpecCollection
   789             (SpecCollection
   790                 collection: (
   790                collection: (
   791                  (ViewSpec
   791                 (ViewSpec
   792                     name: 'FilePart'
   792                    name: 'FilePart'
   793                     component: 
   793                    component: 
   794                    (SpecCollection
   794                   (SpecCollection
   795                       collection: (
   795                      collection: (
   796                        (MenuPanelSpec
   796                       (MenuPanelSpec
   797                           name: 'ToolBar1'
   797                          name: 'ToolBar1'
   798                           layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 40 0)
   798                          layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 40 0)
   799                           tabable: true
   799                          tabable: true
   800                           menu: toolBarMenu
   800                          menu: toolBarMenu
   801                           textDefault: true
   801                          textDefault: true
   802                         )
   802                        )
   803                        (VariableHorizontalPanelSpec
   803                       (VariableHorizontalPanelSpec
   804                           name: 'DeviceAndFilterPanel'
   804                          name: 'DeviceAndFilterPanel'
   805                           layout: (LayoutFrame 0 0 40 0 0 1 70 0)
   805                          layout: (LayoutFrame 0 0 40 0 0 1 70 0)
   806                           level: 1
   806                          level: 1
   807                           showHandle: true
   807                          showHandle: true
   808                           component: 
   808                          component: 
   809                          (SpecCollection
   809                         (SpecCollection
   810                             collection: (
   810                            collection: (
   811                              (ViewSpec
   811                             (ViewSpec
   812                                 name: 'Box1'
   812                                name: 'Box1'
   813                                 component: 
   813                                component: 
   814                                (SpecCollection
   814                               (SpecCollection
   815                                   collection: (
   815                                  collection: (
   816                                    (ComboListSpec
   816                                   (ComboListSpec
   817                                       name: 'ComboList1'
   817                                      name: 'ComboList1'
   818                                       layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
   818                                      layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
   819                                       visibilityChannel: driveSelectorVisible
   819                                      visibilityChannel: driveSelectorVisible
   820                                       model: selectedDeviceDrive
   820                                      model: selectedDeviceDrive
   821                                       comboList: listOfDeviceDrives
   821                                      comboList: listOfDeviceDrives
   822                                       useIndex: false
   822                                      useIndex: false
   823                                       hidePullDownMenuButton: false
   823                                      hidePullDownMenuButton: false
   824                                     )
       
   825                                    )
   824                                    )
   826                                  
   825                                   )
   827                                 )
   826                                 
   828                               )
   827                                )
   829                              (ViewSpec
   828                              )
   830                                 name: 'Box2'
   829                             (ViewSpec
   831                                 component: 
   830                                name: 'Box2'
   832                                (SpecCollection
   831                                component: 
   833                                   collection: (
   832                               (SpecCollection
   834                                    (LabelSpec
   833                                  collection: (
   835                                       label: 'Filter:'
   834                                   (LabelSpec
   836                                       name: 'FilterLabel'
   835                                      label: 'Filter:'
   837                                       layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
   836                                      name: 'FilterLabel'
   838                                       translateLabel: true
   837                                      layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
   839                                       adjust: right
   838                                      translateLabel: true
   840                                     )
   839                                      adjust: right
   841                                    (InputFieldSpec
       
   842                                       name: 'FilterEntryField'
       
   843                                       layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
       
   844                                       model: filterHolder
       
   845                                       immediateAccept: true
       
   846                                       acceptOnReturn: true
       
   847                                       acceptOnTab: true
       
   848                                       acceptOnLostFocus: true
       
   849                                       acceptOnPointerLeave: false
       
   850                                       postBuildCallback: postBuildFilterField:
       
   851                                     )
       
   852                                    )
   840                                    )
   853                                  
   841                                   (InputFieldSpec
   854                                 )
   842                                      name: 'FilterEntryField'
   855                               )
   843                                      layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
       
   844                                      model: filterHolder
       
   845                                      immediateAccept: true
       
   846                                      acceptOnReturn: true
       
   847                                      acceptOnTab: true
       
   848                                      acceptOnLostFocus: true
       
   849                                      acceptOnPointerLeave: false
       
   850                                      postBuildCallback: postBuildFilterField:
       
   851                                    )
       
   852                                   )
       
   853                                 
       
   854                                )
   856                              )
   855                              )
       
   856                             )
       
   857                           
       
   858                          )
       
   859                          handles: (Any 0.2972972972973 1.0)
       
   860                        )
       
   861                       (SubCanvasSpec
       
   862                          name: 'DirectoryTreeBrowser'
       
   863                          layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
       
   864                          tabable: true
       
   865                          hasHorizontalScrollBar: false
       
   866                          hasVerticalScrollBar: false
       
   867                          majorKey: DirectoryTreeBrowser
       
   868                          subAspectHolders: 
       
   869                         (Array
   857                            
   870                            
   858                           )
   871                           (SubChannelInfoSpec
   859                           handles: (Any 0.2972972972973 1.0)
   872                              subAspect: filterModel
   860                         )
   873                              aspect: filterHolder
   861                        (SubCanvasSpec
   874                            ) 
   862                           name: 'DirectoryTreeBrowser'
   875                           (SubChannelInfoSpec
   863                           layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
   876                              subAspect: rootHolder
   864                           tabable: true
   877                              aspect: rootDirectoryHolder
   865                           hasHorizontalScrollBar: false
   878                            )
   866                           hasVerticalScrollBar: false
   879                            
   867                           majorKey: DirectoryTreeBrowser
   880                           (SubChannelInfoSpec
   868                           subAspectHolders: 
   881                              subAspect: showHiddenFiles
   869                          (Array
   882                              aspect: showHiddenFiles
   870                             
   883                            )
   871                            (SubChannelInfoSpec
   884                          )
   872                               subAspect: filterModel
   885                          createNewApplication: true
   873                               aspect: filterHolder
   886                          createNewBuilder: true
   874                             ) 
   887                          postBuildCallback: postBuildTreeBrowser:
   875                            (SubChannelInfoSpec
       
   876                               subAspect: rootHolder
       
   877                               aspect: rootDirectoryHolder
       
   878                             )
       
   879                             
       
   880                            (SubChannelInfoSpec
       
   881                               subAspect: showHiddenFiles
       
   882                               aspect: showHiddenFiles
       
   883                             )
       
   884                           )
       
   885                           createNewApplication: true
       
   886                           createNewBuilder: true
       
   887                           postBuildCallback: postBuildTreeBrowser:
       
   888                         )
       
   889                        (LabelSpec
       
   890                           label: 'Filename:'
       
   891                           name: 'FilenameLabel'
       
   892                           layout: (LayoutFrame 3 0 -25 1 90 0 -1 1)
       
   893                           translateLabel: true
       
   894                           labelChannel: filenameLabelHolder
       
   895                           adjust: left
       
   896                         )
       
   897                        (FilenameInputFieldSpec
       
   898                           name: 'FilenameEntryField'
       
   899                           layout: (LayoutFrame 90 0 -25 1 -2 1 -1 1)
       
   900                           tabable: true
       
   901                           model: filenameHolder
       
   902                           immediateAccept: false
       
   903                           acceptOnPointerLeave: false
       
   904                           hasKeyboardFocusInitially: true
       
   905                           postBuildCallback: postBuildFileNameField:
       
   906                         )
       
   907                        )
   888                        )
   908                      
   889                       (LabelSpec
   909                     )
   890                          label: 'Filename:'
   910                     extent: (Point 400 370)
   891                          name: 'FilenameLabel'
   911                   )
   892                          layout: (LayoutFrame 3 0 -25 1 90 0 -1 1)
       
   893                          translateLabel: true
       
   894                          labelChannel: filenameLabelHolder
       
   895                          adjust: left
       
   896                        )
       
   897                       (FilenameInputFieldSpec
       
   898                          name: 'FilenameEntryField'
       
   899                          layout: (LayoutFrame 90 0 -25 1 -2 1 -1 1)
       
   900                          tabable: true
       
   901                          model: filenameHolder
       
   902                          immediateAccept: false
       
   903                          acceptOnPointerLeave: true
       
   904                          hasKeyboardFocusInitially: true
       
   905                          postBuildCallback: postBuildFileNameField:
       
   906                        )
       
   907                       )
       
   908                     
       
   909                    )
       
   910                    extent: (Point 400 370)
   912                  )
   911                  )
   913                
   912                 )
   914               )
   913               
   915               postBuildCallback: postBuildVerticalPanelView:
   914              )
   916             )
   915              postBuildCallback: postBuildVerticalPanelView:
   917            (HorizontalPanelViewSpec
   916            )
   918               name: 'ButtonPanel'
   917           (HorizontalPanelViewSpec
   919               layout: (LayoutFrame 0 0.0 -30 1 0 1 0 1)
   918              name: 'ButtonPanel'
   920               visibilityChannel: buttonPanelVisibleHolder
   919              layout: (LayoutFrame 0 0.0 -30 1 0 1 0 1)
   921               horizontalLayout: fitSpace
   920              visibilityChannel: buttonPanelVisibleHolder
   922               verticalLayout: center
   921              horizontalLayout: fitSpace
   923               horizontalSpace: 3
   922              verticalLayout: center
   924               verticalSpace: 3
   923              horizontalSpace: 3
   925               reverseOrderIfOKAtLeft: true
   924              verticalSpace: 3
   926               component: 
   925              reverseOrderIfOKAtLeft: true
   927              (SpecCollection
   926              component: 
   928                 collection: (
   927             (SpecCollection
   929                  (ActionButtonSpec
   928                collection: (
   930                     label: 'Cancel'
   929                 (ActionButtonSpec
   931                     name: 'cancelButton'
   930                    label: 'Cancel'
   932                     translateLabel: true
   931                    name: 'cancelButton'
   933                     labelChannel: cancelLabelHolder
   932                    translateLabel: true
   934                     tabable: true
   933                    labelChannel: cancelLabelHolder
   935                     model: doCancel
   934                    tabable: true
   936                     extent: (Point 129 25)
   935                    model: doCancel
   937                   )
   936                    extent: (Point 129 25)
   938                  (ActionButtonSpec
       
   939                     label: 'Append'
       
   940                     name: 'appendButton'
       
   941                     visibilityChannel: appendButtonVisibleHolder
       
   942                     translateLabel: true
       
   943                     labelChannel: appendLabelHolder
       
   944                     tabable: true
       
   945                     model: appendPressed
       
   946                     extent: (Point 129 25)
       
   947                   )
       
   948                  (ActionButtonSpec
       
   949                     label: 'OK'
       
   950                     name: 'okButton'
       
   951                     translateLabel: true
       
   952                     labelChannel: okLabelHolder
       
   953                     tabable: true
       
   954                     model: okPressed
       
   955                     isDefault: true
       
   956                     extent: (Point 130 25)
       
   957                   )
       
   958                  )
   937                  )
   959                
   938                 (ActionButtonSpec
   960               )
   939                    label: 'Append'
   961               keepSpaceForOSXResizeHandleH: true
   940                    name: 'appendButton'
   962             )
   941                    visibilityChannel: appendButtonVisibleHolder
       
   942                    translateLabel: true
       
   943                    labelChannel: appendLabelHolder
       
   944                    tabable: true
       
   945                    model: appendPressed
       
   946                    extent: (Point 129 25)
       
   947                  )
       
   948                 (ActionButtonSpec
       
   949                    label: 'OK'
       
   950                    name: 'okButton'
       
   951                    translateLabel: true
       
   952                    labelChannel: okLabelHolder
       
   953                    tabable: true
       
   954                    model: okPressed
       
   955                    isDefault: true
       
   956                    extent: (Point 130 25)
       
   957                  )
       
   958                 )
       
   959               
       
   960              )
       
   961              keepSpaceForOSXResizeHandleH: true
   963            )
   962            )
   964          
   963           )
   965         )
   964         
   966       )
   965        )
       
   966      )
   967 ! !
   967 ! !
   968 
   968 
   969 !FileDialog class methodsFor:'menu specs'!
   969 !FileDialog class methodsFor:'menu specs'!
   970 
   970 
   971 mainMenu
   971 mainMenu
  2073 ! !
  2073 ! !
  2074 
  2074 
  2075 !FileDialog class methodsFor:'documentation'!
  2075 !FileDialog class methodsFor:'documentation'!
  2076 
  2076 
  2077 version
  2077 version
  2078     ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
  2078     ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.131 2014-01-07 13:40:46 stefan Exp $'
  2079 !
  2079 !
  2080 
  2080 
  2081 version_CVS
  2081 version_CVS
  2082     ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
  2082     ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.131 2014-01-07 13:40:46 stefan Exp $'
  2083 !
  2083 !
  2084 
  2084 
  2085 version_HG
  2085 version_HG
  2086 
  2086 
  2087     ^ '$Changeset: <not expanded> $'
  2087     ^ '$Changeset: <not expanded> $'
  2088 !
  2088 !
  2089 
  2089 
  2090 version_SVN
  2090 version_SVN
  2091     ^ '$Id: FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
  2091     ^ '$Id: FileDialog.st,v 1.131 2014-01-07 13:40:46 stefan Exp $'
  2092 ! !
  2092 ! !
  2093 
  2093