(: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))
"gtk_scrolled_window_get_vscrollbar" nil))
("GtkBin"
(:cffi gtk::child gtk::bin-child (g-object gtk::widget)
- "gtk_bin_get_child" nil))))))
+ "gtk_bin_get_child" nil))
+ ("GtkTextChildAnchor"
+ (:cffi gtk::deleted-p gtk::text-child-anchor-deleted-p :boolean
+ "gtk_text_child_anchor_get_deleted" nil))))))
(defun gtk-generate-child-properties (filename)
(with-open-file (stream filename :direction :output :if-exists :supersede)