From 182eac71699784d3e2a44437452546a4b0c2d995 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 20 Oct 2019 13:37:33 +0200
Subject: Move position of GtkFrame label; add framed helper combinator

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

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

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index 5413dd5..d9f7a59 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -6,6 +6,8 @@ import StdMaybe
 import Control.Monad
 import Control.Monad.Identity
 import Control.Monad.State
+import Data.Functor
+import Data.Tuple
 import System._Pointer
 
 import qualified Gtk.Internal as I
@@ -52,9 +54,17 @@ instance gtkContainer GtkFrame where gtkContainer f = f
 newFrame :: !GtkLabel !w -> State GtkState GtkFrame | gtkWidget w
 newFrame label widget =
 	toStateR ('I'.gtk_frame_new (case label of Label l -> Just l; _ -> Nothing)) >>= \frame ->
+	(case label of
+		Label _ -> toState ('I'.gtk_frame_set_label_align frame 0.02 0.5)
+		NoLabel -> pure ()) >>|
 	addToContainer widget frame >>|
 	show frame
 
+framed :: !GtkLabel !(State GtkState w) -> State GtkState (w, GtkFrame) | gtkWidget w
+framed label widgetf =
+	widgetf >>= \widget ->
+	tuple widget <$> newFrame label widget
+
 :: GtkPaned :== Pointer
 
 instance gtkWidget GtkPaned where gtkWidget p = p
-- 
cgit v1.2.3