r1323 - in ofw: core gui

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