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

[Mike C. <mik...@us...>]

Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima
In directory usw-pr-cvs1:/tmp/cvs-serv9471

Modified Files:
	RunMaxima.tcl 
Log Message:
Bulletproof linkLocal - the variable may not exist

Index: RunMaxima.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/RunMaxima.tcl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- RunMaxima.tcl	7 Sep 2002 10:05:06 -0000	1.4
+++ RunMaxima.tcl	7 Sep 2002 10:31:13 -0000	1.5
@@ -287,6 +287,8 @@
 
 proc sendMaxima { win form } {
     linkLocal $win maximaSocket
+    if {![info exists maximaSocket] || $maximaSocket == ""} {return}
+
     if { ![regexp "\[\$;\]\[ \t\n\r\]*\$" $form ] } {
 	# append form ";"
     }
@@ -335,6 +337,8 @@
 #
 proc sendMaximaCall { win form call } {
     linkLocal $win maximaSocket
+    if {![info exists maximaSocket] || $maximaSocket == ""} {return}
+
     global pdata
     set begin [$win index lastStart]
     if { [regexp {C([0-9]+)} [$win get "$begin linestart" $begin] junk \