test.icl

   1 module test
   2
   3 import Data.Func
   4 import qualified Data.Map as DM
   5 import iTasks
   6
   7 /*
   8 Start w = doTasksWithOptions
   9 //      (\a o->Ok o)
  10         (\a o->Ok {o & autoLayout=False})
  11         (parallel
  12                 [(Embedded, tab "tab1")
  13                 ,(Embedded, tab "tab2")
  14                 ]
  15                 [ OnAction (Action "New") (always (Embedded, tab "New tab"))
  16                 , OnAction (Action " ") (always (Embedded, tab "New tab"))
  17                 , OnAction (Action "Close") (never (Embedded, \_->treturn ()))
  18                 , OnAction (Action "Dis no icon") (never (Embedded, \_->treturn ()))
  19                 , OnAction (Action "+") (always (Embedded, \_->treturn ()))
  20                 ]
  21 //      <<@ ArrangeWithTabs True
  22         <<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
  23         ) w
  24
  25 tab title _ = tune (Title title)
  26         $   viewInformation [] title
  27         >>* [OnAction (Action "Close") (always (treturn ()))]
  28 */
  29
  30 import StdDebug, Text.GenPrint
  31 Start w = doTasks (onStartup t) w
  32
  33 null :: SDSSource () () ()
  34 null = nullShare
  35
  36 t = tcpconnect "localhost" 9999 (Just 500) null
  37 //t = tcpconnect "localhost" 9999 Nothing null
  38         { onConnect     = \cid host   r = trace_n (printToString ("onConnect: ", cid, host, r))
  39                 (Ok (), Nothing, [], False)
  40         , onData        = \    data l r = trace_n (printToString ("onData: ", data, l, r))
  41                 (Ok (), Nothing, [], False)
  42         , onShareChange = \         l r = trace_n (printToString ("onShareChange: ", l, r))
  43                 (Ok (), Nothing, [], False)
  44         , onDisconnect  = \         l r = trace_n (printToString ("onDisconnect: ", l, r))
  45                 (Ok (), Nothing)
  46         , onDestroy     = \         l   = trace_n (printToString ("onDestroy: ", l))
  47                 (Ok (), [])
  48         }