[clg] / hello-world.lisp

(gtk:clg-init)

(make-instance 'gtk:window
; :type :toplevel
 :title "Test"
 :border-width 5
 :visible t :show-children t
 :child (make-instance 'gtk: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
e2954b97	1	(gtk:clg-init)
0d07716f	2
e2954b97	3	(make-instance 'gtk:window
7e642867	4	; :type :toplevel
0d07716f	5	:title "Test"
0d07716f	6	:border-width 5
43d515e3	7	:visible t :show-children t
e2954b97	8	:child (make-instance 'gtk:button
0d07716f	9	:label "Hello World!"
19ecaf3c	10	:signal (list 'clicked
7e642867	11	#'(lambda ()
	12	(write-line "Hello World!"))))
	13	:signal (list 'delete-event
	14	#'(lambda (event)
	15	(declare (ignore event))
	16	(write-line "Destroying window")
	17	nil ; Returning NIL generates a destroy event
	18	)))