Changeset 3441


Ignore:
Timestamp:
Nov 17, 2012, 5:20:25 AM (17 months ago)
Author:
quozl
Message:

OLPC - use additional graphical indicators for different reflash operations, yellow dots for EC, and plus signs for touchscreen

Location:
cpu
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/build-fw.fth

    r3412 r3441  
    862862   update-ec-flash?  if 
    863863      ['] ?enough-power catch  ?dup  if  ( error ) 
    864         show-no-power 
    865         .error 
    866         ." Skipping EC reflash, not enough power" cr 
    867         d# 1000 ms 
     864        show-no-power 
     865        .error 
     866        ." Skipping EC reflash, not enough power" cr 
     867        d# 1000 ms 
    868868      else 
    869          jots  ['] jot to edi-progress 
    870         update-ec-flash 
     869         jots-ec  ['] jot to edi-progress 
     870        update-ec-flash 
    871871      then 
    872872   then 
     
    882882            d# 1000 ms 
    883883         else 
    884             jots  ['] jot to bsl-progress 
     884            jots-nn  ['] jot to bsl-progress 
    885885            update-nn-flash 
    886886         then 
  • cpu/x86/pc/olpc/gui.fth

    r3364 r3441  
    405405; 
    406406 
    407 : jots  ( -- )  \ bottom left corner, chip and progress dots 
    408    d# 25 d# 772 set-icon-xy " spi" show-icon 
    409    bar-x-last bar-y set-icon-xy " yellowdot" show-icon 
    410    read-dot 
    411    -1 to last-dot# 
    412    bar-x-last bar-x - #dots / to dot-spacing 
    413 ; 
    414  
    415407: jot  ( offset size -- ) 
    416408   dot-adr 0=  if  2drop exit  then                     ( offset size ) 
     
    426418   then 
    427419; 
     420 
     421: jots-init 
     422   d# 25 d# 772 set-icon-xy " spi" show-icon 
     423   -1 to last-dot# 
     424   bar-x-last bar-x - #dots / to dot-spacing 
     425; 
     426 
     427: jots-bracket  ( icon$ -- ) 
     428   d#  20 d# 800 set-icon-xy 2dup show-icon \ left and above 
     429   d#  20 d# 857 set-icon-xy 2dup show-icon \ left and below 
     430   d# 120 d# 857 set-icon-xy 2dup show-icon \ right and below 
     431   d# 120 d# 800 set-icon-xy      show-icon \ right and above 
     432; 
     433 
     434: jots-prep  ( -- ) 
     435   bar-x-last bar-y set-icon-xy " yellowdot" show-icon 
     436   read-dot 
     437; 
     438 
     439\ bottom left corner, chip and progress dots 
     440: jots     jots-init                             jots-prep  ; 
     441: jots-nn  jots-init       " plus" jots-bracket  jots-prep  ; 
     442: jots-ec  jots-init  " yellowdot" jots-bracket  jots-prep  ; 
    428443 
    4294440 [if] 
Note: See TracChangeset for help on using the changeset viewer.