# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.67 1995-09-20 14:35:19 adam
+# Revision 1.69 1995-09-21 13:42:54 adam
+# Bug fixes.
+#
+# Revision 1.68 1995/09/21 13:11:49 adam
+# Support of dynamic loading.
+# Test script uses load command if necessary.
+#
+# Revision 1.67 1995/09/20 14:35:19 adam
# Minor changes.
#
# Revision 1.66 1995/08/29 15:30:13 adam
pack .bot.a.status .bot.a.set .bot.a.message \
-side left -padx 2 -pady 2 -ipadx 1 -ipady 1
-catch {ir z39}
+if {[catch {ir z39}]} {
+ set e [info sharedlibextension]
+ if {$e == {}} {
+ set e .dll
+ }
+ puts -nonewline "Loading irtcl$e ..."
+ load irtcl$e irtcl
+ ir z39
+ puts "ok"
+}
#z39 logLevel all
show-logo 1