hide-status ( gadget -- )
Factor handbook » UI framework » Building user interfaces » Status bars and mouse-over help

Prev:

show-status ( string/f gadget -- )

Vocabulary
ui.gadgets.worlds

Inputs

gadget

a gadget

Outputs
None

Word description
Hides the status message in the gadget's world.

Notes
The gadget passed in must be the gadget passed to show-status, otherwise the word does nothing. This ensures that one gadget does not hide another gadget's status message.

See also
<status-bar>, show-mouse-help, show-status, show-summary

Definition

USING: accessors kernel models ;

IN: ui.gadgets.worlds

: hide-status ( gadget -- )
    dup find-world dup [
        [ status-owner>> eq? ] keep [ [ f ] ] dip
        [ [ status-owner<< ] [ status>> set-model ] 2bi ] curry
        compose when
    ] [ 2drop ] if ;