--- a/AbstractSettingsApplication.st Wed Oct 28 12:09:19 2015 +0100
+++ b/AbstractSettingsApplication.st Wed Oct 28 15:47:48 2015 +0100
@@ -5019,168 +5019,167 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: windowSpec
- window:
+ window:
(WindowSpec
- label: 'HTTP Server Settings'
- name: 'HTTP Server Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 539 630)
- )
- component:
+ label: 'HTTP Server Settings'
+ name: 'HTTP Server Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 539 630)
+ )
+ component:
(SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel4'
- horizontalLayout: fit
- verticalLayout: topSpace
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'InfoMessageBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label2'
- layout: (LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
- translateLabel: true
- labelChannel: informationLabel
- resizeForLabel: false
- adjust: left
- )
- (ActionButtonSpec
- label: 'Load Missing WebServer Packages'
- name: 'Button8'
- layout: (AlignmentOrigin 0 0.5 0 1 0.5 1)
- activeHelpKey: loadWebServerPackage
- visibilityChannel: hasWebServerClassesNotLoadedHolder
- translateLabel: true
- tabable: true
- model: loadWebServerPackages
- )
- )
-
- )
- extent: (Point 539 200)
- )
- (ViewSpec
- name: 'Separator'
- extent: (Point 539 20)
- )
- (ViewSpec
- name: 'ActionButtonBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Port:'
- name: 'Label1'
- layout: (LayoutFrame 3 0 21 0 40 0 43 0)
- activeHelpKey: serverPortNumber
- translateLabel: true
- adjust: right
- activeHelpKey: serverPortNumber
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 40 0 20 0 111 0 42 0)
- enableChannel: hasWebServerClassesLoadedHolder
- model: portNumberChannel
- type: number
- immediateAccept: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- activeHelpKey: serverPortNumber
- )
- (VerticalPanelViewSpec
- name: 'VerticalPanel5'
- layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
- horizontalLayout: fit
- verticalLayout: spreadSpace
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Create new HTTP Server'
- name: 'Button4'
- activeHelpKey: createServer
- translateLabel: true
- tabable: true
- model: createServer
- enableChannel: hasWebServerClassesLoadedHolder
- useDefaultExtent: true
- )
- (ActionButtonSpec
- label: 'Create new FastCGI Server'
- name: 'Button7'
- activeHelpKey: createFCGIServer
- translateLabel: true
- tabable: true
- model: createFcgiServer
- enableChannel: hasWebServerClassesLoadedHolder
- useDefaultExtent: true
- )
- (ActionButtonSpec
- label: 'Create Server from Settings File...'
- name: 'Button6'
- activeHelpKey: createServerFromSettingsFile
- translateLabel: true
- tabable: true
- model: createServerFromFile
- enableChannel: hasWebServerClassesLoadedHolder
- useDefaultExtent: true
- )
- (ActionButtonSpec
- label: 'Remove all Servers'
- name: 'Button5'
- activeHelpKey: removeAllServers
- translateLabel: true
- tabable: true
- model: removeAllServers
- enableChannel: hasCreatedServerChannel
- useDefaultExtent: true
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 539 142)
- )
- )
-
- )
- extent: (Point 539 620)
- )
- )
-
- )
- )
- )
-
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel4'
+ horizontalLayout: fit
+ verticalLayout: topSpace
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'InfoMessageBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label2'
+ layout: (LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
+ translateLabel: true
+ labelChannel: informationLabel
+ resizeForLabel: false
+ adjust: left
+ )
+ (ActionButtonSpec
+ label: 'Load Missing WebServer Packages'
+ name: 'Button8'
+ layout: (AlignmentOrigin 0 0.5 0 1 0.5 1)
+ activeHelpKey: loadWebServerPackage
+ visibilityChannel: hasWebServerClassesNotLoadedHolder
+ translateLabel: true
+ tabable: true
+ model: loadWebServerPackages
+ )
+ )
+
+ )
+ extent: (Point 539 200)
+ )
+ (ViewSpec
+ name: 'Separator'
+ extent: (Point 539 20)
+ )
+ (ViewSpec
+ name: 'ActionButtonBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Port:'
+ name: 'Label1'
+ layout: (LayoutFrame 3 0 21 0 40 0 43 0)
+ activeHelpKey: serverPortNumber
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 40 0 20 0 111 0 42 0)
+ activeHelpKey: serverPortNumber
+ enableChannel: hasWebServerClassesLoadedHolder
+ model: portNumberChannel
+ type: number
+ immediateAccept: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel5'
+ layout: (LayoutFrame 136 0 14 0 -12 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: topSpace
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Create new HTTP Server'
+ name: 'Button4'
+ activeHelpKey: createServer
+ translateLabel: true
+ tabable: true
+ model: createServer
+ enableChannel: hasWebServerClassesLoadedHolder
+ useDefaultExtent: true
+ )
+ (ActionButtonSpec
+ label: 'Create new FastCGI Server'
+ name: 'Button7'
+ activeHelpKey: createFCGIServer
+ translateLabel: true
+ tabable: true
+ model: createFcgiServer
+ enableChannel: hasWebServerClassesLoadedHolder
+ useDefaultExtent: true
+ )
+ (ActionButtonSpec
+ label: 'Create Server from Settings File...'
+ name: 'Button6'
+ activeHelpKey: createServerFromSettingsFile
+ translateLabel: true
+ tabable: true
+ model: createServerFromFile
+ enableChannel: hasWebServerClassesLoadedHolder
+ useDefaultExtent: true
+ )
+ (ActionButtonSpec
+ label: 'Remove all Servers'
+ name: 'Button5'
+ activeHelpKey: removeAllServers
+ translateLabel: true
+ tabable: true
+ model: removeAllServers
+ enableChannel: hasCreatedServerChannel
+ useDefaultExtent: true
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 539 160)
+ )
+ )
+
+ )
+ extent: (Point 539 620)
+ )
+ )
+
+ )
+ )
+ )
+
)
)
! !