if-mouse-row ( table true: ( mouse-index table -- ) false: ( table -- ) -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table	an object
true	a quotation with stack effect ( mouse-index table -- )
false	a quotation with stack effect ( table -- )

Outputs

None

Definition

USING: kernel ui.gadgets.line-support ;

IN: ui.gadgets.tables.private

: if-mouse-row
    ( table true: ( mouse-index table -- ) false: ( table -- ) -- )
    [ [ mouse-row ] keep 2dup valid-line? ] [ ]
    [ [ [ nip ] ] dip compose ] tri* if ; inline