# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.109 1999-12-12 00:25:59 adam
+# 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)]