(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "21-Aug-2021 20:50:04" ("compiled on " {DSK}larry>medley>library>SKETCHEDIT.;2) "21-Aug-2021 19:02:44" brecompiled changes%: SHOW.FEEDBACK.BOX in "FULL 21-Aug-2021 ..." dated "21-Aug-2021 18:33:21") (FILECREATED "21-Aug-2021 20:50:04" {DSK}larry>medley>library>SKETCHEDIT.;2 108762 changes to%: (FNS SHOW.FEEDBACK.BOX) previous date%: "14-Mar-2021 20:37:50" {DSK}larry>medley>library>SKETCHEDIT.;1) BUTLAST :D8 (I 0 LST) @ddh@ (15 BUTLAST) NIL () CHAR.BEGIN :D8 (P 6 I P 4 LREGION P 3 LFONT P 2 XPOS P 1 TEXT P 0 LTEXT I 3 STRM I 2 TEXTELT I 1 LINE# I 0 CHAR#) BAHA YHA \Z@jH[JCg KC Ik@ C DK /@kjNM OIN K _Nk^O@LI (146 NCHARS 120 CHARWIDTH 114 CHCON1 109 NTHCHAR 87 FONTP 79 STRINGWIDTH 73 SUBSTRING 64 DSPFONT 55 IMAGESTREAMTYPEP 28 NTH 16 NTH) (50 HARDCOPY) () CLOSEST.CHAR :D8 (P 11 C P 10 CHAR# P 8 XMICAPOS P 7 LEFTMICAPOS P 6 FONT P 5 THISCHARWIDTH P 4 LEFT P 3 LFONT P 2 LREGION P 1 TEXT P 0 LTEXT I 3 STRM I 2 TEXTELT I 1 LINE# I 0 XPOS) XBQHA YH[HA Z\@j@LJI Cg KhddCg l#Ll#@I IkROdj k_Odj _OOl _Odj lD_Ok_O9OOOOO_OON ]_dOOk_MOOkOI hI k OO"LIOK ]\d@Ok_M@OkO(312 NTHCHARWIDTH 291 NCHARS 283 \ILLEGAL.ARG 243 CHARWIDTH 193 %%ARRAY-TYPE-NUMBER 175 \GETBASEFIXP 158 %%ARRAY-BASE 136 %%ARRAY-OFFSET 113 STRINGP 96 FONTCREATE 90 STREAMPROP 71 IMAGESTREAMTYPEP 59 NCHARS 34 NTH 16 NTH) (85 HARDCOPYIMAGETYPE 66 HARDCOPY) () CLOSEST.LINE :D8 (P 2 LREGION P 1 LINE# I 1 Y I 0 TEXTELT) &@kHIkAJIHIkԹNIL NIL () FLASHW :D8 (I 0 WIN) @ ` @ (21 INVERTW 15 DISMISS 5 INVERTW) (10 BELLRATE) () HILITE.LINE :D8 (P 0 LREGION I 4 WINDOW I 3 MAXLEFT I 2 MINLEFT I 1 LINE# I 0 TEXTELT) A@A hddDBHbHC HHBHgg` h(61 BKBITBLT 6 NTHLOCALREGION) (55 SELECTION.HIGHLIGHT.SHADE 50 INVERT 45 TEXTURE) () HILITE.TEXT :D8 (P 1 MAX P 0 MIN I 5 WINDOW I 4 EXTLINE# I 3 EXTLEFT I 2 SELLINE# I 1 SELLEFT I 0 TEXTELT) bBD! AddCCAC@BHIE hDB@BAhE hBkbb@DChE hDkABbbbb(75 HILITE.LINE 51 HILITE.LINE 33 HILITE.LINE) NIL () IN.TEXT.EXTEND :D8 (P 8 FEEDBACKCHAR P 7 FEEDBACKLINE P 6 FEEDBACKY P 5 FEEDBACKX P 4 DSP P 3 REGION P 2 INTEXT P 1 OLDX P 0 OLDLINE I 1 SKW I 0 SELECTION) @@@hA A E`lj3JIH@@A JHOIOkJ hA hKL ]L ^ A JN _MOJL _OJL IMHOwJIHMYOXA d(182 HILITE.TEXT 154 CHAR.BEGIN 143 CLOSEST.CHAR 130 CLOSEST.LINE 121 SKED.SELECTION.FEEDBACK 114 INSIDEP 108 LASTMOUSEY 101 LASTMOUSEX 92 SKED.SET.EXTENDSELECTION 80 LINE.BEGIN 63 HILITE.TEXT 32 GETMOUSESTATE 22 \INSUREWINDOW 16 DSPCLIPPINGREGION) (38 LASTMOUSEBUTTONS) () INIMAGEOBJ :D8 (I 2 Y I 1 X I 0 SKIMAGEOBJSCREENELT) @AB (12 INSIDEP) NIL () INTEXT :D8 (P 2 LREGION P 1 LINE# I 2 Y I 1 XORPT I 0 TEXTELT) %@kHhZAB IHIkԹ(23 INSIDEP) NIL () NEW.TEXT.EXTEND :D8 (P 5 OLDCUR P 4 OLDY P 3 OLDX P 2 EXTENDEDSEL P 1 FEEDBACKY P 0 FEEDBACKX I 1 SKW I 0 SELECTION) jp`l^j@N4A A KHLIJ@JA @H[I\ZA J @JA JA h(102 SKED.SET.EXTENDSELECTION 94 SHOW.FEEDBACK.BOX 81 \FZEROP 73 SHOW.FEEDBACK.BOX 59 SHOW.FEEDBACK.BOX 39 LASTMOUSEY 32 LASTMOUSEX 7 GETMOUSESTATE) (13 LASTMOUSEBUTTONS) () NEW.TEXT.SELECTIONP :D8 (I 0 SELECTION) @ (5 POSITIONP) NIL () NTHCHARWIDTH :D8 (I 2 FONT I 1 N I 0 STR) @A B (17 CHARWIDTH 11 CHCON1 6 NTHCHAR) NIL () NTHLOCALREGION :D8 (I 1 N I 0 TEXTELT) @A (10 NTH) NIL () ONCHAR :D8 (I 3 STRM I 2 TEXTELT I 1 LINE# I 0 XPOS) @ABCh (10 CLOSEST.CHAR) NIL () SHOW.EXTENDED.SELECTION.FEEDBACK :D8 (I 2 SKW I 1 EXTENDSEL I 0 SEL) )@dA@@@AAB (38 HILITE.TEXT 12 SHOULDNT) NIL () SHOW.FEEDBACK :D8 (I 3 WINDOW I 2 FEEDBACKY I 1 FEEDBACKX I 0 FEEDBACKCUR) #@jdCA@B@hdgg (32 BKBITBLT) (26 INVERT 21 INPUT) () SHOW.FEEDBACK.BOX :D8 (P 3 Y2 P 2 X2 P 1 Y1 P 0 X1 I 2 WINDOW I 1 P2 I 0 P1) \@@AAhddBHdJJIdKKHJ IK gg` `HJlIKlB h(88 SHOW.FEEDBACK 65 BKBITBLT 44 ABS 36 ABS) (70 NEW.TEXT.FEEDBACK.CURSOR 59 NEW.TEXT.FEEDBACK.SHADE 54 INVERT 49 TEXTURE) () SELECTION.POSITION :D8 (I 1 SECONDPT I 0 FIRSTPT) A@Al@Al@NIL NIL () SKED.CLEAR.SELECTION :D8 (I 2 DONTMAKEHISTEVENTFLG I 1 DONTDISPLAYFLG I 0 SKW) -B@ A@ @gh @gh (42 PUTWINDOWPROP 30 PUTWINDOWPROP 16 SKED.SELECTION.FEEDBACK 7 SKETCH.CLEANUP) (36 EXTENDSELECTION 24 SELECTION) () SKETCH.CLEANUP :D8 (P 2 VIEWER P 1 NEWELT P 0 INITSELECTION I 0 SKETCHWINDOW) u @ @ dJ K@gh X=@g dH gIh@ @I @HI h(113 SK.ENTER.EDIT.CHANGE 102 SK.CHECK.END.INITIAL.EDIT 94 SK.ADD.HISTEVENT 78 POSITIONP 66 GETWINDOWUSERPROP 52 PUTWINDOWPROP 33 SKETCH.CLEANUP 21 ALL.SKETCH.VIEWERS 16 INSURE.SKETCH 8 WINDOWP) (85 ADD 61 SELECTION 46 CHANGEDTEXTELT) () SK.ENTER.EDIT.CHANGE :D8 (I 2 NEWELT I 1 OLDELT I 0 VIEWER) G@AgBA gABgBAhABhh@ (68 SK.ADD.HISTEVENT 24 SK.CHECK.WHENCHANGEDFN) (36 DATA 29 CHANGE 6 DATA) () SKED.REMOVE.OTHER.SELECTIONS :D8 (P 1 SKETCHWINDOW I 0 SKW) &@ HhYd@ HX(30 SKED.CLEAR.SELECTION 10 ALL.SKETCH.VIEWERS 5 SKETCH.FROM.VIEWER) NIL () SKED.EXTEND.SELECTION :D8 (P 1 EXTENSION P 0 SELECTION I 0 SKW) F@g @g H@dg h  @ H@ (67 IN.TEXT.EXTEND 60 SKED.SELECTION.FEEDBACK 52 NEW.TEXT.SELECTIONP 46 SKED.MOVE.SELECTION 39 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (34 USEGRID 16 EXTENDSELECTION 5 SELECTION) () SKED.MOVE.SELECTION :D8 (P 19 ELT P 16 Y P 15 X P 14 STARTCHAR P 13 STARTLINE P 12 INIMAGEOBJ P 11 INTEXT P 10 FEEDBACKCUR P 9 OLDCUR P 8 OLDY P 7 OLDX P 6 OLDGRIDY P 5 OLDGRIDX P 4 FEEDBACKY P 3 FEEDBACKX P 2 GRID P 1 SCALE P 0 DSP I 1 USEGRID I 0 SKW) @ @ @ @ `l_"jbO"O" RH _H _ OOOO O_O _@ O$eh_%`_AOIJ O IJ g `_OOOH _OOH OO _&dg#O&gMO&OO _h;g2O&g%O&OO O&O _hiO$_$*O&)OO MdKNLOOMOMN@ O_K]L^@ @ MOMN@ O`OOOMNH MdN@ h(450 SKED.SET.SELECTION 438 CREATE.TEXT.SELECTION 413 SHOW.FEEDBACK 397 SKETCHW.UPDATE.LOCATORS 390 SHOW.FEEDBACK 375 SHOW.FEEDBACK 320 CLOSEST.LINE 310 INSIDE? 263 INTEXT 217 LINE.BEGIN 207 CHAR.BEGIN 195 CLOSEST.CHAR 173 SK.ELEMENT.PROTECTED? 159 MAP.WINDOW.ONTO.GRID 149 MAP.WINDOW.ONTO.GRID 113 LOCALSPECS.FROM.VIEWER 81 LASTMOUSEY 72 LASTMOUSEX 62 \FZEROP 33 GETMOUSESTATE 25 SK.GRIDFACTOR 19 VIEWER.SCALE 11 \INSUREWINDOW 5 SKED.CLEAR.SELECTION) (421 IN.TEXT.FEEDBACK.CURSOR 289 SHADE 274 TEXTBOX 249 SHADE 233 TEXT 180 IN.TEXT.FEEDBACK.CURSOR 168 CHANGE 132 NEW.TEXT.FEEDBACK.CURSOR 39 LASTMOUSEBUTTONS) () CREATE.TEXT.SELECTION :D8 (I 5 STRM I 4 BTM I 3 LFT I 2 CHAR# I 1 LINE# I 0 TEXTELT) !@ABC dA@E D A@ h(24 LINE.BEGIN 14 CHAR.BEGIN) NIL () SKED.SELECTION.FEEDBACK :D8 (P 1 EXTENDSELECTION P 0 SELECTION I 0 SKETCHW) b@g Hh@g YH IHI@ /`HHIHI@ `HH@ i(94 SHOW.FEEDBACK 70 SHOW.EXTENDED.SELECTION.FEEDBACK 47 SHOW.FEEDBACK.BOX 35 NEW.TEXT.SELECTIONP 28 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (77 IN.TEXT.FEEDBACK.CURSOR 54 NEW.TEXT.FEEDBACK.CURSOR 23 EXTENDSELECTION 5 SELECTION) () SKED.SET.EXTENDSELECTION :D8 (I 1 SKETCHW I 0 SELECTION) Ag@ A (17 SKED.SELECTION.FEEDBACK 11 PUTWINDOWPROP) (5 EXTENDSELECTION) () SKED.SET.SELECTION :D8 (I 1 SKETCHW I 0 SELECTION) Ag@ Agh A (29 SKED.SELECTION.FEEDBACK 23 PUTWINDOWPROP 11 PUTWINDOWPROP) (17 EXTENDSELECTION 5 SELECTION) () LINE.BEGIN :D8 (I 1 TEXTELT I 0 LINE#) A@ (10 NTH) NIL () SELECTION.GREATERP :D8 (L (1 SEL2 0 SEL1))  AY@XiHI A@NIL NIL () SK.WORD.BREAK.CLASS :D8 (I 0 CHCODE) 'g @ @dl l (36 GETSYNTAX 31 GETREADTABLE 16 TEDIT.WORDGET 9 DEFINEDP) (4 TEDIT.WORDGET) () SK.GETSYNTAX :D8 (I 0 CHARCODE F 0 TEDIT.READTABLE) g @P @ (29 GETSYNTAX 24 GETTERMTABLE 17 TEDIT.GETSYNTAX 9 DEFINEDP) (4 TEDIT.GETSYNTAX) () WB.EDITORA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 EDITINPROGRESS P 0 CHARS I 0 SI::*CLEANUP-FORMS* F 2 SKW) T R R i R i%I#R `` R h(80 BLOCK 72 CLEANUP.EDIT 65 INSIDEP 48 \INSUREWINDOW 35 SKED.INSERT 29 GETALLCHARS 22 RESET.LINE.BEING.INPUT 14 \SYSBUFP 8 TTYDISPLAYSTREAM) (60 LASTMOUSEY 55 LASTMOUSEX) () WB.EDITOR :D8 (P 0 SI::*RESETFORMS* I 0 SKW) 1gli hhhg $(42 SI::RESETUNWIND 37 \MVLIST 32 WB.EDITORA0001 12 INTERRUPTCHAR) (27 SI::RESETUNWIND 4 INTERRUPTCHAR) () SK.TTYENTRYFN :D8 (I 0 SKPROC) @glh (18 PROCESSPROP 13 INTERRUPTCHAR) (5 OLDINTERRUPTVALUE) () SK.TTYEXITFN :D8 (I 0 SKPROC) @g (15 INTERRUPTCHAR 10 PROCESSPROP) (5 OLDINTERRUPTVALUE) () SKED.INSERTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SKW F 1 CHARCODES F 2 ATSCALE) P hg QPR (24 \SKED.INSERT 16 OBTAIN.MONITORLOCK 5 SKETCH.MONITORLOCK) (11 WITH.MONITOR) () SKED.INSERT :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 2 ATSCALE I 1 SKW I 0 CHARCODES)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 SKED.INSERTA0001) (7 SI::MONITOR-UNWIND) () \SKED.INSERT :D8 (P 22 EDITEDELT P 21 INITSELECTION P 20 STR P 19 LINE# P 17 CONTROLCHARTAIL P 16 PTRCHAR# P 15 SKCONTEXT P 14 NEWCHAR# P 13 NEWLINE# P 12 STRPIECE P 11 NEWELT P 10 NEWSTRS P 9 STRLST P 8 LASTCHAR# P 7 LASTLINE# P 6 FIRSTCHAR# P 5 FIRSTLINE# P 4 GTEXTELT P 3 ELTTYPE P 2 TEXTELT P 1 EXTENSION P 0 SELECTION I 2 ATSCALE I 1 SKW I 0 CHARCODES) @ l!@l AB @l AB Ag Ag @ gg_"HAoo hAhi A @l @l /l`ljjkjH hHA@ hH g@hA _"OOAgH OOh _hHI hdA B3A Ag _OO Ai _O _O  _O"hAO"B hHA hHZ\J_IH^_H]_;HI HHI_I_IIIH_H_OkO$fOO O _jdj_KdgcAg !Agh O* JhAg_(MO&OO(h _6O&dOOO(h _MO(kN _@)N_M_O&OOYOOO( 0O>KgA _"Oj_O kذ OO(Ok h %OO( OO(Ok h O_O$_$O&k_&JhAO*h JhA JA A hO  _OOO _ Ag JJO Ai _MO"AJ hgOAO" hJJO A _AgH OO __O_O"!OOOhdA A O"gs Agh _*WOH o _,O* gO,hA AO, AO*O, A O*A A -OOOhdA A OAO" h(1232 SKED.CREATE.NEW.TEXTBOX 1217 SKED.SET.SELECTION 1211 CREATE.TEXT.SELECTION 1203 \INSUREWINDOW 1186 SK.UNDO.LAST 1179 SKED.SET.SELECTION 1170 SK.UNDO.LAST 1163 SK.ENTER.EDIT.CHANGE 1150 SK.CHECK.END.INITIAL.EDIT 1141 SK.ADD.HISTEVENT 1124 POSITIONP 1112 ERROR 1091 PUTWINDOWPROP 1063 SKED.SET.SELECTION 1057 CREATE.TEXT.SELECTION 1049 \INSUREWINDOW 1019 SKED.LINE.AND.CHAR# 1003 PUTWINDOWPROP 988 SK.UPDATE.ELEMENT 982 SKED.NEW.TEXTELT 969 SKED.CREATE.NEW.TEXTBOX 943 SK.CHECK.PREEDITFN 927 SK.UPDATE.ELEMENT 920 SK.REPLACE.TEXT.IN.ELEMENT 907 GETWINDOWUSERPROP 893 SKED.CHARACTERPOSITION 879 NCHARS 873 LAST 864 SKED.SET.SELECTION 858 SK.SCALE.POSITION.INTO.VIEWER 853 VIEWER.SCALE 840 SK.DELETE.ELEMENT 829 SK.DELETE.ELEMENT 792 \NCONC2 785 SUBSTRING 769 NCHARS 758 \NCONC2 751 CONCAT 746 SUBSTRING 731 NCHARS 722 LENGTH 704 \SKED.INSERT.CHARS.TO.STR 684 NCHARS 646 SUBSTRING 628 \NCONC2 603 \NCONC2 567 POSITIONP 557 PUTWINDOWPROP 541 GETWINDOWUSERPROP 505 LENGTH 493 LENGTH 422 SELECTION.GREATERP 374 SKED.SET.SELECTION 365 SKED.CREATE.NEW.TEXTBOX 345 NCHARS 339 LAST 329 LENGTH 319 SK.ADD.ELEMENT 312 CREATE.TEXT.ELEMENT 291 GETWINDOWUSERPROP 280 SK.INPUT.SCALE 269 SK.MAP.INPUT.PT.TO.GLOBAL 258 SELECTION.POSITION 248 \NCONC2 236 PUTWINDOWPROP 212 \SKED.INSERT.CHARS.TO.STR 194 NEW.TEXT.SELECTIONP 186 SKED.CREATE.NEW.TEXTBOX 170 NEW.TEXT.SELECTIONP 129 SKED.REMOVE.OTHER.SELECTIONS 122 SKED.CLEAR.SELECTION 112 STATUSPRINT 76 SK.GETSYNTAX 63 GETWINDOWUSERPROP 52 GETWINDOWUSERPROP 40 SKED.INSERT 33 NTH 25 SKED.INSERT 18 FIRST.N.ELEMENTS 5 LENGTH) (1131 ADD 1085 CHANGEDTEXTELT 1073 UNDO 997 CHANGEDTEXTELT 952 UNDO 902 CHANGEDTEXTELT 697 TEXTBOX 580 DON'T 551 CHANGEDTEXTELT 536 CHANGEDTEXTELT 524 TEXT 286 SKETCHCONTEXT 230 CHANGEDTEXTELT 203 TEXT 150 \LASTKEYSTATE 88 UNDO 81 UNDO 58 EXTENDSELECTION 47 SELECTION) ( 1107 "NO SELECTION WHEN THERE SHOULD BE" 107 "Indicate the position the typing should go with the left button." 102 " ") FIRST.N.ELEMENTS :D8 (P 6 ELT P 2 I I 1 N I 0 LST) ,@AkCHKJINLMh\JkԺHXM&NIL NIL () SKED.CREATE.NEW.TEXTBOX :D8 (P 2 NEWELT P 1 CURRENTPOS P 0 CURRENTREGION I 3 ATSCALE I 2 CHARSTOINSERT I 1 SKW I 0 TEXTELT) r0@dg]g@ @YIH YC3A YIl A BoAC h/A l2A l#ldlF C3A 1@XHHC3A lHHHXA @"HAg C3A A UgLH@oh@@@@@@ ZA kjhdA A BdAC h(366 SKED.INSERT 355 SKED.SET.SELECTION 349 CREATE.TEXT.SELECTION 341 \INSUREWINDOW 331 SKETCH.ADD.AND.DISPLAY 324 SK.TEXTBOX.CREATE1 239 SK.TEXTBOX.CREATE 233 SK.INPUT.SCALE 221 GETWINDOWUSERPROP 205 MAP.GLOBAL.REGION.ONTO.GRID 175 VIEWER.SCALE 149 UNSCALE.REGION 144 VIEWER.SCALE 133 CREATEREGION 121 LASTMOUSEY 112 LASTMOUSEX 102 SKED.INSERT 86 SKED.SET.SELECTION 80 CREATEPOSITION 68 SK.SCALE.POSITION.INTO.VIEWER 63 VIEWER.SCALE 51 CREATEPOSITION 32 APPLY) (247 TEXTBOX 216 SKETCHCONTEXT 19 UNIONREGIONS 10 TEXT) ( 266 "" 95 (32)) SKED.CHARACTERPOSITION :D8 (P 5 NCHARS P 4 STR P 3 N P 0 CHARPOS I 2 CHAR# I 1 LINE# I 0 STRLST) ?jAk@k#JHBKIHL ]ԸLM l HkظJKkԻ(44 NTHCHARCODE 34 NCHARS) NIL () SKED.LINE.AND.CHAR# :D8 (P 4 NCHARS P 3 STR P 2 N P 1 CHARSLEFT I 1 CHARPOS I 0 STRLST) k@Ak#H@ @  [ \dI!KL l @ JJkjJIIIKL l LLkչHJkԺ(85 NTHCHARCODE 60 LENGTH 50 NTHCHARCODE 36 NCHARS 27 NCHARS 21 LAST 15 LENGTH) NIL () \SKED.DELETE.WORD.FROM.STRING :D8 (P 1 CLASS P 0 END I 0 STRING) I@ Hj1@H YlHkX@H IHkXjh@kH (70 SUBSTRING 49 SK.WORD.BREAK.CLASS 44 NTHCHARCODE 25 SK.WORD.BREAK.CLASS 20 NTHCHARCODE 5 NCHARS) NIL () \SKED.INSERT.CHARS.TO.STR :D8 (P 13 CHLST P 12 TAIL P 10 TAIL P 5 CHAR P 3 CLASS P 2 REMAININGCHARS P 1 THISLINE P 0 LINELST I 2 SKW I 1 INCLUDECR I 0 CHARCODES F 14 STRPIECE F 15 NEWSTRS F 16 \TERM.OFD) D@@L0H"WWH  h0H ] dgIbHWWDW W  cW cWm l dW k2hcR khcCHX;6Wkm c(Wkm cdgI HYHLI O_d lOOY I O_d KOOW*W W  cW c cdgxdg𓿱dgdgdgBoo ?Ml Mdl /l`ljjkjM@ 7Al IIHhIYL\d O ONh_N&_O cI IWI cJ(574 JOINCHARS 569 REVERSE 558 STRINGFROMCHARACTERS 553 REVERSE 544 \NCONC2 539 \NCONC2 510 STRINGFROMCHARACTERS 505 REVERSE 466 MEMB 423 STATUSPRINT 354 \SKED.DELETE.WORD.FROM.STRING 344 CL:BUTLAST 334 \SKED.DELETE.WORD.FROM.STRING 328 LAST 320 FLASHW 291 SK.WORD.BREAK.CLASS 273 SK.WORD.BREAK.CLASS 249 SK.WORD.BREAK.CLASS 203 SUBSTRING 188 SUBSTRING 156 NCHARS 141 NCHARS 127 NTHCHARCODE 115 CL:BUTLAST 104 LAST 96 FLASHW 63 SK.GETSYNTAX 53 REVERSE 48 CL:BUTLAST 37 JOINCHARS 32 REVERSE 26 LAST) (446 \LASTKEYSTATE 403 CMD 395 FN 386 REDO 374 UNDO 365 DELETE 214 WORDDELETE 69 CHARDELETE) ( 418 "Not implemented in this editor. Sorry." 413 " ") JOINCHARS :D8 (I 1 CHARCODES I 0 STR) @ A A (20 CONCAT 15 STRINGFROMCHARACTERS 8 STRINGFROMCHARACTERS) NIL () STRINGFROMCHARACTERS :D8 (I 0 CHARS) @ (10 MKSTRING 5 PACKC) NIL () GETALLCHARS :D8 (I 0 FILE) !0HI JhYJ&(15 \GETKEY 7 \SYSBUFP) NIL () CLEANUP.EDIT :D8 (L (0 SKW)) hNIL NIL () SKED.NEW.TEXTELT :D8 (I 1 NEWSTRLST I 0 OLDGTEXTELT) @@gUg@A@@@@@@ g@Ao@@@@@@@@@ h(228 TEXTBOX.SET.GLOBAL.REGIONS 93 TEXT.SET.GLOBAL.REGIONS) (101 TEXTBOX 18 TEXT 10 TEXT) ( 114 ("")) MAP.SCREEN.POSITION.ONTO.GRID :D8 (P 1 SCALE P 0 GRID I 2 FLIPGRIDSENSEFLG I 1 WINDOW I 0 PT) GAg BhB3A A @IHhA @IHhA @(65 MAP.SCREEN.ONTO.GRID 60 DSPYOFFSET 49 MAP.SCREEN.ONTO.GRID 44 DSPXOFFSET 30 VIEWER.SCALE 24 SK.GRIDFACTOR 10 GETWINDOWUSERPROP) (5 USEGRID) () NEAREST.ON.GRID :D8 (I 1 GRIDSIZE I 0 X) "A@doAoAoAjNIL NIL ( 24 2.0 15 2.0 7 0.0) SK.MIDDLE.TITLEFNA0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 OPMENUW F 1 SI::*RESETFORMS* F 2 OPMENU F 3 DSP) #gPhP hQcRSidh (32 MENU.HANDLER 14 OPENW) (4 CLOSEW) () SK.MIDDLE.TITLEFN :D8 (P 9 RESETSTATE P 8 SI::*RESETFORMS* P 7 LISPXHIST P 6 SELCOMMAND P 5 DSP P 4 OPMENU P 0 OPMENUW I 1 STANDARDMENUFLG I 0 SKW F 10 LISPXHIST) @Ahdi@ i @ Xd`k@ Hg ٹdII`Hg l@ Hg ٺdJJjKKj Hg H W! g $^d@ (196 SK.APPLY.MENU.COMMAND 180 SI::RESETUNWIND 175 \MVLIST 170 SK.MIDDLE.TITLEFNA0006 150 \INSUREWINDOW 143 GETWINDOWUSERPROP 132 MOVEW 111 GETWINDOWPROP 100 BITMAPHEIGHT 95 SCREENBITMAP 85 GETWINDOWPROP 61 GETWINDOWPROP 50 BITMAPWIDTH 45 SCREENBITMAP 26 SK.GET.VIEWER.POPUP.MENU 19 MENUWINDOW 13 CREATE.SKETCHW.COMMANDMENU) (165 SI::RESETUNWIND 138 MENU 106 HEIGHT 80 HEIGHT 74 LASTMOUSEY 56 WIDTH 37 LASTMOUSEX) () WB.BUTTON.HANDLERA0001A0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 W F 2 ELT F 3 SI::*RESETFORMS* F 4 IMAGEOBJ F 5 ACTIVEREGION F 6 X F 7 Y) ugRhQ Q QhhdScRc TQg hVR c WUQh` lH(108 DECODEBUTTONS 86 SK.ITEM.REGION 78 GETSTREAM 28 DSPCLIPPINGREGION 22 INTERSECTREGIONS 17 DSPCLIPPINGREGION) (103 LASTMOUSEBUTTONS 73 OUTPUT 61 IMAGEFNS 54 IMAGEOBJ 4 DSPCLIPPINGREGION) () WB.BUTTON.HANDLERA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 10 RESETSTATE P 9 SI::*RESETFORMS* P 8 LISPXHIST P 7 ELT P 4 IMAGEOBJ P 3 Y P 2 X P 1 BUTTONFN P 0 ACTIVEREGION I 0 SI::*CLEANUP-FORMS* F 11 W F 12 LISPXHIST)  `lj&hW W W W W id `l`ljjkj,l`ljjkjl`ljjkj W W W ZW [ :`l]j-MM !`dkjW ljKh`dljW N.h`ljW Wdg _X(Wg YHJK WOlIiOgROJK GOg 8W! g $gWOW iJN^@`dljW W kjW Woo (506 STATUSPRINT 488 WB.ADD.NEW.POINT 472 SKED.EXTEND.SELECTION 465 RESET.LINE.BEING.INPUT 434 SKETCH.ELEMENT.CHANGED 410 SI::RESETUNWIND 405 \MVLIST 400 WB.BUTTON.HANDLERA0001A0003 383 SK.ELEMENT.PROTECTED? 368 INIMAGEOBJ 329 INSIDEP 318 GETSKETCHPROP 296 SKED.MOVE.SELECTION 291 GETWINDOWUSERPROP 278 RESET.LINE.BEING.INPUT 246 LOCALSPECS.FROM.VIEWER 213 SK.MIDDLE.TITLEFN 192 \FZEROP 167 INSIDEP 161 LASTMOUSEY 153 LASTMOUSEX 146 DSPCLIPPINGREGION 138 SK.COPY.BUTTONEVENTFN 61 OBTAIN.MONITORLOCK 54 SKETCH.MONITORLOCK 46 DOWINDOWCOM 38 INSIDEP 33 LASTMOUSEY 26 LASTMOUSEX 19 DSPCLIPPINGREGION) (450 LASTMOUSEBUTTONS 420 CHANGED 395 SI::RESETUNWIND 378 BUTTONEVENTINFN 356 SKIMAGEOBJ 313 BUTTONEVENTINFN 286 USEGRID 262 LASTMOUSEBUTTONS 230 LASTMOUSEBUTTONS 199 LASTMOUSEBUTTONS 174 LASTMOUSEBUTTONS 117 \LASTKEYSTATE 96 \LASTKEYSTATE 75 \LASTKEYSTATE 4 LASTMOUSEBUTTONS) ( 501 "Sketch operation in progress. Please wait." 496 " ") WB.BUTTON.HANDLER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 W F 3 LISPXHIST) $@ S!g $(29 SI::RESETUNWIND 24 \MVLIST 19 WB.BUTTON.HANDLERA0001 5 TOTOPW) (14 SI::RESETUNWIND) () WB.ADD.NEW.POINT :D8 (P 2 ELT P 1 PT P 0 LINEPTS I 0 WIN F 3 POINTREADINGCURSOR) @g !H(@Shdg Y@gI kHddib]H SH@ Y{@H@ I@ h @i @g@g hJ 5Hg(H @ Y@gHI@ h(213 PUTWINDOWPROP 208 WIRE.ADD.POINT.TO.END 191 WB.RUBBERBAND.POSITION 184 LAST 159 PUTWINDOWPROP 141 GETWINDOWUSERPROP 123 SKETCH.ADD.AND.DISPLAY 116 WIRE.INPUTFN 108 SK.MAP.INPUT.PT.TO.GLOBAL 101 SK.MAP.INPUT.PT.TO.GLOBAL 90 WB.RUBBERBAND.POSITION 79 POSITIONP 50 PUTWINDOWPROP 31 SK.READ.POINT.WITH.FEEDBACK 10 GETWINDOWUSERPROP) (200 INPUTLINE 173 WIRE 136 SKETCHCONTEXT 130 INPUTLINE 44 INPUTLINE 25 LEFT 5 INPUTLINE) () WB.DRAWLINE :D8 (P 8 PTTAIL P 6 GARROWSPECS P 5 LOCALARROWPTS P 4 PTS P 3 BRUSHCOLOR P 2 BRUSHSIZE P 1 GWIRE P 0 LWIRE I 6 BRUSH I 5 DASHING I 4 CLOSEDFLG I 3 OPERATION I 2 REG I 1 STREAM I 0 WIREELT)  @@F dkkF4H\IHLMNA FgOLO_Od'DOLhhFEA NMAFC fOhhFEA OJkLhhFhA LO_Od-DOOLLJCAKE NMAFC hOOOJCAKE JkOhhFhA O(270 DRAWCURVE 248 DRAWLINE 219 DRAWARROWHEADS 207 DRAWLINE 161 DRAWCURVE 137 DRAWCURVE 116 DRAWARROWHEADS 104 DRAWCURVE 55 \SK.ADJUST.FOR.ARROWHEADS 13 FIXR) (63 ROUND) () WB.RUBBERBAND.POSITION :D8 (I 1 WINDOW I 0 STARTPOSITION F 1 POINTREADINGCURSOR) ?AQg@Ag A A HkHkhg (60 SK.READ.POINT.WITH.FEEDBACK 33 VIEWER.SCALE 27 SK.INPUT.SCALE 18 GETWINDOWUSERPROP) (54 LEFT 13 SKETCHCONTEXT 6 SK.RUBBERBAND.FEEDBACKFN) () SK.RUBBERBAND.FEEDBACKFN :D8 (I 3 ORIGPT&SIZE I 2 WINDOW I 1 Y I 0 X) !@AB CC@ACgB (30 DRAWLINE 7 SHOWSKETCHXY) (23 INVERT) () RESET.LINE.BEING.INPUT :D8 (I 0 SKW) @gh (11 PUTWINDOWPROP) (5 INPUTLINE) () NEAREST.EXISTING.POSITION :D8 (I 0 SKW) @ (5 LASTMOUSEPOSITION) NIL () WB.NEARPT :D8 (P 4 WB.POINT.WIDTH P 3 HY P 2 HX P 1 TY P 0 TX I 1 HITPT I 0 TARGETPT) )@@AAlJHLHLJKILILKNIL NIL () LASTMOUSEPOSITION :D8 (I 0 WIN) @ @ (11 LASTMOUSEY 5 LASTMOUSEX) NIL () (PRETTYCOMPRINT SKETCHEDITCOMS) (RPAQQ SKETCHEDITCOMS ((COMS (* selection functions) (FNS BUTLAST CHAR.BEGIN CLOSEST.CHAR CLOSEST.LINE FLASHW HILITE.LINE HILITE.TEXT IN.TEXT.EXTEND INIMAGEOBJ INTEXT NEW.TEXT.EXTEND NEW.TEXT.SELECTIONP NTHCHARWIDTH NTHLOCALREGION ONCHAR SHOW.EXTENDED.SELECTION.FEEDBACK SHOW.FEEDBACK SHOW.FEEDBACK.BOX SELECTION.POSITION SKED.CLEAR.SELECTION SKETCH.CLEANUP SK.ENTER.EDIT.CHANGE SKED.REMOVE.OTHER.SELECTIONS SKED.EXTEND.SELECTION SKED.MOVE.SELECTION CREATE.TEXT.SELECTION SKED.SELECTION.FEEDBACK SKED.SET.EXTENDSELECTION SKED.SET.SELECTION LINE.BEGIN SELECTION.GREATERP SK.WORD.BREAK.CLASS SK.GETSYNTAX) (DECLARE%: DONTCOPY (RECORDS TEXTELTSELECTION)) (UGLYVARS IN.TEXT.FEEDBACK.CURSOR NEW.TEXT.FEEDBACK.CURSOR NEW.TEXT.FEEDBACK.SHADE SELECTION.HIGHLIGHT.SHADE) ( GLOBALVARS IN.TEXT.FEEDBACK.CURSOR NEW.TEXT.FEEDBACK.CURSOR NEW.TEXT.FEEDBACK.SHADE SELECTION.HIGHLIGHT.SHADE)) (COMS (* editting functions) (FNS WB.EDITOR SK.TTYENTRYFN SK.TTYEXITFN SKED.INSERT \SKED.INSERT FIRST.N.ELEMENTS SKED.CREATE.NEW.TEXTBOX SKED.CHARACTERPOSITION SKED.LINE.AND.CHAR# \SKED.DELETE.WORD.FROM.STRING \SKED.INSERT.CHARS.TO.STR JOINCHARS STRINGFROMCHARACTERS GETALLCHARS CLEANUP.EDIT SKED.NEW.TEXTELT)) (COMS (* line adding functions) (FNS MAP.SCREEN.POSITION.ONTO.GRID NEAREST.ON.GRID SK.MIDDLE.TITLEFN WB.BUTTON.HANDLER WB.ADD.NEW.POINT WB.DRAWLINE WB.RUBBERBAND.POSITION SK.RUBBERBAND.FEEDBACKFN RESET.LINE.BEING.INPUT) (P (* Was MODERNIZE loaded before?) (CL:WHEN (GETD (QUOTE MODERNWINDOW.SETUP)) (MODERNWINDOW.SETUP (QUOTE WB.BUTTON.HANDLER)))) (FNS NEAREST.EXISTING.POSITION WB.NEARPT LASTMOUSEPOSITION)))) (READVARS-FROM-STRINGS (QUOTE (IN.TEXT.FEEDBACK.CURSOR NEW.TEXT.FEEDBACK.CURSOR NEW.TEXT.FEEDBACK.SHADE SELECTION.HIGHLIGHT.SHADE)) "(({(READBITMAP)(16 16 %"@@@@%" %"@@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%" %"L@@@%")} 1 . 0) ({(READBITMAP)(16 16 %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@@@@%" %"@H@@%" %"AL@@%" %"CF@@%" %"FC@@%" %"LAH@%")} 4 . 4) 8 65535) ") (CL:WHEN (GETD (QUOTE MODERNWINDOW.SETUP)) (MODERNWINDOW.SETUP (QUOTE WB.BUTTON.HANDLER))) (PUTPROPS SKETCHEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1990 2021)) NIL