From cb771f631793c2d18372c6f76bbb46ce01a902f8 Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Sat, 5 Feb 2011 20:18:23 +0100 Subject: [PATCH] added GtkSpinner in gtk/gtk.spinner.lisp --- generating.lisp | 2 +- gtk/cl-gtk2-gtk.asd | 1 + gtk/gtk.spinner.lisp | 9 +++++++++ 3 files changed, 11 insertions(+), 1 deletion(-) create mode 100644 gtk/gtk.spinner.lisp diff --git a/generating.lisp b/generating.lisp index 8e7624d..b8008d7 100644 --- a/generating.lisp +++ b/generating.lisp @@ -70,7 +70,7 @@ "GtkTextTagTable" "GtkTreeModelFilter" "GtkTreeModelSort" "GtkTreeSelection" "GtkTreeStore" "GtkUIManager" "GtkWindowGroup" "GtkToggleAction" "GtkRecentAction" "GtkRadioAction" "GtkItemFactory" - "GtkPageSetupUnixDialog" "GtkPrintUnixDialog" "GtkInfoBar") + "GtkPageSetupUnixDialog" "GtkPrintUnixDialog" "GtkInfoBar" "GtkSpinner") :flags '("GtkTextSearchFlags" "GtkAccelFlags" "GtkArgFlags" "GtkAttachOptions" "GtkButtonAction" "GtkCalendarDisplayOptions" "GtkCellRendererState" "GtkDebugFlag" "GtkDestDefaults" "GtkDialogFlags" "GtkFileFilterFlags" diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd index a944777..5345dcb 100644 --- a/gtk/cl-gtk2-gtk.asd +++ b/gtk/cl-gtk2-gtk.asd @@ -67,6 +67,7 @@ (:file "gtk.tree-model-filter") (:file "gtk.clipboard") (:file "gtk.info-bar") + (:file "gtk.spinner") (:file "gtk.main-loop-events") diff --git a/gtk/gtk.spinner.lisp b/gtk/gtk.spinner.lisp new file mode 100644 index 0000000..5782858 --- /dev/null +++ b/gtk/gtk.spinner.lisp @@ -0,0 +1,9 @@ +(in-package :gtk) + +(defcfun (spinner-start "gtk_spinner_start") :void + (spinner (g-object gtk:spinner))) + +(defcfun (spinner-stop "gtk_spinner_stop") :void + (spinner (g-object gtk:spinner))) + +(export '(spinner-start spinner-stop)) -- 1.7.10.4