[clg] / hello-world.lisp

(use-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
3e5c51c7	1	(use-package "GTK")
0d07716f	2
	3	(make-instance 'window
	4	:type :toplevel
	5	:title "Test"
	6	:border-width 5
19ecaf3c	7	:show-all t
0d07716f	8	:child (make-instance 'button
0d07716f	9	:label "Hello World!"
19ecaf3c	10	:signal (list 'clicked
	11	#'(lambda (button)
	12	(print button) (write-line "clicked"))
	13	:object t)))
0d07716f	14
0d07716f	15