From 354322c0023e470b5b0830916fb7ae868ad8760d Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 20 Oct 2019 13:37:53 +0200
Subject: Add setMargins

---
 test/test.icl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'test')

diff --git a/test/test.icl b/test/test.icl
index 635f8ff..5341e9f 100644
--- a/test/test.icl
+++ b/test/test.icl
@@ -14,11 +14,14 @@ where
 	app =
 		newWindow "Hello!" Nothing >>= \window ->
 		installSignalHandler window (DestroyHandler quit) >>|
-		newPaned Horizontal WideHandle >>= \paned ->
-		addToContainer paned window >>|
+		framed (Label "label") (newPaned Horizontal WideHandle) >>= \(paned,frame) ->
+		setMargins (margin 8) frame >>|
+		addToContainer frame window >>|
 		newTextView >>= \text_view_a ->
 		newTextView >>= \text_view_b ->
-		packPane1 text_view_a paned Resize Shrink >>|
-		packPane2 text_view_b paned Resize Shrink >>|
+		setMargins (margin 3) text_view_a >>|
+		setMargins (margin 3) text_view_b >>|
+		packPane1 text_view_a paned Resize NoShrink >>|
+		packPane2 text_view_b paned Resize NoShrink >>|
 		insertAtCursor "Hello" (getTextBuffer text_view_a) >>|
 		insertAtCursor "world!" (getTextBuffer text_view_b)
-- 
cgit v1.2.3