From 5218f413a6b4266f48f0c635eec73fa2e89f30ca Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 13 May 2009 22:38:46 +0000
Subject: i hope this fixes scrollbar in Console on OSX. meanwhile, def Canvas
 osx_scroll is a mystery (i don't recall how we fixed it)

svn path=/trunk/; revision=11323
---
 desiredata/src/desire.tk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'desiredata/src')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 817e6f9f..e7df6b9f 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -832,7 +832,7 @@ def Console init {c} {
 	pack $c -fill both -expand yes
 	$c.2 set 0.0 1.0
 	switch $::OS { osx {
-		bind $c.1 <MouseWheel> {$c.1 yview scroll [expr {-2-abs(%D)/%D}] units}
+		bind $c.1 <MouseWheel> [list $c.1 yview scroll [expr {-2-abs(%D)/%D}] units]
 	}}
 	set @lines 0
 }
-- 
cgit v1.2.1