[Gridflow-cvs] [svn] commit: r5262 - /trunk/src/classes2.cxx

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Wed Mar 31 21:28:15 EDT 2010


Author: matju
Date: Wed Mar 31 21:28:15 2010
New Revision: 5262

Log:
fix for Tcl 8.4

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Wed Mar 31 21:28:15 2010
@@ -731,10 +731,10 @@
 	    "$canvas delete $self\n"
 	    "set x2 [expr {$x1+$sx}]\n"
 	    "set y2 [expr {$y1+$sy}]\n"
-	    "set x3 [expr {$x1+max(0,$mx1-1)}]\n"
-	    "set y3 [expr {$y1+max(0,$my1-1)}]\n"
-	    "set x4 [expr {$x2-max(0,$mx2-1)}]\n"
-	    "set y4 [expr {$y2-max(0,$my2-1)}]\n"
+	    "set x3 [expr {$mx1-1}]; if {$x3<0} {set x3 0}; set x3 [expr {$x1+$x3}]\n"
+	    "set y3 [expr {$my1-1}]; if {$y3<0} {set y3 0}; set y3 [expr {$y1+$y3}]\n"
+	    "set x4 [expr {$mx2-1}]; if {$x4<0} {set x4 0}; set x4 [expr {$x2-$x4}]\n"
+	    "set y4 [expr {$my2-1}]; if {$y4<0} {set y4 0}; set y4 [expr {$y2-$y4}]\n"
 	    "$canvas create rectangle $x1 $y1            $x2            $y2            -fill $bg   "
 		"-tags [list $self ${self}R ] -outline $outline\n"
 	    "$canvas create rectangle $x3 $y3            $x4            $y4            -fill black "



More information about the Gridflow-cvs mailing list