From 01be33b3c515195c3c404bf14545a6d01fe61f53 Mon Sep 17 00:00:00 2001 From: Ivan Chernetsky Date: Wed, 9 Sep 2009 00:21:14 +0300 Subject: [PATCH] Properties coverage for GtkDialog. --- generating.lisp | 3 +++ gtk/gtk.dialog.lisp | 14 +++----------- 2 files changed, 6 insertions(+), 11 deletions(-) diff --git a/generating.lisp b/generating.lisp index 5091b56..c892c87 100644 --- a/generating.lisp +++ b/generating.lisp @@ -113,6 +113,9 @@ (:cffi gtk::mnemonic-modifier gtk::gtk-window-mnemonic-modifier (g-object gdk::modifier-type) "gtk_window_get_mnemonic_modifier" "gtk_window_set_mnemonic_modifier") (:cffi gtk::icon-list gtk::gtk-window-icon-list (glist gtk::pixbuf :free-from-foreign t :free-to-foreign t) "gtk_window_get_icon_list" "gtk_window_set_icon_list") (:cffi gtk::group gtk::gtk-window-group (g-object gtk::window-group) "gtk_window_get_group" nil)) + ("GtkDialog" + (:cffi gtk::action-area gtk::dialog-action-area (g-object gtk::widget) "gtk_dialog_get_action_area" nil) + (:cffi gtk::content-area gtk::dialog-content-area (g-object gtk::widget) "gtk_dialog_get_content_area" nil)) ("GtkTreeViewColumn" (:cffi gtk::tree-view gtk::tree-view-column-tree-view g-object "gtk_tree_view_column_get_tree_view" nil) (:cffi gtk::sort-column-id gtk::tree-view-column-sort-column-id :int "gtk_tree_view_column_get_sort_column_id" "gtk_tree_view_column_set_sort_column_id") diff --git a/gtk/gtk.dialog.lisp b/gtk/gtk.dialog.lisp index 7c22b7a..0d93879 100644 --- 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) -- 1.7.10.4