Paste: want to do this

Author: Erich Ocean
Mode: factor
Date: Sun, 22 May 2011 03:40:25
Plain Text | 
:: 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

New Annotation

Summary:
Author:
Mode:
Body: