diff options
Diffstat (limited to 'library/console.tcl')
| -rwxr-xr-x[-rw-r--r--] | library/console.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/library/console.tcl b/library/console.tcl index 37a0653..143aa86 100644..100755 --- a/library/console.tcl +++ b/library/console.tcl @@ -107,6 +107,14 @@ proc ::tk::ConsoleInit {} { } bind Console <FocusIn> [list ::tk::console::FontchooserFocus %W 1] bind Console <FocusOut> [list ::tk::console::FontchooserFocus %W 0] + bind . <Control-MouseWheel> { + if {%D > 0} { + event generate .console <<Console_FontSizeIncr>> + } else { + event generate .console <<Console_FontSizeDecr>> + } + } + } AmpMenuArgs .menubar.edit add command -label [mc "&Increase Font Size"] \ -accel "$mod++" -command {event generate .console <<Console_FontSizeIncr>>} |