From 9e63a758b2df184ec26968b1827db8022eb1149d Mon Sep 17 00:00:00 2001 From: Jan Moringen 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