Posted to tcl by jima at Mon Oct 03 20:43:28 GMT 2016view pretty

package require Tk

# Names.
set wToplevel .
set wText .t
set wLabel .l

# Title.
wm title $wToplevel "JIMA TKPATH GRAPH"

# Maximize.
set screenW [winfo screenwidth $wToplevel]
#~ set screenH [expr {[winfo screenheight $wToplevel]-60}]
#~ wm geometry $wToplevel "${screenW}x${screenH}+0+0"
wm attributes $wToplevel -zoomed 1;# Seems this is unix only.

# Exit button.
wm protocol . WM_DELETE_WINDOW {exit}

# Widgets.
text $wText -width $screenW -height 1 -bg gray
label $wLabel -width $screenW -height 1 -bg cyan
$wLabel configure -textvariable ::wLabelText

# Lay them out
grid $wText -column 0 -row 1 -sticky nsew
grid $wLabel -column 0 -row 2 -sticky nsew

# Focus.
focus -force $wText

after 1000 {set ::wLabelText WEA}
vwait ::forever