Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (18 sloc) 0.468 kb
(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
))))
Jump to Line
Something went wrong with that request. Please try again.