12 lines
299 B
Tcl
12 lines
299 B
Tcl
|
package require Tk
|
||
|
|
proc maxSize {} {
|
||
|
|
# Need a dummy window; max window can be changed by scripts
|
||
|
|
set top .__defaultMaxSize__
|
||
|
|
if {![winfo exists $top]} {
|
||
|
|
toplevel $top
|
||
|
|
wm withdraw $top
|
||
|
|
}
|
||
|
|
# Default max size of window is value we want
|
||
|
|
return [wm maxsize $top]
|
||
|
|
}
|