1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
###
### windows.tcl: part of Scid.
### Copyright (C) 1999-2003 Shane Hudson.
###
namespace eval ::windows {
# TODO
}
########################################################################
### Optional windows: all off initially.
set treeWin 0
set pgnWin 0
set commentWin 0
set filterGraph 0
# recordWinSize:
# Records window width and height, for saving in options file.
#
proc recordWinSize {win} {
global winWidth winHeight winX winY winX_docked winY_docked winWidth_docked winHeight_docked
if {![winfo exists $win]} { return }
set temp [wm geometry $win]
if { $::docking::USE_DOCKING } {
set suffix "_docked"
} else {
set suffix ""
}
set n [scan $temp "%dx%d+%d+%d" width height x y]
if {$n == 4} {
set winWidth${suffix}($win) $width
set winHeight${suffix}($win) $height
set winX${suffix}($win) $x
set winY${suffix}($win) $y
}
}
proc setWinLocation {win} {
global winX winY winX_docked winY_docked
if { $::docking::USE_DOCKING } {
set suffix "_docked"
} else {
set suffix ""
}
if {[info exists winX${suffix}($win)] && [info exists winY${suffix}($win)] && \
[set winX${suffix}($win)] >= 0 && [set winY${suffix}($win)] >= 0} {
catch [list wm geometry $win "+[set winX${suffix}($win)]+[set winY${suffix}($win)]"]
}
}
proc setWinSize {win} {
global winWidth winHeight winWidth_docked winHeight_docked
if { $::docking::USE_DOCKING } {
set suffix "_docked"
} else {
set suffix ""
}
if {[info exists winWidth${suffix}($win)] && [info exists winHeight${suffix}($win)] && \
[set winWidth${suffix}($win) ] > 0 && [set winHeight${suffix}($win) ] > 0 } {
catch [list wm geometry $win "[set winWidth${suffix}($win) ]x[set winHeight${suffix}($win) ]"]
}
}
###
### End of file: windows.tcl
###
|
