FileDialog.st
changeset 8250 60e3fd1433b3
parent 8191 1779a8c3730d
child 8585 55e239825e8d
equal deleted inserted replaced
8249:39c55935eb0b 8250:60e3fd1433b3
     7  inclusion of the above copyright notice.   This software may not
     7  inclusion of the above copyright notice.   This software may not
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
       
    12 "{ Package: 'stx:libtool' }"
       
    13 
    12 SimpleDialog subclass:#FileDialog
    14 SimpleDialog subclass:#FileDialog
    13 	instanceVariableNames:'aspects treeBrowser directory pattern filterHolder initialText
    15 	instanceVariableNames:'aspects treeBrowser directory pattern filterHolder initialText
    14 		multipleSelect doubleClickAction cancelLabelHolder okLabelHolder
    16 		multipleSelect doubleClickAction cancelLabelHolder okLabelHolder
    15 		startFilename result filterField filenameField viewFiles
    17 		startFilename result filterField filenameField viewFiles
    16 		filenameLabelHolder isLoadDialog newDirectoryVisibilityHolder
    18 		filenameLabelHolder isLoadDialog newDirectoryVisibilityHolder
   719               component: 
   721               component: 
   720              (SpecCollection
   722              (SpecCollection
   721                 collection: (
   723                 collection: (
   722                  (MenuPanelSpec
   724                  (MenuPanelSpec
   723                     name: 'ToolBar1'
   725                     name: 'ToolBar1'
   724                     layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
   726                     layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 40 0)
   725                     tabable: true
   727                     tabable: true
   726                     menu: toolBarMenu
   728                     menu: toolBarMenu
   727                     textDefault: true
   729                     textDefault: true
   728                   )
   730                   )
   729                  (SubCanvasSpec
       
   730                     name: 'DirectoryTreeBrowser'
       
   731                     layout: (LayoutFrame 0 0.0 62 0 0 1.0 -30 1)
       
   732                     tabable: true
       
   733                     hasHorizontalScrollBar: false
       
   734                     hasVerticalScrollBar: false
       
   735                     majorKey: DirectoryTreeBrowser
       
   736                     subAspectHolders: 
       
   737                    (Array
       
   738                       
       
   739                      (SubChannelInfoSpec
       
   740                         subAspect: filterModel
       
   741                         aspect: filterHolder
       
   742                       ) 
       
   743                      (SubChannelInfoSpec
       
   744                         subAspect: rootHolder
       
   745                         aspect: rootDirectoryHolder
       
   746                       )
       
   747                     )
       
   748                     createNewApplication: true
       
   749                     createNewBuilder: true
       
   750                     postBuildCallback: postBuildTreeBrowser:
       
   751                   )
       
   752                  (VariableHorizontalPanelSpec
   731                  (VariableHorizontalPanelSpec
   753                     name: 'DeviceAndFilterPanel'
   732                     name: 'DeviceAndFilterPanel'
   754                     layout: (LayoutFrame 0 0 32 0 0 1 62 0)
   733                     layout: (LayoutFrame 0 0 40 0 0 1 70 0)
   755                     level: 1
   734                     level: 1
   756                     showHandle: true
   735                     showHandle: true
   757                     component: 
   736                     component: 
   758                    (SpecCollection
   737                    (SpecCollection
   759                       collection: (
   738                       collection: (
   804                         )
   783                         )
   805                        )
   784                        )
   806                      
   785                      
   807                     )
   786                     )
   808                     handles: (Any 0.18427518427518 1.0)
   787                     handles: (Any 0.18427518427518 1.0)
       
   788                   )
       
   789                  (SubCanvasSpec
       
   790                     name: 'DirectoryTreeBrowser'
       
   791                     layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
       
   792                     tabable: true
       
   793                     hasHorizontalScrollBar: false
       
   794                     hasVerticalScrollBar: false
       
   795                     majorKey: DirectoryTreeBrowser
       
   796                     subAspectHolders: 
       
   797                    (Array
       
   798                       
       
   799                      (SubChannelInfoSpec
       
   800                         subAspect: filterModel
       
   801                         aspect: filterHolder
       
   802                       ) 
       
   803                      (SubChannelInfoSpec
       
   804                         subAspect: rootHolder
       
   805                         aspect: rootDirectoryHolder
       
   806                       )
       
   807                     )
       
   808                     createNewApplication: true
       
   809                     createNewBuilder: true
       
   810                     postBuildCallback: postBuildTreeBrowser:
   809                   )
   811                   )
   810                  (LabelSpec
   812                  (LabelSpec
   811                     label: 'Filename:'
   813                     label: 'Filename:'
   812                     name: 'FilenameLabel'
   814                     name: 'FilenameLabel'
   813                     layout: (LayoutFrame 3 0 -25 1 73 0 -1 1)
   815                     layout: (LayoutFrame 3 0 -25 1 73 0 -1 1)
  1742 ! !
  1744 ! !
  1743 
  1745 
  1744 !FileDialog class methodsFor:'documentation'!
  1746 !FileDialog class methodsFor:'documentation'!
  1745 
  1747 
  1746 version
  1748 version
  1747     ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.99 2008-06-09 12:11:55 stefan Exp $'
  1749     ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.100 2008-08-21 21:15:12 cg Exp $'
  1748 ! !
  1750 ! !