[clg] / hello-world.lisp

(gtk:clg-init)

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