From 4d9b0222942bd11c490d476ae60f3709017b804b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 10:26:13 +0200
Subject: Add GtkSheet

---
 src/Gtk/Widgets.icl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Gtk/Widgets.icl')

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index 4e2f2c4..0549c88 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -50,6 +50,11 @@ show widget = toState ('I'.gtk_widget_show (gtkWidget widget)) >>| pure widget
 instance gtkWidget GtkContainer where gtkWidget c = c
 instance gtkContainer GtkContainer where gtkContainer c = c
 
+instance ptr GtkContainer
+where
+	toPtr   c = c
+	fromPtr c = c
+
 addToContainer :: !w !c -> GtkM () | gtkWidget w & gtkContainer c
 addToContainer widget container =
 	toState ('I'.gtk_container_add (gtkContainer container) (gtkWidget widget))
-- 
cgit v1.2.3