[GRASS-SVN] r35413 - grass/branches/releasebranch_6_4/lib/gtcltk

[svn_grass at osgeo.org]

Author: marisn
Date: 2009-01-15 04:48:30 -0500 (Thu, 15 Jan 2009)
New Revision: 35413

Modified:
   grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl
Log:
Reverting broken gis.m scrollbars introduced in r35030

Modified: grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl
===================================================================
--- grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl	2009-01-15 09:15:17 UTC (rev 35412)
+++ grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl	2009-01-15 09:48:30 UTC (rev 35413)
@@ -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
         }
     }