X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=client.tcl;h=5346e93c053140747d4afb8513f886e0859791ab;hb=cdd0717baa6ed75b645c1c0bcabec5fa59335cf3;hp=7e2ef8398f7a645cecc39fcb9066ea5dc0dfa034;hpb=510fc2e05a3233005879413ae401865d91efe73e;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 7e2ef83..5346e93 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,16 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.105  1998-06-10 13:00:45  adam
+# Revision 1.108  1999-11-30 14:05:58  adam
+# Updated for new location of YAZ headers.
+#
+# 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
@@ -814,8 +823,8 @@ if {[catch {set g $windowGeometry(.)}]} {
 # 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 .
@@ -4157,15 +4166,19 @@ set logLevel all
 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}
     }
 }
 
 .init.msg insert end "IrTcl version [lindex [ir-version] 0]\n"
 .init.msg insert end "YAZ version [lindex [ir-version] 1]\n"
-ir-log-init all irtcl.log
+if $debugMode {	
+	ir-log-init all {} irtcl.log
+} else {
+	ir-log-init none {} {}
+}
 
 # Create Z Assocation
 ir z39