aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-05-13 22:38:46 +0000
committerN.N. <matju@users.sourceforge.net>2009-05-13 22:38:46 +0000
commit5218f413a6b4266f48f0c635eec73fa2e89f30ca (patch)
treeb7d012cff73ac0be9d87c92439d03fdcdc4bb87f /desiredata/src
parentc6d109966c9916240a4f618f4c5f2103c0d4c905 (diff)
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
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk2
1 files changed, 1 insertions, 1 deletions
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
}