# 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
global hostid
set windowGeometry(.) [wm geometry .]
- puts "root=[wm geometry .]"
if {[catch {set f [open ~/.clientrc.tcl w]}]} {
return
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)]