hg/stx-libtool: comparison AbstractSettingsApplication.st

equal deleted inserted replaced

-:fb39152235e3
+:9b9fa51009d2
 (WindowSpec
 label: 'Communication Settings'
 name: 'Communication Settings'
 flags: 1
 min: (Point 10 10)
-bounds: (Rectangle 0 0 732 558)
+bounds: (Rectangle 0 0 738 671)
 )
 component:
 (SpecCollection
 collection: (
 (VerticalPanelViewSpec
 )
 )
 )
 )
-extent: (Point 732 65)
+extent: (Point 738 67)
 )
 (FramedBoxSpec
 label: 'Window migration'
 name: 'WindowMicrationSetupBox'
 activeHelpKey: windowMigration
 )
 )
 )
 )
-extent: (Point 732 115)
+extent: (Point 738 113)
 )
 (FramedBoxSpec
 label: 'Remote Browsing'
 name: 'RemoteBrowsingSetupBox'
 activeHelpKey: remoteBrowsing
 )
 )
 )
 )
-extent: (Point 732 64)
+extent: (Point 738 64)
 )
 (FramedBoxSpec
 label: 'SmallTeam Change Distribution'
 name: 'SmallTeamSetupBox'
 activeHelpKey: smallTeam
 name: 'addButton'
 translateLabel: true
 tabable: true
 model: addSmallTeamHost
 enableChannel: addHostEnabled
-extent: (Point 224 22)
+extent: (Point 221 22)
 )
 (ActionButtonSpec
 label: 'Remove'
 name: 'removeButton'
 translateLabel: true
 tabable: true
 model: removeSmallTeamHost
 enableChannel: removeHostEnabled
-extent: (Point 224 22)
+extent: (Point 221 22)
 )
 )
 )
 )
 )
 )
-extent: (Point 732 222)
+extent: (Point 738 226)
 )
 (FramedBoxSpec
 label: '.NET Bridge'
 name: 'FramedBox1'
 activeHelpKey: dotNetBridge
 (SpecCollection
 collection: (
 (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
 )
 )
 )
-extent: (Point 696 23)
+extent: (Point 696 25)
 )
 (ViewSpec
 name: 'Box7'
 component:
 (SpecCollection
 collection: (
 (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
 )
 )
 )
-extent: (Point 696 22)
+extent: (Point 696 25)
 )
 )
 )
 )
 enableChannel: hasDotNetBridge
 )
 )
 )
-extent: (Point 732 83)
+extent: (Point 738 92)
 )
 (FramedBoxSpec
 label: 'Smalltalk Bridge Server'
 name: 'FramedBox2'
 activeHelpKey: smalltalkBridgeServer
 (SpecCollection
 collection: (
 (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
 )
 )
 (SpecCollection
 collection: (
 (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
 )
 )
 enableChannel: hasSmalltalkBridge
 )
 )
 )
