diff options
author | carmen rocco <ix9@users.sourceforge.net> | 2005-04-24 12:10:00 +0000 |
---|---|---|
committer | carmen rocco <ix9@users.sourceforge.net> | 2005-04-24 12:10:00 +0000 |
commit | 6a08f42af3f1c3584882081936ca18c39693d8a1 (patch) | |
tree | 742bdc01bbf084bf2377078c5f2b92f7af74dc01 /extensions/gui/ix/grid.wid | |
parent | 9a69d445591c9756a6818d49c52f4356026aba88 (diff) |
ngrid
svn path=/trunk/; revision=2812
Diffstat (limited to 'extensions/gui/ix/grid.wid')
-rwxr-xr-x | extensions/gui/ix/grid.wid | 4 |
1 files changed, 2 insertions, 2 deletions
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 <B1-Motion> "::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} {
|