added GtkSpinner in gtk/gtk.spinner.lisp

diff --git a/generating.lisp b/generating.lisp
index 8e7624d..b8008d7 100644 (file)
--- 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 (file)
--- 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 (file)
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))