X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=client.tcl;h=fbf9401b6a4cd0ae4beff3185b048be9233dea72;hb=2d7ed4958a374e8188f8b505cf4411aca1ad2717;hp=cd3674a7aeb5a0e46d581287af39ed6c5e0109ad;hpb=a53ac4ea1088652b80fec373975c4f8855071903;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index cd3674a..fbf9401 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,13 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.91  1996-03-27 17:00:53  adam
+# Revision 1.93  1996-06-28 08:43:54  adam
+# Moved towards version 1.2.
+#
+# Revision 1.92  1996/03/29  16:04:30  adam
+# Work on GRS-1 presentation.
+#
+# Revision 1.91  1996/03/27  17:00:53  adam
 # Fix: main defined when using Tk3.6; it shouldn't be.
 #
 # Revision 1.90  1996/03/20  13:54:02  adam
@@ -422,7 +428,6 @@ set setMax 0
 # Procedure tkerror {err}
 #   err   error message
 # Override the Tk error handler function.
-if {0} {
 proc tkerror err {
     set w .tkerrorw
 
@@ -442,15 +447,17 @@ proc tkerror err {
 
     bottom-buttons $w [list {Close} [list destroy $w]] 1
 }
+
+# Read tag set file (if present)
+if {[file readable "${libdir}/tagsets.tcl"]} {
+    source "${libdir}/tagsets.tcl"
 }
 
 # Read the global configuration file.
 if {[file readable "clientrc.tcl"]} {
     source "clientrc.tcl"
-} else {
-    if {[file readable "${libdir}/clientrc.tcl"]} {
-        source "${libdir}/clientrc.tcl"
-    }
+} elseif {[file readable "${libdir}/clientrc.tcl"]} {
+    source "${libdir}/clientrc.tcl"
 }
 
 # Read the user configuration file.
@@ -3968,7 +3975,7 @@ if {[catch {ir z39}]} {
 }
 
 # Init: Uncomment this line if you wan't to enable logging.
-z39 logLevel all {} irtcl.log
+z39 logLevel all
 
 # Init: If hostid is a valid target, a new connection will be established
 # immediately.