-extent: (Point 732 83)
+extent: (Point 738 90)
 )
 )
 )
 )
 AbstractSettingsApplication::RDoItServerSettingsAppl open
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
-	 label: 'RDoIt Server Settings'
+label: 'RDoIt Server Settings'
-	 name: 'RDoIt Server Settings'
+name: 'RDoIt Server Settings'
-	 flags: 1
+flags: 1
-	 min: (Point 10 10)
+min: (Point 10 10)
-	 bounds: (Rectangle 0 0 601 535)
+bounds: (Rectangle 0 0 601 535)
 )
 component:
 (SpecCollection
-	 collection: (
+collection: (
-	  (FramedBoxSpec
+(FramedBoxSpec
-	     label: 'RDoIt'
+label: 'RDoIt'
-	     name: 'RDoItFramedBox'
+name: 'RDoItFramedBox'
-	     layout: (LayoutFrame 0 0 0 0 0 1 227 0)
+layout: (LayoutFrame 0 0 0 0 0 1 232 0)
-	     labelPosition: topLeft
+labelPosition: topLeft
-	     translateLabel: true
+translateLabel: true
-	     component:
+component:
-	    (SpecCollection
+(SpecCollection
-	       collection: (
+collection: (
-		(VerticalPanelViewSpec
+(VerticalPanelViewSpec
-		   name: 'VerticalPanel2'
+name: 'VerticalPanel2'
-		   layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
+layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
-		   horizontalLayout: fit
+horizontalLayout: fit
-		   verticalLayout: top
+verticalLayout: top
-		   horizontalSpace: 0
+horizontalSpace: 0
-		   verticalSpace: 0
+verticalSpace: 0
-		   component:
+component:
-		  (SpecCollection
+(SpecCollection
-		     collection: (
+collection: (
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box1'
+name: 'Box1'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Remote doits enabled'
+label: 'Remote doits enabled'
-			       name: 'CheckBox1'
+name: 'CheckBox1'
-			       layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
-			       enableChannel: hasRDoitServerClass
+enableChannel: hasRDoitServerClass
-			       model: rDoitsEnabled
+model: rDoitsEnabled
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 25)
+extent: (Point 555 25)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box2'
+name: 'Box2'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (LabelSpec
+(LabelSpec
-			       label: 'Port/Path:'
+label: 'Port/Path:'
-			       name: 'Label2'
+name: 'Label2'
-			       layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+layout: (LayoutFrame 0 0 0 0 150 0 22 0)
-			       translateLabel: true
+translateLabel: true
-			       adjust: right
+adjust: right
-			     )
+)
-			    (InputFieldSpec
+(InputFieldSpec
-			       name: 'EntryField1'
+name: 'EntryField1'
-			       layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
-			       enableChannel: rDoitsEnabled
+enableChannel: rDoitsEnabled
-			       model: rDoitServerPortOrPath
+model: rDoitServerPortOrPath
-			       acceptOnReturn: true
+acceptOnReturn: true
-			       acceptOnTab: true
+acceptOnTab: true
-			       acceptOnLostFocus: true
+acceptOnLostFocus: true
-			       acceptOnPointerLeave: true
+acceptOnPointerLeave: true
-			     )
+)
-			    (LabelSpec
+(LabelSpec
-			       label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
+label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
-			       name: 'Label3'
+name: 'Label3'
-			       layout: (LayoutFrame 150 0 28 0 596 0 50 0)
+layout: (LayoutFrame 150 0 28 0 596 0 50 0)
-			       translateLabel: true
+translateLabel: true
-			       adjust: left
+adjust: left
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 60)
+extent: (Point 555 60)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box13'
+name: 'Box13'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Local Connections Only'
+label: 'Local Connections Only'
-			       name: 'CheckBox10'
+name: 'CheckBox10'
-			       layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
-			       enableChannel: rDoitsEnabled
+enableChannel: rDoitsEnabled
-			       model: rDoitEnabledOnlyViaLocalConnection
+model: rDoitEnabledOnlyViaLocalConnection
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 25)
+extent: (Point 555 25)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box3'
+name: 'Box3'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Log errors'
+label: 'Log errors'
-			       name: 'CheckBox2'
+name: 'CheckBox2'
-			       layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
-			       enableChannel: rDoitsEnabled
+enableChannel: rDoitsEnabled
-			       model: rDoitErrorLogging
+model: rDoitErrorLogging
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 25)
+extent: (Point 555 25)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box4'
+name: 'Box4'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Log requests'
+label: 'Log requests'
-			       name: 'CheckBox3'
+name: 'CheckBox3'
-			       layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
-			       enableChannel: rDoitsEnabled
+enableChannel: rDoitsEnabled
-			       model: rDoitLogging
+model: rDoitLogging
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 24)
+extent: (Point 555 24)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box5'
+name: 'Box5'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Debug errors'
+label: 'Debug errors'
-			       name: 'CheckBox4'
+name: 'CheckBox4'
-			       layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
-			       enableChannel: rDoitsEnabled
+enableChannel: rDoitsEnabled
-			       model: rDoitErrorDebugging
+model: rDoitErrorDebugging
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 23)
+extent: (Point 555 23)
-		       )
+)
-		      )
+)
-		   )
+)
-		 )
+)
-		)
+)
-	     )
+)
-	   )
+)
-	  (FramedBoxSpec
+(FramedBoxSpec
-	     label: 'JavaScript-Scripting via Telnet'
+label: 'JavaScript-Scripting via Telnet'
-	     name: 'ScriptingFramedBox'
+name: 'ScriptingFramedBox'
-	     layout: (LayoutFrame 0 0 224 0 0 1 460 0)
+layout: (LayoutFrame 0 0 224 0 0 1 460 0)
-	     labelPosition: topLeft
+labelPosition: topLeft
-	     translateLabel: true
+translateLabel: true
-	     component:
+component:
-	    (SpecCollection
+(SpecCollection
-	       collection: (
+collection: (
-		(VerticalPanelViewSpec
+(VerticalPanelViewSpec
-		   name: 'VerticalPanel3'
+name: 'VerticalPanel3'
-		   layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
+layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
-		   horizontalLayout: fit
+horizontalLayout: fit
-		   verticalLayout: top
+verticalLayout: top
-		   horizontalSpace: 0
+horizontalSpace: 0
-		   verticalSpace: 0
+verticalSpace: 0
-		   component:
+component:
-		  (SpecCollection
+(SpecCollection
-		     collection: (
+collection: (
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box6'
+name: 'Box6'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'JavaScript-Scripting enabled'
+label: 'JavaScript-Scripting enabled'
-			       name: 'CheckBox5'
+name: 'CheckBox5'
-			       layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
-			       enableChannel: hasScriptingServerClass
+enableChannel: hasScriptingServerClass
-			       model: scriptingEnabled
+model: scriptingEnabled
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 25)
+extent: (Point 555 25)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box12'
+name: 'Box12'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (LabelSpec
+(LabelSpec
-			       label: 'Port:'
+label: 'Port:'
-			       name: 'Label4'
+name: 'Label4'
-			       layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+layout: (LayoutFrame 0 0 0 0 150 0 22 0)
-			       translateLabel: true
+translateLabel: true
-			       adjust: right
+adjust: right
-			     )
+)
-			    (InputFieldSpec
+(InputFieldSpec
-			       name: 'EntryField2'
+name: 'EntryField2'
-			       layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
-			       enableChannel: rDoitsEnabled
+enableChannel: rDoitsEnabled
-			       model: scriptingServerPortOrPath
+model: scriptingServerPortOrPath
-			       isReadOnly: true
+isReadOnly: true
-			       acceptOnReturn: true
+acceptOnReturn: true
-			       acceptOnTab: true
+acceptOnTab: true
-			       acceptOnLostFocus: true
+acceptOnLostFocus: true
-			       acceptOnPointerLeave: true
+acceptOnPointerLeave: true
-			     )
+)
-			    (LabelSpec
+(LabelSpec
-			       label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
+label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
-			       name: 'Label5'
+name: 'Label5'
-			       layout: (LayoutFrame 150 0 28 0 596 0 50 0)
+layout: (LayoutFrame 150 0 28 0 596 0 50 0)
-			       initiallyInvisible: true
+initiallyInvisible: true
-			       translateLabel: true
+translateLabel: true
-			       adjust: left
+adjust: left
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 60)
+extent: (Point 555 60)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box11'
+name: 'Box11'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Local Connections Only'
+label: 'Local Connections Only'
-			       name: 'CheckBox9'
+name: 'CheckBox9'
-			       layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
-			       enableChannel: scriptingEnabled
+enableChannel: scriptingEnabled
-			       model: scriptingEnabledOnlyViaLocalConnection
+model: scriptingEnabledOnlyViaLocalConnection
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 25)
+extent: (Point 555 25)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box8'
+name: 'Box8'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Log errors'
+label: 'Log errors'
-			       name: 'CheckBox6'
+name: 'CheckBox6'
-			       layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
-			       enableChannel: scriptingEnabled
+enableChannel: scriptingEnabled
-			       model: scriptingErrorLogging
+model: scriptingErrorLogging
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 25)
+extent: (Point 555 25)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box9'
+name: 'Box9'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Log requests'
+label: 'Log requests'
-			       name: 'CheckBox7'
+name: 'CheckBox7'
-			       layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
-			       enableChannel: scriptingEnabled
+enableChannel: scriptingEnabled
-			       model: scriptingLogging
+model: scriptingLogging
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 24)
+extent: (Point 555 24)
-		       )
+)
-		      (ViewSpec
+(ViewSpec
-			 name: 'Box10'
+name: 'Box10'
-			 component:
+component:
-			(SpecCollection
+(SpecCollection
-			   collection: (
+collection: (
-			    (CheckBoxSpec
+(CheckBoxSpec
-			       label: 'Debug errors'
+label: 'Debug errors'
-			       name: 'CheckBox8'
+name: 'CheckBox8'
-			       layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
-			       enableChannel: scriptingEnabled
+enableChannel: scriptingEnabled
-			       model: scriptingErrorDebugging
+model: scriptingErrorDebugging
-			       translateLabel: true
+translateLabel: true
-			     )
+)
-			    )
+)
-			 )
+)
-			 extent: (Point 567 23)
+extent: (Point 555 23)
-		       )
+)
-		      )
+)
-		   )
+)
-		 )
+)
-		)
+)
-	     )
+)
-	   )
+)
-	  )
+)
 )
 )
 ! !
 !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!

branch	jv
changeset 16156	9b9fa51009d2
parent 16145	d30891e2e694
parent 16151	6c2a370fe001
child 16168	71fa776ca1bb