Merge commit 'ae006838093cfeb67b3818526622fb5cb61d5300' of git://github.com/scymtym...

[cl-gtk2.git] / generating.lisp

diff --git a/generating.lisp b/generating.lisp
index 34dab49..5115593 100644 (file)
--- a/generating.lisp
+++ b/generating.lisp
@@ -70,7 +70,7 @@
                 "GtkTextTagTable" "GtkTreeModelFilter" "GtkTreeModelSort"
                 "GtkTreeSelection" "GtkTreeStore" "GtkUIManager" "GtkWindowGroup"
                 "GtkToggleAction" "GtkRecentAction" "GtkRadioAction" "GtkItemFactory"
-               "GtkPageSetupUnixDialog" "GtkPrintUnixDialog")
+               "GtkPageSetupUnixDialog" "GtkPrintUnixDialog" "GtkInfoBar" "GtkSpinner")
      :flags '("GtkTextSearchFlags" "GtkAccelFlags" "GtkArgFlags" "GtkAttachOptions"
               "GtkButtonAction" "GtkCalendarDisplayOptions" "GtkCellRendererState"
               "GtkDebugFlag" "GtkDestDefaults" "GtkDialogFlags" "GtkFileFilterFlags"
@@ -384,7 +384,12 @@
          "gtk_bin_get_child" nil))
        ("GtkTextChildAnchor"
         (:cffi gtk::deleted-p gtk::text-child-anchor-deleted-p :boolean
-         "gtk_text_child_anchor_get_deleted" nil))))))
+         "gtk_text_child_anchor_get_deleted" nil))
+       ("GtkInfoBar"
+       (:cffi gtk::action-area gtk::info-bar-action-area (g-object gtk::widget)
+        "gtk_info_bar_get_action_area" nil)
+       (:cffi gtk::content-area gtk::info-bar-content-area (g-object gtk::widget)
+        "gtk_info_bar_get_content_area" nil))))))
 
 (defun gtk-generate-child-properties (filename)
   (with-open-file (stream filename :direction :output :if-exists :supersede)
@@ -392,4 +397,4 @@
           (*print-case* :downcase))
      (write-string "(in-package :gtk)" stream)
      (terpri stream)
-     (format stream "~{~S~%~%~}" (gtk:generate-child-properties)))))
\ No newline at end of file
+     (format stream "~{~S~%~%~}" (gtk:generate-child-properties)))))