added GtkInfoBar in gtk/gtk.info-bar.lisp

diff --git a/generating.lisp b/generating.lisp
index 9e58e08..8e7624d 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")
      :flags '("GtkTextSearchFlags" "GtkAccelFlags" "GtkArgFlags" "GtkAttachOptions"
               "GtkButtonAction" "GtkCalendarDisplayOptions" "GtkCellRendererState"
               "GtkDebugFlag" "GtkDestDefaults" "GtkDialogFlags" "GtkFileFilterFlags"
@@ -369,7 +369,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::context-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)
@@ -377,4 +382,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)))))

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index 5371551..a944777 100644 (file)
--- a/gtk/cl-gtk2-gtk.asd
+++ b/gtk/cl-gtk2-gtk.asd
@@ -20,7 +20,7 @@
                (:file "gtk.main_loop_events")
                (:file "gtk.object")
                (:file "gtk.objects")
-               (:file "gtk.generated-classes")               
+               (:file "gtk.generated-classes")
                (:file "gtk.functions")
                (:file "gtk.base-classes")
                (:file "gtk.dialog")
@@ -66,18 +66,19 @@
                (:file "gtk.tree-store")
                (:file "gtk.tree-model-filter")
                (:file "gtk.clipboard")
-               
+               (:file "gtk.info-bar")
+
                (:file "gtk.main-loop-events")
-               
+
 
                (:file "gtk.generated-child-properties")
-               
+
                (:file "gtk.high-level")
 
                (:file "ui-markup")
 
                (:file "gtk.dialog.example")
-               
+
                (:file "gtk.demo")
                (:file "gtk.timer")
                (:file "gtk.finalize-classes")

diff --git a/gtk/gtk.info-bar.lisp b/gtk/gtk.info-bar.lisp
new file mode 100644 (file)
index 0000000..f8910a1
--- /dev/null
+++ b/gtk/gtk.info-bar.lisp
@@ -0,0 +1,15 @@
+(in-package :gtk)
+
+(defcfun (info-bar-add-button "gtk_info_bar_add_button") (g-object widget)
+  (info-bar    (g-object info-bar))
+  (button-text :string)
+  (response-id :int))
+
+(export 'info-bar-add-button)
+
+(defcfun (info-bar-add-action-widget "gtk_info_bar_add_action_widget") :void
+  (info-bar    (g-object info-bar))
+  (widget      (g-object widget))
+  (response-id :int))
+
+(export 'info-bar-add-action-widget)