--- a/FileBrowserV2SettingsDialog.st Tue Jan 27 13:17:07 2015 +0100
+++ b/FileBrowserV2SettingsDialog.st Tue Jan 27 13:17:15 2015 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libtool' }"
+"{ NameSpace: Smalltalk }"
+
ApplicationModel subclass:#FileBrowserV2SettingsDialog
instanceVariableNames:'settingsDialog settingsAppl'
classVariableNames:'ApplicationList'
@@ -104,99 +106,90 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Settings Dialog'
- name: 'Settings Dialog'
- min: (Point 10 10)
- max: (Point 1024 768)
- bounds: (Rectangle 0 0 443 621)
- 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:
- )
- (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 85 22)
- )
- (ActionButtonSpec
- label: 'Apply'
- name: 'Apply'
- translateLabel: true
- model: doApply
- enableChannel: enableButtons
- extent: (Point 85 22)
- )
- (ActionButtonSpec
- label: 'Reload'
- name: 'Reload'
- translateLabel: true
- model: doReload
- enableChannel: enableButtons
- extent: (Point 85 22)
- )
- (ActionButtonSpec
- label: 'Cancel'
- name: 'Cancel'
- translateLabel: true
- model: doCancel
- extent: (Point 85 22)
- )
- (ActionButtonSpec
- label: 'Help'
- name: 'Help'
- visibilityChannel: false
- translateLabel: true
- model: help
- enableChannel: enableButtons
- extent: (Point 85 22)
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Settings Dialog'
+ name: 'Settings Dialog'
+ min: (Point 10 10)
+ max: (Point 1024 768)
+ bounds: (Rectangle 0 0 443 621)
+ menu: mainMenu
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (SubCanvasSpec
+ name: 'FileBrowserV2SettingsAppl'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -34 1)
+ level: 0
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ majorKey: FileBrowserV2SettingsAppl
+ createNewApplication: true
+ createNewBuilder: true
+ postBuildCallback: postBuildSubCanvas:
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 -34 1 -16 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 81 22)
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'Apply'
+ name: 'Apply'
+ translateLabel: true
+ model: doApply
+ enableChannel: enableButtons
+ extent: (Point 82 22)
+ )
+ (ActionButtonSpec
+ label: 'Reload'
+ name: 'Reload'
+ translateLabel: true
+ model: doReload
+ enableChannel: enableButtons
+ extent: (Point 82 22)
+ )
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Cancel'
+ translateLabel: true
+ model: doCancel
+ extent: (Point 82 22)
+ )
+ (ActionButtonSpec
+ label: 'Help'
+ name: 'Help'
+ visibilityChannel: false
+ translateLabel: true
+ model: help
+ enableChannel: enableButtons
+ extent: (Point 82 22)
+ )
+ )
+
+ )
+ keepSpaceForOSXResizeHandleH: true
)
-
- )
- )
+ )
+
+ )
+ )
! !
!FileBrowserV2SettingsDialog class methodsFor:'resources'!
@@ -329,9 +322,10 @@
!FileBrowserV2SettingsDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.11 2010-10-15 08:31:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.12 2015-01-27 12:17:15 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.11 2010-10-15 08:31:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.12 2015-01-27 12:17:15 cg Exp $'
! !
+