X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=client.tcl;h=45007fc5ec6ad48843c70bdfd609b4798c435bff;hb=9ce66eda95f4ef797782d491011687e338b055d8;hp=4a7841cc277154b1cce0a9d9d6813c23c8fa7199;hpb=522ba942f671244430c51362a06d2de6871de94a;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 4a7841c..45007fc 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,14 @@
 # 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
@@ -3113,7 +3120,16 @@ 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]
+    if {$e == {}} {
+        set e .dll
+    }
+    puts -nonewline "Loading irtcl$e ..."
+    load irtcl$e irtcl
+    ir z39
+    puts "ok"
+}
 #z39 logLevel all
 show-logo 1