[GRASS-SVN] r35414 - grass/branches/develbranch_6/lib/gtcltk

[svn_grass at osgeo.org]

Author: marisn
Date: 2009-01-15 04:59:41 -0500 (Thu, 15 Jan 2009)
New Revision: 35414

Modified:
   grass/branches/develbranch_6/lib/gtcltk/select.tcl
Log:
Reverting broken gis.m scrollbars introduced in r35030 (merge from r35413)

Modified: grass/branches/develbranch_6/lib/gtcltk/select.tcl
===================================================================
--- grass/branches/develbranch_6/lib/gtcltk/select.tcl	2009-01-15 09:48:30 UTC (rev 35413)
+++ grass/branches/develbranch_6/lib/gtcltk/select.tcl	2009-01-15 09:59:41 UTC (rev 35414)
@@ -46,7 +46,7 @@
 		set l [string length $parent]
         if {[string equal -length $l $parent $keyboard_focus] || \
             [string equal -length $l $parent $mouse_focus]} {
-            $window yview scroll [expr -1 * $amount] units
+            $window yview scroll [expr  {-$amount/120}] units
         }
     }