--- a/FileBrowserV2SettingsDialog.st Mon Feb 16 13:47:52 2004 +0100
+++ b/FileBrowserV2SettingsDialog.st Mon Feb 16 15:17:15 2004 +0100
@@ -61,12 +61,12 @@
#(#Menu
#(
#(#MenuItem
- #label: 'Load Settings from...'
+ #label: 'Load Settings From...'
#itemValue: #loadSettingsFromFile
#translateLabel: true
)
#(#MenuItem
- #label: 'Save Settings to...'
+ #label: 'Save Settings To...'
#itemValue: #saveSettingsIntoFile
#translateLabel: true
)
@@ -105,85 +105,85 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'Settings Dialog'
- #name: 'Settings Dialog'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 16 46 369 620)
- #menu: #mainMenu
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Settings Dialog'
+ name: 'Settings Dialog'
+ min: (Point 10 10)
+ max: (Point 1024 768)
+ bounds: (Rectangle 0 0 369 600)
+ menu: mainMenu
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'Box2'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'FileBrowserV2SettingsAppl'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -34 1)
- #level: 0
- #hasHorizontalScrollBar: false
- #hasVerticalScrollBar: false
- #majorKey: #FileBrowserV2SettingsAppl
- #createNewApplication: true
- #createNewBuilder: true
- #postBuildCallback: #postBuildSubCanvas:
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box2'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (SubCanvasSpec
+ name: 'FileBrowserV2SettingsAppl'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -34 1)
+ level: 0
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: FileBrowserV2SettingsAppl
+ createNewApplication: true
+ createNewBuilder: true
+ postBuildCallback: postBuildSubCanvas:
)
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 -34 1 0 1.0 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'OK'
- #translateLabel: true
- #model: #doSave
- #enableChannel: #enableButtons
- #extent: #(#Point 67 22)
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 -34 1 0 1.0 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'OK'
+ translateLabel: true
+ model: doSave
+ enableChannel: enableButtons
+ extent: (Point 67 22)
)
- #(#ActionButtonSpec
- #label: 'Apply'
- #name: 'Apply'
- #translateLabel: true
- #model: #doApply
- #enableChannel: #enableButtons
- #extent: #(#Point 67 22)
+ (ActionButtonSpec
+ label: 'Apply'
+ name: 'Apply'
+ translateLabel: true
+ model: doApply
+ enableChannel: enableButtons
+ extent: (Point 67 22)
)
- #(#ActionButtonSpec
- #label: 'Reload'
- #name: 'Reload'
- #translateLabel: true
- #model: #doReload
- #enableChannel: #enableButtons
- #extent: #(#Point 67 22)
+ (ActionButtonSpec
+ label: 'Reload'
+ name: 'Reload'
+ translateLabel: true
+ model: doReload
+ enableChannel: enableButtons
+ extent: (Point 67 22)
)
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Cancel'
- #translateLabel: true
- #model: #doCancel
- #extent: #(#Point 67 22)
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Cancel'
+ translateLabel: true
+ model: doCancel
+ extent: (Point 67 22)
)
- #(#ActionButtonSpec
- #label: 'Help'
- #name: 'Help'
- #translateLabel: true
- #model: #help
- #enableChannel: #enableButtons
- #extent: #(#Point 67 22)
+ (ActionButtonSpec
+ label: 'Help'
+ name: 'Help'
+ translateLabel: true
+ model: help
+ enableChannel: enableButtons
+ extent: (Point 67 22)
)
)
@@ -199,6 +199,12 @@
)
! !
+!FileBrowserV2SettingsDialog class methodsFor:'resources'!
+
+classResources
+ ^ FileBrowserV2 classResources
+! !
+
!FileBrowserV2SettingsDialog methodsFor:'accessing'!
settingsDialog
@@ -323,5 +329,5 @@
!FileBrowserV2SettingsDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.8 2003-09-09 13:17:54 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.9 2004-02-16 14:17:13 cg Exp $'
! !