From 60c6e02e16e38cdcb6b8dc727a1e34becc62e803 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 27 Oct 2019 12:34:14 +0100
Subject: Add instance ptr GtkTextView

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

(limited to 'src/Gtk')

diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl
index 13ee89c..fdc4a76 100644
--- a/src/Gtk/Widgets.dcl
+++ b/src/Gtk/Widgets.dcl
@@ -128,6 +128,7 @@ insertAtCursor :: !String !GtkTextBuffer -> GtkM GtkTextBuffer
 :: GtkTextView
 instance gtkWidget GtkTextView
 instance gtkContainer GtkTextView
+instance ptr GtkTextView
 
 newTextView :: GtkM GtkTextView
 getTextBuffer :: !GtkTextView -> GtkTextBuffer
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index e726bfd..0052948 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -257,6 +257,10 @@ insertAtCursor s buffer =
 
 instance gtkWidget GtkTextView where gtkWidget tv = tv
 instance gtkContainer GtkTextView where gtkContainer tv = tv
+instance ptr GtkTextView
+where
+	toPtr   tv = tv
+	fromPtr tv = tv
 
 newTextView :: GtkM GtkTextView
 newTextView =
-- 
cgit v1.2.3