diff options
| author | N.N. <matju@users.sourceforge.net> | 2009-05-13 22:38:46 +0000 |
|---|---|---|
| committer | N.N. <matju@users.sourceforge.net> | 2009-05-13 22:38:46 +0000 |
| commit | 5218f413a6b4266f48f0c635eec73fa2e89f30ca (patch) | |
| tree | b7d012cff73ac0be9d87c92439d03fdcdc4bb87f /desiredata/src/desire.tk | |
| parent | c6d109966c9916240a4f618f4c5f2103c0d4c905 (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/desire.tk')
| -rw-r--r-- | desiredata/src/desire.tk | 2 |
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 } |