(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10) (FILECREATED "14-Sep-94 18:18:18" ("compiled on " {DSK}lispusers>QEDIT.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "25-Jan-88 14:27:06" "{FireFS:CS:Univ Rochester}LispUsers>Lyric>QEDIT.;9" 30305 changes to%: (VARS QEDITCOMS) (RECORDS QEDITOR QENTRY) (FNS QEDIT QEDIT.CURRENT.QUEUE QEDIT.RESET QE-ACQUIRE-EDITOR QE-ADJUST-SCROLL-PARAMS QE-BUTTONEVENTFN QE-CLOSEFN QE-CMD-INSERT QE-CMD-EDIT QE-CMD-DELETE QE-CMD-LEFT QE-CMD-RIGHT QE-COLLECT-QUEUE QE-COMPUTE-LABEL QE-CREATE-EDITOR QE-CREATE-ENTRIES QE-CREATE-ENTRY QE-DISPLAY-ENTRIES QE-DISPLAY-ENTRIES-AUX QE-DISPLAY-ENTRY QE-FOCUS-SELECTION QE-INIT-EDITOR QE-MARKASCHANGED QE-MARK-VISIBLE-ENTRIES QE-MAX-INDEX-WIDTH QE-MAX-LABEL-WIDTH QE-MOUSE-IN-ENTRYP QE-MOUSED-ENTRY QE-PLACE-ENTRIES QE-PROMPTPRINT QE-REDISPLAY-ENTRY QE-RELEASE-EDITOR QE-REPAINTFN QE-RESET-DSP QE-RESHAPEFN QE-RUN-EDITOR QE-SCROLLFN QE-SELECT-ENTRY QE-SLIDE-ENTRY QE-TOGGLE-ENTRY QE-UNMARKASCHANGED QE-WHENSELECTEDFN QE-CMD-ADD) previous date%: "22-Jan-88 15:59:42" {ICE}LISPUSERS>KOTO>QEDIT.;9) QEDITA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 QEDITOR F 1 SI::*RESETFORMS* F 2 *QEDITPROPS* F 3 QUEUE F 4 PROPS) -gPhhdQcPSd£d‘hTR (42 QE-RUN-EDITOR 37 QE-INIT-EDITOR 32 \APPEND2) (4 QE-RELEASE-EDITOR) () QEDIT :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 QEDITOR I 1 PROPS I 0 QUEUE F 4 LISPXHIST) &T!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 QEDITA0001 4 QE-ACQUIRE-EDITOR) (16 SI::RESETUNWIND) () QEDIT.CURRENT.QUEUE :D8 (F 0 QEDITOR) %g PÃ–P o (34 ERROR 23 QE-COLLECT-QUEUE 9 BOUNDP) (16 QEDITOR 4 QEDITOR) ( 29 "No current QEdit in progress") QEDIT.RESET :D8 (P 1 QEDITOR) @`Hµh´*ho hYÉgð¥Iµßi°ÜHX°Ói(26 QE-PROMPTPRINT) (60 *QEDITORS* 42 RELEASED 35 QEDITOR 4 *QEDITORS*) ( 21 "Can't reset QEdit while edits in progress") QE-ACQUIRE-EDITOR :D8 (P 1 QEDITOR) =`Hµ¹`Ih IYÉgð³ïHX°Ï(30 \NCONC2 16 QE-CREATE-EDITOR) (51 RELEASED 44 QEDITOR 35 *QEDITORS* 22 *QEDITORS* 4 *QEDITORS*) () QE-ADJUST-SCROLL-PARAMS :D8 (I 4 YOFFSET I 3 XOFFSET I 2 HEIGHT I 1 WIDTH I 0 QEDITOR) /@C@D@ÉgjdAB(44 PUTWINDOWPROP 39 CREATEREGION) (30 EXTENT 23 QEDITOR 14 QEDITOR 5 QEDITOR) () QE-BUTTONEVENTFN :D8 (P 1 BUTTON P 0 QEDITOR I 0 WINDOW) J@g `dlålð–¿g‹låkð´g@ H´I´Hd Ih(70 QE-SLIDE-ENTRY 64 QE-MOUSED-ENTRY 51 TOTOPW 10 GETWINDOWUSERPROP) (42 MIDDLE 29 LEFT 15 LASTMOUSEBUTTONS 5 QEDITOR) () QE-CLOSEFN :D8 (P 0 QEDITOR I 0 WINDOW) 0@g Hd²É •gHg h(10 GETWINDOWUSERPROP) (42 Done 37 QEDITOR 30 DON'T 22 QEDITOR 5 QEDITOR) () QE-CMD-INSERT :D8 (P 4 ENTRYP P 1 ENTRIES P 0 NEWENTRY I 0 QEDITOR) Ä0@É¬@o h@Éº@É"kJXd¬@o h@H X@ÉYdµ@Hh¿°K\µ<@HI¿@@ÉkÔ@ @ @ @H hÉ²LHLLMNO°·L°£(159 QE-SELECT-ENTRY 152 QE-DISPLAY-ENTRIES 146 QE-PLACE-ENTRIES 140 QE-MARKASCHANGED 68 QE-CREATE-ENTRY 59 QE-PROMPTPRINT 22 QE-PROMPTPRINT) (167 QENTRY 128 QEDITOR 122 QEDITOR 109 QEDITOR 87 QEDITOR 75 QEDITOR 39 QEDITOR 30 QEDITOR 8 QEDITOR) ( 54 "Nothing to insert" 17 "Don't know how to insert elements") QE-CMD-EDIT :D8 (P 3 NEWLABEL P 2 OLDLABEL P 1 RESULT P 0 ENTRY I 0 QEDITOR) ŒP@ÉXd¬@o h@É¬@o h@É¼HÉ@É"lLYd´ßHI¿HÉº@H ¿HÉ[Jô³¶@ ¿@ ¿°¦(135 QE-DISPLAY-ENTRIES 128 QE-PLACE-ENTRIES 108 QE-COMPUTE-LABEL 46 QE-PROMPTPRINT 24 QE-PROMPTPRINT) (115 QENTRY 98 QENTRY 88 QENTRY 71 QEDITOR 63 QENTRY 54 QEDITOR 32 QEDITOR 8 QEDITOR) ( 41 "QEdit selection cannot be edited" 19 "Nothing selected") QE-CMD-DELETE :D8 (P 0 OLDENTRY I 0 QEDITOR) —@ÉH§@o°|@É²l@É¹HÉ@É"lI²L@H@É ¿@@ÉmÿÔ¿@h¿@ ¿@ ¿@ Š@o h(147 QE-PROMPTPRINT 135 QE-DISPLAY-ENTRIES 128 QE-PLACE-ENTRIES 121 QE-MARKASCHANGED 82 DREMOVE) (111 QEDITOR 97 QEDITOR 91 QEDITOR 75 QEDITOR 68 QEDITOR 53 QEDITOR 45 QENTRY 36 QEDITOR 26 QEDITOR 5 QEDITOR) ( 142 "QEdit selection cannot be deleted" 18 "Nothing selected") QE-CMD-LEFT :D8 (P 2 LEFT P 1 ENTRIES P 0 RIGHT I 0 QEDITOR) Ÿ@É@ÉHµ@o hIðœ@o HII¹ºHIð²öJHÉHJÉ¿JHÉHJÉ¿@ @H @J @J (156 QE-SELECT-ENTRY 149 QE-REDISPLAY-ENTRY 142 QE-REDISPLAY-ENTRY 135 QE-MARKASCHANGED 49 QE-PROMPTPRINT 32 QE-PROMPTPRINT) (122 QENTRY 116 QENTRY 108 QENTRY 102 QENTRY 89 QENTRY 83 QENTRY 75 QENTRY 69 QENTRY 13 QEDITOR 5 QEDITOR) ( 44 "Can't move selection further left" 27 "Nothing selected") QE-CMD-RIGHT :D8 (P 2 RIGHT P 1 ENTRIES P 0 LEFT I 0 QEDITOR) @É@ÉH¬@o hIºHII¹ð²õJ¬@o HHJÉJHÉ¿HJÉJHÉ¿@ @H @J @J (154 QE-SELECT-ENTRY 147 QE-REDISPLAY-ENTRY 140 QE-REDISPLAY-ENTRY 133 QE-MARKASCHANGED 59 QE-PROMPTPRINT 31 QE-PROMPTPRINT) (120 QENTRY 114 QENTRY 106 QENTRY 100 QENTRY 87 QENTRY 81 QENTRY 73 QENTRY 67 QENTRY 13 QEDITOR 5 QEDITOR) ( 54 "Can't move selection further right" 26 "Nothing selected") QE-COLLECT-QUEUE :D8 (P 3 ENTRY I 0 QEDITOR) .0@É°dKÉ¸IµHhZH&¹µäJNIL (23 QENTRY 8 QEDITOR) () QE-COMPUTE-LABEL :D8 (P 2 LABELFONT P 1 LABEL I 1 ENTRY I 0 QEDITOR) [@É²%@ÉAÉ@É"lHµ AÉ@É AIAIJ A(85 STRINGWIDTH) (78 QENTRY 69 QENTRY 58 QEDITOR 50 QENTRY 34 QEDITOR 26 QENTRY 15 QEDITOR 5 QEDITOR) () QE-CREATE-EDITOR :D8 (P 5 QEDITWINDOW P 2 QEDITMENU) ê`do¿do¿di¿dg¿dg ¿dg¿jdnÿdhHdI ¿!Jo MggMggMggMggMggMgo`dJ¿dM¿M É»dK¿M ¼dL¿(225 GETPROMPTWINDOW 211 \INSUREWINDOW 189 PUTWINDOWPROP 173 PUTWINDOWPROP 157 PUTWINDOWPROP 141 WINDOWADDPROP 125 WINDOWADDPROP 109 WINDOWADDPROP 90 CREATEMENUEDWINDOW) (194 |QEDITORTYPE#| 179 SCROLLEXTENTUSE 168 QE-SCROLLFN 163 SCROLLFN 152 QE-BUTTONEVENTFN 147 BUTTONEVENTFN 136 QE-RESHAPEFN 131 RESHAPEFN 120 QE-REPAINTFN 115 REPAINTFN 104 QE-CLOSEFN 99 CLOSEFN 52 DEFAULTMENUHELDFN 43 CLRPROMPT 34 QE-WHENSELECTEDFN 4 |MENUTYPE#|) ( 184 (LIMIT . LIMIT) 85 "Queue Editor" 20 (MODERN 12) 11 (("<--" Left "Moves selected entry to the left") ("-->" Right "Moves selected entry to the right") (Insert Insert "Insert a new entry before the selected one") (Edit Edit "Edit the selected entry") (Delete Delete "Delete the selected entry") (Abort Abort "Abort Queue Editor, returning original queue") (Done Done "Exit Queue Editor, returning current queue"))) QE-CREATE-ENTRIES :D8 (P 4 ENTRIES P 3 ELEMENT I 0 QEDITOR) R0@É°d@K ¸IµHhZH&¹µåJ@L@L @hh(67 LENGTH 24 QE-CREATE-ENTRY) (75 QEDITOR 61 QEDITOR 52 QEDITOR 8 QEDITOR) () QE-CREATE-ENTRY :D8 (I 1 ELEMENT I 0 QEDITOR) @`dA¿ (16 QE-COMPUTE-LABEL) (5 |QENTRYTYPE#|) () QE-DISPLAY-ENTRIES :D8 (I 0 QEDITOR) *@ @dÉ@ @dÉ (39 QE-SELECT-ENTRY 25 QE-DISPLAY-ENTRIES-AUX 20 QE-MARK-VISIBLE-ENTRIES 5 QE-RESET-DSP) (32 QEDITOR 12 QEDITOR) () QE-DISPLAY-ENTRIES-AUX :D8 (I 2 N I 1 ENTRIES I 0 QEDITOR) !A´B”Bjñ´@ABd‘kÙ@A (30 QE-DISPLAY-ENTRY 22 QE-DISPLAY-ENTRIES-AUX) NIL () QE-DISPLAY-ENTRY :D8 (P 0 DSP I 1 ENTRY I 0 QEDITOR) ‡AÉ´}@É1AÉYIIIknÿÿH ¿AÉ ZJH¿AÉH AÉ[KH¿AÉH Ahh(122 PRIN1 107 MOVETO 88 PRIN1 73 MOVETO 53 GRAYBOXAREA) (128 QENTRY 114 QENTRY 94 QENTRY 80 QENTRY 60 QENTRY 26 QENTRY 15 QEDITOR 5 QENTRY) () QE-FOCUS-SELECTION :D8 (P 3 QEDITREGION P 2 QEDITWINDOW P 1 QENTRYBOX P 0 QENTRY I 1 COMMAND I 0 QEDITOR) m@@ÉX´_h@ÉZ [HÉY ³>JKKKØmÿØÔIIIØmÿØÔÕl×j¿A²@oAoih(103 QE-PROMPTPRINT 82 SCROLLW 43 SUBREGIONP 28 DSPCLIPPINGREGION) (35 QENTRY 20 QEDITOR 8 QEDITOR) ( 98 "' ignored" 92 "Queue Editor command `") QE-INIT-EDITOR :D8 (P 1 QEDITWINDOW P 0 QEDITMENU I 2 PROPS I 1 QUEUE I 0 QEDITOR) ý@É@ÉHg@Ig@Ig@Bg'Z¿J@Ad£d‘h@Bg'@Bg' @Bg'µ Bg'@Bg'@Bg'@Bg'"@h @h$@É @É I @É @(249 CLEARW 236 CLEARW 230 DSPFONT 120 FONTCREATE 71 PUTWINDOWPROP 42 PUTWINDOWPROP 30 PUTMENUPROP) (242 QEDITOR 223 QEDITOR 215 QEDITOR 206 QEDITOR 197 QEDITOR 188 CONTEXT 182 QEDITOR 173 DELETEFN 167 QEDITOR 158 EDITFN 152 QEDITOR 143 ADDFN 134 INSERTFN 128 QEDITOR 114 LABELFONT 108 QEDITOR 99 LABELFN 93 QEDITOR 77 QEDITOR 60 TITLE 54 QEDITOR 48 TITLE 36 QEDITOR 24 QEDITOR 13 QEDITOR 5 QEDITOR) () QE-MARKASCHANGED :D8 (I 0 QEDITOR) ;@É$³0@i$¿@Égo@É @(55 PUTWINDOWPROP 50 CONCAT) (43 QEDITOR 32 TITLE 25 QEDITOR 15 QEDITOR 5 QEDITOR) ( 37 "* ") QE-MARK-VISIBLE-ENTRIES :D8 (P 3 ENTRY P 2 CLIPPINGREGION P 1 LASTINDEX I 0 QEDITOR) J@Éjh@É #HµI[JKÉ \¿L˜KÉ¹HX°Ô(52 REGIONSINTERSECTP 22 DSPCLIPPINGREGION) (64 QENTRY 45 QENTRY 38 QENTRY 15 QEDITOR 5 QEDITOR) () QE-MAX-INDEX-WIDTH :D8 (I 0 QEDITOR) @Él Ö@É (23 STRINGWIDTH) (16 QEDITOR 5 QEDITOR) () QE-MAX-LABEL-WIDTH :D8 (I 0 QEDITOR) <@Éo@É "HµIºIJÉ»dKñ¡¿K¹HX°å(25 STRINGWIDTH) (43 QENTRY 18 QEDITOR 5 QEDITOR) ( 12 "Some Label") QE-MOUSE-IN-ENTRYP :D8 (P 0 QWINDOW I 1 ENTRY I 0 QEDITOR) &@ÉAÉH H (35 INSIDEP 30 LASTMOUSEY 24 LASTMOUSEX) (16 QENTRY 5 QEDITOR) () QE-MOUSED-ENTRY :D8 (P 1 ENTRY I 0 QEDITOR) &@ÉHµh¹@I ”IµiHX°é(25 QE-MOUSE-IN-ENTRYP) (5 QEDITOR) () QE-PLACE-ENTRIES :D8 (P 27 INDEX-Y P 26 INDEX-X P 25 LABEL-Y P 24 LABEL-X P 23 ENTRY P 22 I P 20 NEWXOFFSET P 18 YVISIBLE P 17 XVISIBLE P 16 NEXTBOX P 15 LASTBOX P 14 Y P 13 X P 12 YLBLOFFSET P 11 XLBLOFFSET P 10 BIGBOX-W P 9 XOFFSET P 8 REGION P 7 YOFFSET P 6 BIGBOX-H P 5 INDEX-W P 4 LABEL-W P 3 FONTHEIGHT P 2 FONT P 1 ENTRIES P 0 DSP I 0 QEDITOR) ÊðP@ÉX@ÉY@É ZdÈ [@ \@ ]KlÖl×^dl×kØ_LMÔlÔ_MlÔ_hH _dOÕO×kØ_"ONÕO×kØ_$O"O$ó² OOÕO$×OO(OÕÔ_¿O(_l_NKlÔÕ_l_d_IkO*µ@OOÔONÔOO h_.O,¿O _¿OOON_ ¿O.O ¿O.OkØOkØOlÕNlÕ¿OOÔOOÔO.O0O2LK O,J ½OOÔMlÔÕOlÔO.O4O6MKOµ"OOÔ_¿OOÔ_¿O*_*¿O,kÔ_,¿±ÿ$O _&¿O.O&kØO&kØO&O&¿°±(451 CREATEREGION 414 INTERSECTREGIONS 368 CREATEREGION 331 STRINGWIDTH 320 CREATEREGION 286 CREATEREGION 242 CREATEREGION 210 QE-ADJUST-SCROLL-PARAMS 92 DSPCLIPPINGREGION 54 QE-MAX-INDEX-WIDTH 47 QE-MAX-LABEL-WIDTH) (424 QENTRY 357 QENTRY 309 QENTRY 264 QENTRY 252 QENTRY 220 QENTRY 38 FONTDESCRIPTOR 29 QEDITOR 20 QEDITOR 11 QEDITOR) () QE-PROMPTPRINT :D8 (P 6 I P 4 I P 2 PROMPTW P 1 QEDITOR P 0 PROMPTCNT) €ekHóšo kaIÃ².IÉJ HlLdKó‘haJ ¿LkÔ\°î` HlNdMó›` a` ¿NkÔ^°à(119 PRIN1 107 TERPRI 85 TERPRI 68 PRIN1 48 CLEARW 17 SHOULDNT) (114 PROMPTWINDOW 102 PROMPTWINDOW 80 PROMPTWINDOW 37 QEDITOR 29 QEDITOR) ( 12 "Missing QEditor arg") QE-REDISPLAY-ENTRY :D8 (P 1 LBLBOX P 0 DSP I 1 ENTRY I 0 QEDITOR) MAÉ´C@A @ÉAÉ IjgHIIHAÉH h(73 PRIN1 59 MOVETO 48 DSPFILL 16 QE-TOGGLE-ENTRY) (65 QENTRY 42 REPLACE 30 QENTRY 22 QEDITOR 5 QENTRY) () QE-RELEASE-EDITOR :D8 (P 2 PROMPTW P 1 QEDITWINDOW P 0 QEDITMENU I 0 QEDITOR) c@É@É@ÉHghIghI –I ¿J –J ¿@gg(77 CLOSEW 70 OPENWP 63 CLOSEW 56 OPENWP 50 PUTWINDOWPROP 38 PUTMENUPROP) (96 RELEASED 89 RELEASED 84 QEDITOR 44 QEDITOR 32 QEDITOR 21 QEDITOR 13 QEDITOR 5 QEDITOR) () QE-REPAINTFN :D8 (P 0 QEDITOR I 0 WINDOW) @g Hd• h(21 QE-DISPLAY-ENTRIES 10 GETWINDOWUSERPROP) (5 QEDITOR) () QE-RESET-DSP :D8 (P 0 DSP I 0 QEDITOR) n@ÉnÿÿH ¿hddH¿hH YlÔIIØmÿØ@É È lÔÕH¿@ÉH ¿oH h(106 PRIN1 94 PRIN1 79 MOVETO 37 DSPCLIPPINGREGION 29 DSPFILL 19 DSPRIGHTMARGIN) (86 QEDITOR 67 FONTDESCRIPTOR 60 QEDITOR 5 QEDITOR) ( 100 " elements") QE-RESHAPEFN :D8 (P 0 QEDITOR I 2 OLDREG I 1 OLDBM I 0 WINDOW) .@g HµABB@h ¿H °ò(42 QE-DISPLAY-ENTRIES 35 QE-PLACE-ENTRIES 28 BKBITBLT 10 GETWINDOWUSERPROP) (5 QEDITOR) () QE-RUN-EDITOR :D8 (P 0 COMMAND I 0 QEDITOR) @ ¿@ ¿@ ¿¿@É X²ñ@ ¿Hdgð²¿@H ’±½@ ±³gð²@H ’±¡@ ±—Hdgð²¿@H ’±‚@ °xgð²@H ³h@ °_Hdgð²¿@H ³L@ °Cgð˜@ÉHdgð—¿@ gð—@ °@oHo¿@h ±ÿ(254 QE-PROMPTPRINT 235 QE-DISPLAY-ENTRIES 221 QE-COLLECT-QUEUE 187 QE-CMD-DELETE 179 QE-FOCUS-SELECTION 159 QE-CMD-EDIT 151 QE-FOCUS-SELECTION 134 QE-CMD-INSERT 124 QE-FOCUS-SELECTION 103 QE-CMD-RIGHT 93 QE-FOCUS-SELECTION 75 QE-CMD-LEFT 65 QE-FOCUS-SELECTION 46 QE-PROMPTPRINT 28 BLOCK 22 QE-DISPLAY-ENTRIES 15 QE-PLACE-ENTRIES 8 QE-CREATE-ENTRIES) (261 QEDITOR 227 Display 212 Done 202 QEDITOR 194 Abort 168 Delete 141 Edit 113 Insert 83 Right 54 Left 35 QEDITOR) ( 249 "' not yet implemented." 243 "Queue Editor command `") QE-SCROLLFN :D8 (P 13 \INTERRUPTABLE P 12 NEWDSPY P 11 NEWDSPX P 10 DY P 9 DX P 8 THUMBFLG P 7 TOSTARTFLG P 6 EXTENT P 5 NEWREG P 4 OLDREG P 3 YOFFSET P 2 XOFFSET P 1 DSP P 0 QEDITOR I 3 CONTINUOUSFLG I 2 YDELTA I 1 XDELTA I 0 WINDOW) k° @g Xd´‚±VdÉYHÉZHÉ[hI \d ]@ É^jAó—i_¿jAÕ€A_¿jBó—i_¿jBÕ€B_¿C–J_¿K°HOµO²kOÕ__¿i_¿°0_¿i_¿°'Ojð¬Od² ™OJÖK×_¿ˆOKÖJ×_¿MO²ONÖoMÖÕjØO•MOÔ„MOÕMO²ONÖoMÖÕjØO–MOÔ…MOÕM@ É MLô³EhI LMÕÔhI LMÕÔ MI ¿OI ¿OI H h(359 QE-DISPLAY-ENTRIES 351 DSPYOFFSET 342 DSPXOFFSET 333 DSPCLIPPINGREGION 312 DSPYOFFSET 299 DSPXOFFSET 287 MAKEWITHINREGION 280 \INSUREWINDOW 166 \FZEROP 69 \INSUREWINDOW 62 COPY 55 DSPCLIPPINGREGION 13 GETWINDOWUSERPROP) (45 QEDITOR 36 QEDITOR 27 QEDITOR 8 QEDITOR) ( 246 0.5 203 0.5) QE-SELECT-ENTRY :D8 (P 0 OLD-SELECTION I 1 NEW-SELECTION I 0 QEDITOR) :@ÉH—@H ¿A˜@Ai¿@AAd›dHð§¿@ A(54 QE-FOCUS-SELECTION 30 QE-TOGGLE-ENTRY 19 QE-TOGGLE-ENTRY) (37 QEDITOR 5 QEDITOR) () QE-SLIDE-ENTRY :D8 (P 5 REG P 4 Y P 3 X P 2 QR P 1 R-OK P 0 L-OK I 2 BUTTON I 1 ENTRY I 0 QEDITOR) $id@É 3@ ¿@A ¿A´wBdgð²¿¿`lål°gð´R¿`låkð´@AÉ½@É »@É ¼MKL³™Bgð—@ hJ``¢±ÿvKdMýó²6¿LMMØmÿØýó²#H¢±ÿW@ ¿A@ bð”hX±ÿ?iY±ÿ:KMMØmÿØó¢±ÿ+LMó¢±ÿ"I¢±ÿ@ ¿A@ bð”hY±ÿiX±ÿ(276 QE-CMD-RIGHT 268 QE-PROMPTPRINT 218 QE-CMD-LEFT 210 QE-PROMPTPRINT 169 INSIDEP 151 QE-SELECT-ENTRY 135 INSIDEP 126 LASTMOUSEY 112 LASTMOUSEX 77 GETMOUSESTATE 51 GETMOUSESTATE 31 QE-SELECT-ENTRY 23 QE-PROMPTPRINT 14 WINDOWREGION) (164 LASTMOUSEY 159 LASTMOUSEX 143 LEFT 119 QEDITOR 105 QEDITOR 96 QENTRY 83 LASTMOUSEBUTTONS 69 MIDDLE 57 LASTMOUSEBUTTONS 42 LEFT 7 QEDITOR) () QE-TOGGLE-ENTRY :D8 (P 1 BOX P 0 DSP I 2 SELECT? I 1 ENTRY I 0 QEDITOR) dAÉ´ZBAÉð³M@ÉAÉInÿÿgH¿AÉYµABBnÿÿgH¿°åh(93 DSPFILL 55 DSPFILL) (87 INVERT 74 QENTRY 62 QENTRY 49 INVERT 35 QENTRY 27 QEDITOR 16 QENTRY 5 QENTRY) () QE-UNMARKASCHANGED :D8 (I 0 QEDITOR) !@h$@É@É @(29 WINDOWPROP) (22 QEDITOR 14 QEDITOR 5 QEDITOR) () QE-WHENSELECTEDFN :D8 (P 0 QEDITOR I 1 MENU I 0 ITEM) BAg Hd²0É ²HoHÉ oŠH@ h(50 QE-PROMPTPRINT 10 GETMENUPROP) (57 QEDITOR 38 QEDITOR 22 QEDITOR 5 QEDITOR) ( 45 "'" 32 "Queue Editor busy, executing `") (PRETTYCOMPRINT QEDITCOMS) (RPAQQ QEDITCOMS ((* ;; "Interface") (FNS QEDIT QEDIT.CURRENT.QUEUE QEDIT.RESET) (INITVARS ( *QEDITPROPS* (QUOTE (TITLE "Queue Editor" LABELFONT (HELVETICA 8))))) (* ;; "Implementation") (COMS ( DECLARE%: DONTCOPY (RECORDS QEDITOR QENTRY)) (INITRECORDS QEDITOR QENTRY)) (FNS QE-ACQUIRE-EDITOR QE-ADJUST-SCROLL-PARAMS QE-BUTTONEVENTFN QE-CLOSEFN QE-CMD-INSERT QE-CMD-EDIT QE-CMD-DELETE QE-CMD-LEFT QE-CMD-RIGHT QE-COLLECT-QUEUE QE-COMPUTE-LABEL QE-CREATE-EDITOR QE-CREATE-ENTRIES QE-CREATE-ENTRY QE-DISPLAY-ENTRIES QE-DISPLAY-ENTRIES-AUX QE-DISPLAY-ENTRY QE-FOCUS-SELECTION QE-INIT-EDITOR QE-MARKASCHANGED QE-MARK-VISIBLE-ENTRIES QE-MAX-INDEX-WIDTH QE-MAX-LABEL-WIDTH QE-MOUSE-IN-ENTRYP QE-MOUSED-ENTRY QE-PLACE-ENTRIES QE-PROMPTPRINT QE-REDISPLAY-ENTRY QE-RELEASE-EDITOR QE-REPAINTFN QE-RESET-DSP QE-RESHAPEFN QE-RUN-EDITOR QE-SCROLLFN QE-SELECT-ENTRY QE-SLIDE-ENTRY QE-TOGGLE-ENTRY QE-UNMARKASCHANGED QE-WHENSELECTEDFN) (INITVARS (*QEDITORS*)) ( GLOBALVARS *QEDITORS*) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) QEDIT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA QE-PROMPTPRINT))))) (RPAQ? *QEDITPROPS* (QUOTE (TITLE "Queue Editor" LABELFONT (HELVETICA 8)))) (/DECLAREDATATYPE (QUOTE QEDITOR) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((QEDITOR 0 POINTER) (QEDITOR 2 POINTER) (QEDITOR 4 POINTER) (QEDITOR 6 POINTER) (QEDITOR 8 POINTER) (QEDITOR 10 POINTER) (QEDITOR 12 POINTER) (QEDITOR 14 POINTER) (QEDITOR 16 POINTER) (QEDITOR 18 POINTER) (QEDITOR 20 POINTER) (QEDITOR 22 POINTER) (QEDITOR 24 POINTER) ( QEDITOR 26 POINTER) (QEDITOR 28 POINTER) (QEDITOR 30 POINTER) (QEDITOR 32 POINTER) (QEDITOR 34 POINTER ) (QEDITOR 36 POINTER) (QEDITOR 38 POINTER) (QEDITOR 40 POINTER))) (QUOTE 42)) (/DECLAREDATATYPE (QUOTE QENTRY) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((QENTRY 0 POINTER) (QENTRY 2 POINTER) (QENTRY 4 POINTER) ( QENTRY 6 POINTER) (QENTRY 8 POINTER) (QENTRY 10 POINTER) (QENTRY 12 POINTER) (QENTRY 14 POINTER) ( QENTRY 16 POINTER) (QENTRY 18 POINTER) (QENTRY 20 POINTER))) (QUOTE 22)) (RPAQ? *QEDITORS*) (PUTPROPS QEDIT FILETYPE :TCOMPL) (PUTPROPS QEDIT MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10)) (PUTPROPS QEDIT COPYRIGHT ("Johannes A. G. M. Koomen" 1987 1988)) NIL