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������������������������������(�Š�Š8������������������������������������TERMINAL�
����������MODERN�
���������MODERN�
����������MODERN�����������LOGO�����������MODERN����������MODERN�
����������MODERN�
���������������������������������������������HRULE.GETFN��MODERN�
��������������������������HRULE.GETFN��MODERN�
��������������������������HRULE.GETFN��MODERN�
���������������������������������������HRULE.GETFN��MODERN��������������������������HRULE.GETFN��MODERN���������������������������������������������������������������&�����������������������������������������������������������������
������������������������������������������������������������������¥������������������������������������������������������������������¦��������������������������.�������������$�������������/�������������+�������������/�������������5�������������(�������������/�������������x������������A������Æ�Rzº