Export gtk:dialog-set-alternative-button-order

diff --git a/gtk/gtk.dialog.example.lisp b/gtk/gtk.dialog.example.lisp
index 6a1288b..b7bfbd0 100644 (file)
--- a/gtk/gtk.dialog.example.lisp
+++ b/gtk/gtk.dialog.example.lisp
@@ -13,7 +13,7 @@
                                                    (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")))

diff --git a/gtk/gtk.dialog.lisp b/gtk/gtk.dialog.lisp
index 5991e33..9dc01cc 100644 (file)
--- a/gtk/gtk.dialog.lisp
+++ b/gtk/gtk.dialog.lisp
@@ -57,6 +57,8 @@
     (dialog-set-alternative-button-order-from-array dialog (length response-list) new-order))
   response-list)
 
+(export 'set-dialog-alternative-button-order)
+
 (defmacro with-gtk-message-error-handler (&body body)
   (let ((dialog (gensym))
         (e (gensym)))