projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bump version to 1.4.3
[ir-tcl-moved-to-github.git]
/
client.tcl
diff --git
a/client.tcl
b/client.tcl
index
236ba32
..
2403c2e
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-1,10
+1,16
@@
# IR toolkit for tcl/tk
# 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 $
# 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
# 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 .]
global hostid
set windowGeometry(.) [wm geometry .]
- puts "root=[wm geometry .]"
if {[catch {set f [open ~/.clientrc.tcl w]}]} {
return
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 $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)]
puts -nonewline $f "set [list windowGeometry($n)] "
puts $f [list $windowGeometry($n)]