🚀 go-pugleaf

Here is a Hello World program in Tcl.  It runs under my forthcoming alpha-2
release of Tcl.
--------------
window open hello 200 50 300 50 Hello

set message "Hello, world."
set width [display textwidth $message]
set height [display fontheight]

proc refresh_window {} {
	global width height message
	window blank hello
	display move [expr {([window width hello] - $width) / 2}] [expr {([window height hello] - $height) / 2}]
	display text $message
}

refresh_window
eventloop
-----------------

refresh_window is automatically called when the window is resized.  Various
such routines exist for all the IDCMP message types.  I'm changing this to 
provide a way for you to ask routine named by you to be called when a given
IDCMP message comes in, on a window basis...maybe tomorrow.

I can't read the font off the command line yet, but the above will work
for different font sizes.
-- 
-- uunet!sugar!karl	"As long as there is a legion of superheros, all else
--			 can surely be made right." -- Sensor Girl
-- Usenet access: (713) 438-5018