steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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 -- ) : message-window ( text -- )
<label> "Message" open-window ; <label> "Message" open-window ;
: twiddle ( bytes -- bytes )
#! On Windows, white is { 253 253 253 } ?
[ dup 253 = [ 2 + ] when ] map ;
: check-rendering ( gadget -- ) : check-rendering ( gadget -- )
gl-screenshot gl-screenshot twiddle
"resource:extra/ui/render/test/reference.bmp" load-bitmap array>> "resource:extra/ui/render/test/reference.bmp" load-bitmap array>>
= "perfect" "needs work" ? "Your UI rendering is " prepend = "perfect" "needs work" ? "Your UI rendering is " prepend
message-window ; message-window ;