:: create ( ns var value ary -- )
    ns [ value var ary [ add-property ] each-two set ] bind ;

App picker-view PickerView {

    layout { 100 100 10 50 }
    mouse-down [| evt | drop beep t ]

} create