(bind-func gui_leave_p (let ((prev 0) (curr 0)) (lambda (bounds:Rect*) (set! curr (gui_inbounds_p bounds)) (if (and prev (not curr)) (begin (set! prev curr) 1) (begin (set! prev curr) 0)))))