X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.dialog.lisp;h=05744d4da88b9fd5d9941542d6ede7a1758f6a8a;hb=ef06e5aa777920b2f5ad8f8c69a43f5c5c6f50e8;hp=0d9387979f8ea254686066d5bfa87d8dd9c1f436;hpb=01be33b3c515195c3c404bf14545a6d01fe61f53;p=cl-gtk2.git

diff --git a/gtk/gtk.dialog.lisp b/gtk/gtk.dialog.lisp
index 0d93879..05744d4 100644
--- a/gtk/gtk.dialog.lisp
+++ b/gtk/gtk.dialog.lisp
@@ -25,16 +25,6 @@
 
 (export 'dialog-add-action-widget)
 
-(defcfun (dialog-set-default-response "gtk_dialog_set_default_response") :void
-  (dialog (g-object dialog))
-  (response response-type))
-
-(defun (setf dialog-default-response) (response dialog)
-  (dialog-set-default-response dialog response)
-  response)
-
-(export 'dialog-default-response)
-
 (defcfun (dialog-set-response-sensitive "gtk_dialog_set_response_sensitive") :void
   (dialog (g-object dialog))
   (response response-type)
@@ -58,7 +48,7 @@
   (n-params :int)
   (new-order (:pointer response-type)))
 
-(defun (setf dialog-alternative-button-order) (response-list dialog)
+(defun set-dialog-alternative-button-order (dialog response-list)
   (with-foreign-object (new-order 'response-type (length response-list))
     (loop
        for i from 0
@@ -67,7 +57,7 @@
     (dialog-set-alternative-button-order-from-array dialog (length response-list) new-order))
   response-list)
 
-(export 'dialog-alternative-button-order)
+(export 'set-dialog-alternative-button-order)
 
 (defmacro with-gtk-message-error-handler (&body body)
   (let ((dialog (gensym))