[clg] / hello-world.lisp

(use-package :gtk)

(clg-init)

(make-instance 'window
; :type :toplevel
 :title "Test"
 :border-width 5
 :visible t :show-children t
 :child (make-instance 'button
	 :label "Hello World!"
	 :signal (list 'clicked
		       #'(lambda ()
			   (write-line "Hello World!"))))
 :signal (list 'delete-event
	       #'(lambda (event)
		   (declare (ignore event))
		   (write-line "Destroying window")
		   nil ; Returning NIL generates a destroy event
		   )))
Commit	Line	Data
781a1be5	1	(use-package :gtk)
560af5c5	2
72e04149	3	(clg-init)
72e04149	4
560af5c5	5	(make-instance 'window
781a1be5	6	; :type :toplevel
560af5c5	7	:title "Test"
560af5c5	8	:border-width 5
f0c3c3e5	9	:visible t :show-children t
560af5c5	10	:child (make-instance 'button
560af5c5	11	:label "Hello World!"
1e502466	12	:signal (list 'clicked
781a1be5	13	#'(lambda ()
	14	(write-line "Hello World!"))))
	15	:signal (list 'delete-event
	16	#'(lambda (event)
	17	(declare (ignore event))
	18	(write-line "Destroying window")
	19	nil ; Returning NIL generates a destroy event
	20	)))