From c0b119e20d4874bd330c9cd9d352fd2666f19191 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 20 Oct 2019 10:02:46 +0200
Subject: Add rudimentary support for GtkPaned and GtkTextView

---
 test/test.icl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/test.icl b/test/test.icl
index 5717add..9d6f7ea 100644
--- a/test/test.icl
+++ b/test/test.icl
@@ -9,10 +9,19 @@ import Control.Monad.State
 
 import Gtk.Signal
 import Gtk.State
+import Gtk.Types
 import Gtk.Widgets
 
 Start w = runGtk app w
 where
 	app =
 		newWindow "Hello!" Nothing >>= \window ->
-		installSignalHandler window (DestroyHandler quit)
+		installSignalHandler window (DestroyHandler quit) >>|
+		newPaned Horizontal WideHandle >>= \paned ->
+		addToContainer paned window >>|
+		newTextView >>= \text_view_a ->
+		newTextView >>= \text_view_b ->
+		packPane1 text_view_a paned Resize Shrink >>|
+		packPane2 text_view_b paned Resize Shrink >>|
+		insertAtCursor "Hello" (getTextBuffer text_view_a) >>|
+		insertAtCursor "world!" (getTextBuffer text_view_b)
-- 
cgit v1.2.3