--- a/AbstractSettingsApplication.st Wed Mar 09 06:56:29 2016 +0100
+++ b/AbstractSettingsApplication.st Thu Mar 10 06:57:38 2016 +0100
@@ -7937,7 +7937,7 @@
name: 'Communication Settings'
flags: 1
min: (Point 10 10)
- bounds: (Rectangle 0 0 732 558)
+ bounds: (Rectangle 0 0 738 671)
)
component:
(SpecCollection
@@ -7990,7 +7990,7 @@
)
)
- extent: (Point 732 65)
+ extent: (Point 738 67)
)
(FramedBoxSpec
label: 'Window migration'
@@ -8083,7 +8083,7 @@
)
)
- extent: (Point 732 115)
+ extent: (Point 738 113)
)
(FramedBoxSpec
label: 'Remote Browsing'
@@ -8115,7 +8115,7 @@
)
)
- extent: (Point 732 64)
+ extent: (Point 738 64)
)
(FramedBoxSpec
label: 'SmallTeam Change Distribution'
@@ -8199,7 +8199,7 @@
tabable: true
model: addSmallTeamHost
enableChannel: addHostEnabled
- extent: (Point 224 22)
+ extent: (Point 221 22)
)
(ActionButtonSpec
label: 'Remove'
@@ -8208,7 +8208,7 @@
tabable: true
model: removeSmallTeamHost
enableChannel: removeHostEnabled
- extent: (Point 224 22)
+ extent: (Point 221 22)
)
)
@@ -8217,7 +8217,7 @@
)
)
- extent: (Point 732 222)
+ extent: (Point 738 226)
)
(FramedBoxSpec
label: '.NET Bridge'
@@ -8246,7 +8246,7 @@
(CheckBoxSpec
label: 'Verbose'
name: 'CheckBox5'
- layout: (LayoutFrame 5 0 5 0 600 0 22 0)
+ layout: (LayoutFrame 5 0 2 0 600 0 25 0)
enableChannel: hasDotNetBridge
model: dotNetBridgeVerbose
translateLabel: true
@@ -8254,7 +8254,7 @@
)
)
- extent: (Point 696 23)
+ extent: (Point 696 25)
)
(ViewSpec
name: 'Box7'
@@ -8264,7 +8264,7 @@
(CheckBoxSpec
label: 'Bridge Runs in IDE'
name: 'CheckBox6'
- layout: (LayoutFrame 5 0 3 0 600 0 25 0)
+ layout: (LayoutFrame 5 0 2 0 600 0 25 0)
enableChannel: hasDotNetBridge
model: dotNetBridgeRunsInIDE
translateLabel: true
@@ -8272,7 +8272,7 @@
)
)
- extent: (Point 696 22)
+ extent: (Point 696 25)
)
)
@@ -8290,7 +8290,7 @@
)
)
- extent: (Point 732 83)
+ extent: (Point 738 92)
)
(FramedBoxSpec
label: 'Smalltalk Bridge Server'
@@ -8319,7 +8319,7 @@
(CheckBoxSpec
label: 'Bridge Server Enabled'
name: 'CheckBox7'
- layout: (LayoutFrame 5 0 3 0 600 0 25 0)
+ layout: (LayoutFrame 5 0 2 0 600 0 25 0)
model: smalltalkBridgeEnabled
translateLabel: true
)
@@ -8336,7 +8336,7 @@
(CheckBoxSpec
label: 'Verbose'
name: 'CheckBox8'
- layout: (LayoutFrame 5 0 5 0 600 0 22 0)
+ layout: (LayoutFrame 5 0 2 0 600 0 25 0)
enableChannel: hasSmalltalkBridge
model: smalltalkBridgeVerbose
translateLabel: true
@@ -8362,7 +8362,7 @@
)
)
- extent: (Point 732 83)
+ extent: (Point 738 90)
)
)
@@ -11317,326 +11317,326 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: windowSpec
- window:
+ window:
(WindowSpec
- label: 'RDoIt Server Settings'
- name: 'RDoIt Server Settings'
- flags: 1
- min: (Point 10 10)
- bounds: (Rectangle 0 0 601 535)
- )
- component:
+ label: 'RDoIt Server Settings'
+ name: 'RDoIt Server Settings'
+ flags: 1
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 601 535)
+ )
+ component:
(SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'RDoIt'
- name: 'RDoItFramedBox'
- layout: (LayoutFrame 0 0 0 0 0 1 227 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 0
- verticalSpace: 0
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Remote doits enabled'
- name: 'CheckBox1'
- layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
- enableChannel: hasRDoitServerClass
- model: rDoitsEnabled
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 25)
- )
- (ViewSpec
- name: 'Box2'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Port/Path:'
- name: 'Label2'
- layout: (LayoutFrame 0 0 0 0 150 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitServerPortOrPath
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- (LabelSpec
- label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
- name: 'Label3'
- layout: (LayoutFrame 150 0 28 0 596 0 50 0)
- translateLabel: true
- adjust: left
- )
- )
-
- )
- extent: (Point 567 60)
- )
- (ViewSpec
- name: 'Box13'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Local Connections Only'
- name: 'CheckBox10'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitEnabledOnlyViaLocalConnection
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 25)
- )
- (ViewSpec
- name: 'Box3'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log errors'
- name: 'CheckBox2'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitErrorLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 25)
- )
- (ViewSpec
- name: 'Box4'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log requests'
- name: 'CheckBox3'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 24)
- )
- (ViewSpec
- name: 'Box5'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Debug errors'
- name: 'CheckBox4'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitErrorDebugging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 23)
- )
- )
-
- )
- )
- )
-
- )
- )
- (FramedBoxSpec
- label: 'JavaScript-Scripting via Telnet'
- name: 'ScriptingFramedBox'
- layout: (LayoutFrame 0 0 224 0 0 1 460 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel3'
- layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 0
- verticalSpace: 0
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box6'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'JavaScript-Scripting enabled'
- name: 'CheckBox5'
- layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
- enableChannel: hasScriptingServerClass
- model: scriptingEnabled
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 25)
- )
- (ViewSpec
- name: 'Box12'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Port:'
- name: 'Label4'
- layout: (LayoutFrame 0 0 0 0 150 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: scriptingServerPortOrPath
- isReadOnly: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- (LabelSpec
- label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
- name: 'Label5'
- layout: (LayoutFrame 150 0 28 0 596 0 50 0)
- initiallyInvisible: true
- translateLabel: true
- adjust: left
- )
- )
-
- )
- extent: (Point 567 60)
- )
- (ViewSpec
- name: 'Box11'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Local Connections Only'
- name: 'CheckBox9'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingEnabledOnlyViaLocalConnection
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 25)
- )
- (ViewSpec
- name: 'Box8'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log errors'
- name: 'CheckBox6'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingErrorLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 25)
- )
- (ViewSpec
- name: 'Box9'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log requests'
- name: 'CheckBox7'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 24)
- )
- (ViewSpec
- name: 'Box10'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Debug errors'
- name: 'CheckBox8'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingErrorDebugging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 567 23)
- )
- )
-
- )
- )
- )
-
- )
- )
- )
-
+ collection: (
+ (FramedBoxSpec
+ label: 'RDoIt'
+ name: 'RDoItFramedBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 232 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 0
+ verticalSpace: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Remote doits enabled'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
+ enableChannel: hasRDoitServerClass
+ model: rDoitsEnabled
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 25)
+ )
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Port/Path:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitServerPortOrPath
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
+ name: 'Label3'
+ layout: (LayoutFrame 150 0 28 0 596 0 50 0)
+ translateLabel: true
+ adjust: left
+ )
+ )
+
+ )
+ extent: (Point 555 60)
+ )
+ (ViewSpec
+ name: 'Box13'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Local Connections Only'
+ name: 'CheckBox10'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitEnabledOnlyViaLocalConnection
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 25)
+ )
+ (ViewSpec
+ name: 'Box3'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log errors'
+ name: 'CheckBox2'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitErrorLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 25)
+ )
+ (ViewSpec
+ name: 'Box4'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log requests'
+ name: 'CheckBox3'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 24)
+ )
+ (ViewSpec
+ name: 'Box5'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Debug errors'
+ name: 'CheckBox4'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitErrorDebugging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 23)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'JavaScript-Scripting via Telnet'
+ name: 'ScriptingFramedBox'
+ layout: (LayoutFrame 0 0 224 0 0 1 460 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel3'
+ layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 0
+ verticalSpace: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box6'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'JavaScript-Scripting enabled'
+ name: 'CheckBox5'
+ layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
+ enableChannel: hasScriptingServerClass
+ model: scriptingEnabled
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 25)
+ )
+ (ViewSpec
+ name: 'Box12'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Port:'
+ name: 'Label4'
+ layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: scriptingServerPortOrPath
+ isReadOnly: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
+ name: 'Label5'
+ layout: (LayoutFrame 150 0 28 0 596 0 50 0)
+ initiallyInvisible: true
+ translateLabel: true
+ adjust: left
+ )
+ )
+
+ )
+ extent: (Point 555 60)
+ )
+ (ViewSpec
+ name: 'Box11'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Local Connections Only'
+ name: 'CheckBox9'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingEnabledOnlyViaLocalConnection
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 25)
+ )
+ (ViewSpec
+ name: 'Box8'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log errors'
+ name: 'CheckBox6'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingErrorLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 25)
+ )
+ (ViewSpec
+ name: 'Box9'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log requests'
+ name: 'CheckBox7'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 24)
+ )
+ (ViewSpec
+ name: 'Box10'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Debug errors'
+ name: 'CheckBox8'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingErrorDebugging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 555 23)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+ )
+
)
)
! !