add start/stop for GtkSpinner

Author: tknopp

src/Gtk.jl

@@ -19,7 +19,8 @@ import Cairo: destroy
 export width, height, #minsize, maxsize
     reveal, configure, draw, cairo_context,
     visible, destroy,
-    hasparent, toplevel
+    hasparent, toplevel, 
+    stop
 
     #property, margin, padding, align
     #raise, focus, destroy, enabled
@@ -152,7 +153,8 @@ module ShortNames
     export width, height, #minsize, maxsize
         reveal, configure, draw, cairo_context,
         visible, destroy,
-        hasparent, toplevel
+        hasparent, toplevel,
+        stop
 
     # Gtk objects
     const G_ = GAccessor

src/displays.jl

@@ -317,6 +317,9 @@ pulse(progress::GtkProgressBar) = ccall((:gtk_progress_bar_pulse,libgtk),Void,(P
 @gtktype GtkSpinner
 GtkSpinner() = GtkSpinner(ccall((:gtk_spinner_new,libgtk),Ptr{GObject},()))
 
+start(spinner::GtkSpinner) = ccall((:gtk_spinner_start,libgtk),Void,(Ptr{GObject},),spinner)
+stop(spinner::GtkSpinner) = ccall((:gtk_spinner_stop,libgtk),Void,(Ptr{GObject},),spinner)
+
 @gtktype GtkStatusbar
 GtkStatusbar() = GtkStatusbar(ccall((:gtk_statusbar_new,libgtk),Ptr{GObject},()))
 context_id(status::GtkStatusbar,source) =