XEROX RESETMACROS 2 4 1 RESETMACROS 1 4 By: Mitchell L Model 473 Edgell Road Framingham, MA 01701 Variations on RESETSAVE and RESETFORM Notice and Acknowledgement: This package was developed while the author was an employee of Applied Expert Systems, Inc. (Apex), Cambridge, MA. The author thanks the company for its support and assumes full responsibility for the contents and maintenance of this package. SOFTWARE REQUIRED RESETMACROS.DCOM FUNCTIONS (RESETSAVE1 RESETX) [Function] RESETSAVE2 RESETSAVE3 Versions of RESETSAVE that work for functions with more than one argument, where the Nth argument specifies the new state (N being the number in the macro name). (RESETFORM1 RESETX EXPR ...) [Function] RESETFORM2 RESETFORM3 Versions of RESETFORM that work for functions with more than one argument, where the Nth argument specifies the new state (N being the number in the macro name). Typical uses: (RESETFORM1 (DSPFONT '(GACHA 10) WIN) (printout ....) . . . . ) (RESETFORM2 (SETSYNTAX '%' 'OTHER) (READ) ) (RESETFORM3 (WINDOWPROP WIN 'RESHAPEFN NILL) (SHAPEW WIN NEWREG) . . . . ) [The RESETFORM3 example shows how to prevent the normal (either user-defined or default) RESHAPEFN from being called.] WARNING: For all these RESET macros, the arguments to RESETX other than the one specifying the new state will be evaluated twice -- once when th state is changed and once when it is restored. his might cause problems if they have side effects or if interim activity causes them to evaluate differently the second time. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC ) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))(È (È DÈÈ PAGEHEADING RUNNINGHEAD(ŠŠ8(ŠŠ8TERMINAL MODERN MODERN MODERNLOGOMODERN MODERN MODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN &    ¥    ¦.$/+/5(/xAÆRzº