From ea0041a3b2bb4434e9b27a39e722f2b396f40426 Mon Sep 17 00:00:00 2001 From: "N.N." 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') 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