Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
askForSaving fixed
authorClaus Gittinger <cg@exept.de>
Tue, 03 Jun 2003 12:38:21 +0200
changeset 4941 42d9b274824d
parent 4940 4964068c4718
child 4942 73e7b528bf99
askForSaving fixed
AbstractSettingsApplication.st file | annotate | diff | comparison | revisions 
--- a/AbstractSettingsApplication.st	Tue Jun 03 12:37:54 2003 +0200
+++ b/AbstractSettingsApplication.st	Tue Jun 03 12:38:21 2003 +0200
@@ -264,10 +264,14 @@
 !
 
 saveRequest
+    self saveRequestAsking:self askForChangeOnRelease
+!
+
+saveRequestAsking:askForChangeOnRelease
     |result|
 
     (self hasUnsavedChanges) ifTrue:[
-        self askForChangeOnRelease ifTrue:[
+        askForChangeOnRelease ifTrue:[
             result := self confirmWithCancel:(resources 
                                 string:'Save changed ' , settingsString , ' ?').
         ] ifFalse:[
@@ -3022,7 +3026,7 @@
 !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.65 2003-05-15 16:14:25 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.66 2003-06-03 10:38:21 cg Exp $'
 ! !
 
 !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
@@ -10865,5 +10869,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.65 2003-05-15 16:14:25 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.66 2003-06-03 10:38:21 cg Exp $'
+! !
hg/stx-libtool