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

diff --git a/gtk/gtk.dialog.lisp b/gtk/gtk.dialog.lisp
index 7c22b7a..05744d4 100644
--- a/gtk/gtk.dialog.lisp
+++ b/gtk/gtk.dialog.lisp
@@ -25,37 +25,19 @@
 
 (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)
   (setting :boolean))
 
+(export 'dialog-set-response-sensitive)
+
 (defcfun (dialog-response-for-widget "gtk_dialog_get_response_for_widget") :int
   (dialog (g-object dialog))
   (widget (g-object widget)))
 
 (export 'dialog-response-for-widget)
 
-(defcfun (dialog-action-area "gtk_dialog_get_action_area") (g-object widget)
-  (dialog (g-object dialog)))
-
-(export 'dialog-action-area)
-
-(defcfun (dialog-content-area "gtk_dialog_get_content_area") (g-object widget)
-  (dialog (g-object dialog)))
-
-(export 'dialog-content-area)
-
 (defcfun (dialog-alternative-button-order-on-screen "gtk_alternative_dialog_button_order") :boolean
   (screen (g-object screen)))
 
@@ -66,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
@@ -75,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))
@@ -89,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)