structs

[clean-tests.git] / test.icl

diff --git a/test.icl b/test.icl
index 3289a5f..609d79e 100644 (file)
--- a/test.icl
+++ b/test.icl
@@ -1,10 +1,25 @@
 module test
-
+import qualified Data.Map as DM
 import iTasks
-import System.File
-import System.Time
+import Data.Func
+import Data.Tuple
+import StdEnv
+
+Start w = doTasksWithOptions (\a o->Ok $ flip tuple {o & autoLayout=True} $
+       (parallel
+               [(Embedded, tab "tab1")
+               ,(Embedded, tab "tab2")
+               ]
+               [ OnAction (Action "New") (always (Embedded, tab "New tab"))
+               , OnAction (Action " ") (always (Embedded, tab "New tab"))
+               , OnAction (Action "Close") (never (Embedded, \_->treturn ()))
+               , OnAction (Action "Dis no icon") (never (Embedded, \_->treturn ()))
+               , OnAction (Action "+") (always (Embedded, tab "New tab"))
+               ]
+       <<@ ArrangeWithTabs True
+       <<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
+       )) w
 
-Start w
-       # (fi, w) = getFileInfo "/home/mrl/projects/clean/clean-tests/test.prj" w
-       # (ns, w) = nsTime w
-       = (fi, ns, w)
+tab title _ = tune (Title title)
+       $   viewInformation [] ()
+       >>* [OnAction (Action "Close") (always (treturn ()))]