fill-in-type ( mouse-event bstate button -- )


Vocabulary
curses.private

Inputs
mouse-eventan object
bstatean object
buttonan object


Outputs
None

Definition
USING: accessors combinators curses kernel ;

IN: curses.private

: fill-in-type ( mouse-event bstate button -- )
substate-n {
{ BUTTON1_RELEASED [ +released+ ] }
{ BUTTON1_PRESSED [ +pressed+ ] }
{ BUTTON1_CLICKED [ +clicked+ ] }
{ BUTTON1_DOUBLE_CLICKED [ +double+ ] }
{ BUTTON1_TRIPLE_CLICKED [ +triple+ ] }
} case >>type drop ; inline