(FILECREATED " 7-Mar-85 04:14:31" ("compiled on " {IVY}TEDITSELECTION.;45) "28-Feb-85 21:47:35" recompiled changes: TEDIT.EXTEND.SEL TEDIT.SCAN.LINE \FIXSEL in "INTERLISP-D 28-Feb-85 ..." dated "28-Feb-85 22:00:41") (FILECREATED " 7-Mar-85 04:09:51" {IVY}TEDITSELECTION.;45 99067 changes to: (FNS \FIXSEL TEDIT.EXTEND.SEL TEDIT.SCAN.LINE) previous date: " 6-Mar-85 23:01:55" {IVY}TEDITSELECTION.;43) TEDIT.SEL.AS.STRING D1 (P 7 I P 5 BASE P 4 OFFST P 3 RESULT P 2 TSEL P 1 LEN P 0 TEXTOBJ I 1 SEL I 0 STREAM) @ bdQAHZd Ydjdd JjoIl [KLнJH IkjONMOH. ǿOk_K(134Q \SETUPGETCH 102Q ALLOCSTRING 54Q \FZEROP 3 TEXTSTREAM) (161Q TEXTOBJ 126Q SELECTION 115Q STRINGP 106Q STRINGP 61Q SELECTION 34Q SELECTION 25Q TEXTOBJ 11Q STREAM) ( 73Q "") TEDIT.SELECTED.PIECES D1 (P 25Q I P 21Q UNDOCHAIN P 20Q COPYFN P 17Q OBJ P 16Q PCLST P 15Q INSERTCH# P 14Q REPLACING P 13Q EVENT P 12Q OPLEN P 11Q NPCCH P 10Q PCCH P 7 NPC P 6 PC P 5 INSPC# P 4 INSPC P 3 LEN P 2 PCTB P 1 CHLIM P 0 CH1 I 5 FNARG2 I 4 FNARG1 I 3 PIECEMAPFN I 2 CROSSCOPY I 1 SEL I 0 TEXTOBJ) "AA @ h _JkkllO,IO,jO,O, jO,O*JkklO*JkklJO*O*_JO*k_$O$O$JO*l_&O&O&_HPIOWHONH@O* O*l_*@OINI@O* @OCN@DElCN_ O*l_,_*O(414Q TCONC 360Q \SPLITPIECE 323Q \SPLITPIECE 107Q \FZEROP 33Q TCONC) (365Q TEXTOBJ 340Q TEXTOBJ 257Q ARRAYP 230Q ARRAYP 200Q ARRAYP 154Q ARRAYP 127Q ARRAYP 41Q ARRAYP 17Q TEXTOBJ 11Q SELECTION 3 SELECTION) () \TEDIT.FIND.FIRST.LINE D1 (P 5 CH P 4 CHNO P 3 LINE P 2 TEXTSTREAM P 1 WWIDTH P 0 LINES I 3 WINDOW I 2 CH# I 1 WHEIGHT I 0 TEXTOBJ) CCg @@$@.s @^jN B@h HhH@:j@B >B@ jlBk__OOLJ ]l Lm԰LdkkBjBLkؼB@_dOOb@hL [AHKKHKXk\BK(261Q \FORMATLINE 171Q \BACKBIN 137Q \SETUPGETCH 127Q \TEDIT.PARABOUNDS 75Q \FZEROP 10Q GETWINDOWUSERPROP) (316Q LINEDESCRIPTOR 305Q LINEDESCRIPTOR 275Q LINEDESCRIPTOR 265Q LINEDESCRIPTOR 234Q TEXTOBJ 114Q TEXTOBJ 103Q LINEDESCRIPTOR 64Q TEXTOBJ 43Q TEXTOBJ 32Q TEXTOBJ 24Q TEXTOBJ 16Q TEXTOBJ 5 LINES) () \TEDIT.FIND.LAST.LINE D1 (L (1 LINES 0 TEXTOBJ)) <A@b@)AddII@(IXYHNIL (63Q LINEDESCRIPTOR 51Q TEXTOBJ 43Q LINEDESCRIPTOR 30Q LINEDESCRIPTOR 16Q TEXTOBJ 5 TEXTOBJ) () \TEDIT.FIND.OVERLAPPING.LINE D1 (L (1 Y 0 LINES)) @dA@@bNIL (21Q LINEDESCRIPTOR 6 LINEDESCRIPTOR) () \TEDIT.FIND.PROTECTED.END D1 (P 4 PCTB P 3 OURLIMIT P 2 I I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) @kkA@ kB@@HdII@4MEMjMM jMJ@kkJ@kkRLJkپNNKKLJJ  jLJk_OOkJl]Ժmh(121Q \FZEROP 32Q \CHTOPCNO) (277Q ARRAYP 256Q CHARLOOKS 251Q PIECE 236Q ARRAYP 215Q ARRAYP 172Q ARRAYP 165Q TEXTOBJ 144Q ARRAYP 137Q TEXTOBJ 72Q TEXTOBJ 51Q TEXTOBJ 43Q TEXTOBJ 25Q TEXTOBJ 10Q ARRAYP 3 TEXTOBJ) () \TEDIT.FIND.PROTECTED.START D1 (P 4 PCTB P 3 OURLIMIT P 2 I I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) lA@HdIIkHHk@ kBk@4MMjgMM ]jMlJJlOLJkپNNKKLJJ  jLJk_OOJm]Ժh(106Q \FZEROP 47Q \CHTOPCNO) (220Q ARRAYP 177Q CHARLOOKS 172Q PIECE 157Q ARRAYP 136Q ARRAYP 61Q TEXTOBJ 42Q TEXTOBJ 6 TEXTOBJ) () \TEDIT.WORD.BOUND D1 (L (2 CH 1 PREVCH 0 TEXTOBJ)) B@D`!AdBdiAljHAYBljHBZIJhNIL (15Q READTABLEP 12Q TEDIT.WORDBOUND.READTABLE 3 TEXTOBJ) () \SHOWSEL D1 (P 27Q CARET P 26Q LN P 25Q L1 P 24Q LINES P 23Q DS P 4 SHOWFN P 3 LL P 2 SHADEHEIGHT P 1 SHADE P 0 TEXTOBJ I 2 ON I 1 HOW I 0 SEL) @dj@@@n@k @@HHH2UOK_*O@_,O 6O _&hO _&O _ O"O"_(hO"_(O"_"O$@BPkMO$_.hO$_.O$_$@H@BO& B@jO* O,O*O,/hjdO&@O*@JO* dMMO*AhjdO&@O*O*@JO* dNNggI O*O([uK[lKdO,H(KOKH(?hjdO&KO,@KJK _dOOggI @jH:j@g_O*@O*O&HO. jdO&KKKKJK _dOOggI O,D@O,O&HO. *B&@j@jH:jO. O* O,O*O,3hjdO&@O*@JO* _dOOO*EhjdO&@O*O*@JO* _dOOggI O*O([pK[gKdO,H(aKOKH(?hjdO&KO,@KJK _dOOggI O_O_jdO&KKKKJK _dOOggI Hj_Ojhh(2003Q BKBITBLT 1671Q BKBITBLT 1502Q BKBITBLT 1275Q \EDIT.UPCARET 1217Q \SETCARET 1157Q BKBITBLT 1062Q \SETCARET 757Q BKBITBLT 563Q BKBITBLT 342Q \TEDIT.OBJECT.SHOWSEL) (1776Q INVERT 1773Q TEXTURE 1753Q LINEDESCRIPTOR 1743Q LINEDESCRIPTOR 1735Q LINEDESCRIPTOR 1727Q LINEDESCRIPTOR 1721Q LINEDESCRIPTOR 1664Q INVERT 1661Q TEXTURE 1641Q LINEDESCRIPTOR 1631Q LINEDESCRIPTOR 1623Q SELECTION 1615Q LINEDESCRIPTOR 1606Q LINEDESCRIPTOR 1567Q TEXTOBJ 1561Q LINEDESCRIPTOR 1544Q TEXTOBJ 1536Q LINEDESCRIPTOR 1520Q LINEDESCRIPTOR 1475Q INVERT 1472Q TEXTURE 1452Q LINEDESCRIPTOR 1441Q SELECTION 1433Q LINEDESCRIPTOR 1424Q LINEDESCRIPTOR 1415Q SELECTION 1355Q LINEDESCRIPTOR 1345Q SELECTION 1337Q LINEDESCRIPTOR 1330Q SELECTION 1262Q TEXTOBJ 1250Q SELECTION 1233Q SELECTION 1204Q LINEDESCRIPTOR 1175Q SELECTION 1152Q INVERT 1147Q TEXTURE 1127Q LINEDESCRIPTOR 1117Q LINEDESCRIPTOR 1111Q LINEDESCRIPTOR 1103Q LINEDESCRIPTOR 1075Q LINEDESCRIPTOR 1047Q LINEDESCRIPTOR 1040Q SELECTION 1023Q LEFT 1016Q SELECTION 1001Q TEXTOBJ 764Q SELECTION 752Q INVERT 747Q TEXTURE 727Q LINEDESCRIPTOR 717Q LINEDESCRIPTOR 711Q SELECTION 703Q LINEDESCRIPTOR 674Q LINEDESCRIPTOR 655Q TEXTOBJ 647Q LINEDESCRIPTOR 626Q TEXTOBJ 620Q LINEDESCRIPTOR 601Q LINEDESCRIPTOR 556Q INVERT 553Q TEXTURE 537Q LINEDESCRIPTOR 526Q SELECTION 520Q LINEDESCRIPTOR 511Q LINEDESCRIPTOR 502Q SELECTION 446Q LINEDESCRIPTOR 436Q SELECTION 430Q LINEDESCRIPTOR 421Q SELECTION 356Q SELECTION 327Q SELECTION 265Q SELECTION 133Q TEXTOBJ 125Q TEXTOBJ 117Q TEXTOBJ 111Q SELECTION 103Q SELECTION 67Q SELECTION 54Q SELECTION 46Q SELECTION 32Q TEXTOBJ 25Q SELECTION 10Q SELECTION) () TEDIT.EXTEND.SEL D1 (P 4 FIXUPNEEDED P 3 SETOSELFLG P 2 NPOINT P 1 TEXTLEN P 0 NSEL I 6 NEWSEL I 5 SELWINDOW I 4 SELOPERATION I 3 TEXTOBJ I 2 OSEL I 1 Y I 0 X) A F<@ACBdgdgggBg BgDE C Ij2I(HBjHD H B T HHBg=H B ٽjMMjMHBپjNNjNigigZdgHH BdgBB ؎gB _dOO HBHBHB DgHHCB kH _dOOiPgHHBdgBgB B ق_dOOHBHBHB DgHH CBCBH k k k_dOO HH H_dOOiwHB  HBHBHB HBHBHBHB BHIkH _dOOH HHH  HJHHHBHHhLHC KHB H(1475Q \COPYSEL 1465Q \FIXSEL 1274Q COPY 1205Q COPY 1037Q \TEDIT.FIND.PROTECTED.END 1032Q \TEDIT.FIND.PROTECTED.END 753Q COPY 666Q SHOULDNT 546Q \TEDIT.FIND.PROTECTED.START 476Q COPY 411Q SHOULDNT 170Q \FZEROP 143Q \TEDIT.SET.SEL.LOOKS 74Q TEDIT.SELECT) (1452Q SELECTION 1442Q SELECTION 1434Q SELECTION 1422Q SELECTION 1414Q SELECTION 1410Q SELECTION 1400Q SELECTION 1366Q SELECTION 1360Q SELECTION 1354Q SELECTION 1342Q SELECTION 1321Q SELECTION 1312Q SELECTION 1303Q SELECTION 1267Q SELECTION 1263Q SELECTION 1252Q SELECTION 1246Q SELECTION 1235Q SELECTION 1231Q SELECTION 1220Q SELECTION 1214Q SELECTION 1200Q SELECTION 1174Q SELECTION 1163Q SELECTION 1157Q SELECTION 1146Q SELECTION 1142Q SELECTION 1131Q SELECTION 1125Q SELECTION 1075Q SELECTION 1067Q SELECTION 1063Q SELECTION 1023Q SELECTION 1015Q SELECTION 1006Q SELECTION 777Q SELECTION 773Q SELECTION 762Q COPY 746Q SELECTION 742Q SELECTION 731Q SELECTION 725Q SELECTION 714Q SELECTION 710Q SELECTION 657Q SELECTION 651Q SELECTION 643Q RIGHT 634Q SELECTION 625Q LEFT 617Q SELECTION 611Q SELECTION 605Q SELECTION 574Q RIGHT 541Q SELECTION 531Q SELECTION 522Q SELECTION 516Q SELECTION 505Q COPY 471Q SELECTION 465Q SELECTION 454Q SELECTION 450Q SELECTION 437Q SELECTION 433Q SELECTION 403Q SELECTION 375Q RIGHT 366Q SELECTION 360Q SELECTION 351Q LEFT 343Q SELECTION 335Q SELECTION 331Q SELECTION 317Q LEFT 312Q RIGHT 304Q LEFT 260Q SELECTION 252Q SELECTION 231Q SELECTION 223Q SELECTION 215Q LEFT 206Q SELECTION 200Q SELECTION 156Q SELECTION 150Q SELECTION 127Q SELECTION 100Q TEXTOBJ 65Q PARA 60Q SELECTION 51Q WORD 44Q SELECTION 40Q TEXT 33Q LINE 25Q PARA 17Q LINE 11Q SELECTION) () TEDIT.RESET.EXTEND.PENDING.DELETE D1 (I 0 SEL F 0 TEDIT.PENDINGDEL) *@dg hc@@jFjdh(10Q \TEDIT.SET.SEL.LOOKS) (35Q TEXTOBJ 30Q SELECTION 20Q SELECTION 5 NORMAL) () TEDIT.SELECT D1 (P 4 LN P 3 L1 P 2 PREVLINE P 1 L P 0 TEXTLEN I 6 WINDOW I 5 SELOPERATION I 4 WORDSELFLG I 3 REGION I 2 TEXTOBJ I 1 Y I 0 X) Ba@ABdF CDEF Ydd`dE IBFi I`I(0jhIBYkIBIHJdMMkNNkII Ij IIBggIE IB I(272Q \FIXSEL 264Q \TEDIT.SET.SEL.LOOKS 57Q \FIXSEL 47Q \TEDIT.SET.SEL.LOOKS 30Q TEDIT.SELECT.LINE.SCANNER 20Q \TEDIT.LINE.LIST) (254Q RIGHT 250Q LEFT 241Q TEXTOBJ 233Q SELECTION 227Q SELECTION 217Q SELECTION 206Q SELECTION 202Q SELECTION 152Q LINEDESCRIPTOR 145Q SELECTION 135Q SELECTION 124Q SELECTION 116Q TEXTOBJ 100Q LINEDESCRIPTOR 65Q LINEDESCRIPTORTYPE# 37Q SELECTIONTYPE# 3 TEXTOBJ) () TEDIT.SCAN.LINE D1 (P 31Q CHNO P 30Q I P 23Q PCLOOKS P 22Q CLOOKS P 21Q LN P 20Q L1 P 17Q CHB P 16Q TXB P 15Q CHOBJB P 14Q PREVCH P 13Q TX P 12Q YBASE P 11Q YBOT P 10Q OTX P 7 L P 6 TEXTLEN P 5 CH P 4 DX P 3 LOOKNO P 2 LLIST P 1 CHLIST P 0 WLIST I 7 WINDOW I 6 SELOPERATION I 5 WORDSELFLG I 4 Y I 3 X I 2 THISLINE I 1 LINE I 0 TEXTOBJ) S BBBkjl @BA@hAA A___CdOdbAk_J_$CAoo BjAkO0O.M_O$_&IO0O0]dn/O2JKK_2KkԻO0k_0IO0O0]noo Mn+JKK_$KkԻO0k_0IO0O0OCmFgO&@jO& jMEO@OM ;O0jO0O0 oo @_kOEgg@OOACDOG OAOO&@jOEOOOO&@jjEOOـLOO&@jO2k؈EOk؁O2_(kO(O(kOO&OOO&O2k OAOO@3O6_:O4_hO8_>O8_8O<O:O>GO:AOhO8_>O8_8O<O:O>GO:AOhO8_>O8_8O<O:O>GO:AOJO(AhO(O( @O(O"O(@O(@L>O(H3O(I'@O(O"O(@O(i\HO( IO(IO(k@O(O$O(O(_*@O(IO(kj@g@ jjtO(kO((j_O$O(@O$@O$j@ j@j@g@@IO(A_dOOJO(AhO(O( jJJjdO(O8O6NNjNCko NO8o NNO8_,O*O,_*IOhO6_>O6_6O8OA_@bObO8_BhO8_BO8_8A @ O:dO<7hjdOBAA@AOO: dMM?hjdOBAO:O:AOO: dNNggO O:O>_{O_pOdO<H(nOUOH(DhjdOBOO<@OOO _dOOggO O4_4O2_2O0_0jdOBOOOOOO _dOOggO 0@jR@@HH2D)OF0_LOD%_NOHOH_PhOH_POH_HOJhOJ_RhOJ_ROJ_J@g@OL@ONOPHOR OF_FOD_D}(2464Q \SETCARET 2224Q BKBITBLT 2075Q BKBITBLT 1672Q BKBITBLT 1306Q BKBITBLT 1205Q BKBITBLT 776Q BKBITBLT 672Q BKBITBLT 255Q \EDIT.UPCARET) (2451Q LINEDESCRIPTOR 2442Q SELECTION 2431Q SELECTION 2423Q LEFT 2416Q SELECTION 2271Q TEXTOBJ 2263Q TEXTOBJ 2255Q SELECTION 2247Q SELECTION 2234Q SELECTION 2216Q INVERT 2213Q TEXTURE 2173Q LINEDESCRIPTOR 2161Q LINEDESCRIPTOR 2152Q LINEDESCRIPTOR 2143Q LINEDESCRIPTOR 2134Q LINEDESCRIPTOR 2067Q INVERT 2064Q TEXTURE 2044Q LINEDESCRIPTOR 2032Q LINEDESCRIPTOR 2023Q SELECTION 2015Q LINEDESCRIPTOR 2006Q LINEDESCRIPTOR 1766Q TEXTOBJ 1760Q LINEDESCRIPTOR 1741Q TEXTOBJ 1733Q LINEDESCRIPTOR 1712Q LINEDESCRIPTOR 1664Q INVERT 1661Q TEXTURE 1645Q LINEDESCRIPTOR 1633Q SELECTION 1625Q LINEDESCRIPTOR 1616Q LINEDESCRIPTOR 1607Q SELECTION 1555Q LINEDESCRIPTOR 1543Q SELECTION 1535Q SELECTION 1527Q SELECTION 1521Q SELECTION 1470Q SELECTION 1462Q SELECTION 1300Q INVERT 1275Q TEXTURE 1261Q LINEDESCRIPTOR 1247Q LINEDESCRIPTOR 1240Q LINEDESCRIPTOR 1231Q LINEDESCRIPTOR 1222Q LINEDESCRIPTOR 1177Q INVERT 1174Q TEXTURE 1160Q LINEDESCRIPTOR 1146Q LINEDESCRIPTOR 1137Q SELECTION 1131Q LINEDESCRIPTOR 1122Q LINEDESCRIPTOR 1100Q TEXTOBJ 1072Q LINEDESCRIPTOR 1051Q TEXTOBJ 1043Q LINEDESCRIPTOR 1020Q LINEDESCRIPTOR 770Q INVERT 765Q TEXTURE 751Q LINEDESCRIPTOR 737Q SELECTION 731Q LINEDESCRIPTOR 722Q LINEDESCRIPTOR 713Q SELECTION 664Q INVERT 661Q TEXTURE 645Q LINEDESCRIPTOR 633Q SELECTION 625Q SELECTION 617Q LINEDESCRIPTOR 610Q SELECTION 522Q TEXTOBJ 514Q TEXTOBJ 506Q SELECTION 500Q SELECTION 472Q SELECTION 437Q SELECTION 431Q SELECTION 210Q TEXTOBJ 202Q TEXTOBJ 174Q SELECTION 166Q SELECTION 133Q SELECTION 125Q SELECTION 112Q SELECTION 104Q SELECTION 66Q TEXTOBJ 54Q SELECTION 43Q SELECTION 27Q SELECTION 14Q SELECTION 3 SELECTION) () TEDIT.GETPOINT D1 (P 0 TSEL I 1 SEL I 0 STREAM) AA @ HdgHgH o kIIk(66Q SHOULDNT 6 TEXTOBJ) (54Q SELECTION 46Q RIGHT 37Q SELECTION 30Q LEFT 22Q SELECTION 11Q TEXTOBJ) ( 63Q "Selection's POINT is neither RIGHT nor LEFT.") TEDIT.GETSEL D1 (I 0 STREAM) @`H (24Q NCREATE2) (20Q SELECTIONTYPE# 10Q TEXTOBJ 3 STREAM) () TEDIT.MAKESEL D1 (P 1 TEXTOBJ P 0 SEL I 3 POINT I 2 LEN I 1 CH# I 0 STREAM) n@@H HAHAdBغdJJ HB HCgHIHkkjhIHI Hhi h(152Q \SHOWSEL 143Q \FIXSEL 27Q \SHOWSEL) (133Q TEXTOBJ 115Q SELECTION 106Q SELECTION 100Q LEFT 72Q SELECTION 63Q SELECTION 42Q SELECTION 33Q SELECTION 16Q STREAM 10Q TEXTOBJ 3 STREAM) () TEDIT.SCANSEL D1 (P 1 SEL P 0 TEXTOBJ I 0 STREAM) 0@HYdjIH I h(44Q \SETUPGETCH) (51Q SELECTION 36Q SELECTION 23Q SELECTION 14Q TEXTOBJ 3 STREAM) () TEDIT.SET.SEL.LOOKS D1 (P 0 WASON I 1 OPERATION I 0 SEL) @jh@ Adg @n@k@kg@nww@k@jAdg!@nww@l@jg@m@n@@jrAdg!@n@n@@jKg @n@n@@k'Ag!@n@n@@kk@hH h(433Q \SHOWSEL 21Q \SHOWSEL) (416Q SELECTION 404Q SELECTION 372Q SELECTION 363Q INVERTED 351Q SELECTION 337Q SELECTION 325Q SELECTION 316Q PENDINGDEL 305Q SELECTION 273Q SELECTION 261Q SELECTION 251Q DELETE 236Q SELECTION 224Q SELECTION 213Q SELECTION 204Q MOVE 172Q SELECTION 161Q SELECTION 147Q SELECTION 137Q COPYLOOKS 123Q SELECTION 113Q SELECTION 101Q SELECTION 72Q COPY 60Q SELECTION 50Q SELECTION 36Q SELECTION 26Q NORMAL 3 SELECTION) () TEDIT.SETSEL D1 (P 2 TEXTLEN P 1 SEL P 0 TEXTOBJ I 6 OPERATION I 5 LEAVECARETLOOKS I 4 PENDINGDELFLG I 3 POINT I 2 LEN I 1 CH# I 0 STREAM) +@ aHYHZI A`AI IjIkAAkJkػdKKIkAAkABJkؼdLLdMM IBdJJI IپdNN IAJCgIJBkIhIIH IHDHkFIFgI IFg IkkjhEHHI 4HIH Ihi I(447Q \SHOWSEL 440Q \FIXSEL 421Q \TEDIT.GET.INSERT.CHARLOOKS 367Q \TEDIT.SET.SEL.LOOKS 354Q TEDIT.RESET.EXTEND.PENDING.DELETE 305Q \CHTOPC 45Q \COPYSEL 30Q \SHOWSEL 3 TEXTOBJ) (430Q TEXTOBJ 414Q TEXTOBJ 374Q SELECTION 364Q NORMAL 347Q PENDINGDEL 333Q TEXTOBJ 321Q SELECTION 310Q PIECE 300Q TEXTOBJ 272Q SELECTION 266Q SELECTION 257Q SELECTION 242Q SELECTION 233Q LEFT 221Q SELECTION 200Q SELECTION 172Q SELECTION 157Q SELECTION 115Q SELECTION 65Q SELECTION 52Q SELECTION 35Q SELECTIONTYPE# 21Q TEXTOBJ 12Q TEXTOBJ) () TEDIT.SHOWSEL D1 (P 0 TEXTOBJ I 2 SEL I 1 ONFLG I 0 STREAM) +@BBHBH BHhA h(47Q \SHOWSEL 30Q \FIXSEL) (40Q TEXTOBJ 17Q SELECTION 3 STREAM) () (PRETTYCOMPRINT TEDITSELECTIONCOMS) (RPAQQ TEDITSELECTIONCOMS ((RECORDS SELECTION) (FNS TEDIT.SEL.AS.STRING TEDIT.SELECTED.PIECES \TEDIT.FIND.FIRST.LINE \TEDIT.FIND.LAST.LINE \TEDIT.FIND.OVERLAPPING.LINE \TEDIT.FIND.PROTECTED.END \TEDIT.FIND.PROTECTED.START \TEDIT.WORD.BOUND) (FILES TEXTOFD) (CONSTANTS (COPYSELSHADE 30583) ( COPYLOOKSSELSHADE 30583) (EDITMOVESHADE -1) (EDITGRAY 32800)) (INITVARS (TEDIT.EXTEND.PENDING.DELETE T )) (VARS (TEDIT.SELECTION (create SELECTION)) (TEDIT.SCRATCHSELECTION (create SELECTION)) ( TEDIT.SHIFTEDSELECTION (create SELECTION HOW_COPYSELSHADE HASCARET_NIL)) (TEDIT.COPYLOOKSSELECTION ( create SELECTION HOW_COPYLOOKSSELSHADE HASCARET_NIL)) (TEDIT.MOVESELECTION (CREATE SELECTION HOW_EDITMOVESHADE HASCARET_NIL HOWHEIGHT_32767)) (TEDIT.DELETESELECTION (CREATE SELECTION HOW_BLACKSHADE HASCARET_NIL HOWHEIGHT_32767)) SELECTION SELECTION (TEDIT.SELPENDING NIL)) (GLOBALVARS TEDIT.SELECTION TEDIT.SCRATCHSELECTION TEDIT.MOVESELECTION TEDIT.SHIFTEDSELECTION TEDIT.COPYLOOKSSELECTION TEDIT.DELETESELECTION TEDIT.SELPENDING TEDIT.EXTEND.PENDING.DELETE) (COMS (* Selection manipulating code) (FNS \SHOWSEL TEDIT.EXTEND.SEL TEDIT.RESET.EXTEND.PENDING.DELETE TEDIT.SELECT TEDIT.SCAN.LINE TEDIT.SELECT.LINE.SCANNER \TEDIT.SET.SEL.LOOKS \COPYSEL \FIXSEL \TEDIT.FIXDELSEL \TEDIT.FIXINSSEL \TEDIT.FIXSELS \TEDIT.REFRESH.SHOWSEL \TEDIT.SEL.CHANGED? \TEDIT.SELECT.CHARACTER \TEDIT.SHOWSELS \TEDIT.UPDATE.SHOWSEL) (FNS TEDIT.GETPOINT TEDIT.GETSEL TEDIT.MAKESEL TEDIT.SCANSEL TEDIT.SET.SEL.LOOKS TEDIT.SETSEL TEDIT.SHOWSEL)))) (DATATYPE SELECTION (Y0 (* Y value of topmost line of selection) X0 (* X value of left edge of selection) DX (* Width of the selection, if it's on one line.) CH# (* CH# of the first selected character) XLIM (* X value of right edge of last selected character) CHLIM (* CH# of the last character in the selection) DCH (* # of characters selected (can be zero, for point selection.)) L1 (* -> line descriptor for the line where the first selected character is) LN (* -> line descriptor for the line which contains the end of the selection) YLIM (* Y value of the bottom of the line that ends the selection) POINT (* Which end should the caret appear at? (LEFT or RIGHT)) (SET FLAG) (* T if this selection is real; NIL if not) (\TEXTOBJ FULLXPOINTER) (* TEXTOBJ that describes the selected text) SELKIND (* What kind of selection? CHAR or WORD or LINE or PARA) HOW (* SHADE used to highlight this selection) HOWHEIGHT (* Height of the highlight (1 usually, full line for delete selection...)) ( HASCARET FLAG) (* T if there should be a caret for this selection) SELOBJ (* If this selection is inside an object, which object?) (ONFLG FLAG) (* T if the selection is highlighted on the screen, else NIL) SELOBJINFO (* A Place for the selected object to put info about selection inside itself.)) SET _ NIL HOW _ BLACKSHADE HOWHEIGHT _ 1 HASCARET _ T Y0 _ 0 X0 _ 0 POINT _ (QUOTE LEFT) L1 _ (LIST NIL) LN _ (LIST NIL)) (/DECLAREDATATYPE (QUOTE SELECTION) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG FULLXPOINTER POINTER POINTER POINTER FLAG POINTER FLAG POINTER))) (FILESLOAD TEXTOFD) (RPAQQ COPYSELSHADE 30583) (RPAQQ COPYLOOKSSELSHADE 30583) (RPAQQ EDITMOVESHADE -1) (RPAQQ EDITGRAY 32800) (CONSTANTS (COPYSELSHADE 30583) (COPYLOOKSSELSHADE 30583) (EDITMOVESHADE -1) (EDITGRAY 32800)) (RPAQ? TEDIT.EXTEND.PENDING.DELETE T) (RPAQ TEDIT.SELECTION (create SELECTION)) (RPAQ TEDIT.SCRATCHSELECTION (create SELECTION)) (RPAQ TEDIT.SHIFTEDSELECTION (create SELECTION HOW_COPYSELSHADE HASCARET_NIL)) (RPAQ TEDIT.COPYLOOKSSELECTION (create SELECTION HOW_COPYLOOKSSELSHADE HASCARET_NIL)) (RPAQ TEDIT.MOVESELECTION (CREATE SELECTION HOW_EDITMOVESHADE HASCARET_NIL HOWHEIGHT_32767)) (RPAQ TEDIT.DELETESELECTION (CREATE SELECTION HOW_BLACKSHADE HASCARET_NIL HOWHEIGHT_32767)) (RPAQQ SELECTION NOBIND) (RPAQQ SELECTION NOBIND) (RPAQQ TEDIT.SELPENDING NIL) (PUTPROPS TEDITSELECTION COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985)) NIL