(bind-func gui_find_next_id
(lambda ()
(let ((top_id -1))
(Widget_walk_preorder
(GUI_root EXTEMPORE_GUI)
(lambda (w)
(if (> (Widget_id w) top_id)
(set! top_id (Widget_id w)))
null))
top_id)))