Anonymous user
GUI/Maximum window dimensions: Difference between revisions
→Icon and Unicon
(upgraded to task.) |
|||
Line 43:
PRINT "The maximum window size that can be used without scrolling is "; FMain.Width; " x "; FMain.Height
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}}==
| |||