(bind-func Widget_split_vertical_p (lambda (widget) (= (& GUI_SPLIT_VERTICAL (Widget_type widget)) GUI_SPLIT_VERTICAL)))