(FILECREATED "22-Jan-88 15:59:55" ("compiled on " {ICE}LISPUSERS>KOTO>QEDIT.;9) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 28-Oct-87 ..." dated "28-Oct-87 09:02:30") (FILECREATED "22-Jan-88 15:59:42" {ICE}LISPUSERS>KOTO>QEDIT.;9 30284 changes to: (FNS QE-PLACE-ENTRIES QE-PROMPTPRINT QE-RELEASE-EDITOR QE-CREATE-EDITOR QE-INIT-EDITOR QE-RESHAPEFN QE-SLIDE-ENTRY QEDIT QEDIT.CURRENT.QUEUE QEDIT.RESET QE-ACQUIRE-EDITOR QE-ADJUST-SCROLL-PARAMS QE-BUTTONEVENTFN QE-CLOSEFN QE-DISPLAY-ENTRY QE-MARKASCHANGED QE-REPAINTFN QE-WHENSELECTEDFN QE-CMD-ADD QE-RUN-EDITOR QE-CMD-EDIT QE-CMD-DELETE QE-CMD-LEFT QE-CMD-RIGHT QE-DISPLAY-ENTRIES QE-FOCUS-SELECTION QE-MARK-VISIBLE-ENTRIES QE-MOUSE-IN-ENTRYP QE-REDISPLAY-ENTRY QE-RESET-DSP QE-SCROLLFN QE-SELECT-ENTRY QE-TOGGLE-ENTRY QE-CMD-INSERT) (VARS QEDITCOMS) (RECORDS QEDITOR QENTRY) previous date: "22-Jan-88 13:44:55" {ICE}LISPUSERS>KOTO>QEDIT.;7) QEDITA0001 D1 (NAME ERRORSET F 0 QEDITOR F 1 RESETVARSLST F 2 QUEUE F 3 RESETY F 4 PROPS F 5 *QEDITPROPS*) )gPhhhQcPRddhTU ci(43Q QE-RUN-EDITOR 40Q QE-INIT-EDITOR 35Q \APPEND2) (2 QE-RELEASE-EDITOR) () QEDIT D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 QEDITOR I 1 PROPS I 0 QUEUE F 4 LISPXHIST F 5 RESETVARSLST) (T!Uog hg[ KJ(43Q ERROR! 36Q RESETRESTORE 24Q QEDITA0001 2 QE-ACQUIRE-EDITOR) (32Q ERROR 21Q INTERNAL) ( 16Q (QEDITA0001)) QEDIT.CURRENT.QUEUE D1 (F 0 QEDITOR) g P`P o (31Q ERROR 21Q QE-COLLECT-QUEUE 5 BOUNDP) (13Q QEDITORTYPE# 2 QEDITOR) ( 26Q "No current QEdit in progress") QEDIT.RESET D1 NIL 5`Hh#ho hYgIiHXi(25Q QE-PROMPTPRINT) (61Q *QEDITORS* 41Q RELEASED 34Q QEDITOR 2 *QEDITORS*) ( 22Q "Can't reset QEdit while edits in progress") QE-ACQUIRE-EDITOR D1 (P 1 QEDITOR) /`H`Ih IYgHX(26Q \NCONC2 14Q QE-CREATE-EDITOR) (45Q RELEASED 40Q QEDITOR 31Q *QEDITORS* 20Q *QEDITORS* 2 *QEDITORS*) () QE-ADJUST-SCROLL-PARAMS D1 (I 4 YOFFSET I 3 XOFFSET I 2 HEIGHT I 1 WIDTH I 0 QEDITOR) #@C@D@gjdAB (40Q PUTWINDOWPROP 35Q CREATEREGION) (26Q EXTENT 21Q QEDITOR 12Q QEDITOR 3 QEDITOR) () QE-BUTTONEVENTFN D1 (P 1 BUTTON P 0 QEDITOR I 0 WINDOW) :@g `dllglkg@ HI Hd I h(66Q QE-SLIDE-ENTRY 62Q QE-MOUSED-ENTRY 47Q TOTOPW 6 GETWINDOWUSERPROP) (40Q MIDDLE 25Q LEFT 11Q LASTMOUSEBUTTONS 3 QEDITOR) () QE-CLOSEFN D1 (I 0 WINDOW) @g dd gg h(6 GETWINDOWUSERPROP) (32Q Done 27Q QEDITOR 23Q DON'T 15Q QEDITOR 3 QEDITOR) () QE-CMD-INSERT D1 (P 1 ENTRIES P 0 NEWENTRY I 0 QEDITOR) @@@o h@@"kJXd@o h@H X@Yd&@Hh(KHKKLMNK[@HI@@k@ @ @ @H h(222Q QE-SELECT-ENTRY 215Q QE-DISPLAY-ENTRIES 211Q QE-PLACE-ENTRIES 205Q QE-MARKASCHANGED 66Q QE-CREATE-ENTRY 57Q QE-PROMPTPRINT 21Q QE-PROMPTPRINT) (173Q QEDITOR 167Q QEDITOR 155Q QEDITOR 116Q QENTRY 105Q QEDITOR 73Q QEDITOR 36Q QEDITOR 27Q QEDITOR 6 QEDITOR) ( 54Q "Nothing to insert" 16Q "Don't know how to insert elements") QE-CMD-EDIT D1 (P 3 NEWLABEL P 2 OLDLABEL P 1 RESULT P 0 ENTRY I 0 QEDITOR) pP@Xd@o h@@o h@H@"lLYdHIH@H H[J@ @ (153Q QE-DISPLAY-ENTRIES 146Q QE-PLACE-ENTRIES 126Q QE-COMPUTE-LABEL 44Q QE-PROMPTPRINT 23Q QE-PROMPTPRINT) (133Q QENTRY 116Q QENTRY 106Q QENTRY 67Q QEDITOR 61Q QENTRY 52Q QEDITOR 31Q QEDITOR 6 QEDITOR) ( 41Q "QEdit selection cannot be edited" 20Q "Nothing selected") QE-CMD-DELETE D1 (P 0 OLDENTRY I 0 QEDITOR) w@H@oa@T@H@"lI:@H@ @@m@h@ @ @ @o h(163Q QE-PROMPTPRINT 152Q QE-DISPLAY-ENTRIES 145Q QE-PLACE-ENTRIES 140Q QE-MARKASCHANGED 101Q DREMOVE) (130Q QEDITOR 114Q QEDITOR 110Q QEDITOR 74Q QEDITOR 67Q QEDITOR 52Q QEDITOR 44Q QENTRY 35Q QEDITOR 25Q QEDITOR 3 QEDITOR) ( 160Q "QEdit selection cannot be deleted" 17Q "Nothing selected") QE-CMD-LEFT D1 (P 2 LEFT P 1 ENTRIES P 0 RIGHT I 0 QEDITOR) }@@H @o hI@o HIIHIJHHJJHHJ@ @H @J @J (172Q QE-SELECT-ENTRY 165Q QE-REDISPLAY-ENTRY 160Q QE-REDISPLAY-ENTRY 153Q QE-MARKASCHANGED 47Q QE-PROMPTPRINT 31Q QE-PROMPTPRINT) (140Q QENTRY 134Q QENTRY 126Q QENTRY 122Q QENTRY 107Q QENTRY 103Q QENTRY 75Q QENTRY 71Q QENTRY 11Q QEDITOR 3 QEDITOR) ( 44Q "Can't move selection further left" 26Q "Nothing selected") QE-CMD-RIGHT D1 (P 2 RIGHT P 1 ENTRIES P 0 LEFT I 0 QEDITOR) {@@H@o hIHIIJ@o HHJJHHJJH@ @H @J @J (170Q QE-SELECT-ENTRY 163Q QE-REDISPLAY-ENTRY 156Q QE-REDISPLAY-ENTRY 151Q QE-MARKASCHANGED 61Q QE-PROMPTPRINT 30Q QE-PROMPTPRINT) (136Q QENTRY 132Q QENTRY 124Q QENTRY 120Q QENTRY 105Q QENTRY 101Q QENTRY 73Q QENTRY 67Q QENTRY 11Q QEDITOR 3 QEDITOR) ( 56Q "Can't move selection further right" 25Q "Nothing selected") QE-COLLECT-QUEUE D1 (L (0 QEDITOR)) %0@dIHhZH&JNIL (17Q QENTRY 6 QEDITOR) () QE-COMPUTE-LABEL D1 (P 2 LABELFONT P 1 LABEL I 1 ENTRY I 0 QEDITOR) I@ @ A@"lHA@ AIAIJ A(103Q STRINGWIDTH) (76Q QENTRY 67Q QENTRY 56Q QEDITOR 50Q QENTRY 32Q QEDITOR 24Q QENTRY 13Q QEDITOR 3 QEDITOR) () QE-CREATE-EDITOR D1 (P 5 QEDITWINDOW P 2 QEDITMENU) `dododi dgdg dgjdndhHdI !Jo Mgg Mgg Mgg Mgg Mgg Mgo `dJdMM dKM dL(253Q GETPROMPTWINDOW 237Q \INSUREWINDOW 215Q PUTWINDOWPROP 202Q PUTWINDOWPROP 170Q PUTWINDOWPROP 156Q WINDOWADDPROP 144Q WINDOWADDPROP 132Q WINDOWADDPROP 115Q CREATEMENUEDWINDOW) (220Q QEDITORTYPE# 206Q SCROLLEXTENTUSE 177Q QE-SCROLLFN 174Q SCROLLFN 165Q QE-BUTTONEVENTFN 162Q BUTTONEVENTFN 153Q QE-RESHAPEFN 150Q RESHAPEFN 141Q QE-REPAINTFN 136Q REPAINTFN 127Q QE-CLOSEFN 124Q CLOSEFN 52Q DEFAULTMENUHELDFN 43Q CLRPROMPT 34Q QE-WHENSELECTEDFN 2 MENUTYPE#) ( 212Q (LIMIT . LIMIT) 112Q "Queue Editor" 20Q (MODERN 14Q) 10Q (("<--" 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 D1 (P 4 ENTRIES P 3 ELEMENT I 0 QEDITOR) C@@d@K IHhZH&J@L@L @hh(66Q LENGTH 22Q QE-CREATE-ENTRY) (74Q QEDITOR 62Q QEDITOR 53Q QEDITOR 6 QEDITOR) () QE-CREATE-ENTRY D1 (I 1 ELEMENT I 0 QEDITOR) @`dA (14Q QE-COMPUTE-LABEL) (3 QENTRYTYPE#) () QE-DISPLAY-ENTRIES D1 (I 0 QEDITOR) @ @d@ @d (33Q QE-SELECT-ENTRY 21Q QE-DISPLAY-ENTRIES-AUX 16Q QE-MARK-VISIBLE-ENTRIES 3 QE-RESET-DSP) (26Q QEDITOR 10Q QEDITOR) () QE-DISPLAY-ENTRIES-AUX D1 (I 2 N I 1 ENTRIES I 0 QEDITOR) ABBj@ABdk @A (32Q QE-DISPLAY-ENTRY 24Q QE-DISPLAY-ENTRIES-AUX) NIL () QE-DISPLAY-ENTRY D1 (P 0 DSP I 1 ENTRY I 0 QEDITOR) mAe@1AYIIIknH A ZJH AH A [KH AH Ahh(142Q PRIN1 127Q MOVETO 110Q PRIN1 75Q MOVETO 55Q GRAYBOXAREA) (146Q QENTRY 134Q QENTRY 114Q QENTRY 102Q QENTRY 62Q QENTRY 24Q QENTRY 13Q QEDITOR 3 QENTRY) () QE-FOCUS-SELECTION D1 (P 3 QEDITREGION P 2 QEDITWINDOW P 1 QENTRYBOX P 0 QENTRY I 1 COMMAND I 0 QEDITOR) Z@@XNh@Z [HY 5JKKKkIIIklj A@oAo ih(124Q QE-PROMPTPRINT 104Q SCROLLW 41Q SUBREGIONP 26Q DSPCLIPPINGREGION) (33Q QENTRY 20Q QEDITOR 6 QEDITOR) ( 121Q "' ignored" 114Q "Queue Editor command `") QE-INIT-EDITOR D1 (P 1 QEDITWINDOW P 0 QEDITMENU I 2 PROPS I 1 QUEUE I 0 QEDITOR) @@Hg@ Ig@ Ig@Bg'ZJ @Addh@Bg' @Bg'  @Bg'Bg'@Bg'@Bg'@Bg'"@h @h$@ @ I @ @(267Q CLEARW 256Q CLEARW 252Q DSPFONT 130Q FONTCREATE 63Q PUTWINDOWPROP 36Q PUTWINDOWPROP 26Q PUTMENUPROP) (262Q QEDITOR 245Q QEDITOR 237Q QEDITOR 230Q QEDITOR 221Q QEDITOR 212Q CONTEXT 206Q QEDITOR 177Q DELETEFN 173Q QEDITOR 164Q EDITFN 160Q QEDITOR 151Q ADDFN 142Q INSERTFN 136Q QEDITOR 124Q LABELFONT 120Q QEDITOR 111Q LABELFN 105Q QEDITOR 67Q QEDITOR 52Q TITLE 46Q QEDITOR 42Q TITLE 32Q QEDITOR 22Q QEDITOR 11Q QEDITOR 3 QEDITOR) () QE-MARKASCHANGED D1 (I 0 QEDITOR) ,@$#@i$@go@ @(50Q PUTWINDOWPROP 45Q CONCAT) (40Q QEDITOR 30Q TITLE 23Q QEDITOR 13Q QEDITOR 3 QEDITOR) ( 34Q "* ") QE-MARK-VISIBLE-ENTRIES D1 (P 3 ENTRY P 2 CLIPPINGREGION P 1 LASTINDEX I 0 QEDITOR) <@jh@ #HI[JK \LKHX(50Q REGIONSINTERSECTP 20Q DSPCLIPPINGREGION) (62Q QENTRY 43Q QENTRY 36Q QENTRY 13Q QEDITOR 3 QEDITOR) () QE-MAX-INDEX-WIDTH D1 (I 0 QEDITOR) @l @ (21Q STRINGWIDTH) (14Q QEDITOR 3 QEDITOR) () QE-MAX-LABEL-WIDTH D1 (I 0 QEDITOR) 3@o@ "HIIJdKKHX(22Q STRINGWIDTH) (42Q QENTRY 15Q QEDITOR 3 QEDITOR) ( 11Q "Some Label") QE-MOUSE-IN-ENTRYP D1 (P 0 QWINDOW I 1 ENTRY I 0 QEDITOR) @AH H (31Q INSIDEP 26Q LASTMOUSEY 22Q LASTMOUSEX) (14Q QENTRY 3 QEDITOR) () QE-MOUSED-ENTRY D1 (P 1 ENTRY I 0 QEDITOR) "@Hh@I IiHX(25Q QE-MOUSE-IN-ENTRYP) (3 QEDITOR) () QE-PLACE-ENTRIES D1 (P 33Q INDEX-Y P 32Q INDEX-X P 31Q LABEL-Y P 30Q LABEL-X P 27Q ENTRY P 26Q I P 22Q YVISIBLE P 21Q XVISIBLE P 20Q NEXTBOX P 17Q LASTBOX P 16Q Y P 15Q X P 14Q YLBLOFFSET P 13Q XLBLOFFSET P 12Q BIGBOX-W P 11Q XOFFSET P 10Q 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) `@X@Y@ Zd [@ \@ ]Kll^dlk_LMl_Ml_hH _dOOk_"ONOk_$O"O$ OOO$_&OO&O_O&_l_NKl_l_d_IkO*@OOONOO h_.O,O _OOON _ O.O O.OkOkOlNl OOOOO.O0O2LK  O,J OOMlOlO.O4O6MK  O"OO_OO_O*_*O,k_,:O _(O.O(kO(kO(O( (627Q CREATEREGION 566Q INTERSECTREGIONS 512Q CREATEREGION 451Q STRINGWIDTH 440Q CREATEREGION 402Q CREATEREGION 334Q CREATEREGION 300Q QE-ADJUST-SCROLL-PARAMS 114Q DSPCLIPPINGREGION 50Q QE-MAX-INDEX-WIDTH 43Q QE-MAX-LABEL-WIDTH 36Q FONTHEIGHT) (576Q QENTRY 501Q QENTRY 427Q QENTRY 356Q QENTRY 344Q QENTRY 310Q QENTRY 27Q QEDITOR 20Q QEDITOR 11Q QEDITOR) () QE-PROMPTPRINT D1 (P 6 I P 4 I P 2 PROMPTW P 1 QEDITOR P 0 PROMPTCNT) jekHo @I`(IJ HlLdKhaJ Lk\` HlNdM` a` Nk^(141Q PRIN1 131Q TERPRI 107Q TERPRI 72Q PRIN1 50Q CLEARW 16Q SHOULDNT) (136Q PROMPTWINDOW 126Q PROMPTWINDOW 104Q PROMPTWINDOW 37Q QEDITOR 30Q QEDITORTYPE#) ( 13Q "Missing QEditor arg") QE-REDISPLAY-ENTRY D1 (P 1 LBLBOX P 0 DSP I 1 ENTRY I 0 QEDITOR) ;A3@A @A IjgH IIH AH h(67Q PRIN1 55Q MOVETO 44Q DSPFILL 14Q QE-TOGGLE-ENTRY) (61Q QENTRY 40Q REPLACE 26Q QENTRY 20Q QEDITOR 3 QENTRY) () QE-RELEASE-EDITOR D1 (P 2 PROMPTW P 1 QEDITWINDOW P 0 QEDITMENU I 0 QEDITOR) E@@@Hg Ig I I J J @gg(65Q CLOSEW 60Q OPENWP 53Q CLOSEW 46Q OPENWP 42Q PUTWINDOWPROP 33Q PUTMENUPROP) (102Q RELEASED 75Q RELEASED 72Q QEDITOR 37Q QEDITOR 30Q QEDITOR 17Q QEDITOR 11Q QEDITOR 3 QEDITOR) () QE-REPAINTFN D1 (P 0 QEDITOR I 0 WINDOW) @g Hd h(17Q QE-DISPLAY-ENTRIES 6 GETWINDOWUSERPROP) (3 QEDITOR) () QE-RESET-DSP D1 (P 0 DSP I 0 QEDITOR) T@nH hddH hH YlIIk@ lH @H oH h(120Q PRIN1 107Q PRIN1 74Q MOVETO 64Q FONTHEIGHT 33Q DSPCLIPPINGREGION 26Q DSPFILL 17Q DSPRIGHTMARGIN) (101Q QEDITOR 57Q QEDITOR 3 QEDITOR) ( 114Q " elements") QE-RESHAPEFN D1 (P 0 QEDITOR I 2 OLDREG I 1 OLDBM I 0 WINDOW) $@g HABB@ h H (40Q QE-DISPLAY-ENTRIES 33Q QE-PLACE-ENTRIES 26Q BITBLT 6 GETWINDOWUSERPROP) (3 QEDITOR) () QE-RUN-EDITOR D1 (P 0 COMMAND I 0 QEDITOR) @ @ @ @ X@ Hdg@H @ g@H u@ nHdg@H `@ Yg@H N@ GHdg@H 9@ 2g@Hdg@ g@ @oHo @h N(272Q QE-PROMPTPRINT 254Q QE-DISPLAY-ENTRIES 242Q QE-COLLECT-QUEUE 210Q QE-CMD-DELETE 202Q QE-FOCUS-SELECTION 163Q QE-CMD-EDIT 155Q QE-FOCUS-SELECTION 141Q QE-CMD-INSERT 133Q QE-FOCUS-SELECTION 114Q QE-CMD-RIGHT 106Q QE-FOCUS-SELECTION 71Q QE-CMD-LEFT 61Q QE-FOCUS-SELECTION 42Q QE-PROMPTPRINT 24Q BLOCK 20Q QE-DISPLAY-ENTRIES 13Q QE-PLACE-ENTRIES 6 QE-CREATE-ENTRIES) (277Q QEDITOR 246Q Display 233Q Done 223Q QEDITOR 215Q Abort 172Q Delete 146Q Edit 123Q Insert 77Q Right 50Q Left 31Q QEDITOR) ( 267Q "' not yet implemented." 262Q "Queue Editor command `") QE-SCROLLFN D1 (P 15Q \INTERRUPTABLE P 14Q NEWDSPY P 13Q NEWDSPX P 12Q DY P 11Q DX P 10Q 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) F @g Xdd6YHZH[hI \d ]@ ^jAi_A A_jBi_B B_CJ_KEOOkO__i_-_i_$OjOd OJK_OKJ_MOONMoj؍OMOԄMOMOONMoj؏OMOԅMOM@  ML9hI LMhI LM  MI OI OI H h(502Q QE-DISPLAY-ENTRIES 474Q DSPYOFFSET 465Q DSPXOFFSET 456Q DSPCLIPPINGREGION 433Q DSPYOFFSET 420Q DSPXOFFSET 406Q MAKEWITHINREGION 401Q \INSUREWINDOW 223Q \FZEROP 123Q MINUS 102Q MINUS 63Q \INSUREWINDOW 56Q COPY 51Q DSPCLIPPINGREGION 11Q GETWINDOWUSERPROP) (41Q QEDITOR 32Q QEDITOR 23Q QEDITOR 6 QEDITOR) ( 346Q .5 273Q .5) QE-SELECT-ENTRY D1 (P 0 OLD-SELECTION I 1 NEW-SELECTION I 0 QEDITOR) 0@H@H A@Ai @AAddH@ A(54Q QE-FOCUS-SELECTION 30Q QE-TOGGLE-ENTRY 17Q QE-TOGGLE-ENTRY) (35Q QEDITOR 3 QEDITOR) () QE-SLIDE-ENTRY D1 (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 AZBdg`llg>`lk0A@ @ MKL Bg@ hJ`` KdM1LMMkH}@ A@ bhXiiYdKMMkVLMMIH@ A@ bhY4iX/(335Q QE-CMD-RIGHT 327Q QE-PROMPTPRINT 250Q QE-CMD-LEFT 242Q QE-PROMPTPRINT 176Q INSIDEP 162Q QE-SELECT-ENTRY 146Q INSIDEP 137Q LASTMOUSEY 125Q LASTMOUSEX 72Q GETMOUSESTATE 46Q GETMOUSESTATE 27Q QE-SELECT-ENTRY 21Q QE-PROMPTPRINT 12Q WINDOWREGION) (173Q LASTMOUSEY 170Q LASTMOUSEX 154Q LEFT 132Q QEDITOR 120Q QEDITOR 111Q QENTRY 76Q LASTMOUSEBUTTONS 64Q MIDDLE 52Q LASTMOUSEBUTTONS 40Q LEFT 5 QEDITOR) () QE-TOGGLE-ENTRY D1 (P 1 BOX P 0 DSP I 2 SELECT? I 1 ENTRY I 0 QEDITOR) PAHBA=@AIngH AY ABBngH h(111Q DSPFILL 53Q DSPFILL) (105Q INVERT 72Q QENTRY 60Q QENTRY 47Q INVERT 33Q QENTRY 25Q QEDITOR 14Q QENTRY 3 QENTRY) () QE-UNMARKASCHANGED D1 (I 0 QEDITOR) @h$@@ @(25Q WINDOWPROP) (20Q QEDITOR 12Q QEDITOR 3 QEDITOR) () QE-WHENSELECTEDFN D1 (P 0 QEDITOR I 1 MENU I 0 ITEM) 4Ag Hd& HoH o H@ h(46Q QE-PROMPTPRINT 6 GETMENUPROP) (53Q QEDITOR 35Q QEDITOR 20Q QEDITOR 3 QEDITOR) ( 43Q "'" 31Q "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*) (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 COPYRIGHT ("Johannes A. G. M. Koomen" 1987 1988)) NIL