all tasks

Task/Window-creation/Common-Lisp/window-creation-1.lisp

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

Task/Window-creation/Common-Lisp/window-creation-2.lisp

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

Task/Window-creation/Common-Lisp/window-creation-3.lisp

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

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

@@ -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)