Changeset 3460


Ignore:
Timestamp:
Nov 24, 2012, 4:50:25 AM (2 years ago)
Author:
quozl
Message:

OLPC XO-1 XO-1.5 XO-1.75 - fix missing SPI FLASH progress bar dots, using a design from Mitch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/gui.fth

    r3449 r3460  
    408408   dot-adr 0=  if  2drop exit  then                     ( offset size ) 
    409409   #dots swap */                                        ( dot# ) 
    410    dup last-dot# <>  if                                 ( dot# ) 
    411       dup to last-dot#                                  ( dot# ) 
    412       dot-adr swap                                      ( adr dot# ) 
    413       dot-spacing *  bar-x + bar-y                      ( adr x y ) 
    414       image-width image-height                          ( adr x y w h ) 
    415       " draw-transparent-rectangle" $call-screen        ( ) 
    416    else 
    417       drop 
    418    then 
     410   dup  last-dot#  ?do                                  ( dot# ) 
     411      dot-adr i 1+ dot-spacing *  bar-x + bar-y         ( dot# adr x y ) 
     412      image-width image-height                          ( dot# adr x y w h ) 
     413      " draw-transparent-rectangle" $call-screen        ( dot# ) 
     414   loop                                                 ( dot# ) 
     415   to last-dot# 
    419416; 
    420417 
Note: See TracChangeset for help on using the changeset viewer.