From 9e63a758b2df184ec26968b1827db8022eb1149d Mon Sep 17 00:00:00 2001
From: Jan Moringen <scymtym@gmx.net>
Date: Sat, 5 Feb 2011 19:04:59 +0100
Subject: [PATCH] added GtkInfoBar in gtk/gtk.info-bar.lisp
---
generating.lisp | 11 ++++++++---
gtk/cl-gtk2-gtk.asd | 11 ++++++-----
gtk/gtk.info-bar.lisp | 15 +++++++++++++++
3 files changed, 29 insertions(+), 8 deletions(-)
create mode 100644 gtk/gtk.info-bar.lisp
diff --git a/generating.lisp b/generating.lisp
index 9e58e08..8e7624d 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")
: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
--- 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
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)
--
1.7.10.4