From 2d52efb9e6f8bde7e5a99a8d21741c81ee71bd7d Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 12 Sep 2009 22:45:31 +0400 Subject: [PATCH] Export gtk:dialog-set-alternative-button-order --- gtk/gtk.dialog.example.lisp | 2 +- gtk/gtk.dialog.lisp | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/gtk/gtk.dialog.example.lisp b/gtk/gtk.dialog.example.lisp index 6a1288b..b7bfbd0 100644 --- 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 --- 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))) -- 2.11.4.GIT