Patch sketch code for Masterscope errors (#433)

Author: masinter

library/SKETCHEDIT

@@ -1,11 +1,9 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "14-Mar-2021 20:37:50" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;2
 108832 
+
(FILECREATED "21-Aug-2021 20:50:04" {DSK}<home>larry>medley>library>SKETCHEDIT.;2
 108762 
 
-      changes to%:  (VARS SKETCHEDITCOMS)
+      changes to%:  (FNS SHOW.FEEDBACK.BOX)
 
-      previous date%: "12-Jun-90 14:48:37" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;1)
+      previous date%: "14-Mar-2021 20:37:50" {DSK}<home>larry>medley>library>SKETCHEDIT.;1)
 
 
 (* ; "
@@ -379,21 +377,21 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
            NIL NIL 'INPUT 'INVERT])
 
 (SHOW.FEEDBACK.BOX

-  [LAMBDA (P1 P2 WINDOW)
                                     (* rrb "30-APR-83 16:23")

+  [LAMBDA (P1 P2 WINDOW)
                               (* ; "Edited 21-Aug-2021 19:08 by larry")

                                                              (* draws a box between two points.)

-    (PROG ((X1 (fetch
 (POSITION XCOORD) of
 SELECTION P1))
-           (Y1 (fetch
 (POSITION YCOORD) of
 SELECTION P1))
-           (X2 (fetch
 (POSITION XCOORD) of
 SELECTION P2))
-           (Y2 (fetch
 (POSITION YCOORD) of
 SELECTION P2)))
+    (PROG ((X1 (fetch
 (POSITION XCOORD) of
 P1))
+           (Y1 (fetch
 (POSITION YCOORD) of
 P1))
+           (X2 (fetch
 (POSITION XCOORD) of
 P2))
+           (Y2 (fetch
 (POSITION YCOORD) of
 P2)))
           (BITBLT NIL NIL NIL WINDOW (IMIN X1 X2)
                  (IMIN Y1 Y2)
                  (ABS (IDIFFERENCE X1 X2))
                  (ABS (IDIFFERENCE Y1 Y2))
                  'TEXTURE
                  'INVERT NEW.TEXT.FEEDBACK.SHADE)            (* put cursor where the center would 
-
                                                             be.)

+
                                                           be.)

           (SHOW.FEEDBACK
 NEW.TEXT.FEEDBACK.CURSOR (IQUOTIENT (IPLUS X1 X2)
-                                                         2)
+                                                             2)
                  (IQUOTIENT (IPLUS Y1 Y2)
                         2)
                  WINDOW])
@@ -1919,7 +1917,7 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
     (WINDOWPROP SKW 'INPUTLINE NIL])
 )
 
-                                                             (* Was MODERNIZE loaded before?)

+                                                             (* Was MODERNIZE loaded before?)

 
 (CL:WHEN (GETD 'MODERNWINDOW.SETUP)
     (MODERNWINDOW.SETUP 'WB.BUTTON.HANDLER))
@@ -1957,26 +1955,26 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
 )
 (PUTPROPS SKETCHEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1990 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2534 39670 (BUTLAST 2544 . 2892) (CHAR.BEGIN 2894 . 4819) (CLOSEST.CHAR 4821 . 9044) (
-CLOSEST.LINE 9046 . 9608) (FLASHW 9610 . 9767) (HILITE.LINE 9769 . 10588) (HILITE.TEXT 10590 . 12238) 
-(IN.TEXT.EXTEND 12240 . 15513) (INIMAGEOBJ 15515 . 16020) (INTEXT 16022 . 16519) (NEW.TEXT.EXTEND 
-16521 . 18740) (NEW.TEXT.SELECTIONP 18742 . 18922) (NTHCHARWIDTH 18924 . 19181) (NTHLOCALREGION 19183
- . 19421) (ONCHAR 19423 . 19818) (SHOW.EXTENDED.SELECTION.FEEDBACK 19820 . 20755) (SHOW.FEEDBACK 20757
- . 21247) (SHOW.FEEDBACK.BOX 21249 . 22331) (SELECTION.POSITION 22333 . 23125) (SKED.CLEAR.SELECTION 
-23127 . 23650) (SKETCH.CLEANUP 23652 . 25566) (SK.ENTER.EDIT.CHANGE 25568 . 27113) (
-SKED.REMOVE.OTHER.SELECTIONS 27115 . 27542) (SKED.EXTEND.SELECTION 27544 . 29009) (SKED.MOVE.SELECTION
- 29011 . 34172) (CREATE.TEXT.SELECTION 34174 . 34690) (SKED.SELECTION.FEEDBACK 34692 . 36348) (
-SKED.SET.EXTENDSELECTION 36350 . 36667) (SKED.SET.SELECTION 36669 . 37069) (LINE.BEGIN 37071 . 37625) 
-(SELECTION.GREATERP 37627 . 38422) (SK.WORD.BREAK.CLASS 38424 . 39264) (SK.GETSYNTAX 39266 . 39668)) (
-40512 86246 (WB.EDITOR 40522 . 41847) (SK.TTYENTRYFN 41849 . 42127) (SK.TTYEXITFN 42129 . 42398) (
-SKED.INSERT 42400 . 42828) (\SKED.INSERT 42830 . 63952) (FIRST.N.ELEMENTS 63954 . 64221) (
-SKED.CREATE.NEW.TEXTBOX 64223 . 70752) (SKED.CHARACTERPOSITION 70754 . 71541) (SKED.LINE.AND.CHAR# 
-71543 . 73174) (\SKED.DELETE.WORD.FROM.STRING 73176 . 74215) (\SKED.INSERT.CHARS.TO.STR 74217 . 82628)
- (JOINCHARS 82630 . 83017) (STRINGFROMCHARACTERS 83019 . 83344) (GETALLCHARS 83346 . 83687) (
-CLEANUP.EDIT 83689 . 84141) (SKED.NEW.TEXTELT 84143 . 86244)) (86281 107289 (
-MAP.SCREEN.POSITION.ONTO.GRID 86291 . 87740) (NEAREST.ON.GRID 87742 . 88286) (SK.MIDDLE.TITLEFN 88288
- . 90231) (WB.BUTTON.HANDLER 90233 . 98055) (WB.ADD.NEW.POINT 98057 . 101386) (WB.DRAWLINE 101388 . 
-105622) (WB.RUBBERBAND.POSITION 105624 . 106541) (SK.RUBBERBAND.FEEDBACKFN 106543 . 107047) (
-RESET.LINE.BEING.INPUT 107049 . 107287)) (107471 108712 (NEAREST.EXISTING.POSITION 107481 . 107683) (
-WB.NEARPT 107685 . 108570) (LASTMOUSEPOSITION 108572 . 108710)))))
+  (FILEMAP (NIL (2492 39600 (BUTLAST 2502 . 2850) (CHAR.BEGIN 2852 . 4777) (CLOSEST.CHAR 4779 . 9002) (
+CLOSEST.LINE 9004 . 9566) (FLASHW 9568 . 9725) (HILITE.LINE 9727 . 10546) (HILITE.TEXT 10548 . 12196) 
+(IN.TEXT.EXTEND 12198 . 15471) (INIMAGEOBJ 15473 . 15978) (INTEXT 15980 . 16477) (NEW.TEXT.EXTEND 
+16479 . 18698) (NEW.TEXT.SELECTIONP 18700 . 18880) (NTHCHARWIDTH 18882 . 19139) (NTHLOCALREGION 19141
+ . 19379) (ONCHAR 19381 . 19776) (SHOW.EXTENDED.SELECTION.FEEDBACK 19778 . 20713) (SHOW.FEEDBACK 20715
+ . 21205) (SHOW.FEEDBACK.BOX 21207 . 22261) (SELECTION.POSITION 22263 . 23055) (SKED.CLEAR.SELECTION 
+23057 . 23580) (SKETCH.CLEANUP 23582 . 25496) (SK.ENTER.EDIT.CHANGE 25498 . 27043) (
+SKED.REMOVE.OTHER.SELECTIONS 27045 . 27472) (SKED.EXTEND.SELECTION 27474 . 28939) (SKED.MOVE.SELECTION
+ 28941 . 34102) (CREATE.TEXT.SELECTION 34104 . 34620) (SKED.SELECTION.FEEDBACK 34622 . 36278) (
+SKED.SET.EXTENDSELECTION 36280 . 36597) (SKED.SET.SELECTION 36599 . 36999) (LINE.BEGIN 37001 . 37555) 
+(SELECTION.GREATERP 37557 . 38352) (SK.WORD.BREAK.CLASS 38354 . 39194) (SK.GETSYNTAX 39196 . 39598)) (
+40442 86176 (WB.EDITOR 40452 . 41777) (SK.TTYENTRYFN 41779 . 42057) (SK.TTYEXITFN 42059 . 42328) (
+SKED.INSERT 42330 . 42758) (\SKED.INSERT 42760 . 63882) (FIRST.N.ELEMENTS 63884 . 64151) (
+SKED.CREATE.NEW.TEXTBOX 64153 . 70682) (SKED.CHARACTERPOSITION 70684 . 71471) (SKED.LINE.AND.CHAR# 
+71473 . 73104) (\SKED.DELETE.WORD.FROM.STRING 73106 . 74145) (\SKED.INSERT.CHARS.TO.STR 74147 . 82558)
+ (JOINCHARS 82560 . 82947) (STRINGFROMCHARACTERS 82949 . 83274) (GETALLCHARS 83276 . 83617) (
+CLEANUP.EDIT 83619 . 84071) (SKED.NEW.TEXTELT 84073 . 86174)) (86211 107219 (
+MAP.SCREEN.POSITION.ONTO.GRID 86221 . 87670) (NEAREST.ON.GRID 87672 . 88216) (SK.MIDDLE.TITLEFN 88218
+ . 90161) (WB.BUTTON.HANDLER 90163 . 97985) (WB.ADD.NEW.POINT 97987 . 101316) (WB.DRAWLINE 101318 . 
+105552) (WB.RUBBERBAND.POSITION 105554 . 106471) (SK.RUBBERBAND.FEEDBACKFN 106473 . 106977) (
+RESET.LINE.BEING.INPUT 106979 . 107217)) (107401 108642 (NEAREST.EXISTING.POSITION 107411 . 107613) (
+WB.NEARPT 107615 . 108500) (LASTMOUSEPOSITION 108502 . 108640)))))
 STOP