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