From b9d0c16ae87d37f26f94d24933b8e9e72c93d50e Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kjetil.orbekk@gmail.com>
Date: Wed, 24 Feb 2016 03:52:12 +0100
Subject: Working curses example.

---
 app/Main.hs | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 9d74405..69afe0d 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,6 +1,22 @@
 module Main where
 
+import qualified UI.HSCurses.Curses as Curses
+import qualified UI.HSCurses.Widgets as W
+import qualified UI.HSCurses.CursesHelper as CursesH
+
 import Lib
 
+mkTextWidget :: String -> W.TextWidget
+mkTextWidget m = W.newTextWidget options m
+    where options = W.defaultTWOptions
+                    { W.twopt_size = W.TWSizeFixed (1, length m) }
+
 main :: IO ()
-main = undefined
+main = do
+  CursesH.start
+  let w = mkTextWidget "Hello, Curses!"
+  size <- Curses.scrSize
+  W.draw (0, 0) (1, 14) W.DHNormal w
+  Curses.refresh
+  Curses.getCh
+  CursesH.end
-- 
cgit v1.2.3