r611 - dev/olpc/keyboard

Author: wmb
Date: 2007-09-18 01:32:59 +0200 (Tue, 18 Sep 2007)
New Revision: 611

Modified:
   dev/olpc/keyboard/selftest.fth
Log:
OLPC keyboard selftest - use "open/close" instead of iselect so the
selftest method is independent of the value of "stdin".

Modified: dev/olpc/keyboard/selftest.fth
===================================================================
--- dev/olpc/keyboard/selftest.fth	2007-09-17 23:30:12 UTC (rev 610)
+++ dev/olpc/keyboard/selftest.fth	2007-09-17 23:32:59 UTC (rev 611)
@@ -191,7 +191,7 @@
 : toss-keys  ( -- )  begin  key?  while  key drop  repeat  ;

: selftest  ( -- error? )
-   stdin @ iselect
+   open  0=  if  true exit  then
    make-keys
    cursor-off draw-keyboard
    toss-keys  " translation-off" $call-parent
@@ -200,6 +200,7 @@
    iunselect
    screen-ih iselect  erase-screen  iunselect
    page
+   close
    false
 ;