1# $Id$ 2# Add a console menu item under windows 3 4namespace eval console { 5 variable showConsole 0 6 hook::add finload_hook [namespace current]::add_console_menu 7 8 console eval { 9 bind . <Map> { 10 consoleinterp eval {set ::plugins::console::showConsole 1} 11 } 12 bind . <Unmap> { 13 consoleinterp eval {set ::plugins::console::showConsole 0} 14 } 15 } 16} 17 18proc console::add_console_menu {} { 19 catch { 20 set menu [.mainframe getmenu debug] 21 $menu add checkbutton -label [::msgcat::mc "Show console"] \ 22 -command [namespace current]::show_console \ 23 -variable [namespace current]::showConsole 24 show_console 25 } 26} 27 28proc console::show_console {} { 29 variable showConsole 30 if {$showConsole} { 31 console show 32 } else { 33 console hide 34 } 35} 36 37