# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.105 1998-06-10 13:00:45 adam
+# Revision 1.107 1999-02-11 11:30:08 adam
+# Updated for WIN32.
+#
+# Revision 1.106 1998/06/10 13:22:47 adam
+# Minor changes.
+#
+# Revision 1.105 1998/06/10 13:00:45 adam
# Added ir-version command.
#
# Revision 1.104 1998/02/12 13:32:41 adam
# to a default value or to the value in windowGeometry(.)
toplevelG .init
place-force .init .
-message .init.top -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
-text .init.msg -width 30 -height 4
+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 .
if {[catch {ir-version}]} {
set e [info sharedlibextension]
.init.msg insert end "Loading irtcl$e.\n"
- load ${libdir}/irtcl$e irtcl
+ catch {load ${libdir}/irtcl$e irtcl}
if {[catch {ir-version}]} {
- load irtcl$e irtcl
+ catch {load irtcl$e irtcl}
}
}