(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))))