r660 - cpu/x86/pc/olpc

Author: wmb
Date: 2007-10-02 06:56:02 +0200 (Tue, 02 Oct 2007)
New Revision: 660

Modified:
   cpu/x86/pc/olpc/security.fth
Log:
OLPC pretty boot - enable text for x button and after-the-fact check button.

Modified: cpu/x86/pc/olpc/security.fth
===================================================================
--- cpu/x86/pc/olpc/security.fth	2007-10-02 04:39:49 UTC (rev 659)
+++ cpu/x86/pc/olpc/security.fth	2007-10-02 04:56:02 UTC (rev 660)
@@ -477,10 +477,13 @@
 0 0 2value base-xy
 d# 410 d# 540 2constant progress-xy

+: text-on  screen-ih stdout !  ;
+
 : ?unfreeze  ( -- )
    game-key@ button-check and  if
       dcon-unfreeze
       unfreeze
+      text-on
    then
 ;

@@ -757,7 +760,6 @@
    2drop false
 ;

-: text-on  screen-ih stdout !  ;
 : persistent-devkey?  ( -- flag )  " dk" find-tag  dup  if  nip nip  then  ;

: all-devices$  ( -- list$ )  " disk sd fastnand nand"  ;
@@ -774,7 +776,7 @@
    button-rotate game-key?  if  show-warnings  then
    show-child

-   button-check game-key?  if
+   button-check button-x or  game-key?  if
       unfreeze  text-on
    else
       freeze  dcon-freeze