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 ;