GUI/Maximum window dimensions: Difference between revisions
Content added Content deleted
m (whitespace) |
(→Tcl: Added implementation) |
||
| Line 43: | Line 43: | ||
PRINT "The maximum window size that can be used without scrolling is "; FMain.Width; " x "; FMain.Height |
PRINT "The maximum window size that can be used without scrolling is "; FMain.Width; " x "; FMain.Height |
||
END</lang> |
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}} == |
== {{header|Visual Basic}} == |
||