:tip-private "Toolbar/Horizontal"
:signal (list 'clicked
#'(lambda (toolbar)
- (setf (toolbar-orientation toolbar) :horizontal))
+ (setf (orientable-orientation toolbar) :horizontal))
:object :parent))
:child (make-instance 'tool-button
:tip-private "Toolbar/Vertical"
:signal (list 'clicked
#'(lambda (toolbar)
- (setf (toolbar-orientation toolbar) :vertical))
+ (setf (orientable-orientation toolbar) :vertical))
:object :parent))
:child (make-instance 'separator-tool-item)