Window management: Difference between revisions
Content added Content deleted
(Added PicoLisp) |
|||
Line 138: | Line 138: | ||
in |
in |
||
{Record.forAll Windows CreateWindow}</lang> |
{Record.forAll Windows CreateWindow}</lang> |
||
=={{header|PicoLisp}}== |
|||
The following works on ErsatzLisp, the Java version of PicoLisp. |
|||
<lang PicoLisp>$ ersatz/pil + |
|||
: (setq |
|||
JFrame "javax.swing.JFrame" |
|||
MAXIMIZED_BOTH (java (public JFrame 'MAXIMIZED_BOTH)) |
|||
ICONIFIED (java (public JFrame 'ICONIFIED)) |
|||
Win (java JFrame T "Window") ) |
|||
-> $JFrame |
|||
# Compare for equality |
|||
: (== Win Win) |
|||
-> T |
|||
# Set window visible |
|||
(java Win 'setLocation 100 100) |
|||
(java Win 'setSize 400 300) |
|||
(java Win 'setVisible T) |
|||
# Hide window |
|||
(java Win 'hide) |
|||
# Show again |
|||
(java Win 'setVisible T) |
|||
# Move window |
|||
(java Win 'setLocation 200 200) |
|||
# Iconify window |
|||
(java Win 'setExtendedState |
|||
(| (java (java Win 'getExtendedState)) ICONIFIED) ) |
|||
# De-conify window |
|||
(java Win 'setExtendedState |
|||
(& (java (java Win 'getExtendedState)) (x| (hex "FFFFFFFF") ICONIFIED)) ) |
|||
# Maximize window |
|||
(java Win 'setExtendedState |
|||
(| (java (java Win 'getExtendedState)) MAXIMIZED_BOTH) ) |
|||
# Close window |
|||
(java Win 'dispose)</lang> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |
||
<lang PureBasic>;- Create a linked list to store created windows. |
<lang PureBasic>;- Create a linked list to store created windows. |