(defun test-dialog ()
(let ((window (make-instance 'gtk-window :type :toplevel :title "Testing dialogs"))
(v-box (make-instance 'v-box)))
(defun test-dialog ()
(let ((window (make-instance 'gtk-window :type :toplevel :title "Testing dialogs"))
(v-box (make-instance 'v-box)))
(let ((button (make-instance 'button :label "Dialog 1")))
(box-pack-start v-box button)
(g-signal-connect button "clicked" (lambda (b) (declare (ignore b))
(let ((button (make-instance 'button :label "Dialog 1")))
(box-pack-start v-box button)
(g-signal-connect button "clicked" (lambda (b) (declare (ignore b))
(dialog-add-button dialog "Yes" :yes)
(dialog-add-button dialog "Cancel" :cancel)
(setf (dialog-default-response dialog) :cancel)
(dialog-add-button dialog "Yes" :yes)
(dialog-add-button dialog "Cancel" :cancel)
(setf (dialog-default-response dialog) :cancel)
(format t "Response was: ~S~%" (dialog-run dialog))
(object-destroy dialog)))))
(let ((button (make-instance 'button :label "About")))
(format t "Response was: ~S~%" (dialog-run dialog))
(object-destroy dialog)))))
(let ((button (make-instance 'button :label "About")))