Anonymous user
Window creation: Difference between revisions
→{{header|Common Lisp}}
Line 286:
Note: This creates a small, useless window ("frame"). Useful frames will have some ''panes'' defined inside them.
==={{libheader|Swing}}===
{{uses from|library|Swing|component1=JFrame}}
Works with the Armed Bear Common Lisp implementation that targets the JVM.
<lang lisp>(defun create-window ()
"Creates a window"
(let ((window (jnew (jconstructor "javax.swing.JFrame"))))
(jcall (jmethod "javax.swing.JFrame" "setVisible" "boolean")
window (make-immediate-object t :boolean))))
(create-window)</lang>
=={{header|D}}==
| |||