--- a/FileDialog.st Sun Jan 05 14:20:46 2014 +0100
+++ b/FileDialog.st Tue Jan 07 14:40:46 2014 +0100
@@ -763,207 +763,207 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'FileDialog'
- name: 'FileDialog'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 400 400)
- menu: mainMenu
- performer: treeBrowser
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'FilePanel'
- layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
- horizontalLayout: fit
- verticalLayout: bottomFit
- horizontalSpace: 0
- verticalSpace: 3
- elementsChangeSize: true
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'FilePart'
- component:
- (SpecCollection
- collection: (
- (MenuPanelSpec
- name: 'ToolBar1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 40 0)
- tabable: true
- menu: toolBarMenu
- textDefault: true
- )
- (VariableHorizontalPanelSpec
- name: 'DeviceAndFilterPanel'
- layout: (LayoutFrame 0 0 40 0 0 1 70 0)
- level: 1
- showHandle: true
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (ComboListSpec
- name: 'ComboList1'
- layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
- visibilityChannel: driveSelectorVisible
- model: selectedDeviceDrive
- comboList: listOfDeviceDrives
- useIndex: false
- hidePullDownMenuButton: false
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'FileDialog'
+ name: 'FileDialog'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 400 400)
+ menu: mainMenu
+ performer: treeBrowser
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'FilePanel'
+ layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
+ horizontalLayout: fit
+ verticalLayout: bottomFit
+ horizontalSpace: 0
+ verticalSpace: 3
+ elementsChangeSize: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'FilePart'
+ component:
+ (SpecCollection
+ collection: (
+ (MenuPanelSpec
+ name: 'ToolBar1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 40 0)
+ tabable: true
+ menu: toolBarMenu
+ textDefault: true
+ )
+ (VariableHorizontalPanelSpec
+ name: 'DeviceAndFilterPanel'
+ layout: (LayoutFrame 0 0 40 0 0 1 70 0)
+ level: 1
+ showHandle: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (ComboListSpec
+ name: 'ComboList1'
+ layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
+ visibilityChannel: driveSelectorVisible
+ model: selectedDeviceDrive
+ comboList: listOfDeviceDrives
+ useIndex: false
+ hidePullDownMenuButton: false
)
-
- )
- )
- (ViewSpec
- name: 'Box2'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Filter:'
- name: 'FilterLabel'
- layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'FilterEntryField'
- layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
- model: filterHolder
- immediateAccept: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- postBuildCallback: postBuildFilterField:
- )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Filter:'
+ name: 'FilterLabel'
+ layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
+ translateLabel: true
+ adjust: right
)
-
- )
- )
+ (InputFieldSpec
+ name: 'FilterEntryField'
+ layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
+ model: filterHolder
+ immediateAccept: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ postBuildCallback: postBuildFilterField:
+ )
+ )
+
+ )
)
+ )
+
+ )
+ handles: (Any 0.2972972972973 1.0)
+ )
+ (SubCanvasSpec
+ name: 'DirectoryTreeBrowser'
+ layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
+ tabable: true
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: DirectoryTreeBrowser
+ subAspectHolders:
+ (Array
- )
- handles: (Any 0.2972972972973 1.0)
- )
- (SubCanvasSpec
- name: 'DirectoryTreeBrowser'
- layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
- tabable: true
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- majorKey: DirectoryTreeBrowser
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: filterModel
- aspect: filterHolder
- )
- (SubChannelInfoSpec
- subAspect: rootHolder
- aspect: rootDirectoryHolder
- )
-
- (SubChannelInfoSpec
- subAspect: showHiddenFiles
- aspect: showHiddenFiles
- )
- )
- createNewApplication: true
- createNewBuilder: true
- postBuildCallback: postBuildTreeBrowser:
- )
- (LabelSpec
- label: 'Filename:'
- name: 'FilenameLabel'
- layout: (LayoutFrame 3 0 -25 1 90 0 -1 1)
- translateLabel: true
- labelChannel: filenameLabelHolder
- adjust: left
- )
- (FilenameInputFieldSpec
- name: 'FilenameEntryField'
- layout: (LayoutFrame 90 0 -25 1 -2 1 -1 1)
- tabable: true
- model: filenameHolder
- immediateAccept: false
- acceptOnPointerLeave: false
- hasKeyboardFocusInitially: true
- postBuildCallback: postBuildFileNameField:
- )
+ (SubChannelInfoSpec
+ subAspect: filterModel
+ aspect: filterHolder
+ )
+ (SubChannelInfoSpec
+ subAspect: rootHolder
+ aspect: rootDirectoryHolder
+ )
+
+ (SubChannelInfoSpec
+ subAspect: showHiddenFiles
+ aspect: showHiddenFiles
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
+ postBuildCallback: postBuildTreeBrowser:
)
-
- )
- extent: (Point 400 370)
- )
+ (LabelSpec
+ label: 'Filename:'
+ name: 'FilenameLabel'
+ layout: (LayoutFrame 3 0 -25 1 90 0 -1 1)
+ translateLabel: true
+ labelChannel: filenameLabelHolder
+ adjust: left
+ )
+ (FilenameInputFieldSpec
+ name: 'FilenameEntryField'
+ layout: (LayoutFrame 90 0 -25 1 -2 1 -1 1)
+ tabable: true
+ model: filenameHolder
+ immediateAccept: false
+ acceptOnPointerLeave: true
+ hasKeyboardFocusInitially: true
+ postBuildCallback: postBuildFileNameField:
+ )
+ )
+
+ )
+ extent: (Point 400 370)
)
-
- )
- postBuildCallback: postBuildVerticalPanelView:
- )
- (HorizontalPanelViewSpec
- name: 'ButtonPanel'
- layout: (LayoutFrame 0 0.0 -30 1 0 1 0 1)
- visibilityChannel: buttonPanelVisibleHolder
- horizontalLayout: fitSpace
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- reverseOrderIfOKAtLeft: true
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Cancel'
- name: 'cancelButton'
- translateLabel: true
- labelChannel: cancelLabelHolder
- tabable: true
- model: doCancel
- extent: (Point 129 25)
- )
- (ActionButtonSpec
- label: 'Append'
- name: 'appendButton'
- visibilityChannel: appendButtonVisibleHolder
- translateLabel: true
- labelChannel: appendLabelHolder
- tabable: true
- model: appendPressed
- extent: (Point 129 25)
- )
- (ActionButtonSpec
- label: 'OK'
- name: 'okButton'
- translateLabel: true
- labelChannel: okLabelHolder
- tabable: true
- model: okPressed
- isDefault: true
- extent: (Point 130 25)
- )
+ )
+
+ )
+ postBuildCallback: postBuildVerticalPanelView:
+ )
+ (HorizontalPanelViewSpec
+ name: 'ButtonPanel'
+ layout: (LayoutFrame 0 0.0 -30 1 0 1 0 1)
+ visibilityChannel: buttonPanelVisibleHolder
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'cancelButton'
+ translateLabel: true
+ labelChannel: cancelLabelHolder
+ tabable: true
+ model: doCancel
+ extent: (Point 129 25)
)
-
- )
- keepSpaceForOSXResizeHandleH: true
- )
+ (ActionButtonSpec
+ label: 'Append'
+ name: 'appendButton'
+ visibilityChannel: appendButtonVisibleHolder
+ translateLabel: true
+ labelChannel: appendLabelHolder
+ tabable: true
+ model: appendPressed
+ extent: (Point 129 25)
+ )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'okButton'
+ translateLabel: true
+ labelChannel: okLabelHolder
+ tabable: true
+ model: okPressed
+ isDefault: true
+ extent: (Point 130 25)
+ )
+ )
+
+ )
+ keepSpaceForOSXResizeHandleH: true
)
-
- )
- )
+ )
+
+ )
+ )
! !
!FileDialog class methodsFor:'menu specs'!
@@ -2075,11 +2075,11 @@
!FileDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.131 2014-01-07 13:40:46 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.131 2014-01-07 13:40:46 stefan Exp $'
!
version_HG
@@ -2088,6 +2088,6 @@
!
version_SVN
- ^ '$Id: FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
+ ^ '$Id: FileDialog.st,v 1.131 2014-01-07 13:40:46 stefan Exp $'
! !