diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-26 09:06:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-26 09:06:10 (GMT) |
| commit | f97059c69925b78f7f7e291b86fa2089f58291a6 (patch) | |
| tree | b11459ac908a6938f6fcb19aca40367ec98986cd /library/listbox.tcl | |
| parent | fda72faf1d67dd4016bf6842a6448943bd324707 (diff) | |
| download | tk-f97059c69925b78f7f7e291b86fa2089f58291a6.zip tk-f97059c69925b78f7f7e291b86fa2089f58291a6.tar.gz tk-f97059c69925b78f7f7e291b86fa2089f58291a6.tar.bz2 | |
Further experiment: Bring scalefactor back to 120 (as it was for win32)
Diffstat (limited to 'library/listbox.tcl')
| -rw-r--r-- | library/listbox.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index fd10fe4..ffd7def 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -177,16 +177,16 @@ bind Listbox <B2-Motion> { } bind Listbox <MouseWheel> { - %W yview scroll [expr {-(%D / 40)}] units + %W yview scroll [expr {-((%D+60) / 120)}] units } bind Listbox <Option-MouseWheel> { - %W yview scroll [expr {-(%D / 4)}] units + %W yview scroll [expr {-((%D+6) / 12)}] units } bind Listbox <Shift-MouseWheel> { - %W xview scroll [expr {-(%D / 40)}] units + %W xview scroll [expr {-((%D+60) / 120)}] units } bind Listbox <Shift-Option-MouseWheel> { - %W xview scroll [expr {-(%D / 4)}] units + %W xview scroll [expr {-((%D+6) / 12)}] units } |