initial commit

1 files changed, 46 insertions, 0 deletions

diff --git a/GtkHello.hs b/GtkHello.hs
new file mode 100644
index 0000000..9b29ba7
--- /dev/null
+++ b/GtkHello.hs
@@ -0,0 +1,46 @@
+{-# LANGUAGE OverloadedLabels  #-}
+{-# LANGUAGE OverloadedLists   #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Main where
+
+import qualified GI.Gtk                        as Gtk
+import           GI.Gtk.Declarative
+import           GI.Gtk.Declarative.App.Simple
+
+import qualified Data.Map as Map
+import qualified Data.Vector as V
+
+import LambdaCube.GL as LambdaCubeGL -- renderer
+import LambdaCube.GL.Mesh as LambdaCubeGL
+
+import Codec.Picture as Juicy
+
+import Data.Aeson
+import qualified Data.ByteString as SB
+
+type State = ()
+
+data Event = Closed
+
+view' :: State -> AppView Gtk.Window Event
+view' _ = bin
+    Gtk.Window
+    [ #title := "LambdaCube 3D DSL Hello World"
+    , on #deleteEvent $ {- GI.Gdk.Unions.Event.Event -> (Bool, Event) -} \_ -> (True,Closed)
+    ]
+    $ widget Gtk.Label [#label := "Hello, World!"]
+
+update' :: State -> Event -> Transition State Event
+update' _ Closed = Exit
+
+main :: IO ()
+main = do
+    Just pipelineDesc <- decodeStrict <$> SB.readFile "hello.json"
+
+    run App
+        -- :: App Gtk.Window State Event
+        { view         = view'
+        , update       = update'
+        , inputs       = []
+        , initialState = ()
+        }