[Sumover-dev] [svn commit] r4044 - vic/branches/mpeg4/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: piers
Date: Wed May 30 17:04:37 2007
New Revision: 4044

Modified:
   vic/branches/mpeg4/tcl/autoplace_ui.tcl

Log:
Removed some more dodgy escaped(\) newlines from rectangle calls - now seems to work ok on Linux.


Modified: vic/branches/mpeg4/tcl/autoplace_ui.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/autoplace_ui.tcl	(original)
+++ vic/branches/mpeg4/tcl/autoplace_ui.tcl	Wed May 30 17:04:37 2007
@@ -518,11 +518,7 @@
 			# ag_puts "Redraw rectangles in rectangle width x height: $grid_width x $grid_height"
 			for {set i 0} {$i < $grid_width} {incr i 1} {
 				for {set ii 0} {$ii < $grid_height} {incr ii 1} {
-					lappend rect_list [$lcanvas create rectangle [expr $rect_x + $i * $win_width* $scale] \
-											[expr $rect_y + $ii * $win_height* $scale] \
-											[expr $rect_x + ($i+1) * $win_width* $scale] \
-											[expr $rect_y + ($ii+1) * $win_height* $scale] \
-											-outline black -fill blue -width 1]
+					lappend rect_list [$lcanvas create rectangle [expr $rect_x + $i * $win_width* $scale] [expr $rect_y + $ii * $win_height* $scale] [expr $rect_x + ($i+1) * $win_width* $scale] [expr $rect_y + ($ii+1) * $win_height* $scale] -outline black -fill blue -width 1]
 					#ag_puts "$lcanvas create rectangle [expr $startx + $i * $win_width* $scale] \
 					#						[expr $starty + $ii * $win_height* $scale] \
 					#						[expr $startx + ($i+1) * $win_width* $scale] \