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/Internal.icl | 5 +++++
 1 file changed, 5 insertions(+)

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

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index aed7b79..a5e2256 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -290,6 +290,11 @@ gtk_scrolled_window_new hadjust vadjust env = code {
 	ccall gtk_scrolled_window_new "pp:p:A"
 }
 
+gtk_scrolled_window_set_policy :: !Pointer !Int !Int !.a -> .a
+gtk_scrolled_window_set_policy window hpolicy vpolicy env = code {
+	ccall gtk_scrolled_window_set_policy "pII:V:A"
+}
+
 gtk_separator_new :: !Bool !.a -> (!Pointer, !.a)
 gtk_separator_new vertical env = code {
 	ccall gtk_separator_new "I:p:A"
-- 
cgit v1.2.3