equal
deleted
inserted
replaced
179 |
179 |
180 !FileBrowserV2SettingsDialog methodsFor:'actions'! |
180 !FileBrowserV2SettingsDialog methodsFor:'actions'! |
181 |
181 |
182 doReload |
182 doReload |
183 |
183 |
184 settingsAppl loadRequest. |
184 settingsAppl readSettings. |
185 ! |
185 ! |
186 |
186 |
187 doSave |
187 doSave |
188 |
188 |
189 settingsAppl saveRequest. |
189 settingsAppl saveRequest. |
253 |
253 |
254 saveSettingsIntoFile |
254 saveSettingsIntoFile |
255 |
255 |
256 |fileName resources| |
256 |fileName resources| |
257 |
257 |
258 resources := self class owningClass classResources. |
258 resources := self class classResources. |
259 |
259 |
260 self doReload. |
260 self doReload. |
261 |
261 |
262 fileName := Dialog |
262 fileName := Dialog |
263 requestFileName:(resources string:'Save settings in:') |
263 requestFileName:(resources string:'Save settings in:') |
267 pattern:'*.stx' |
267 pattern:'*.stx' |
268 fromDirectory:'.'. |
268 fromDirectory:'.'. |
269 |
269 |
270 fileName size ~~ 0 ifTrue:[ |
270 fileName size ~~ 0 ifTrue:[ |
271 "not canceled" |
271 "not canceled" |
272 FileDialog saveSettingsIn:fileName. |
272 UserPreferences current saveIn:fileName. |
273 ] |
273 ] |
274 ! ! |
274 ! ! |
275 |
275 |
276 !FileBrowserV2SettingsDialog class methodsFor:'documentation'! |
276 !FileBrowserV2SettingsDialog class methodsFor:'documentation'! |
277 |
277 |
278 version |
278 version |
279 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.1 2003-02-20 16:27:57 penk Exp $' |
279 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsDialog.st,v 1.2 2003-03-13 15:04:59 mb Exp $' |
280 ! ! |
280 ! ! |