-# Init: The geometry information for the main window is set - either
-# to a default value or to the value in windowGeometry(.)
-toplevelG .init
-place-force .init .
-message .init.top -aspect 500 -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
-text .init.msg -width 40 -height 4
-pack .init.top -side top -fill x -expand yes
-pack .init.msg -side bottom -fill both -expand yes
-wm iconify .
-update
-