Making printer fonts stay around

Dear Forth people,

Thanks to Rick some time ago, I have a printing means and a choose font means for the printer. If I don't choose the font, I get an undesired one. If I choose the font, I get what I want, but it goes away every time. Choosing always for slight printing is tiresome. Is there a way I can get my chosen font to stick automatically, continually? Thanks for your consideration.

PACKAGE PRINTING
PUBLIC
: PRFONT ( --- ) \ show window to choose font
  [OBJECTS FONT-PICKER MAKES FP OBJECTS]
  RICH-EDIT-HANDLE FP SELECT
IF RICH-EDIT-HANDLE WM+SETFONT
    FP 'FONT CreateFontIndirect 1 SendMessage DROP
THEN ;
END-PACKAGE

VARIABLE 'EX
PRINTING +ORDER
: EXEC(PRINT) \ ( XT --- )
    WINPRINT P-EXECUTE ;
: >>PRINT>> 'EX @ EXEC(PRINT) ;
PRINTING -ORDER

: <<PRINT-FILE>> ... TYPE stuff ... ;

: <PRINT-FILE> PRFONT <<PRINT-FILE>>

: PRINT-FILE ['] <PRINT-FILE> 'EX ! >>PRINT>> ;

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe sftalk" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/sftalk -- check them out!
Search the archives! Visit http://www.forth.com/search for details.
Received on Sat Aug 03 2002 - 09:24:06 PDT