XEROX ACTIVEREGIONS2 2 4 1 ACTIVEREGIONS2 1 4 By: Mitchell L Model 473 Edgell Road Framingham, MA 01701 This package is an extension of the ACTIVEREGIONS package, with some bug fixes and extensions. Only the differences from the original are documented here. 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 ACTIVEREGIONS2.DCOM ACTIVEREGIONS.DCOM FIXES SETACTIVEREGIONS A null Regionlist does not turn off activeregions. Current BUTTONEVENTFN is saved as OLDBUTTONEVENTFN window property. Default DOWNFN and UPFN added. Set window pickregion to NIL, in case window used to be an activeregion window with something picked. EXTENSIONS (UNSETACTIVEREGIONS WIN) [Function] New function: turns off activeregions for WIN and restores old BUTTONEVENTFN. (ADDACTIVEREGIONS Window Activeregions) [Function] New function: plural of ADDACTIVEREGION; uses APPEND to add Activeregions to the active region list of Window. SETPICKREGION DOWNFN can be specified as a WINDOWPROP for all regions that don't have DOWNFNs (normally as an argument to SETACTIVEREGIONS). ACTIVEREGIONS/BUTTONEVENTFN Left button selects, as before, but middle button invokes the window's MIDDLEBUTTONEVENTFN. UPFN can be specified as a WINDOWPROP for all regions that don't have UPFNs (normally as an argument to SETACTIVEREGIONS). (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 42 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 42 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 42 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))( ( 4HD PAGEHEADING RUNNINGHEAD(8(8MODERN MODERN MODERN MODERNLOGOMODERN MODERN MODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN HDf No$Zz