equal
deleted
inserted
replaced
5151 self remoteBrowsingEnabled value ifTrue:[ |
5151 self remoteBrowsingEnabled value ifTrue:[ |
5152 SmalltalkShareServer serverRunning ifTrue:[ |
5152 SmalltalkShareServer serverRunning ifTrue:[ |
5153 SmalltalkShareServer killAll |
5153 SmalltalkShareServer killAll |
5154 ]. |
5154 ]. |
5155 ] ifFalse:[ |
5155 ] ifFalse:[ |
5156 SmalltalkShareServer serverRunning not ifTrue:[ |
5156 SmalltalkShareServer serverRunning ifFalse:[ |
5157 SmalltalkShareServer start. |
5157 SmalltalkShareServer start. |
5158 "/ must wait a bit; give it a chance to |
5158 "/ must wait a bit; give it a chance to |
5159 "/ really start (before checking) |
5159 "/ really start (before checking) |
5160 Delay waitForSeconds:0.5. |
5160 Delay waitForSeconds:0.5. |
5161 SmalltalkShareServer serverRunning ifFalse:[ |
5161 SmalltalkShareServer serverRunning ifFalse:[ |
5173 self windowMigrationEnabled value ifTrue:[ |
5173 self windowMigrationEnabled value ifTrue:[ |
5174 WindowMigrationServer serverRunning ifTrue:[ |
5174 WindowMigrationServer serverRunning ifTrue:[ |
5175 WindowMigrationServer stop |
5175 WindowMigrationServer stop |
5176 ]. |
5176 ]. |
5177 ] ifFalse:[ |
5177 ] ifFalse:[ |
5178 WindowMigrationServer serverRunning not ifTrue:[ |
5178 WindowMigrationServer serverRunning ifFalse:[ |
5179 WindowMigrationServer start. |
5179 WindowMigrationServer start. |
5180 "/ must wait a bit; give it a chance to |
5180 "/ must wait a bit; give it a chance to |
5181 "/ really start (before checking) |
5181 "/ really start (before checking) |
5182 Delay waitForSeconds:0.5. |
5182 Delay waitForSeconds:0.5. |
5183 WindowMigrationServer serverRunning ifFalse:[ |
5183 WindowMigrationServer serverRunning ifFalse:[ |
11254 ! ! |
11254 ! ! |
11255 |
11255 |
11256 !AbstractSettingsApplication class methodsFor:'documentation'! |
11256 !AbstractSettingsApplication class methodsFor:'documentation'! |
11257 |
11257 |
11258 version |
11258 version |
11259 ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.192 2005-02-23 15:32:14 cg Exp $' |
11259 ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.193 2005-04-14 09:13:18 cg Exp $' |
11260 ! ! |
11260 ! ! |