19 lines
460 B
Standard ML
19 lines
460 B
Standard ML
|
structure UpdateThread =
|
||
|
|
struct
|
||
|
|
open CML
|
||
|
|
|
||
|
|
local
|
||
|
|
fun loop (inputMailbox, drawMailbox, model) =
|
||
|
|
let
|
||
|
|
val inputMsg = Mailbox.recv inputMailbox
|
||
|
|
val (model, drawMsg) = AppUpdate.update (model, inputMsg)
|
||
|
|
val _ = Mailbox.send (drawMailbox, drawMsg)
|
||
|
|
in
|
||
|
|
loop (inputMailbox, drawMailbox, model)
|
||
|
|
end
|
||
|
|
in
|
||
|
|
fun run (inputMailbox, drawMailbox, initial) =
|
||
|
|
loop (inputMailbox, drawMailbox, initial)
|
||
|
|
end
|
||
|
|
end
|