;; A Dialog box

(define do-dialog
  (lambda ()
    (let ([i (stk::make-dialog :title "A Dialog Box" 
			       :text "What do you want to do?" 
			       :bitmap "question"
			       :grab #t
			       :defaults 0
			       :buttons '(("Ok"     (lambda () #f))
					  ("Cancel" (lambda () #f))
					  ("Abort"  (lambda () #f))
					  ("Retry"  (lambda () #f))
					  ("Help"   (lambda () #f))))])

      (format #t "You pressed button ~s\n" i))))

(button '.b :text "Press Me" :command '(do-dialog))
(pack .b)