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