From 565cd8913ba04ebec81b71c16761199b7e33aa11 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Tue, 18 Nov 2008 15:45:20 -0600
Subject: [PATCH] On Windows, white renders as 253 253 253 ??

---
 extra/ui/render/test/test.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 extra/ui/render/test/test.factor

diff --git a/extra/ui/render/test/test.factor b/extra/ui/render/test/test.factor
old mode 100644
new mode 100755
index 01b5b65bcf..bf7b7b4556
--- a/extra/ui/render/test/test.factor
+++ b/extra/ui/render/test/test.factor
@@ -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 ;