(defun test-dialog ()
(let ((window (make-instance 'gtk-window :type :toplevel :title "Testing dialogs"))
(v-box (make-instance 'v-box)))
- (g-signal-connect window "destroy" (lambda (w) (declare (ignore w)) (gtk-main-quit)))
+ (g-signal-connect window "destroy" (lambda (w) (declare (ignore w)) (leave-gtk-main)))
(container-add window 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))
(dialog-add-button dialog "Yes" :yes)
(dialog-add-button dialog "Cancel" :cancel)
(setf (dialog-default-response dialog) :cancel)
- (setf (dialog-alternative-button-order dialog) (list :yes :cancel :ok))
+ (set-dialog-alternative-button-order dialog (list :yes :cancel :ok))
(format t "Response was: ~S~%" (dialog-run dialog))
(object-destroy dialog)))))
(let ((button (make-instance 'button :label "About")))
(object-destroy dialog)))))
(widget-show window)
- (gtk-main)))
\ No newline at end of file
+ (ensure-gtk-main)))
\ No newline at end of file