[GRASS-dev] [bug #4466] (grass) d.m: mouse scroll error in main GIS Manager window

[Markus Neteler]

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