 STk:make-dialog
 STk:make-dialog 
Hereafter are simple uses of the STk:make-dialog procedure
;; A simple dialog; returns after displaying the window
(STk:make-dialog :text    "Do you want to exit?"
                 :bitmap  "question"
                 :buttons (list (list "Yes" (lambda () 
                                              (display "Yes\n")))
                                (list "No"  (lambda () 
                                              (display "No\n")))))
;; Another one which wait that the user chooses a response
;; Default is "bar"
;; Return value will be 0 1 or 2
;; The @ in a bitmap allows to specify a file
(STk:make-dialog :text    "Choose one"
                 :bitmap  "@/usr/include/X11/bitmaps/terminal"
                 :default 1
                 :grab    #t
                 :buttons (list (list "foo" (lambda () 
                                              (display "foo\n")))
                                (list "bar" (lambda () 
                                              (display "bar\n")))
                                (list "baz" (lambda ()
                                              (display "baz\n")))))
