Allow YAZ 2 series only

[ir-tcl-moved-to-github.git] / client.tcl

diff --git a/client.tcl b/client.tcl
index 236ba32..4865ecb 100644 (file)
--- a/client.tcl
+++ b/client.tcl
@@ -1,10 +1,16 @@
 # IR toolkit for tcl/tk
-# (c) Index Data 1995-1998
+# (c) Index Data 1995-2001
 # See the file LICENSE for details.
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.109  1999-12-12 00:25:59  adam
+# Revision 1.111  2001-12-03 18:52:06  adam
+# Configure no longer searches for Tk. Removed references to SR.
+#
+# Revision 1.110  2000/10/11 12:26:47  adam
+# Using yaz.m4 for aclocal.m4.
+#
+# Revision 1.109  1999/12/12 00:25:59  adam
 # Updated list of preconfigure targets.
 #
 # Revision 1.108  1999/11/30 14:05:58  adam
@@ -2914,7 +2920,6 @@ proc save-geometry {} {
     global hostid
 
     set windowGeometry(.) [wm geometry .]
-    puts "root=[wm geometry .]"
 
     if {[catch {set f [open ~/.clientrc.tcl w]}]} {
         return
@@ -2931,8 +2936,8 @@ proc save-geometry {} {
     puts $f "set recordSyntax $recordSyntax"
     puts $f "set elementSetNames $elementSetNames"
     foreach n [array names windowGeometry] {
-        puts -nonewline "set [list windowGeometry($n)] "
-        puts [list $windowGeometry($n)]
+        dputs "set [list windowGeometry($n)] "
+        dputs [list $windowGeometry($n)]
 
         puts -nonewline $f "set [list windowGeometry($n)] "
         puts $f [list $windowGeometry($n)]
@@ -4164,7 +4169,7 @@ if {[catch {ir-version}]} {
     set e [info sharedlibextension]
     catch {load ${libdir}/irtcl$e irtcl}
     if {[catch {ir-version}]} {
-       catch {load irtcl$e irtcl}
+       load irtcl$e irtcl
     }
 }