I can still reproduce the bug in current CVS:
1. d.m
2. hover mouse over d.m
3. use scroll
4. error:
can't read "bind_scroll_list": no such variable
can't read "bind_scroll_list": no such variable
while executing
"foreach window $bind_scroll_list {
if {![winfo exists $window]} {
set window_gone 1
continue
}
if {![..."
(procedure "handle_scroll" line 8)
invoked from within
"handle_scroll -120"
(command bound to event)
Maciek
-------------------------------------------- Managed by Request Tracker
On Wed, Jul 26, 2006 at 06:40:32PM +0200, Maciek Sieczka via RT wrote:
I can still reproduce the bug in current CVS:
1. d.m
2. hover mouse over d.m
3. use scroll
4. error:
can't read "bind_scroll_list": no such variable
can't read "bind_scroll_list": no such variable
while executing
"foreach window $bind_scroll_list {
if {![winfo exists $window]} {
set window_gone 1
continue
}
if {![..."
(procedure "handle_scroll" line 8)
invoked from within
"handle_scroll -120"
(command bound to event)
Maciek
This cures it:
cvs diff
cvs server: Diffing .
Index: d.m.tcl
RCS /home/grass/grassrepository/grass6/gui/tcltk/d.m/d.m.tcl,v
retrieving revision 1.6
diff -u -r1.6 d.m.tcl
--- d.m.tcl 26 Jun 2006 22:16:15 -0000 1.6
+++ d.m.tcl 31 Jul 2006 20:09:54 -0000
@@ -389,6 +389,7 @@
$options_sw setwidget $options_sf
set options [$options_sf getframe]
pack $options_sw -fill both -expand yes
+ bind_scroll $options_sf
# output
set output_pane [$pw2 add -minsize 50 -weight 1 ]
I dunno tcltk, just did evolutionary programming by looking at
gis.m. Will commit it.
Markus