3 source "boilerplate.tcl"
9 $::enabled set_state
$::gui_enabled
12 checkbutton .e
-text "enabled" -variable gui_enabled
-command ne
16 Lookup .l
-lookup_command l
17 .l attach_signal
$enabled
22 [.f path
"Test"] attach_signal
$enabled
24 pack .e .l .f
-side top
-anchor nw