RosettaCodeData/Task/Window-creation/Common-Lisp/window-creation-4.lisp

8 lines
235 B
Common 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)