X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=client.tcl;h=2ab73bed2c1e7e4f734a1050f24e4f7929233ee1;hb=f25d0ab1672bff45ed845baf786f23aac60ca243;hp=4a7841cc277154b1cce0a9d9d6813c23c8fa7199;hpb=522ba942f671244430c51362a06d2de6871de94a;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 4a7841c..2ab73be 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,11 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.67  1995-09-20 14:35:19  adam
+# 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
@@ -3113,7 +3117,13 @@ pack .bot.a.target -side top -anchor nw -padx 2 -pady 2
 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]
+    puts -nonewline "Loading irtcl..."
+    load irtcl$e
+    ir z39
+    puts "ok"
+}
 #z39 logLevel all
 show-logo 1