From ce59db10fc7034b01e34a87271b41ef36ac84135 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 27 Oct 2019 12:55:30 +0100
Subject: Make GtkSpinner abstract; add ptr instance

---
 src/Gtk/Widgets.dcl | 3 ++-
 src/Gtk/Widgets.icl | 4 ++++
 2 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Gtk')

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
-- 
cgit v1.2.3