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 ;