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

[cl-gtk2.git] / gtk / gtk.info-bar.lisp

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)