This procedure is part of the STk library. Its arguments describe a dialog box. They can be set using the following keywords.
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)))
(list "No" (lambda ()
(display "No)))))
;; 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)))
(list "bar" (lambda ()
(display "bar)))
(list "baz" (lambda ()
(display "baz)))))