X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=generating.lisp;h=511559388f23c3a1acc3bfe0fbf7a3c1eea85cfc;hb=df14f83197720a24523af803ea4d287a677534fb;hp=34dab4963e4444e94276ea01fee8b9f1d339c6d3;hpb=68787ec2c8d54e4a9d779ce5dbf1cc22e64f440e;p=cl-gtk2.git

diff --git a/generating.lisp b/generating.lisp
index 34dab49..5115593 100644
--- 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)))))