[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima Tkmaxima.tcl, 1.4, 1.5

[Jaime E. V. <vi...@us...>]

Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv30555

Modified Files:
	Tkmaxima.tcl 
Log Message:
Always try do save user preferences by the end of a session.


Index: Tkmaxima.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/Tkmaxima.tcl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Tkmaxima.tcl	27 Jun 2006 14:02:57 -0000	1.4
+++ Tkmaxima.tcl	28 Jun 2006 09:12:26 -0000	1.5
@@ -146,20 +146,12 @@
 	    return
 	}
 	after idle focus $maxima_priv(cConsoleText)
-
     }
 
     method exit {{text ""} {val "0"}} {
 	global maxima_priv
-	
-# jfa: We don't need to ask about saving preferences every single time.
-# 	set retval [tide_yesnocancel [mc "Exiting Maxima. Save Preferences?"]]
-# 	switch -exact -- $retval "1" {
-# 	    catch {savePreferences}
-# 	} -1 {
-# 	    return
-# 	}
-	
+	# save user settings for future sessions
+	catch {savePreferences}
 	update
 	if {$text == ""} {
 	    if {[info exists maxima_priv(cConsoleText)]} {
@@ -172,7 +164,6 @@
 		tide_failure $err
 	    }
 	}
-
 	tkexit $val
     }