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