1 files changed, 14 insertions, 0 deletions
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