X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=generating.lisp;h=9e58e084053bdbdd605fd1b36b7a1ff6acbc890e;hb=bd6107b4baeadf2e895ac82f8c977ca3c0c5ad3a;hp=84835b562caa5d7318ae0347dc025e3bdf2991ba;hpb=fa06b5bbafa7b7e2f32fe46203aa978624d84fe7;p=cl-gtk2.git

diff --git a/generating.lisp b/generating.lisp
index 84835b5..9e58e08 100644
--- a/generating.lisp
+++ b/generating.lisp
@@ -277,7 +277,9 @@
         (: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"))
+	 "gtk_widget_get_tooltip_window" "gtk_widget_set_tooltip_window")
+        (:cffi gtk::style gtk::widget-style (g-object gtk::style)
+         "gtk_widget_get_style" "gtk_widget_set_style"))
        ("GtkWindowGroup"
         (:cffi gtk::windows gtk::window-group-windows (glist (g-object gtk::gtk-window))
          "gtk_window_group_list_windows" nil))