valid-service? ( gadget send-type return-type -- ? )

Vocabulary

ui.backend.cocoa.views

Inputs

gadget	an object
send-type	an object
return-type	an object

Outputs

?

an object

Definition

USING: kernel ui.gadgets ;

IN: ui.backend.cocoa.views

: valid-service? ( gadget send-type return-type -- ? )
    2dup [ string-or-nil? ] [ string-or-nil? ] bi* and
    [ drop [ gadget-selection? ] [ drop t ] if ] [ 3drop f ] if
    ;