(bind-func gui_find_widget_with_id (lambda (id) (Widget_find_preorder (GUI_root EXTEMPORE_GUI) (lambda (w) (= (Widget_id w) id)))))