Properties coverage for GtkDialog.

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

diff --git a/gtk/gtk.dialog.lisp b/gtk/gtk.dialog.lisp
index 7c22b7a..0d93879 100644 (file)
--- a/gtk/gtk.dialog.lisp
+++ b/gtk/gtk.dialog.lisp
@@ -40,22 +40,14 @@
   (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)))
 
@@ -89,4 +81,4 @@
                            (object-destroy ,dialog)
                            nil)))))
 
-(export 'with-gtk-message-error-handler)
\ No newline at end of file
+(export 'with-gtk-message-error-handler)