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/text.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/text.tcl')
| -rw-r--r-- | library/text.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/text.tcl b/library/text.tcl index 9d635de..72da6ff 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -428,16 +428,16 @@ bind Text <B2-Motion> { set ::tk::Priv(prevPos) {} bind Text <MouseWheel> { - %W yview scroll [expr {-(%D)}] pixels + %W yview scroll [expr {-((%D+1)/3)}] pixels } bind Text <Option-MouseWheel> { - %W yview scroll [expr {-10 * (%D)}] pixels + %W yview scroll [expr {-4 * (%D)}] pixels } bind Text <Shift-MouseWheel> { - %W xview scroll [expr {-(%D)}] pixels + %W xview scroll [expr {-((%D+1)/3)}] pixels } bind Text <Shift-Option-MouseWheel> { - %W xview scroll [expr {-10 * (%D)}] pixels + %W xview scroll [expr {-4 * (%D)}] pixels } # ::tk::TextClosestGap -- |