From: Jan Moringen <scymtym@gmx.net>
Date: Sat, 5 Feb 2011 19:18:23 +0000 (+0100)
Subject: added GtkSpinner in gtk/gtk.spinner.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=cb771f631793c2d18372c6f76bbb46ce01a902f8

added GtkSpinner in 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))