tool

Vocabulary

ui.tools.common

Definition

USING: ui.gadgets.tracks ;

IN: ui.tools.common

TUPLE: tool < track ;

Methods

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

M: tool layout*
    [ M\ tool layout* (call-next-method) ] [
        dup fullscreen?
        [ drop ] [ [ class-of ] [ dim>> ] bi set-tool-dim ] if
    ] bi ;


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

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