From 7afd5796929601b10d52fc024b3cfd9ed64f25af Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 27 Oct 2019 14:41:08 +0100
Subject: Add GtkScrollbarPolicy and instance tune GtkScrolledWindow
 (GtkScrollbarPolicy, GtkScrollbarPolicy)

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

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

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index ba0cb16..f2c942f 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -224,6 +224,12 @@ instance gtkContainer GtkScrolledWindow where gtkContainer sw = sw
 newScrolledWindow :: GtkM GtkScrolledWindow
 newScrolledWindow = toStateR (gtk_scrolled_window_new 0 0) >>= show
 
+instance tune GtkScrolledWindow (GtkScrollbarPolicy, GtkScrollbarPolicy)
+where
+	tune (hp,vp) window =
+		toState (gtk_scrolled_window_set_policy window (toInt hp) (toInt vp)) >>|
+		pure window
+
 :: GtkSeparator :== Pointer
 
 instance gtkWidget GtkSeparator where gtkWidget s = s
-- 
cgit v1.2.3