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