From 4299cd382b10947a8a79e586f95d38823aaa9597 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Fri, 19 Dec 2014 20:42:38 +0100
Subject: initial commit

---
 test1.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 test1.hs

(limited to 'test1.hs')

diff --git a/test1.hs b/test1.hs
new file mode 100644
index 0000000..43f3098
--- /dev/null
+++ b/test1.hs
@@ -0,0 +1,14 @@
+import Data.Default
+import Graphics.Vty
+
+
+main = do
+      vty <- mkVty def
+      let line0 = string (def withForeColor $ ISOColor 3) "first line"
+          line1 = string (def withBackColor blue) "second line"
+          img = line0 <-> line1
+          pic = picForImage img
+      update vty pic
+      e <- nextEvent vty
+      shutdown vty
+      print $ "Last event was: " ++ show e
-- 
cgit v1.2.3