Author: quozl Date: Sat Nov 24 04:50:25 2012 New Revision: 3460 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3460
Log: OLPC XO-1 XO-1.5 XO-1.75 - fix missing SPI FLASH progress bar dots, using a design from Mitch
Modified: cpu/x86/pc/olpc/gui.fth
Modified: cpu/x86/pc/olpc/gui.fth ============================================================================== --- cpu/x86/pc/olpc/gui.fth Sat Nov 24 01:36:49 2012 (r3459) +++ cpu/x86/pc/olpc/gui.fth Sat Nov 24 04:50:25 2012 (r3460) @@ -407,15 +407,12 @@ : jot ( offset size -- ) dot-adr 0= if 2drop exit then ( offset size ) #dots swap */ ( dot# ) - dup last-dot# <> if ( dot# ) - dup to last-dot# ( dot# ) - dot-adr swap ( adr dot# ) - dot-spacing * bar-x + bar-y ( adr x y ) - image-width image-height ( adr x y w h ) - " draw-transparent-rectangle" $call-screen ( ) - else - drop - then + dup last-dot# ?do ( dot# ) + dot-adr i 1+ dot-spacing * bar-x + bar-y ( dot# adr x y ) + image-width image-height ( dot# adr x y w h ) + " draw-transparent-rectangle" $call-screen ( dot# ) + loop ( dot# ) + to last-dot# ;
: jots-init