[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima Menu.tcl,1.16,1.16.2.1

[Robert D. <rob...@us...>]

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

Modified Files:
      Tag: RELEASE-5_9_2-BRANCH
	Menu.tcl 
Log Message:
Replace BATCH, BATCHLOAD, SAVE, and KILL by lowercase.

Index: Menu.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/Menu.tcl,v
retrieving revision 1.16
retrieving revision 1.16.2.1
diff -u -d -r1.16 -r1.16.2.1
--- Menu.tcl	16 Oct 2004 15:37:53 -0000	1.16
+++ Menu.tcl	30 Sep 2005 15:26:26 -0000	1.16.2.1
@@ -37,7 +37,7 @@
 	-command [set command [cIDECreateEvent $text $label {
 	    set file [tide_openfile [M [mc "Open a file to Batch"]] "" *.mac]
 	    if {$file != ""} {
-		sendMaxima $maxima_priv(cConsoleText) "BATCH(\"$file\")\$\n"
+		sendMaxima $maxima_priv(cConsoleText) "batch(\"$file\")\$\n"
 	    }
 	}]]
     bind $text <Control-Key-b> $command
@@ -46,9 +46,9 @@
 	-accel {Ctrl+o} \
 	-label [set label [M [mc "Batch File Silently"]]] \
 	-command [set command [cIDECreateEvent $text $label {
-	    set file [tide_openfile [M [mc "Open a file to BATCHLOAD"]] "" *.mac]
+	    set file [tide_openfile [M [mc "Open a file to Batch Silently"]] "" *.mac]
 	    if {$file != ""} {
-		sendMaxima $maxima_priv(cConsoleText) "BATCHLOAD(\"$file\")\$\n"
+		sendMaxima $maxima_priv(cConsoleText) "batchload(\"$file\")\$\n"
 	    }
 	}]]
     bind $text <Control-Key-o> $command
@@ -60,7 +60,7 @@
 	-command [set command [cIDECreateEvent $text $label {
 	    set file [tide_savefile [M [mc "Save to a file"]] "" *.bin]
 	    if {$file != ""} {
-		sendMaxima $maxima_priv(cConsoleText) "SAVE(\"$file\",ALL)\$\n"
+		sendMaxima $maxima_priv(cConsoleText) "save(\"$file\",all)\$\n"
 	    }
 	}]]
     bind $text <Control-Key-s> $command
@@ -163,13 +163,13 @@
     set km [menu $m.kill]
     $m add cascade -label [mc "Clear Memory"] -menu $km
     $km add command -label [mc "Kill All"] \
-	-command [list sendMaxima $text "KILL(ALL)\$\n"]
+	-command [list sendMaxima $text "kill(all)\$\n"]
     $km add separator
-    foreach elt {LABELS VALUES FUNCTIONS MACROS ARRAYS \
-		     MYOPTIONS PROPS ALIASES RULES GRADEFS \
-		     DEPENDENCIES LET_RULE_PACKAGES} {
+    foreach elt {labels values functions macros arrays \
+		     myoptions props aliases rules gradefs \
+		     dependencies let_rule_packages} {
 	$km add command -label "Kill [string totit $elt]" \
-	    -command [list sendMaxima $text "KILL($elt)\$\n"]
+	    -command [list sendMaxima $text "kill($elt)\$\n"]
     }
     $m add separator
     set dir $maxima_priv(pTestsDir)