aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Window-creation/Common-Lisp/window-creation-1.lisp Normal file
View file

@ -0,0 +1 @@
(capi:display (make-instance 'capi:interface :title "A Window"))

4
Task/Window-creation/Common-Lisp/window-creation-2.lisp Normal file
View file

@ -0,0 +1,4 @@
(require :mcclim)
(cl:defpackage #:rc-window
(:use #:clim-lisp #:clim))
(cl:in-package #:rc-window)

5
Task/Window-creation/Common-Lisp/window-creation-3.lisp Normal file
View file

@ -0,0 +1,5 @@
(define-application-frame rc-window ()
()
(:layouts (:default)))
(run-frame-top-level (make-application-frame 'rc-window))

7
Task/Window-creation/Common-Lisp/window-creation-4.lisp Normal file
View file

@ -0,0 +1,7 @@
(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)