[openfirmware] r1323 - in ofw: core gui
svn at openfirmware.info
svn at openfirmware.info
Tue Aug 25 00:57:53 CEST 2009
Author: wmb
Date: 2009-08-25 00:57:53 +0200 (Tue, 25 Aug 2009)
New Revision: 1323
Modified:
ofw/core/muxdev.fth
ofw/gui/ofpong.fth
Log:
Via - install-alarm before games so sound eventually stops.
Modified: ofw/core/muxdev.fth
===================================================================
--- ofw/core/muxdev.fth 2009-08-24 22:55:47 UTC (rev 1322)
+++ ofw/core/muxdev.fth 2009-08-24 22:57:53 UTC (rev 1323)
@@ -154,7 +154,8 @@
screen open-dev to screen-ih
screen-ih add-mux
- keyboard open-dev add-mux
+ keyboard open-dev to keyboard-ih
+ keyboard-ih add-mux
mux-ih set-stdin mux-ih set-stdout
Modified: ofw/gui/ofpong.fth
===================================================================
--- ofw/gui/ofpong.fth 2009-08-24 22:55:47 UTC (rev 1322)
+++ ofw/gui/ofpong.fth 2009-08-24 22:57:53 UTC (rev 1323)
@@ -269,10 +269,15 @@
[ifdef] olpc
\ This works with the FirmWorks pckbd driver. The key map below
\ is good for the OLPC keyboard.
+[ifdef] keyboard-ih
+alias pong-ih keyboard-ih
+[else]
+: pong-ih stdin @ ;
+[then]
+
: initkeys
." Shift, Hand, Esc, Square" cr
d# 3000 ms
- " stdin @ iselect ' get-scan 0 alarm iunselect" eval
false to key_left_up
false to key_left_down
false to key_right_up
@@ -281,11 +286,10 @@
false to key_off
;
: restorekeys
- " stdin @ iselect ' get-scan d# 10 alarm iunselect" eval
;
0 value e0-seen?
: scankeys
- begin " get-data?" stdin @ $call-method while ( scancode )
+ begin 0 " get-scancode" pong-ih $call-method while ( scancode )
dup h# e0 = if
drop true to e0-seen?
else
More information about the openfirmware
mailing list