Anonymous user
GUI/Maximum window dimensions: Difference between revisions
→Tcl: Added implementation
m (whitespace) |
(→Tcl: Added implementation) |
||
Line 43:
PRINT "The maximum window size that can be used without scrolling is "; FMain.Width; " x "; FMain.Height
END</lang>
=={{header|Tcl}}==
{{libheader|Tk}}
<lang tcl>package require Tk
proc maxSize {} {
# Need a dummy window; max window can be changed by scripts
set top .__dualMonitorCheck__
if {![winfo exists $top]} {
toplevel $top
wm withdraw $top
}
# Default max size of window is value we want
return [wm maxsize $top]
}</lang>
On this system, that returns <code>1440 836</code>.
== {{header|Visual Basic}} ==
| |||