button-pen
Factor handbook » UI framework » Building user interfaces » Pre-made UI gadgets » Button gadgets

Prev:

<toolbar> ( target -- toolbar )

Vocabulary
ui.gadgets.buttons

Class description
A class implementing the draw-boundary and draw-interior generic words by delegating to an object in one of four slots which depend on the state of the button being drawn:

•	plain - the button is inactive
•	rollover - the button is under the mouse
•	pressed - the button is under the mouse and a mouse button is held down
•	selected - the button is selected (see checkbox)
•	pressed-selected - the button is selected and a mouse button is being held down (see checkbox)

The <roll-button> and <border-button> words create button instances with specific button-pens.

Definition

IN: ui.gadgets.buttons

TUPLE: button-pen
    plain rollover pressed selected pressed-selected ;

Methods

USING: kernel ui.gadgets.buttons ui.pens ;

M: button-pen draw-boundary
    lookup-button-pen [ draw-boundary ] [ drop ] if* ;


USING: kernel ui.gadgets.buttons ui.pens ;

M: button-pen draw-interior
    lookup-button-pen [ draw-interior ] [ drop ] if* ;


USING: ui.gadgets.buttons ui.pens ;

M: button-pen pen-background lookup-button-pen pen-background ;


USING: ui.gadgets.buttons ui.pens ;

M: button-pen pen-foreground lookup-button-pen pen-foreground ;


USING: accessors combinators combinators.smart math.vectors
ui.gadgets.buttons ui.pens ;

M: button-pen pen-pref-dim
    [
        {
            [ plain>> pen-pref-dim ]
            [ rollover>> pen-pref-dim ]
            [ pressed>> pen-pref-dim ]
            [ selected>> pen-pref-dim ]
        } 2cleave
    ] [ vmax ] reduce-outputs ;