diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-06-21 00:19:17 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-06-21 00:19:17 -0700 |
commit | c518212143598243cd803fb2656c111c521c3565 (patch) | |
tree | fef9ab0d20527d3b633242175d8b0d4f0a894c13 /078mouse.mu | |
parent | 18429d408e727f5cf1c96416cda614c124fd0ae7 (diff) | |
download | mu-c518212143598243cd803fb2656c111c521c3565.tar.gz |
1613 - edit: first event in event loop
No way to quit yet, though.
Diffstat (limited to '078mouse.mu')
-rw-r--r-- | 078mouse.mu | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/078mouse.mu b/078mouse.mu index 614b986f..c00dc9e9 100644 --- a/078mouse.mu +++ b/078mouse.mu @@ -31,13 +31,13 @@ recipe read-event [ done?:boolean <- greater-or-equal idx:address:number/deref, max:number break-unless done?:boolean dummy:address:event <- new event:type - reply dummy:address:event/deref, x:address:events/same-as-ingredient:0, 1:literal/found + reply dummy:address:event/deref, x:address:events/same-as-ingredient:0, 1:literal/found, 1:literal/quit } result:event <- index buf:address:array:event/deref, idx:address:number/deref idx:address:number/deref <- add idx:address:number/deref, 1:literal - reply result:event, x:address:events/same-as-ingredient:0, 1:literal/found + reply result:event, x:address:events/same-as-ingredient:0, 1:literal/found, 0:literal/quit } # real event source result:event, found?:boolean <- read-keyboard-or-mouse-event - reply result:event, x:address:events/same-as-ingredient:0, found?:boolean + reply result:event, x:address:events/same-as-ingredient:0, found?:boolean, 0:literal/quit ] |