: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)
("cursors" create-cursors)
("dialog" create-dialog)
("entry" create-entry)
- ("enxpander" create-expander)
+ ("expander" create-expander)
("file chooser" create-file-chooser)
("font selection" create-font-selection)
("handle box" create-handle-box)