Terminal and MINOS2 side-by-side event loop

parent c84708fb
Pipeline #1263 canceled with stage
......@@ -241,7 +241,9 @@ also opengl also also [IFDEF] android previous android also jni [THEN]
1config >fullscreen !pres-widgets widgets-loop
>normalscreen ;
: >presentation-key ( -- ) 1 level# +!
1config >fullscreen !pres-widgets enter-minos top-widget .widget-draw
1config >fullscreen !pres-widgets enter-minos
edit-terminal edit-out !
top-widget .widget-draw
['] looper-keyior is key-ior
[: looper-keys $@len 0> ;] is key? ;
......
......@@ -1687,7 +1687,11 @@ Variable looper-keys
: looper-keyior ( -- key-ior )
[: (key?) IF (key) looper-keys c$+! THEN ;] is looper-ekey
BEGIN widgets-looper widget-sync looper-keys $@len UNTIL
edit-widget edit-out !
BEGIN
widgets-looper widget-sync
looper-keys $@len UNTIL
edit-terminal edit-out !
['] noop is looper-ekey
looper-keys $@ drop c@
looper-keys 0 1 $del ;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment