get-font-from-user in Dialogs

• (get-font-from-user message parent init-font style) -> font% object or #f
   message = #f : string or #f
   parent = #f : frame% or dialog% object or #f
   init-font = #f : font% object or #f
   style = null : an empty list of symbols

  Lets the user select a font though the platform-specific (modal) dialog, using parent as the parent window if it is specified. The message string is displayed as a prompt in the dialog if possible. If init-font is provided, the dialog is initialized to the given font.

  The style argument is provided for future extensions. Currently, style must be the empty list.

  The result is #f if the user cancels the dialog, the selected font otherwise.