From c6d109966c9916240a4f618f4c5f2103c0d4c905 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 13 May 2009 22:18:19 +0000
Subject: re-fix OSX scroll

svn path=/trunk/; revision=11322
---
 desiredata/src/desire.tk | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'desiredata/src/desire.tk')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 6cc7d16a..817e6f9f 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -1970,9 +1970,7 @@ def Canvas bind {eventtype selector args} {
 	}
 }
 
-def Canvas osx_scroll {axis diff} {
-	$self scroll $axis [expr -abs($diff)/%diff]
-}
+def Canvas osx_scroll {axis diff} {$self scroll $axis [expr -abs($diff)/$diff]}
 
 def Canvas new_binds {} {
     # mouse buttons
-- 
cgit v1.2.1