Fix ui.render.test

extra/ui/render/test/test.factor

@@ -17,8 +17,6 @@ M: line-test draw-interior
         line-test >>interior
         { 1 10 } >>dim ;
 
-TUPLE: ui-render-test < pack { first-time? initial: t } ;
-
 : message-window ( text -- )
     <label> "Message" open-window ;
 
@@ -26,24 +24,30 @@ TUPLE: ui-render-test < pack { first-time? initial: t } ;
     #! On Windows, white is { 253 253 253 } ?
     [ dup 253 = [ 2 + ] when ] map ;
 
-: check-rendering ( gadget -- )
+SYMBOL: render-output
-    gl-screenshot twiddle
-    "resource:extra/ui/render/test/reference.bmp" load-bitmap array>>
-    = "perfect" "needs work" ? "Your UI rendering is " prepend
-    message-window ;
 
-M: ui-render-test draw-gadget*
+: check-rendering ( gadget -- )
-    [ call-next-method ] [
+    screenshot [ twiddle ] change-array
-        dup first-time?>> [
+    [ render-output set-global ]
-            dup check-rendering
+    [
-            f >>first-time?
+        "resource:extra/ui/render/test/reference.bmp" load-bitmap
-        ] when
+        [ array>> ] bi@ = "perfect" "needs work" ?
-        drop
+        "Your UI rendering is " prepend
+        message-window
     ] bi ;
 
+TUPLE: take-screenshot { first-time? initial: t } ;
+
+M: take-screenshot draw-boundary
+    dup first-time?>> [
+        over check-rendering
+        f >>first-time?
+    ] when
+    2drop ;
+
 : <ui-render-test> ( -- gadget )
-    \ ui-render-test new-gadget
+    <shelf>
-        { 1 0 } >>orientation
+        take-screenshot new >>boundary
         <gadget>
             black <solid> >>interior
             { 98 98 } >>dim