"This script is designed to be run from the Script menu"

[ :params | 
    socket := params objectForKey:'Socket'.
    textbox := socket chatClient chatTextInput.
    contents := textbox string.
    selectedChatterName := socket chatClient chatterMatrix selectedCell title.
    newString := selectedChatterName ++ ', if you have a ' ++ contents ++
                 ' question, just ask it.  No PMs please.'.
    textbox setString:newString.
    0
]