GUI/Maximum window dimensions: Difference between revisions
Content added Content deleted
(upgraded to task.) |
|||
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|Icon}} and {{header|Unicon}}== |
|||
Raise and query a hidden window. |
|||
<lang Icon>link graphics |
|||
procedure main() # Window size |
|||
W := WOpen("canvas=hidden") |
|||
dh := WAttrib("displayheight") |
|||
dw := WAttrib("displaywidth") |
|||
WClose(W) |
|||
write("The display size is w=",dw,", h=",dh) |
|||
end</lang> |
|||
{{improve|Icon|Need to handle window borders which will vary from system to system and handle or comment on additional requirements.}} |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |