(bind-func gui_click_p (lambda (bounds:Rect* button) (and (gui_inbounds_p bounds) (= (glfwGetMouseButton (GUI_window EXTEMPORE_GUI) button) GLFW_PRESS))))