diff options
| -rw-r--r-- | desiredata/src/desire.tk | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index 0f30173b..6cc7d16a 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -751,7 +751,7 @@ for {set i 0} {$i < $argc} {incr i} { set encoding "" set langoptions { english francais deutsch catala espanol portugues italiano bokmal - euskara polski dansk chinese nihongo brasiliano turkce nederlands + euskara polski dansk chinese nihongo brasileiro turkce nederlands russkij } @@ -772,7 +772,7 @@ set langfile locale/[switch -regexp -- $language { ^(pl|polski)$ {set encoding utf-8; list polski} ^(dk|dansk)$ {list dansk} ^(ja|japanese|nihongo)$ {list nihongo} - ^(br|brasiliano|brasileiro)$ {list brasiliano} + ^(br|brasiliano|brasileiro)$ {list brasileiro} ^(tr|turkce)$ {set encoding utf-8; list turkce} ^(nl|nederlands)$ {list nederlands} ^(ru|russkij)$ {set encoding utf-8; list russkij} @@ -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> {$c.1 yview scroll [expr {-2-abs(%D)/%D}] units} }} set @lines 0 } @@ -1971,7 +1971,7 @@ def Canvas bind {eventtype selector args} { } def Canvas osx_scroll {axis diff} { - $self scroll $axis [expr -abs($diff)/%diff] + $self scroll $axis [expr -abs($diff)/%diff] } def Canvas new_binds {} { |