From ea0041a3b2bb4434e9b27a39e722f2b396f40426 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Thu, 16 Apr 2009 00:09:32 +0000
Subject: fix scrollbar on osx

svn path=/trunk/; revision=11034
---
 desiredata/src/desire.tk | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'desiredata/src')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index cc9444e9..8cd1f6e1 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -1962,6 +1962,10 @@ def Canvas bind {eventtype selector args} {
 	}
 }
 
+def Canvas osx_scroll {axis diff} {
+		$self scroll $axis [expr -abs($diff)/%diff]
+}
+
 def Canvas new_binds {} {
     # mouse buttons
     $self bind <Button>                   click_wrap %x %y %b 0
@@ -1987,8 +1991,8 @@ def Canvas new_binds {} {
 	$self bind <Shift-Button-4> scroll x -1
     	$self bind <Shift-Button-5> scroll x +1
     } default {
-	$self bind <MouseWheel>       scroll y \[expr -abs(%D)/%D\]
-	$self bind <Shift-MouseWheel> scroll x \[expr -abs(%D)/%D\]
+	$self bind <MouseWheel>       scroll y %D
+	$self bind <Shift-MouseWheel> scroll x %D
     }}
     $self bind <ButtonRelease>     	 unclick_wrap %x %y %b 0
     $self bind <Shift-ButtonRelease>     unclick_wrap %x %y %b 1
-- 
cgit v1.2.1