[clg] / hello-world.lisp

(in-package "GTK")

(make-instance 'window
 :type :toplevel
 :title "Test"
 :border-width 5
 :show-all t
 :child (make-instance 'button
	 :label "Hello World!"
	 :signal (list 'clicked
		       #'(lambda (button)
			   (print button) (write-line "clicked"))
		       :object t)))
Commit	Line	Data
1e502466	1	(in-package "GTK")
560af5c5	2
	3	(make-instance 'window
	4	:type :toplevel
	5	:title "Test"
	6	:border-width 5
1e502466	7	:show-all t
560af5c5	8	:child (make-instance 'button
560af5c5	9	:label "Hello World!"
1e502466	10	:signal (list 'clicked
	11	#'(lambda (button)
	12	(print button) (write-line "clicked"))
	13	:object t)))
560af5c5	14
560af5c5	15