/* Font-Example v1.0, for Wordworth v5 by Ryan Morse © 1996.
$VER: Font-Example_Macro v1.0 (23/02/96)

This macro is part of the TypePlus (© Ryan Morse) Wordworth ARexx enhancement set.

INSTRUCTIONS: This macro will example the currently selected font on the pop-up gadget. */

/* Return results to obtain font details */
OPTIONS RESULTS

/* Notify user */
REQUESTRESPONSE 'This macro will example the selected font on the pop-up gadget.'
/* If user cancels requester then stop macro */
IF RC>0 THEN DO
	REQUESTNOTIFY 'AREXX MACRO CANCELLED.'
	EXIT
	END

/* GET FONT ON POP-UP GADGET */
/* It is necessary to insert text to physically select the font on the pop-up gadget. If you do not, then this macro will use the font on the pop-up gadget, but will type the name and size of the default font or the font on the preceding line. */
/* Insert text to physically select current font */
TEXT ' '
/* Delete text now that font is physically selected */
BACKSPACE
/* Get name of font */
GETFONT
/* Create variable for font name */
FontName = RESULT
/* Get size of font */
GETFONTSIZE
/* Create variable for font size */
FontSize = RESULT

/* EXAMPLE CURRENT FONT */
/* Set font */
FONT NAME FontName SIZE FontSize
/* Set tab to display alphabet and numbers */
SETTAB LEFT 3.0
/* Display font */
/* You can change this text to output any sample text you like or introduce a Wizard requester to input different text each time. I will write this in Font_Example_2.Rexx. */
TEXT Fontname Fontsize || 'pt	Aa Bb Cc Dd Ee Ff Gg 1 2 3 4 5 6 7 8 9 0'
/* Insert new line */
NEWPARAGRAPH