Anonymous user
GUI/Maximum window dimensions: Difference between revisions
Added PicoLisp
m (Retro: omit) |
(Added PicoLisp) |
||
Line 59:
{{improve|Icon|Need to handle window borders which will vary from system to system and handle or comment on additional requirements.}}
=={{header|PicoLisp}}==
The following works on ErsatzLisp, the Java version of PicoLisp.
<lang PicoLisp>(let Frame (java "javax.swing.JFrame" T "Window")
(java Frame 'setExtendedState
(java (public "javax.swing.JFrame" 'MAXIMIZED_BOTH)) )
(java Frame 'setVisible T)
(wait 200)
(let Size (java (java Frame 'getContentPane) 'getSize)
(prinl "Width: " (java (public Size 'width)))
(prinl "Height: " (java (public Size 'height))) )
(java Frame 'dispose) )</lang>
Output (on a 1024x768 screen):
<pre>Width: 1010
Height: 735</pre>
=={{header|PureBasic}}==
<lang PureBasic>If OpenWindow(0, 0, 0, 5, 5, "", #PB_Window_Maximize + #PB_Window_Invisible)
| |||