diff options
| author | Camil Staps | 2019-10-27 12:55:30 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-27 12:55:30 +0100 |
| commit | ce59db10fc7034b01e34a87271b41ef36ac84135 (patch) | |
| tree | a63e52b66b004a6df4b87b1d1cd3ae10b76a3fea /src | |
| parent | Add instance ptr GtkTextView (diff) | |
Make GtkSpinner abstract; add ptr instance
Diffstat (limited to 'src')
| -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 |