unqueue-graft ( gadget -- )
Factor handbook » UI framework » Implementing new gadgets » Implementing controls
Prev:ungraft ( gadget -- )


Vocabulary
ui.gadgets.private

Inputs
gadgeta gadget


Outputs
None

Word description
Removes the gadget from the graft-queue.

Definition
USING: accessors deques kernel sequences ;

IN: ui.gadgets.private

: unqueue-graft ( gadget -- )
[ graft-node>> graft-queue delete-node ]
[ [ first { t t } { f f } ? ] change-graft-state drop ] bi ;