cocoa-input-text ( str -- str/f )

Vocabulary

ui.backend.cocoa.views

Inputs

str

an object

Outputs

str/f

an object

Definition

USING: ascii kernel sequences ;

IN: ui.backend.cocoa.views

: cocoa-input-text ( str -- str/f )
    dup empty? [
        [ [ control? not ] [ "\t\n\r" member? ] bi or ] filter
        dup empty? [ drop f ] when
    ] unless ;