Typo.

[cl-gtk2.git] / gtk / gtk.dialog.lisp

diff --git a/gtk/gtk.dialog.lisp b/gtk/gtk.dialog.lisp
index 5991e33..05744d4 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)))
@@ -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)