--- a/FileDialog.st Thu Oct 02 14:22:11 2003 +0200
+++ b/FileDialog.st Thu Oct 02 16:39:51 2003 +0200
@@ -622,94 +622,94 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'FileDialog'
- #name: 'FileDialog'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 16 46 416 446)
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'FileDialog'
+ name: 'FileDialog'
+ min: (Point 10 10)
+ max: (Point 1024 768)
+ bounds: (Rectangle 16 52 416 452)
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'FilePart'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#MenuPanelSpec
- #name: 'ToolBar1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
- #tabable: true
- #menu: #toolBarMenu
- #textDefault: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'FilePart'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -32 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (MenuPanelSpec
+ name: 'ToolBar1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
+ tabable: true
+ menu: toolBarMenu
+ textDefault: true
)
- #(#SubCanvasSpec
- #name: 'DirectoryTreeBrowser'
- #layout: #(#LayoutFrame 0 0.0 55 0 0 1.0 -60 1)
- #tabable: true
- #hasHorizontalScrollBar: false
- #hasVerticalScrollBar: false
- #majorKey: #DirectoryTreeBrowser
- #createNewApplication: true
- #createNewBuilder: true
- #postBuildCallback: #postBuildTreeBrowser:
+ (SubCanvasSpec
+ name: 'DirectoryTreeBrowser'
+ layout: (LayoutFrame 0 0.0 55 0 0 1.0 -30 1)
+ tabable: true
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: DirectoryTreeBrowser
+ createNewApplication: true
+ createNewBuilder: true
+ postBuildCallback: postBuildTreeBrowser:
)
- #(#LabelSpec
- #label: 'Filename:'
- #name: 'FilenameLabel'
- #layout: #(#LayoutFrame 3 0 -50 1 73 0 -30 1)
- #translateLabel: true
- #labelChannel: #filenameLabelHolder
- #adjust: #left
+ (LabelSpec
+ label: 'Filename:'
+ name: 'FilenameLabel'
+ layout: (LayoutFrame 3 0 -21 1 73 0 -1 1)
+ translateLabel: true
+ labelChannel: filenameLabelHolder
+ adjust: left
)
- #(#FilenameInputFieldSpec
- #name: 'FilenameEntryField'
- #layout: #(#LayoutFrame 70 0 -50 1 -2 1 -30 1)
- #tabable: true
- #model: #filenameHolder
- #immediateAccept: false
- #acceptOnPointerLeave: false
- #postBuildCallback: #postBuildFileNameField:
+ (FilenameInputFieldSpec
+ name: 'FilenameEntryField'
+ layout: (LayoutFrame 70 0 -21 1 -4 1 -1 1)
+ tabable: true
+ model: filenameHolder
+ immediateAccept: false
+ acceptOnPointerLeave: false
+ postBuildCallback: postBuildFileNameField:
)
- #(#VariableHorizontalPanelSpec
- #name: 'VariableHorizontalPanel1'
- #layout: #(#LayoutFrame 0 0 30 0 0 1 55 0)
- #level: 1
- #showHandle: false
- #barLevel: 0
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'Box1'
+ (VariableHorizontalPanelSpec
+ name: 'VariableHorizontalPanel1'
+ layout: (LayoutFrame 0 0 30 0 0 1 55 0)
+ level: 1
+ showHandle: false
+ barLevel: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
)
- #(#ViewSpec
- #name: 'Box2'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Filter:'
- #name: 'FilterLabel'
- #layout: #(#LayoutFrame 8 0 2 0 59 0 -2 1)
- #translateLabel: true
- #adjust: #right
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Filter:'
+ name: 'FilterLabel'
+ layout: (LayoutFrame 8 0 2 0 59 0 -2 1)
+ translateLabel: true
+ adjust: right
)
- #(#InputFieldSpec
- #name: 'FilterEntryField'
- #layout: #(#LayoutFrame 60 0 -22 1 -2 1 -2 1)
- #model: #filterHolder
- #immediateAccept: true
- #acceptOnReturn: true
- #acceptOnTab: true
- #acceptOnLostFocus: true
- #acceptOnPointerLeave: false
- #postBuildCallback: #postBuildFilterField:
+ (InputFieldSpec
+ name: 'FilterEntryField'
+ layout: (LayoutFrame 60 0 -22 1 -2 1 -2 1)
+ model: filterHolder
+ immediateAccept: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ postBuildCallback: postBuildFilterField:
)
)
@@ -718,52 +718,52 @@
)
)
- #handles: #(#Any 0.5 1.0)
+ handles: (Any 0.5 1.0)
)
)
)
)
- #(#HorizontalPanelViewSpec
- #name: 'ButtonPanel'
- #layout: #(#LayoutFrame 0 0.0 -40 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 21)
+ (HorizontalPanelViewSpec
+ name: 'ButtonPanel'
+ layout: (LayoutFrame 0 0.0 -32 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 22)
)
- #(#ActionButtonSpec
- #label: 'Append'
- #name: 'appendButton'
- #visibilityChannel: #appendButtonVisibleHolder
- #translateLabel: true
- #labelChannel: #appendLabelHolder
- #tabable: true
- #model: #appendPressed
- #extent: #(#Point 129 22)
+ (ActionButtonSpec
+ label: 'Append'
+ name: 'appendButton'
+ visibilityChannel: appendButtonVisibleHolder
+ translateLabel: true
+ labelChannel: appendLabelHolder
+ tabable: true
+ model: appendPressed
+ extent: (Point 129 22)
)
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'okButton'
- #translateLabel: true
- #labelChannel: #okLabelHolder
- #tabable: true
- #model: #okPressed
- #isDefault: true
- #extent: #(#Point 130 22)
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'okButton'
+ translateLabel: true
+ labelChannel: okLabelHolder
+ tabable: true
+ model: okPressed
+ isDefault: true
+ extent: (Point 130 22)
)
)
@@ -1380,5 +1380,5 @@
!FileDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.46 2003-09-29 08:19:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.47 2003-10-02 14:39:51 cg Exp $'
! !