TextEditTarget "command-text" { () /Right { userdict Ref cvn ItemValue put } } { NotifyUser }