extended prompt-for-font

I would like to have a dialog that prompts for a string and a font --
basically capi:prompt-for-font but with an additional text entry pane.
 What's the best way to do that?

Gail