diff options
| -rw-r--r-- | src/Gtk/Widgets.dcl | 3 | ||||
| -rw-r--r-- | src/Gtk/Widgets.icl | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl index fdc4a76..faf7712 100644 --- a/src/Gtk/Widgets.dcl +++ b/src/Gtk/Widgets.dcl @@ -111,8 +111,9 @@ instance gtkContainer GtkScrolledWindow newScrolledWindow :: GtkM GtkScrolledWindow -:: GtkSpinner :== Pointer +:: GtkSpinner instance gtkWidget GtkSpinner +instance ptr GtkSpinner newSpinner :: GtkM GtkSpinner startSpinner :: !GtkSpinner -> GtkM GtkSpinner diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index 0052948..ae72f44 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -217,6 +217,10 @@ newScrolledWindow = toStateR (gtk_scrolled_window_new 0 0) >>= show :: GtkSpinner :== Pointer instance gtkWidget GtkSpinner where gtkWidget s = s +instance ptr GtkSpinner +where + toPtr s = s + fromPtr s = s newSpinner :: GtkM GtkSpinner newSpinner = toStateR gtk_spinner_new >>= show |