--- a/AbstractSettingsApplication.st Thu Jan 21 15:06:04 2010 +0100
+++ b/AbstractSettingsApplication.st Thu Jan 28 11:42:17 2010 +0100
@@ -6451,7 +6451,7 @@
label: 'Communication Settings'
name: 'Communication Settings'
min: (Point 10 10)
- bounds: (Rectangle 0 0 732 586)
+ bounds: (Rectangle 0 0 732 558)
)
component:
(SpecCollection
@@ -6549,7 +6549,7 @@
(CheckBoxSpec
label: 'Password check'
name: 'CheckBox3'
- layout: (LayoutFrame 5 0 0 0 600 0 22 0)
+ layout: (LayoutFrame 5 0 -2 0 600 0 20 0)
enableChannel: enablePasswordCheck
model: windowMigrationAuthenticate
translateLabel: true
@@ -6594,7 +6594,7 @@
)
)
- extent: (Point 732 118)
+ extent: (Point 732 115)
)
(FramedBoxSpec
label: 'Remote Browsing'
@@ -6663,7 +6663,7 @@
)
(SequenceViewSpec
name: 'smallTeamHostsList'
- layout: (LayoutFrame 64 0.25 37 0 0 1 156 0)
+ layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
enableChannel: smallTeamServerEnabled
tabable: true
model: selectedSmallTeamHost
@@ -6676,13 +6676,13 @@
(LabelSpec
label: 'Host:'
name: 'hostLabel'
- layout: (LayoutFrame 0 0.0 166 0 60 0.25 183 0)
+ layout: (LayoutFrame 0 0.0 142 0 60 0.25 159 0)
translateLabel: true
adjust: right
)
(InputFieldSpec
name: 'smallTeamHostEntryField'
- layout: (LayoutFrame 64 0.25 162 0 0 1 184 0)
+ layout: (LayoutFrame 64 0.25 138 0 0 1 160 0)
enableChannel: smallTeamServerEnabled
tabable: true
model: smallTeamHostEntry
@@ -6691,7 +6691,7 @@
)
(HorizontalPanelViewSpec
name: 'HorizontalPanel2'
- layout: (LayoutFrame 64 0.25 189 0 -1 1 214 0)
+ layout: (LayoutFrame 64 0.25 165 0 -1 1 190 0)
horizontalLayout: fitSpace
verticalLayout: center
horizontalSpace: 3
@@ -6724,7 +6724,7 @@
)
)
- extent: (Point 732 244)
+ extent: (Point 732 222)
)
(FramedBoxSpec
label: '.NET Bridge'
@@ -6752,7 +6752,7 @@
(CheckBoxSpec
label: 'Verbose'
name: 'CheckBox5'
- layout: (LayoutFrame 5 0 0 0 600 0 22 0)
+ layout: (LayoutFrame 5 0 5 0 600 0 22 0)
enableChannel: hasDotNetBridge
model: dotNetBridgeVerbose
translateLabel: true
@@ -6770,7 +6770,7 @@
(CheckBoxSpec
label: 'Bridge Runs in IDE'
name: 'CheckBox6'
- layout: (LayoutFrame 5 0 0 0 600 0 22 0)
+ layout: (LayoutFrame 5 0 3 0 600 0 25 0)
enableChannel: hasDotNetBridge
model: dotNetBridgeRunsInIDE
translateLabel: true
@@ -6784,10 +6784,18 @@
)
)
- )
-
- )
- extent: (Point 732 75)
+ (ActionButtonSpec
+ label: 'Close all Connections'
+ name: 'Button1'
+ layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
+ translateLabel: true
+ tabable: true
+ model: closeAllDotNetConnections
+ )
+ )
+
+ )
+ extent: (Point 732 83)
)
)
@@ -7166,6 +7174,12 @@
"Modified: / 12-11-2006 / 19:06:22 / cg"
!
+closeAllDotNetConnections
+ DOTNET::DotNet notNil ifTrue:[
+ DOTNET::DotNet exitAllLiveInstances
+ ].
+!
+
removeSmallTeamHost
|host|
@@ -16131,9 +16145,9 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.355 2009-12-16 10:52:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.356 2010-01-28 10:42:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.355 2009-12-16 10:52:45 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.356 2010-01-28 10:42:17 cg Exp $'
+! !