[commit] r1899 - dev/olpc/keyboard

[repository service]

Author: wmb
Date: Mon Aug  2 07:43:02 2010
New Revision: 1899
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1899

Log:
OLPC trac 10262 - In keyboard selftest, distinguish between a key that has been pressed and one that is currently down.

Modified:
   dev/olpc/keyboard/selftest.fth

Modified: dev/olpc/keyboard/selftest.fth
==============================================================================
--- dev/olpc/keyboard/selftest.fth	Thu Jul 29 08:41:26 2010	(r1898)
+++ dev/olpc/keyboard/selftest.fth	Mon Aug  2 07:43:02 2010	(r1899)
@@ -489,7 +489,8 @@
 raw-scancode value cur-sc-table
 [then]

-h# 07ff constant pressed-key-color
+h# f81f constant down-key-color
+h# 07ff constant tested-key-color
 h# 001f constant idle-key-color
 h# ffff constant kbd-bc

@@ -511,8 +512,9 @@
       " fill-rectangle" $call-screen
    then
 ;
-: key-down  ( key# -- )  pressed-key-color draw-key  ;
-: key-up    ( key# -- )  idle-key-color    draw-key  ;
+: key-tested ( key# -- )  tested-key-color draw-key  ;
+: key-down   ( key# -- )  down-key-color   draw-key  ;
+: key-up     ( key# -- )  idle-key-color   draw-key  ;

: fill-screen  ( color -- )
    0 0 " dimensions" $call-screen " fill-rectangle" $call-screen
@@ -536,6 +538,7 @@
       else                                   ( scan key# )
          swap h# 80 and  if   \ Up           ( key# )
             final-test?  smt-test?  or  if   ( key# )
+               dup key-tested                ( key# )
                dup 0=  last-1 0= and  last-2 0=  and  if   ( key# )
                   drop true                  ( exit? )
                else                          ( key# )