X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=client.tcl;h=2403c2e634ce641c1fb5720bd286f88fd698f1d9;hb=d026c3e06f6e19e5ed4174ab1a504a4b5af79183;hp=236ba32be4d425db0d59c2da52d37ae8da0eae6c;hpb=215b1a88ef32ed0e921b6a6f54dd330731791f38;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 236ba32..2403c2e 100644
--- 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)]