X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.dialog.lisp;h=05744d4da88b9fd5d9941542d6ede7a1758f6a8a;hb=96aa7293addaacdfe29ce32e60e2feac7df6ffce;hp=5991e332fed394328fbab28f76cb0b911a8546a9;hpb=2cd8c33ca0f5f579753e90b6e7c5910401f48495;p=cl-gtk2.git

diff --git a/gtk/gtk.dialog.lisp b/gtk/gtk.dialog.lisp
index 5991e33..05744d4 100644
--- 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)))
@@ -69,4 +71,4 @@
                            (object-destroy ,dialog)
                            nil)))))
 
-(export 'with-gtk-message-error-handler)
\ No newline at end of file
+(export 'with-gtk-message-error-handler)