(bind-func gui_find_parent (lambda (widget:Widget*) (Widget_find_preorder (GUI_root EXTEMPORE_GUI) (lambda (w) (Widget_parent_p widget w)))))