X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.dialog.example.lisp;h=b7bfbd03e2f2a4a94b2c1d4d90cd17f0f6369d29;hb=1f9c939a43d645eaf55e4d375f6b1b609dd1c5bd;hp=6a1288bb92c2e3dfdf1c0bc0d4ed6d85cf78ca8c;hpb=500d18cd286348c598c6644a31f7cd7867b37f98;p=cl-gtk2.git

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")))