(FILECREATED "20-Oct-85 18:20:10" ("compiled on " {DSK2}TABLEBROWSER.;30) "17-Oct-85 18:58:44" recompiled exprs: TB.REPLACE.ITEMS in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:19:58") (FILECREATED "20-Oct-85 18:19:57" {DSK2}TABLEBROWSER.;30 62946 changes to: (FNS TB.REPLACE.ITEMS TB.COPYBUTTONEVENTFN) previous date: "15-Oct-85 01:12:34" {DSK2}TABLEBROWSER.;28) TB.MAKE.BROWSER D1 (P 16Q TAIL P 13Q BROWSER P 12Q USERPROPS P 11Q WINDOW P 10Q USERDATA P 7 COLUMNS P 6 TITLE P 5 AFTERCLOSEFN P 4 CLOSEFN P 3 COPYFN P 2 PRINTFN P 1 FONT P 0 LINESPERITEM I 2 PROPS I 1 WINDOWSPEC I 0 ITEMS) Hk BddOdg7dg0dg)dg"dgdgdgdgdgOO OOhO_AhdN _dg`dO dIO (o _dOHk_dOdOdJdKdL dM"dO_ O@ Ogg Ogg Ogg Ogg Ogg Ogg Ogg Ogg lO OkkjhO(467Q DSPLEFTMARGIN 460Q WINDOWADDPROP 445Q WINDOWADDPROP 432Q WINDOWADDPROP 417Q PUTWINDOWPROP 404Q PUTWINDOWPROP 371Q PUTWINDOWPROP 356Q PUTWINDOWPROP 343Q PUTWINDOWPROP 330Q TB.REPLACE.ITEMS 322Q PUTWINDOWPROP 227Q CREATE.MONITORLOCK 214Q \INSUREWINDOW 162Q DECODE.WINDOW.ARG 124Q SET) (455Q TB.RESHAPEFN 452Q RESHAPEFN 442Q TB.SHRINKFN 437Q SHRINKFN 427Q TB.CLOSEFN 424Q CLOSEFN 414Q TB.COPYBUTTONEVENTFN 411Q COPYBUTTONEVENTFN 401Q TB.BUTTONEVENTFN 376Q RIGHTBUTTONFN 366Q TB.BUTTONEVENTFN 363Q BUTTONEVENTFN 353Q TB.REPAINTFN 350Q REPAINTFN 340Q TB.SCROLLFN 335Q SCROLLFN 173Q TABLEBROWSERTYPE# 170Q TABLEBROWSER 107Q LINESPERITEM 101Q USERDATA 73Q COLUMNS 64Q TITLE 55Q AFTERCLOSEFN 46Q CLOSEFN 37Q COPYFN 30Q PRINTFN 21Q FONT) ( 224Q "Table Browser") TB.REPLACE.ITEMS D1 (P 4 REGION P 1 FIRSTSEL P 0 #ITEMS I 1 NEWITEMS I 0 BROWSER) vj1AdHkX@A@H@AjZK@kH Y@I@dIH jKkػJ@Hk@j@ h@ @dL @L (163Q TB.DISPLAY.LINES 160Q TB.LAST.VISIBLE.ITEM# 153Q TB.FIRST.VISIBLE.ITEM# 142Q DSPCLIPPINGREGION 133Q TB.SET.FONT 72Q TB.REV.FIND.SELECTED.ITEM 53Q TB.FIND.SELECTED.ITEM) NIL () TB.DELETE.ITEM D1 (I 1 ITEM I 0 BROWSER) 1Aj&Akkjh@dk@A@ g (56Q TB.SHOW.DELETION) (53Q REPLACE 46Q TABLEBROWSER 32Q TABLEBROWSER 3 TABLEITEM) () TB.UNDELETE.ITEM D1 (P 0 WINDOW I 1 ITEM I 0 BROWSER) RAjFAjjdh@dm@A '@A @ @AHg @AH@ h(115Q TB.PRINT.LINE 101Q TB.SHOW.DELETION 55Q TB.ITEM.UPDATABLE? 46Q TB.ITEM.VISIBLE?) (110Q TABLEBROWSER 76Q ERASE 63Q TABLEBROWSER 32Q TABLEBROWSER 3 TABLEITEM) () TB.INSERT.ITEM D1 (P 4 N P 3 TAIL P 2 BEFORE# P 1 LASTITEM# P 0 OLDITEMS I 2 BEFOREITEM I 1 NEWITEM I 0 BROWSER) @@RBFAIkZ@HAh @IkAj@dk@\J`@AjQJQd3 d`B ZIB HJ [AKK OOOKJMNMNkԾLk@\J@Lk؈Aj@J@Jg (313Q TB.UPDATE.DISPLAY 166Q NTH 160Q \ILLEGAL.ARG 150Q \ILLEGAL.ARG 41Q \NCONC2) (310Q INSERT 253Q TABLEBROWSER 136Q TABLEITEMTYPE# 101Q TABLEBROWSER 66Q TABLEBROWSER 11Q TABLEBROWSER 3 TABLEBROWSER) () TB.REMOVE.ITEM D1 (P 4 TAIL P 3 N P 2 ITEM# P 1 LASTITEM# P 0 OLDITEMS I 1 ITEM I 0 BROWSER) @@Ad` CJk@H\HJk d\LJMA@IkAj@dm@[J,@Aj@J INMNkԾKk@[J@Aj@J jKk@Jg (300Q TB.UPDATE.DISPLAY 256Q TB.REV.FIND.SELECTED.ITEM 171Q TB.FIND.SELECTED.ITEM 61Q NTH 34Q \ILLEGAL.ARG) (275Q REMOVE 243Q TABLEITEM 226Q TABLEBROWSER 155Q TABLEITEM 140Q TABLEBROWSER 124Q TABLEBROWSER 111Q TABLEITEM 26Q TABLEITEM 21Q TABLEITEMTYPE# 11Q TABLEBROWSER 3 TABLEBROWSER) () TB.NORMALIZE.ITEM D1 (P 2 CLIPREGION P 1 YPOS P 0 WINDOW I 1 ITEM I 0 BROWSER) A@ @A hH ZIJJkIHjJJljI h(75Q SCROLLBYREPAINTFN 22Q DSPCLIPPINGREGION 12Q TB.YCOORD.FROM.ITEM) (3 TABLEBROWSER) () TB.REDISPLAY.ITEMS D1 (P 0 REGION I 2 LASTITEM I 1 FIRSTITEM I 0 BROWSER) fh@ !@Ak3 Ad` @H dIIB @3 Bd` @H dJJ (143Q TB.DISPLAY.LINES 131Q TB.LAST.VISIBLE.ITEM# 124Q \ILLEGAL.ARG 55Q TB.FIRST.VISIBLE.ITEM# 50Q \ILLEGAL.ARG 11Q DSPCLIPPINGREGION) (116Q TABLEITEM 111Q TABLEITEMTYPE# 73Q TABLEBROWSER 42Q TABLEITEM 35Q TABLEITEMTYPE# 4 TABLEBROWSER) () TB.SELECT.ITEM D1 (P 0 N I 1 ITEM I 0 BROWSER) A@Hdi @Ag h(27Q TB.SHOW.SELECTION 17Q TB.SELECTRANGE) (24Q REPLACE 3 TABLEITEM) () TB.NUMBER.OF.ITEMS D1 (P 4 ITEM P 2 $$ITEMLAST P 1 $$ITEM# P 0 $$ITEMS I 1 TYPE I 0 BROWSER) \A @g@Adg;@@k@jIkYJHI \jKkԻK (131Q \ILLEGAL.ARG 103Q TB.FETCHNTH) (107Q TABLEITEM 60Q TABLEBROWSER 50Q TABLEBROWSER 42Q TABLEBROWSER 32Q SELECTED 22Q TABLEBROWSER 14Q DELETED 6 TABLEBROWSER) () TB.NTH.ITEM D1 (I 1 N I 0 BROWSER) kAA@@A h(27Q TB.FETCHNTH) (21Q TABLEBROWSER 11Q TABLEBROWSER) () TB.COLLECT.ITEMS D1 (P 4 ITEM I 1 PREDFN I 0 BROWSER) DAdggggb@AHIA@LlALJ KhZHXK&NIL (23Q TB.ITEM.SELECTED? 16Q SELECTED 12Q TB.ITEM.DELETED? 4 DELETED) () TB.MAP.ITEMS D1 (P 1 ITEM P 0 ITEMS I 2 NULLFN I 1 MAPFN I 0 BROWSER) )@HB@kBd@IlAhNIL (3 TABLEBROWSER) () TB.MAP.DELETED.ITEMS D1 (P 1 ITEM I 2 NULLFN I 1 MAPFN I 0 BROWSER) ;@j)@HhYj@IlAHXB@kBNIL (35Q TABLEITEM 15Q TABLEBROWSER 3 TABLEBROWSER) () TB.MAP.SELECTED.ITEMS D1 (P 3 ITEM P 2 LASTITEM# P 1 ITEM# P 0 ITEMS I 2 NULLFN I 1 MAPFN I 0 BROWSER) I@@k@JI%IkYJhHI [j@KlAB@kB(51Q TB.FETCHNTH) (55Q TABLEITEM 21Q TABLEBROWSER 11Q TABLEBROWSER 3 TABLEBROWSER) () TB.FIND.ITEM D1 (P 6 ITEM P 5 INCREMENT P 4 END P 3 I P 2 ITEMS P 1 HI P 0 LO I 4 BACKWARDSFLG I 3 LAST# I 2 FIRST# I 1 PREDFN I 0 BROWSER)  B=kC#@@CHIcD*IkػHm'@OdOOdkÿHkٻIkAdggggb@JKM[ ^lANKLh(155Q TB.FETCHNTH) (141Q TB.ITEM.SELECTED? 134Q SELECTED 130Q TB.ITEM.DELETED? 122Q DELETED 53Q TABLEBROWSER 20Q TABLEBROWSER 12Q TABLEBROWSER) () TB.ITEM.SELECTED? D1 (L (1 ITEM 0 BROWSER)) AjhNIL (3 TABLEITEM) () TB.ITEM.DELETED? D1 (L (1 ITEM 0 BROWSER)) AjhNIL (3 TABLEITEM) () TB.CLEAR.LINE D1 (I 3 WIDTH I 2 LEFT I 1 ITEM I 0 BROWSER) 'j@ Bj@A @ C@ g (44Q BLTSHADE 17Q TB.YCOORD.FROM.ITEM) (40Q REPLACE 33Q TABLEBROWSER 23Q TABLEBROWSER 4 TABLEBROWSER) () TB.USERDATA D1 (L (0 ARGS)) eHj@IHkIAhNIL (20Q TABLEBROWSER) () TB.WINDOW D1 (L (0 BROWSER)) @ NIL (3 TABLEBROWSER) () TB.REPAINTFNA0001 D1 (NAME ERRORSET F 0 BROWSER F 1 REGION F 2 RESETY) $Pid PdQ PQ P ci(36Q TB.BROWSER.BUSY 31Q TB.DISPLAY.LINES 26Q TB.LAST.VISIBLE.ITEM# 21Q TB.FIRST.VISIBLE.ITEM# 12Q OBTAIN.MONITORLOCK) (3 TABLEBROWSER) () TB.REPAINTFN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 BROWSER I 1 REGION I 0 WINDOW F 4 LISPXHIST F 5 RESETVARSLST) 7@g Hj"T!Uog hg[ Kh(63Q ERROR! 54Q RESETRESTORE 42Q TB.REPAINTFNA0001 6 GETWINDOWUSERPROP) (50Q ERROR 37Q INTERNAL 15Q TABLEBROWSER 3 TABLEBROWSER) ( 34Q (TB.REPAINTFNA0001)) TB.RESHAPEFNA0001 D1 (NAME ERRORSET P 2 ITEM# P 1 REGION P 0 BROWSER F 3 WINDOW F 4 RESETY F 5 OLDIMAGEBM F 6 OLDREGION) kSg hS Hid =Hhi HI H JkH S HJHI hciHjSUV (147Q RESHAPEBYREPAINTFN 117Q TB.DISPLAY.LINES 114Q TB.LAST.VISIBLE.ITEM# 104Q WYOFFSET 65Q TB.SET.FONT 60Q TB.FIRST.VISIBLE.ITEM# 52Q OBTAIN.MONITORLOCK 36Q ALLOW.BUTTON.EVENTS 31Q OBTAIN.MONITORLOCK 13Q DSPCLIPPINGREGION 6 GETWINDOWUSERPROP) (132Q TABLEBROWSER 75Q TABLEBROWSER 43Q TABLEBROWSER 22Q TABLEBROWSER 3 TABLEBROWSER) () TB.RESHAPEFN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 OLDREGION I 1 OLDIMAGEBM I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q TB.RESHAPEFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TB.RESHAPEFNA0001)) TB.SCROLLFNA0001 D1 (NAME ERRORSET P 0 BROWSER F 1 WINDOW F 2 DX F 3 RESETY F 4 DY F 5 CONTINUOUSFLG) )Qg Hid QRTU H hci(41Q TB.BROWSER.BUSY 34Q SCROLLBYREPAINTFN 24Q OBTAIN.MONITORLOCK 6 GETWINDOWUSERPROP) (15Q TABLEBROWSER 3 TABLEBROWSER) () TB.SCROLLFN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 CONTINUOUSFLG I 2 DY I 1 DX I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q TB.SCROLLFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TB.SCROLLFNA0001)) TB.DISPLAY.LINES D1 (P 12Q EXTENT P 11Q HERE P 10Q ITEM P 7 EXTENTCHANGED P 6 PRINTFN P 5 MAXXPOS P 4 ITEMS P 3 WINDOW P 2 ITEM# I 2 LAST# I 1 FIRST# I 0 BROWSER) B@HdIIAdkk@ @@@F JI+LJ _@OKN MhK _Oi_JkZO@M@_MKgO h(200Q PUTWINDOWPROP 117Q DSPXPOSITION 110Q TB.PRINT.LINE 75Q TB.FETCHNTH) (173Q EXTENT 156Q TABLEBROWSER 56Q TABLEBROWSER 50Q TABLEBROWSER 42Q TABLEBROWSER 34Q TABLEBROWSER 4 TABLEBROWSER) () TB.PRINT.LINE D1 (P 0 YPOS I 3 PRINTFN I 2 WINDOW I 1 ITEM I 0 BROWSER) I@A lHB Bj @ABlC@Adjgg Aj@ABg h(104Q TB.SHOW.DELETION 61Q TB.SHOW.SELECTION 23Q POSITION 16Q MOVETO 4 TB.YCOORD.FROM.ITEM) (101Q REPLACE 65Q TABLEITEM 56Q ERASE 52Q REPLACE 41Q TABLEITEM) () TB.FIRST.VISIBLE.ITEM# D1 (L (1 REGION 0 BROWSER)) ,@(AAk@ @ kHHkNIL (34Q TABLEBROWSER 23Q TABLEBROWSER 3 TABLEBROWSER) () TB.LAST.VISIBLE.ITEM# D1 (L (1 REGION 0 BROWSER)) 2@@(A@ @ k@ HdIINIL (43Q TABLEBROWSER 32Q TABLEBROWSER 22Q TABLEBROWSER 11Q TABLEBROWSER 3 TABLEBROWSER) () TB.ITEM.VISIBLE? D1 (I 1 ITEM I 0 BROWSER) ;@A h@ H@ IhH@ IIkh(16Q DSPCLIPPINGREGION 4 TB.YCOORD.FROM.ITEM) (47Q TABLEBROWSER 26Q TABLEBROWSER 11Q TABLEBROWSER) () TB.YCOORD.FROM.ITEM D1 (L (1 ITEM 0 BROWSER)) @(@ Ad3 NIL (23Q TABLEITEM 11Q TABLEBROWSER 3 TABLEBROWSER) () TB.ITEM#.FROM.YCOORD D1 (L (1 YPOS 0 BROWSER)) -@(A@ @ djk@HdIINIL (37Q TABLEBROWSER 22Q TABLEBROWSER 13Q TABLEBROWSER 3 TABLEBROWSER) () TB.ITEM.FROM.YCOORD D1 (P 0 N I 1 YPOS I 0 BROWSER) 9@(A@ @ @Hdjk@dII (66Q TB.FETCHNTH) (52Q TABLEBROWSER 34Q TABLEBROWSER 22Q TABLEBROWSER 13Q TABLEBROWSER 3 TABLEBROWSER) () TB.SHOW.DELETION D1 (I 3 OPERATION I 2 WINDOW I 1 ITEM I 0 BROWSER F 0 TB.DELETEDLINEHEIGHT) nBl@A @ PhPC (34Q BLTSHADE 12Q TB.YCOORD.FROM.ITEM) (16Q TABLEBROWSER) () TB.SHOW.SELECTION D1 (I 2 OPERATION I 1 ITEM I 0 BROWSER F 0 TB.SELECTION.BITMAP) &Pjd@ j@A @ lhdgB (43Q BKBITBLT 16Q TB.YCOORD.FROM.ITEM) (36Q INPUT 22Q TABLEBROWSER 6 TABLEBROWSER) () TB.UPDATE.DISPLAY D1 (P 12Q EXTENTBOTTOM P 11Q BOTTOM P 10Q CLIP P 7 LAST# P 6 HEIGHT P 5 DELTA P 4 YPOS P 3 FONTHEIGHT P 2 LASTITEM# P 1 EXTENT P 0 WINDOW I 2 TYPE I 1 FROMITEM# I 0 BROWSER)  @ @@@ @A @ u IIBdgjKىgK]LhH __Ok@d(M(IIM_LKO_@A Bdg(HjOKHjOILOgg @Ad TgKHjOHjOKILOgg @ALOK_dk OOjHjOhOOg h(423Q SHOULDNT 417Q BLTSHADE 365Q TB.DISPLAY.LINES 343Q BKBITBLT 277Q TB.DISPLAY.LINES 270Q BKBITBLT 215Q TB.ITEM.UPDATABLE? 116Q DSPCLIPPINGREGION 105Q SHOULDNT 34Q TB.YCOORD.FROM.ITEM) (413Q REPLACE 337Q REPLACE 334Q INPUT 304Q REMOVE 264Q REPLACE 261Q INPUT 230Q INSERT 144Q TABLEBROWSER 76Q INSERT 64Q REMOVE 40Q TABLEBROWSER 25Q TABLEBROWSER 17Q TABLEBROWSER 11Q TABLEBROWSER 3 TABLEBROWSER) () TB.BUTTONEVENTFN D1 (P 0 FN I 0 WINDOW) N@ h@ @ @ @g `dll@ lk@g $X@H (113Q TB.DO.UNLESS.BUSY 76Q GETWINDOWUSERPROP 57Q DOWINDOWCOM 36Q TB.DO.UNLESS.BUSY 26Q INSIDEP 23Q LASTMOUSEY 17Q LASTMOUSEX 13Q DSPCLIPPINGREGION 3 TOTOPW) (101Q TABLEBROWSER 73Q TABLEBROWSER 42Q LASTMOUSEBUTTONS 33Q TB.DO.ITEM.SELECTION) () TB.DO.UNLESS.BUSYA0001 D1 (NAME ERRORSET P 0 BROWSER F 1 WINDOW F 2 ARGUMENT F 3 FN F 4 RESETY) 2Qg HjHid QHRlShci(37Q OBTAIN.MONITORLOCK 6 GETWINDOWUSERPROP) (30Q TABLEBROWSER 15Q TABLEBROWSER 3 TABLEBROWSER) () TB.DO.UNLESS.BUSY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 ARGUMENT I 1 FN I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q TB.DO.UNLESS.BUSYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TB.DO.UNLESS.BUSYA0001)) TB.DO.ITEM.SELECTION D1 (P 26Q ITEM P 25Q $$ITEMLAST P 24Q $$ITEM# P 23Q $$ITEMS P 20Q LASTY P 17Q LASTX P 16Q ITEM P 15Q OLDLASTMOUSEBUTTONS P 14Q CTRLDOWN P 13Q OLDSEL# P 12Q SEL# P 11Q OLDSELECTION P 10Q NEWSELECTION P 7 SELECTIONSTATE P 6 LASTVISIBLE# P 5 FIRSTVISIBLE# P 4 LAST# P 3 FIRST# P 2 SELECTIONREGION P 1 ITEMS P 0 BROWSER I 0 WINDOW) @g 0Hjh@ ZH\H[HJ ]HJ ^HYJ@ _@ _ -Ojh_`l_"jO"O" `l_$jMO$BHO _dO`OO0j`dljOj  OO_OdkXHHkHO(k_(O*O&O( _,jO,jOkHdOOlHOdi OdlHOd lHLkOO OdlHOKkO lHOkL {OlqHKOk c`ljAg 9OdlHOg jOjHOg lj`dlj(OkHOg MN k_HOg kj9OdlHOg jOjHOg lhjd`dlj]O_Od_Odl.OdOOkOO #LOj_LkO l-OdOOOkO KOOj_Kk Odl=OOOkLOOj_L KdOOkO L jl5OdOKOj_KOk yLOOk kKL j`KL^Ojg _OLLkOO l5KOOKkO l!OLKOkL lKOk l_`_O_b(1713Q TB.DECONSIDERRANGE 1677Q TB.DECONSIDERRANGE 1652Q TB.CONSIDERRANGE 1626Q TB.CONSIDERRANGE 1604Q SHIFTDOWNP 1575Q TB.UNDOSELECTION 1554Q TB.RECONSIDERRANGE 1545Q TB.DECONSIDERRANGE 1527Q TB.RECONSIDERRANGE 1463Q TB.RECONSIDERRANGE 1454Q TB.DECONSIDERRANGE 1431Q TB.RECONSIDERRANGE 1362Q TB.RECONSIDERRANGE 1335Q TB.CONSIDERRANGE 1302Q TB.RECONSIDERRANGE 1255Q TB.CONSIDERRANGE 1143Q TB.SHOW.SELECTION 1116Q TB.UNDOSELECTION 1107Q TB.SHOW.SELECTION 1055Q TB.SHOW.SELECTION 1037Q TB.DECONSIDERRANGE 1031Q TB.SHOW.SELECTION 765Q TB.SHOW.SELECTION 740Q TB.UNDOSELECTION 731Q TB.SHOW.SELECTION 706Q SHIFTDOWNP 662Q TB.DESELECTRANGE 632Q TB.DESELECTRANGE 611Q TB.SELECTRANGE 562Q TB.SELECTRANGE 537Q TB.DESELECTRANGE 514Q TB.SELECTRANGE 424Q TB.FETCHNTH 324Q \FZEROP 316Q TB.UNDOSELECTION 227Q TB.ITEM.FROM.YCOORD 174Q BLOCK 167Q \FZEROP 134Q TB.UNDOSELECTION 122Q INSIDEP 115Q LASTMOUSEY 107Q LASTMOUSEX 101Q GETMOUSESTATE 66Q TB.LAST.VISIBLE.ITEM# 60Q TB.FIRST.VISIBLE.ITEM# 34Q DSPCLIPPINGREGION 6 GETWINDOWUSERPROP) (1724Q LASTMOUSEBUTTONS 1601Q CTRL 1214Q TABLEITEM 1200Q TABLEITEM 1160Q LASTMOUSEBUTTONS 1140Q REPLACE 1124Q TABLEITEM 1104Q ERASE 1052Q REPLACE 1026Q ERASE 1002Q LASTMOUSEBUTTONS 762Q ERASE 746Q TABLEITEM 726Q REPLACE 703Q CTRL 671Q LASTMOUSEBUTTONS 431Q TABLEITEM 375Q TABLEBROWSER 365Q TABLEBROWSER 357Q TABLEBROWSER 336Q TABLEITEM 270Q LASTMOUSEBUTTONS 254Q TABLEITEM 242Q LASTMOUSEBUTTONS 202Q LASTMOUSEBUTTONS 144Q LASTMOUSEBUTTONS 73Q TABLEBROWSER 50Q TABLEBROWSER 41Q TABLEBROWSER 20Q TABLEBROWSER 3 TABLEBROWSER) () TB.DECONSIDERRANGE D1 (P 1 I I 1 LAST# I 0 FIRST# F 2 LASTVISIBLE# F 3 FIRSTVISIBLE# F 4 BROWSER F 5 ITEMS) +AdRR@dSSIHhTUI g IkY(42Q TB.SHOW.SELECTION 34Q TB.FETCHNTH) (37Q ERASE) () TB.CONSIDERRANGE D1 (P 2 ITEM P 1 I I 2 EVENIFDELETED I 1 LAST# I 0 FIRST# F 3 LASTVISIBLE# F 4 FIRSTVISIBLE# F 5 ITEMS F 6 BROWSER) =AdSS@dTTIHhUI Z0jBJjVJg IkY(64Q TB.SHOW.SELECTION 33Q TB.FETCHNTH) (61Q REPLACE) () TB.DESELECTRANGE D1 (P 2 I P 0 ITEMS I 2 LAST# I 1 FIRST# I 0 BROWSER) dAB^@BAJIHJ jJkZA@ @dBk@ @j@kB@@ddAk kh(133Q TB.REV.FIND.SELECTED.ITEM 66Q TB.FIND.SELECTED.ITEM 30Q TB.FETCHNTH) (101Q TABLEBROWSER) () TB.RECONSIDERRANGE D1 (P 2 ITEM P 1 I I 1 LAST# I 0 FIRST# F 3 LASTVISIBLE# F 4 FIRSTVISIBLE# F 5 BROWSER F 6 ITEMS) 7AdSS@dTTIHhUVI Zdjgg IkY(56Q TB.SHOW.SELECTION 34Q TB.FETCHNTH) (53Q ERASE 47Q REPLACE) () TB.SELECTRANGE D1 (P 5 I P 3 ITEM P 2 LASTSEL P 1 FIRSTSEL P 0 ITEMS I 3 EVENIFDELETED I 2 LAST# I 1 FIRST# I 0 BROWSER) X@@@3BAML#HM [0jCKjKkMk]IJA@@AIJB@@Bh(31Q TB.FETCHNTH) NIL () TB.UNDOSELECTION D1 (F 0 FIRSTVISIBLE# F 1 LASTVISIBLE# F 2 SELECTIONSTATE) PQ jc(4 TB.RECONSIDERRANGE) NIL () TB.FIND.SELECTED.ITEM D1 (P 2 ITEMS P 1 I I 2 LAST# I 1 FIRST# I 0 BROWSER) 1B@Ak@IHJI jIiIkYh(31Q TB.FETCHNTH) (34Q TABLEITEM) () TB.REV.FIND.SELECTED.ITEM D1 (P 2 ITEMS P 1 I I 2 LAST# I 1 FIRST# I 0 BROWSER) 2AkB@@HIJI jIiImԹh(31Q TB.FETCHNTH) (34Q TABLEITEM) () TB.COPYBUTTONEVENTFN D1 (P 7 LASTY P 6 LASTX P 5 NEWITEM P 4 CURRENTITEM P 3 COPYFN P 2 SELECTIONREGION P 1 ITEMS P 0 BROWSER I 0 WINDOW F 11Q \LASTKEYSTATE) @g H[HY@ h@ @ J@ ^@ _ HO ]IM ]@jhLMLHL M\HL l@Wljjkj8lWljjkj&l@Wl jjkjLHL HLlKh`l_jO]O T(311Q \FZEROP 257Q GETMOUSESTATE 242Q TB.SHOW.COPY.SELECTION 143Q BLOCK 137Q TB.SHOW.COPY.SELECTION 126Q TB.SHOW.COPY.SELECTION 101Q TB.FETCHNTH 72Q TB.ITEM#.FROM.YCOORD 62Q INSIDEP 55Q LASTMOUSEY 50Q LASTMOUSEX 42Q TOTOPW 35Q DSPCLIPPINGREGION 27Q TOTOPW 6 GETWINDOWUSERPROP) (263Q LASTMOUSEBUTTONS 3 TABLEBROWSER) () TB.SHOW.COPY.SELECTION D1 (P 0 WINDOW I 1 ITEM I 0 BROWSER) '@ `Hl@A @ hlg (44Q BLTSHADE 23Q TB.YCOORD.FROM.ITEM) (40Q INVERT 27Q TABLEBROWSER 13Q GRAYSHADE 3 TABLEBROWSER) () TB.BROWSER.BUSYA0001 D1 (NAME ERRORSET F 0 MACROY) n ci(5 BLOCK) NIL () TB.BROWSER.BUSY D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 BROWSER F 4 RESETVARSLST F 5 TB.CROSSCURSOR) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q TB.BROWSER.BUSYA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (TB.BROWSER.BUSYA0001)) TB.CLOSE/SHRINKA0001 D1 (NAME ERRORSET P 1 HOW? P 0 BROWSER F 2 WINDOW F 3 FLG F 4 RESETY) Rg Hid jH YHRSlIY HRSi hagXIHddi3 gHhRddi3 gRhSddi3 gShhg ` o` gci(217Q PRIN1 204Q TERPRI 174Q TB.PROCESS 60Q TB.FINISH.CLOSE 24Q OBTAIN.MONITORLOCK 6 GETWINDOWUSERPROP) (223Q DON'T 214Q PROMPTWINDOW 201Q PROMPTWINDOW 171Q TB.UPDATE 155Q QUOTE 133Q QUOTE 111Q QUOTE 67Q DON'T 32Q TABLEBROWSER 15Q TABLEBROWSER 3 TABLEBROWSER) ( 211Q "Browser is busy, can't close") TB.CLOSE/SHRINK D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 FLG I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q TB.CLOSE/SHRINKA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TB.CLOSE/SHRINKA0001)) TB.CLOSEFN D1 (I 0 WINDOW) @g (6 TB.CLOSE/SHRINK) (3 CLOSE) () TB.FINISH.CLOSEA0001 D1 (NAME ERRORSET F 0 WINDOW F 1 BROWSER F 2 DONTCLOSE F 3 CLOSEFLG F 4 RESETY) NQhi SdgQP cR+P %gPgg Pgg RP ci(110Q SHRINKW 100Q WINDOWDELPROP 65Q WINDOWADDPROP 43Q CLOSEW 31Q TB.FLUSH.WINDOW 12Q OBTAIN.MONITORLOCK) (75Q TB.SHRINKFN 72Q SHRINKFN 62Q TB.EXPANDFN 57Q EXPANDFN 50Q SHRINK 20Q CLOSE 3 TABLEBROWSER) () TB.FINISH.CLOSE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 DONTCLOSE I 2 CLOSEFLG I 1 WINDOW I 0 BROWSER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q TB.FINISH.CLOSEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TB.FINISH.CLOSEA0001)) TB.FLUSH.WINDOWA0001 D1 (NAME ERRORSET P 0 FN F 1 BROWSER F 2 WINDOW) Q"HQRlHiNIL (3 TABLEBROWSER) () TB.FLUSH.WINDOW D1 (I 1 WINDOW I 0 BROWSER) 4Agg oi @dh hAg A Ag (61Q OPENWP 56Q GETWINDOWUSERPROP 45Q OPENWP 41Q PUTWINDOWPROP 21Q TB.FLUSH.WINDOWA0001 11Q WINDOWDELPROP) (53Q ICONWINDOW 36Q TABLEBROWSER 6 TB.CLOSEFN 3 CLOSEFN) ( 15Q (TB.FLUSH.WINDOWA0001)) TB.SET.FONT D1 (P 7 FN P 6 ORIGIN P 5 ASCENT P 4 TOTALHEIGHT P 3 HEIGHT P 2 WIDTH P 1 WINDOW P 0 FONTGIVEN I 1 FONT I 0 BROWSER) A@ rI A@dI bdI nI nI @A@A[ @A] @A @hI M^(@K\Ig@jNLIg ZLh_O @JH@_ @IlOh(212Q PUTWINDOWPROP 171Q GETWINDOWPROP 133Q DSPYPOSITION 64Q LINELENGTH 55Q DSPRIGHTMARGIN 46Q DSPFONT 37Q FONTCREATE 34Q DSPFONT 15Q CLEARW) (225Q TABLEBROWSER 166Q WIDTH 155Q EXTENT 144Q TABLEBROWSER 121Q FONTDESCRIPTOR 107Q FONTDESCRIPTOR 75Q FONTDESCRIPTOR 24Q TABLEBROWSER 4 TABLEBROWSER) () TB.SHRINKFN D1 (I 0 WINDOW) @g (6 TB.CLOSE/SHRINK) (3 SHRINK) () TB.EXPANDFNA0001 D1 (NAME ERRORSET P 2 FN P 1 REGION P 0 FIRSTCHANGEDITEM# F 4 BROWSER F 5 WINDOW F 6 RESETY) bThi T1Uggi Hd9jT&ZTUlJTHThU Y dKKTI Thhc i(124Q TB.DISPLAY.LINES 121Q TB.LAST.VISIBLE.ITEM# 105Q TB.FIRST.VISIBLE.ITEM# 101Q DSPCLIPPINGREGION 37Q WINDOWADDPROP 12Q OBTAIN.MONITORLOCK) (54Q TABLEBROWSER 33Q TB.SHRINKFN 30Q SHRINKFN 17Q TABLEBROWSER 3 TABLEBROWSER) () TB.EXPANDFN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 BROWSER I 0 WINDOW F 4 LISPXHIST F 5 RESETVARSLST) ,@g T!Uog hg[ KJ(47Q ERROR! 42Q RESETRESTORE 30Q TB.EXPANDFNA0001 6 GETWINDOWUSERPROP) (36Q ERROR 25Q INTERNAL 3 TABLEBROWSER) ( 22Q (TB.EXPANDFNA0001)) TB.ITEM.UPDATABLE? D1 (I 1 ITEM I 0 BROWSER) -@ "@HHAd3 b@Ah(10Q OPENWP) (36Q TABLEITEM 16Q TABLEBROWSER 3 TABLEBROWSER) () TB.PROCESS D1 (I 3 RESTARTABLE I 2 ALLOWLOGOUT I 1 NAME I 0 FORM) @gAgCggBhg (33Q ADD.PROCESS) (27Q DON'T 20Q BEFOREEXIT 15Q NO 7 RESTARTABLE 3 NAME) () TB.FETCHNTH D1 (I 1 N I 0 ITEMS) @A (4 NTH) NIL () (PRETTYCOMPRINT TABLEBROWSERCOMS) (RPAQQ TABLEBROWSERCOMS ((FNS) (COMS (* Entries) (FNS TB.MAKE.BROWSER TB.REPLACE.ITEMS) (FNS TB.DELETE.ITEM TB.UNDELETE.ITEM TB.INSERT.ITEM TB.REMOVE.ITEM TB.NORMALIZE.ITEM TB.REDISPLAY.ITEMS TB.SELECT.ITEM) (FNS TB.NUMBER.OF.ITEMS TB.NTH.ITEM TB.COLLECT.ITEMS TB.MAP.ITEMS TB.MAP.DELETED.ITEMS TB.MAP.SELECTED.ITEMS TB.FIND.ITEM TB.ITEM.SELECTED? TB.ITEM.DELETED?) (FNS TB.CLEAR.LINE TB.USERDATA TB.WINDOW)) (COMS (* Display) (FNS TB.REPAINTFN TB.RESHAPEFN TB.SCROLLFN TB.DISPLAY.LINES TB.PRINT.LINE TB.FIRST.VISIBLE.ITEM# TB.LAST.VISIBLE.ITEM# TB.ITEM.VISIBLE? TB.YCOORD.FROM.ITEM TB.ITEM#.FROM.YCOORD TB.ITEM.FROM.YCOORD TB.SHOW.DELETION TB.SHOW.SELECTION TB.UPDATE.DISPLAY)) (COMS (* Selection) (FNS TB.BUTTONEVENTFN TB.DO.UNLESS.BUSY TB.DO.ITEM.SELECTION TB.DECONSIDERRANGE TB.CONSIDERRANGE TB.DESELECTRANGE TB.RECONSIDERRANGE TB.SELECTRANGE TB.UNDOSELECTION TB.FIND.SELECTED.ITEM TB.REV.FIND.SELECTED.ITEM) (FNS TB.COPYBUTTONEVENTFN TB.SHOW.COPY.SELECTION)) ( COMS (* Misc state change) (FNS TB.BROWSER.BUSY TB.CLOSE/SHRINK TB.CLOSEFN TB.FINISH.CLOSE TB.FLUSH.WINDOW TB.SET.FONT TB.SHRINKFN TB.EXPANDFN TB.ITEM.UPDATABLE?)) (COMS (* Misc) (FNS TB.PROCESS TB.FETCHNTH) (VARS TB.DELETEDLINEHEIGHT) (BITMAPS TB.SELECTION.BITMAP) (CURSORS TB.CROSSCURSOR) (DECLARE: EVAL@COMPILE DONTCOPY (FILES (SOURCE) TABLEBROWSERDECLS) (CONSTANTS * TOCSTATES) (USERMACROS TB) (I.S.OPRS selectedfrom) (MACROS .COPYKEYDOWNP.) (GLOBALVARS TB.CROSSCURSOR TB.SELECTION.BITMAP TB.DELETEDLINEHEIGHT))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA TB.USERDATA))) (INITRECORDS TABLEBROWSER TABLEITEM) ( SYSRECORDS TABLEBROWSER TABLEITEM))) (RPAQQ TB.DELETEDLINEHEIGHT 1) (RPAQ TB.SELECTION.BITMAP (READBITMAP)) (8 10 "L@@@" "N@@@" "O@@@" "OH@@" "OL@@" "OH@@" "O@@@" "N@@@" "L@@@" "@@@@") (RPAQ TB.CROSSCURSOR (CURSORCREATE (READBITMAP) 8 8)) (16 16 "L@@C" "N@@G" "G@@N" "CHAL" "ALCH" "@NG@" "@GN@" "@CL@" "@CL@" "@GN@" "@NG@" "ALCH" "CHAL" "G@@N" "N@@G" "L@@C") (/DECLAREDATATYPE (QUOTE TABLEBROWSER) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( TABLEBROWSER 0 (FLAGBITS . 0)) (TABLEBROWSER 0 (FLAGBITS . 16)) (TABLEBROWSER 0 (FLAGBITS . 32)) ( TABLEBROWSER 0 (FLAGBITS . 48)) (TABLEBROWSER 0 (FLAGBITS . 64)) (TABLEBROWSER 0 (FLAGBITS . 80)) ( TABLEBROWSER 0 (FLAGBITS . 96)) (TABLEBROWSER 0 (FLAGBITS . 112)) (TABLEBROWSER 0 POINTER) ( TABLEBROWSER 2 (BITS . 15)) (TABLEBROWSER 3 (BITS . 15)) (TABLEBROWSER 4 (BITS . 15)) (TABLEBROWSER 5 (BITS . 15)) (TABLEBROWSER 6 (BITS . 15)) (TABLEBROWSER 7 (BITS . 15)) (TABLEBROWSER 8 (BITS . 15)) ( TABLEBROWSER 9 (BITS . 15)) (TABLEBROWSER 10 (BITS . 15)) (TABLEBROWSER 11 (BITS . 15)) (TABLEBROWSER 12 POINTER) (TABLEBROWSER 14 POINTER) (TABLEBROWSER 16 POINTER) (TABLEBROWSER 18 POINTER) ( TABLEBROWSER 20 POINTER) (TABLEBROWSER 22 POINTER) (TABLEBROWSER 24 POINTER) (TABLEBROWSER 26 POINTER) (TABLEBROWSER 28 POINTER) (TABLEBROWSER 30 POINTER) (TABLEBROWSER 32 POINTER) (TABLEBROWSER 34 POINTER) (TABLEBROWSER 36 POINTER) (TABLEBROWSER 38 POINTER) (TABLEBROWSER 40 POINTER) (TABLEBROWSER 42 POINTER) (TABLEBROWSER 44 POINTER) (TABLEBROWSER 46 POINTER))) (QUOTE 48)) (/DECLAREDATATYPE (QUOTE TABLEITEM) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD) ) (QUOTE ((TABLEITEM 0 (FLAGBITS . 0)) (TABLEITEM 0 (FLAGBITS . 16)) (TABLEITEM 0 (FLAGBITS . 32)) ( TABLEITEM 0 (FLAGBITS . 48)) (TABLEITEM 0 (FLAGBITS . 64)) (TABLEITEM 0 (FLAGBITS . 80)) (TABLEITEM 0 (FLAGBITS . 96)) (TABLEITEM 0 (FLAGBITS . 112)) (TABLEITEM 0 POINTER) (TABLEITEM 2 (BITS . 15)) ( TABLEITEM 3 (BITS . 15)))) (QUOTE 4)) (ADDTOVAR SYSTEMRECLST (DATATYPE TABLEBROWSER ((TBREADY FLAG) (NIL 7 FLAG) (TBITEMS POINTER) (TB#ITEMS WORD) (TB#DELETED WORD) (TB#LINESPERITEM WORD) (TBFIRSTSELECTEDITEM WORD) (TBLASTSELECTEDITEM WORD) ( NIL WORD) (TBMAXXPOS WORD) (TBFONTHEIGHT WORD) (TBFONTASCENT WORD) (TBFONTDESCENT WORD) (TBWINDOW POINTER) (TBLOCK POINTER) (TBUSERDATA POINTER) (TBFONT POINTER) (TBEXTENT POINTER) (TBUPDATEFROMHERE POINTER) (TBCOLUMNS POINTER) (TBPRINTFN POINTER) (TBCOPYFN POINTER) (TBFONTCHANGEFN POINTER) ( TBCLOSEFN POINTER) (TBAFTERCLOSEFN POINTER) (TBTITLEEVENTFN POINTER) (TBAFTEREXPUNGEFN POINTER) ( TBORIGIN POINTER) (NIL POINTER) (NIL POINTER) (NIL POINTER))) (DATATYPE TABLEITEM ((TISELECTED FLAG) ( TIDELETED FLAG) (TIUNDELETABLE FLAG) (TIUNSELECTABLE FLAG) (TIUNCOPYSELECTABLE FLAG) (NIL 3 FLAG) ( TIDATA POINTER) (TI# WORD) (NIL WORD)))) (PUTPROPS TABLEBROWSER COPYRIGHT ("Xerox Corporation" 1985)) NIL