tool


Vocabulary
ui.tools.common

Definition
USING: ui.gadgets.tracks ;

IN: ui.tools.common

TUPLE: tool < track ;


Methods
USING: accessors assocs classes generic kernel namespaces
ui.gadgets ui.tools.common ;

M: tool layout*
[ M\ tool layout* (call-next-method) ]
[ [ dim>> ] [ class-of ] bi tool-dims get-global set-at ]
bi ;


USING: assocs classes combinators.short-circuit generic
namespaces ui.gadgets ui.tools.common ;

M: tool pref-dim*
{
[ class-of tool-dims get-global at ]
[ M\ tool pref-dim* (call-next-method) ]
} 1|| ;