4 import qualified Data.Map as DM
8 Start w = doTasksWithOptions
10 (\a o->Ok {o & autoLayout=False})
12 [(Embedded, tab "tab1")
13 ,(Embedded, tab "tab2")
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 ()))
21 // <<@ ArrangeWithTabs True
22 <<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
25 tab title _ = tune (Title title)
26 $ viewInformation [] title
27 >>* [OnAction (Action "Close") (always (treturn ()))]
30 import StdDebug, Text.GenPrint
31 Start w = doTasks (onStartup t) w
33 null :: SDSSource () () ()
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))
46 , onDestroy = \ l = trace_n (printToString ("onDestroy: ", l))