Goofy font change question

[Richmond Mathewson]

Can anyone tell me why this is not working?

on menuPick PHONT
    switch PHONT
       set the unicodeText of fld "fff" to PHONT
    end switch
end menuPick

on mouseDown
    get the fontNames
    sort lines of it
    put it into btn "OM"
    set the label of me to "FONTS"
end mouseDown


Richmond.