equal
deleted
inserted
replaced
1174 "restore settings from a settings-file." |
1174 "restore settings from a settings-file." |
1175 |
1175 |
1176 "a temporary kludge - we need a central systemSettings object for this, |
1176 "a temporary kludge - we need a central systemSettings object for this, |
1177 which can be saved/restored with a single store/read." |
1177 which can be saved/restored with a single store/read." |
1178 |
1178 |
1179 |fileName| |
1179 |fileName transcript launcher| |
1180 |
1180 |
1181 fileName := Dialog |
1181 fileName := Dialog |
1182 requestFileName:(resources string:'Load Settings from File') |
1182 requestFileName:(resources string:'Load Settings from File') |
1183 default:'settings.stx' |
1183 default:'settings.stx' |
1184 ok:(resources string:'Load') |
1184 ok:(resources string:'Load') |
1191 ^ self |
1191 ^ self |
1192 ]. |
1192 ]. |
1193 |
1193 |
1194 self withWaitCursorDo:[ |
1194 self withWaitCursorDo:[ |
1195 Smalltalk fileIn:fileName. |
1195 Smalltalk fileIn:fileName. |
1196 Transcript current topView model reOpen. |
1196 |
|
1197 "/ Transcript current topView model reOpen. |
|
1198 |
|
1199 transcript := Transcript current. |
|
1200 (transcript notNil and:[transcript isExternalStream not]) ifTrue:[ |
|
1201 launcher := transcript application. |
|
1202 launcher notNil ifTrue:[ |
|
1203 launcher reopenLauncher. |
|
1204 ] |
|
1205 ]. |
1197 self sendLoadRequestToAll. |
1206 self sendLoadRequestToAll. |
1198 ]. |
1207 ]. |
1199 ! |
1208 ! |
1200 |
1209 |
1201 saveSettingsWithoutAskingForFile |
1210 saveSettingsWithoutAskingForFile |
1294 ! ! |
1303 ! ! |
1295 |
1304 |
1296 !SettingsDialog class methodsFor:'documentation'! |
1305 !SettingsDialog class methodsFor:'documentation'! |
1297 |
1306 |
1298 version |
1307 version |
1299 ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.49 2004-03-02 12:46:58 cg Exp $' |
1308 ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.50 2004-03-02 16:28:12 cg Exp $' |
1300 ! ! |
1309 ! ! |
1301 |
1310 |
1302 SettingsDialog initialize! |
1311 SettingsDialog initialize! |