On Windows, white renders as 253 253 253 ??

db4
U-SLAVA-DFB8FF805\Slava 2008-11-18 15:45:20 -06:00
parent 62f1e88253
commit 565cd8913b
1 changed files with 5 additions and 1 deletions

6
extra/ui/render/test/test.factor Normal file → Executable file
View File

@ -22,8 +22,12 @@ TUPLE: ui-render-test < pack { first-time? initial: t } ;
: message-window ( text -- )
<label> "Message" open-window ;
: twiddle ( bytes -- bytes )
#! On Windows, white is { 253 253 253 } ?
[ dup 253 = [ 2 + ] when ] map ;
: check-rendering ( gadget -- )
gl-screenshot
gl-screenshot twiddle
"resource:extra/ui/render/test/reference.bmp" load-bitmap array>>
= "perfect" "needs work" ? "Your UI rendering is " prepend
message-window ;