(bind-func Widget_swap_split_orientation
(lambda (widget)
(if (Widget_leaf_p widget)
(println "gui_flip_widgets: cannot flip leaf widgets")
(begin
(Widget_set_type widget (^ (Widget_type widget) GUI_SPLIT_VERTICAL))
void))))