Font Menu

[Chipp Walters]

The RevCentral newsletter has a nifty routine which is only 5 lines
long, though could be 3 if the user placed the "answerFont" stack in
the message path earlier.

http://www.altuit.com/webs/revCentral/Number7/default.htm

on mouseUp
  start using stack "answerFont"
  put answerFont() into tFont
  stop using stack "answerFont"
  if tFont is "" then exit to top
  answer tFont
end mouseUp

Of course, this isn't the same as a menu, instead it opens a dialog
box and let's the user choose a font. Plus, there's all the code in
the answerFont library stack ;-)

Anyway, it might be worth a look.

-Chipp