[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima Plotconf.tcl, 1.12, 1.13

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

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

Modified Files:
	Plotconf.tcl 
Log Message:
Commented out some ballon help that is not being used.


Index: Plotconf.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/Plotconf.tcl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Plotconf.tcl	22 Jun 2006 10:13:36 -0000	1.12
+++ Plotconf.tcl	27 Jun 2006 13:41:41 -0000	1.13
@@ -116,18 +116,16 @@
     pack $w
     place $w.plotmenu -in $w -x 2 -y 2 -anchor nw
     
-    if { ![info exists maxima_priv(showedplothelp)] ||
-	 [llength $maxima_priv(showedplothelp)] < 2 } {
-	lappend maxima_priv(showedplothelp) 1
-	
-	after 200 balloonhelp $w $w.plotmenu [list \
-	    [mc "Clicking the left mouse button on the plot menu \
-		(top left corner), will bring up a menu.  Holding down \
-		right mouse button and dragging will translate the plot."]]
-	after 6000 $w.c delete balloon
+#     if { ![info exists maxima_priv(showedplothelp)] ||
+# 	 [llength $maxima_priv(showedplothelp)] < 2 } {
+# 	lappend maxima_priv(showedplothelp) 1
 	
-
-    }
+# 	after 200 balloonhelp $w $w.plotmenu [list \
+# 	    [mc "Clicking the left mouse button on the plot menu \
+# 		(top left corner), will bring up a menu.  Holding down \
+# 		right mouse button and dragging will translate the plot."]]
+# 	after 6000 $w.c delete balloon
+#     }
 
     raise $w.plotmenu
 
@@ -326,15 +324,14 @@
     makeLocal $win c transform transform0 xmin ymin xmax ymax
     set rtosx rtosx$win ; set rtosy rtosy$win
     drawPointsForPrint $c
-    $c delete balloon
+    # $c delete balloon
 
     set bbox [eval $c bbox [$c find withtag printrectangle]]
     desetq "x1 y1 x2 y2" $bbox
-    #     set title "unknown plot"
-    #     catch { set title [eval $printOption(maintitle)] }
-
-    #     $c create text [expr {($x1 + $x2)/2}]  [expr {$y1 + .04 * ($y2 - $y1)}] \
-	# 	    -anchor center -text $title -tag title
+    # set title "unknown plot"
+    # catch { set title [eval $printOption(maintitle)] }
+    # $c create text [expr {($x1 + $x2)/2}]  [expr {$y1 + .04 * ($y2 - $y1)}] \
+    # 	    -anchor center -text $title -tag title
 
     update
     set diag [vectorlength [expr {$y1-$x1}] [expr {$y2-$x2}]]