From 6a08f42af3f1c3584882081936ca18c39693d8a1 Mon Sep 17 00:00:00 2001 From: carmen rocco Date: Sun, 24 Apr 2005 12:10:00 +0000 Subject: ngrid svn path=/trunk/; revision=2812 --- extensions/gui/ix/grid.wid | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'extensions/gui/ix/grid.wid') diff --git a/extensions/gui/ix/grid.wid b/extensions/gui/ix/grid.wid index 61bf665c..1d177ad8 100755 --- a/extensions/gui/ix/grid.wid +++ b/extensions/gui/ix/grid.wid @@ -18,12 +18,12 @@ namespace eval ::ix { place $path.grid -anchor nw -relwidth 1 -relheight 1 $path.grid create $shape 0 0 0 0 -fill $fg -tags ${target}sqr grid_click $path.grid $target 1 0.5 0.5 $h $w $size - gridlines $path.grid $target $div $w $h $ln + grid_lines $path.grid $target $div $w $h $ln bind $path.grid <1> "::ix::grid_click %W $target 0 %y %x $h $w $size" bind $path.grid "::ix::grid_click %W $target 0 %y %x $h $w $size" } } - proc gridlines {w target lines ww hw color} { + proc grid_lines {w target lines ww hw color} { $w delete gridlines for {set x 1} {$x <= $lines} {incr x} { if {$lines < 64} { -- cgit v1.2.1