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