yield during mouse-moved events in cocoa so gadgets have a chance to redraw
parent
585ea8da54
commit
045635cdf2
|
@ -9,7 +9,7 @@ threads combinators math.rectangles ;
|
||||||
IN: ui.backend.cocoa.views
|
IN: ui.backend.cocoa.views
|
||||||
|
|
||||||
: send-mouse-moved ( view event -- )
|
: send-mouse-moved ( view event -- )
|
||||||
[ mouse-location ] [ drop window ] 2bi move-hand fire-motion ;
|
[ mouse-location ] [ drop window ] 2bi move-hand fire-motion yield ;
|
||||||
|
|
||||||
: button ( event -- n )
|
: button ( event -- n )
|
||||||
#! Cocoa -> Factor UI button mapping
|
#! Cocoa -> Factor UI button mapping
|
||||||
|
|
Loading…
Reference in New Issue