--- a/AbstractLauncherApplication.st Fri Jan 30 00:36:28 2004 +0100
+++ b/AbstractLauncherApplication.st Fri Jan 30 00:48:56 2004 +0100
@@ -4065,7 +4065,7 @@
!
saveSettings
- SettingsDialog saveSettingsWithoutAskForFile.
+ SettingsDialog saveSettingsWithoutAskingForFile.
!
sourceAndDebuggerSettings
@@ -6416,5 +6416,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.300 2004-01-29 23:36:17 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.301 2004-01-29 23:48:56 ca Exp $'
! !
--- a/SettingsDialog.st Fri Jan 30 00:36:28 2004 +0100
+++ b/SettingsDialog.st Fri Jan 30 00:48:56 2004 +0100
@@ -240,14 +240,14 @@
#label: 'Save'
#name: 'Button3'
#translateLabel: true
- #model: #saveSettingsWithoutAskForFile
+ #model: #saveSettingsWithoutAskingForFile
#extent: #(#Point 84 22)
)
#(#ActionButtonSpec
#label: 'Save as...'
#name: 'Button1'
#translateLabel: true
- #model: #saveSettingsAndAskForFile
+ #model: #askForFileAndSaveSettings
#extent: #(#Point 84 22)
)
#(#ActionButtonSpec
@@ -334,7 +334,7 @@
!SettingsDialog class methodsFor:'menu actions'!
-saveSettingsAndAskForFile
+askForFileAndSaveSettings
|fileName resources|
resources := self classResources.
@@ -362,7 +362,7 @@
]
!
-saveSettingsWithoutAskForFile
+saveSettingsWithoutAskingForFile
| file |
file := (Filename currentDirectory construct:'settings.stx') asAbsoluteFilename.
@@ -1158,6 +1158,10 @@
!SettingsDialog methodsFor:'menu actions'!
+askForFileAndSaveSettings
+ self class askForFileAndSaveSettings.
+!
+
loadSettingsFromFile
"restore settings from a settings-file."
@@ -1187,12 +1191,8 @@
].
!
-saveSettingsAndAskForFile
- self class saveSettingsAndAskForFile.
-!
-
-saveSettingsWithoutAskForFile
- self class saveSettingsWithoutAskForFile.
+saveSettingsWithoutAskingForFile
+ self class saveSettingsWithoutAskingForFile.
! !
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'accessing'!
@@ -1289,7 +1289,7 @@
!SettingsDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.46 2004-01-13 15:37:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.47 2004-01-29 23:48:41 ca Exp $'
! !
SettingsDialog initialize!