win32 ui fix for resizing windows

diff --git a/library/ui/windows/ui.factor b/library/ui/windows/ui.factor
index 22295c6965eab9916673bbf84df437616c2850ca..e62efcd7b11c730e9fd6191d4963133be8761b2f 100644 (file)
--- a/library/ui/windows/ui.factor
+++ b/library/ui/windows/ui.factor
@@ -34,7 +34,8 @@ SYMBOL: class-name
 : handle-wm-paint ( hWnd uMsg wParam lParam -- )
     #! wParam and lParam are unused
     #! only paint if width/height both > 0
-    3drop window dup rect-dim first2 [ 0 > ] 2apply and [ draw-world ] when ;
+    3drop window dup rect-dim first2 [ 0 > ] 2apply and
+    [ draw-world ] [ drop ] if ;
 
 : handle-wm-size ( hWnd uMsg wParam lParam -- )
     [ lo-word ] keep hi-word make-RECT get-RECT-dimensions 2array