UI fixes

library/cocoa/application-utils.factor

@@ -23,7 +23,11 @@ objc-NSObject objc-NSView threads ;
     [nextEventMatchingMask:untilDate:inMode:dequeue:] ;
 
 : do-events ( app -- )
-    dup next-event [ dupd [sendEvent:] do-events ] [ drop ] if* ;
+    dup next-event [
+        dupd [ [sendEvent:] ] with-autorelease-pool do-events
+    ] [
+        drop
+    ] if* ;
 
 : event-loop ( -- )
     [

library/opengl/opengl-utils.factor

@@ -51,11 +51,6 @@ sequences ;
     #! Draw a polygon.
     GL_LINE_LOOP (gl-poly) ;
 
-: gl-set-clip ( loc dim -- )
-    dup first2 1+ >r >r
-    over second swap second + ( height get ) 600 swap - >r
-    first r> r> r> glScissor ;
-
 : prepare-gradient ( direction dim -- v1 v2 )
     tuck v* [ v- ] keep ;
 

library/ui/listener.factor

@@ -79,5 +79,5 @@ M: label set-message ( string/f status -- )
 
 : listener-application ( -- )
     <listener> set-application
-    ! [ clear listener-thread ] in-thread
+    [ clear listener-thread ] in-thread
     pane get request-focus ;

library/ui/paint.factor

@@ -27,6 +27,11 @@ DEFER: draw-gadget
         draw-gadget*
     ] keep vneg gl-translate ;
 
+: gl-set-clip ( loc dim -- )
+    dup first2 1+ >r >r
+    over second swap second + world get rect-dim second
+    swap - >r first r> r> r> glScissor ;
+
 : do-clip ( gadget -- )
     >absolute clip [ rect-intersect dup ] change
     dup rect-loc swap rect-dim gl-set-clip ;