XEROX MAGNIFYW 2 4 1 MAGNIFYW 1 4 By: Christopher Lane (LANE@SUMEX-AIM.ARPA) MAGNIFYW is a software magnifying glass for examining the Interlisp-D screen. The program magnifies the bits underneath the cursor, similar to looking at a bitmap in EDITBM. However, MAGNIFYW is more dynamic as the cursor can be moved around at will to examine any part of the bitmap. (MAGNIFYW WINDOW) [Function] Changes window's cursor functions so that when the mouse enters the window, the cursor will change to the magnification cursor and the bits underneath the cursor will be echoed 8 times larger in the magnification window. The cursor is restored to normal when the window is exited. The magnification window is created on the initial call to MAGNIFYW. Shrinking the magnification window will turn off magnification until it is expanded again. MAGNIFYW changes the CURSORMOVEDFN, CURSOROUTFN, CURSORINFN, and the CLOSEFN of the window. (UNMAGNIFYW WINDOW) [Function] Changes these window properties to NIL, turning off magnification of the window. (MAGNIFYSCREEN WINDOW) [Function] Changes the cursor to the magnification cursor and will magnify the entire screen to the magnification window until a mouse button is pressed. (LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))((1 (8(8D PAGEHEADING RUNNINGHEADMODERN MODERN MODERN MODERNMODERN LOGO  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ,"  ^  V :z