From ac9765e5b828e41a4dee05464ecf6d4215153680 Mon Sep 17 00:00:00 2001 From: Ivan Chernetsky Date: Tue, 8 Sep 2009 16:17:42 +0300 Subject: [PATCH] Properties for GtkWidget. --- generating.lisp | 10 +++++++++- gtk/gtk.widget.lisp | 4 ---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/generating.lisp b/generating.lisp index de62258..8c6b417 100644 --- a/generating.lisp +++ b/generating.lisp @@ -177,7 +177,15 @@ (:cffi gtk::composite-name gtk::widget-composite-name (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_widget_get_composite_name" "gtk_widget_set_composite_name") (:cffi gtk::redraw-on-allocate gtk::widget-redraw-on-allocate :boolean nil "gtk_widget_set_redraw_on_allocate") (:cffi gtk::accessible gtk::widget-accessible g-object "gtk_widget_get_accessible" nil) - (:cffi gtk::tooltip-window gtk::widget-tooltip-window g-object "gtk_widget_get_tooltip_window" "gtk_widget_set_tooltip_window")) + (:cffi gtk::tooltip-window gtk::widget-tooltip-window g-object "gtk_widget_get_tooltip_window" "gtk_widget_set_tooltip_window") + + (:cffi gtk::parent-window gtk::widget-parent-window (g-object gdk::window) "gtk_widget_get_parent_window" "gtk_widget_set_parent_window") + (:cffi gtk::toplevel gtk::widget-toplevel (g-object gtk::widget) "gtk_widget_get_toplevel" nil) + (:cffi gtk::colormap gtk::widget-colormap (g-object gdk::gdk-colormap) "gtk_widget_get_colormap" "gtk_widget_set_colormap") + (:cffi gtk::visual gtk::widget-visual (g-object gdk::visual) "gtk_widget_get_visual" nil) + (:cffi gtk::modifier-style gtk::widget-modifier-style (g-object gtk::rc-style) "gtk_widget_get_modifier_style" "gtk_widget_modify_style") + (:cffi gtk::pango-context gtk::widget-pango-context g-object "gtk_widget_get_pango_context" nil) + (:cffi gtk::child-visible gtk::widget-child-visible :boolean "gtk_widget_get_child_visible" "gtk_widget_set_child_visible")) ("GtkTextTag" (:cffi gtk::priority gtk::text-tag-priority :int "gtk_text_tag_get_priority" "gtk_text_tag_set_priority")))))) diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp index 0605f9d..f7a50ba 100644 --- a/gtk/gtk.widget.lisp +++ b/gtk/gtk.widget.lisp @@ -331,10 +331,6 @@ (export 'widget-path) -; TODO: gtk_widget_modify_style - -; TODO: gtk_widget_get_modifier_style - ; TODO: gtk_widget_modify_fg ; TODO: gtk_widget_modify_bg -- 1.7.10.4