(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 6-Aug-2022 18:06:59" ("compiled on " {DSK}larry>medley>library>TABLEBROWSER.;8) " 6-Aug-2022 12:12:19" brecompiled changes%: nothing in "FULL 6-Aug-2022 ..." dated " 6-Aug-2022 12:12:22") (FILECREATED " 6-Aug-2022 18:06:57" {DSK}larry>medley>library>TABLEBROWSER.;8 63740 :CHANGES-TO (VARS TABLEBROWSERCOMS) (RECORDS TABLEBROWSER TABLEITEM) :PREVIOUS-DATE " 4-Aug-2022 09:32:17" {DSK}larry>medley>library>TABLEBROWSER.;7) TB.MAKE.BROWSER :D8 (L (2 PROPS 1 WINDOWSPEC 0 ITEMS) P 15 LINETHICKNESS P 14 HEADINGWINDOW P 13 BASELINE P 12 ITEMHEIGHT P 8 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) [kñ B±šd_ dgð³kdgð³bdgð³Ydgð³Pdgð³Gdgð³>dgð³5dgð³,dgð³#dgð³dgð¯dgð§dgð¿O O ¿O O hO_¿µ‚±ÿeAhdN_dg`dO¿dI¿O É(µo _"¿dO"¿Hµk_$¿dO$Í¿Oµj_&¿dO&Í¿dO¿dJ¿dK¿dL ¿dM"¿dO¿dO,¿Oµ`_(¿dO(&¿_O²OOÍ¿OkÏ¿lO O@ OggOggOggOggOggo_0µOkÏ¿kjðhðO_2¿OO2 oO2 _.¿_,µ O.h_,°µO,h_,_*µO,O.h ¿OO2O,¿O0°–O.ð³ëoO* šO.O* °ÑO*°¼(594 ATTACH 584 STRPOS 559 WINDOWPROP 547 \NCONC2 507 PACK* 495 WINDOWPROP 452 PUTWINDOWPROP 435 PUTWINDOWPROP 418 PUTWINDOWPROP 401 PUTWINDOWPROP 384 PUTWINDOWPROP 367 TB.REPLACE.ITEMS 359 DSPLEFTMARGIN 322 PUTWINDOWPROP 223 CREATE.MONITORLOCK 209 \INSUREWINDOW 177 DECODE.WINDOW.ARG 141 SET) (469 TABLEBROWSER 447 TB.COPYBUTTONEVENTFN 442 COPYBUTTONEVENTFN 430 TB.BUTTONEVENTFN 425 RIGHTBUTTONFN 413 TB.BUTTONEVENTFN 408 BUTTONEVENTFN 396 TB.REPAINTFN 391 REPAINTFN 379 TB.SCROLLFN 374 SCROLLFN 345 TABLEBROWSER 333 TABLEBROWSER 306 TB.DELETEDLINEHEIGHT 190 |TABLEBROWSERTYPE#| 185 TABLEBROWSER 126 LINETHICKNESS 118 HEADINGWINDOW 110 BASELINE 101 ITEMHEIGHT 92 LINESPERITEM 83 USERDATA 74 COLUMNS 65 TITLE 56 AFTERCLOSEFN 47 CLOSEFN 38 COPYFN 29 PRINTFN 20 FONT) ( 576 "ATTACHED" 500 "TB." 457 (CLOSEFN SHRINKFN RESHAPEFN) 218 "Table Browser") TB.REPLACE.ITEMS :D8 (L (1 NEWITEMS 0 BROWSER)) “jA@bAŽdHkÔXÍ¿µð@h*@A@HÍ@Aj»Zµ KÍ@kHY²!@IÍ¿@dIH°Êjð£KkØ»J°Ñ@HkØÍ¿@jÍ¿@ h@É ¼@dL @L (144 TB.DISPLAY.LINES 139 TB.LAST.VISIBLE.ITEM# 132 TB.FIRST.VISIBLE.ITEM# 123 DSPCLIPPINGREGION 114 TB.SET.FONT 79 TB.REV.FIND.SELECTED.ITEM 62 TB.FIND.SELECTED.ITEM) (20 TABLEITEM 9 TABLEBROWSER) () TB.DELETE.ITEM :D8 (L (1 ITEM 0 BROWSER)) OAÊjð´BAkÏ¿kjðhð@HHÈkÔÍ@Ai´@A@Ég(76 TB.SHOW.DELETION 59 TB.ITEM.UPDATABLE?) (71 REPLACE 44 TABLEBROWSER 38 TABLEBROWSER 29 TABLEBROWSER 5 TABLEITEM) () TB.UNDELETE.ITEM :D8 (L (1 ITEM 0 BROWSER)) aAÊjð³SAjÏ¿jdðhð@HHÈmÿÔÍ@Ai´ @É@AHg@AH@Éh(92 TB.PRINT.LINE 81 TB.SHOW.DELETION 60 TB.ITEM.UPDATABLE?) (76 ERASE 44 TABLEBROWSER 38 TABLEBROWSER 29 TABLEBROWSER 5 TABLEITEM) () TB.INSERT.ITEM :D8 (L (2 BEFOREITEM 1 NEWITEM 0 BROWSER)) Ñ@bÈ1AbBµHkØY¿Ikð²*@A@ÉZ°=3 µ BÈYHó¤kIó²ÝB °ÔB@É*µ@É †@I ZAJZ¿@JI@HkØÍAÊjð³@@ÈkÔÍ¿@È[Iýó¯@AÊjð¡I‚KkØÍ¿@È[Iýó¤@KkØˆAÊjð¤@IÍ¿@Ig(206 TB.UPDATE.DISPLAY 112 TB.RENUMBER.TAIL 96 TB.FIND.PREVIOUS.TAIL 88 FLAST 71 \ILLEGAL.ARG) (201 INSERT 138 TABLEBROWSER 132 TABLEBROWSER 54 TABLEITEM 18 TABLEITEM 5 TABLEBROWSER) () TB.REMOVE.ITEM :D8 (L (1 ITEM 0 BROWSER)) @ÈAÈ"Ikð˜@dÉ[‹@I d[¿@KI@HkÙÍAÊjð³@@ÈmÿÔÍ¿@ÈZIýó³@JdIð›¿dI µHkÙÍ¿@ÈZIýó³@JdIðž¿dhIkÙµjkÙÍ¿@Ig(170 TB.UPDATE.DISPLAY 149 TB.REV.FIND.SELECTED.ITEM 114 TB.FIND.SELECTED.ITEM 57 TB.RENUMBER.TAIL 43 TB.FIND.PREVIOUS.TAIL) (165 REMOVE 83 TABLEBROWSER 77 TABLEBROWSER 18 TABLEITEM 10 TABLEBROWSER 5 TABLEBROWSER) () TB.NORMALIZE.ITEM :D8 (L (1 ITEM 0 BROWSER)) Q@É!@A ¹hH ZIó³JJØI@ÈÔýó´HjJJlÛÔI@ÈlÛÔÕ(78 SCROLLBYREPAINTFN 25 DSPCLIPPINGREGION 17 TB.BOTTOM.OF.ITEM) (5 TABLEBROWSER) () TB.REDISPLAY.ITEMS :D8 (L (2 LASTITEM 1 FIRSTITEM 0 BROWSER)) …h@É !AµB©@jÍ¿AµkŠd3 ¦È@H ¹dIñ¡¿IbBµ@È‹3 µ BÈ@H ºdJñ‘¿JbABó³@A ´@É @ABh(128 TB.DISPLAY.LINES 120 CLEARW 110 TB.ITEM.UPDATABLE? 89 TB.LAST.VISIBLE.ITEM# 54 TB.FIRST.VISIBLE.ITEM# 13 DSPCLIPPINGREGION) (80 TABLEITEM 45 TABLEITEM 27 TABLEBROWSER 6 TABLEBROWSER) () TB.SELECT.ITEM :D8 (L (1 ITEM 0 BROWSER)) 1AÈ@Hdi@Hi´@Hg(46 TB.SHOW.SELECTION 32 TB.ITEM.UPDATABLE? 24 TB.SELECTRANGE) (41 REPLACE 16 TABLEBROWSER 5 TABLEITEM) () TB.UNSELECT.ITEM :D8 (L (1 ITEM 0 BROWSER)) :AÊjð³,AÈ@Hd@Hi´@Hgh(53 TB.SHOW.SELECTION 39 TB.ITEM.UPDATABLE? 31 TB.DESELECTRANGE) (48 ERASE 24 TABLEBROWSER 5 TABLEITEM) () TB.UNSELECT.ALL.ITEMS :D8 (L (0 BROWSER)) ^@È@ÈHIó³JIH@H KJóž@dÈkØÍ@jÍj@K dÊjð³jÏ¿Lœ@Kg¿KkÔ[°Çh(83 TB.SHOW.SELECTION 56 TB.NTH.ITEM 27 TB.ITEM.UPDATABLE?) (78 ERASE 5 TABLEBROWSER) () TB.NUMBER.OF.ITEMS :D8 (L (1 TYPE 0 BROWSER)) T@bAµdÈdgð”¿@Ègð²*@È@ÈjIHó³@I Êjð£JkØºIkÔY°çJA (81 \ILLEGAL.ARG 57 TB.NTH.ITEM) (32 SELECTED 20 DELETED 5 TABLEBROWSER) () TB.NTH.ITEM :D8 (L (1 N 0 BROWSER)) =@ Ajó´/@É*X˜AHÈYýó—@ÉXk¹´AIó›HX¡hIkÔ¹°ò@H*¿HNIL (5 TABLEBROWSER) () TB.COLLECT.ITEMS :D8 (L (1 PREDFN 0 BROWSER)) PAdgð–¿g‹gð—gb¿@ÉAHµI¼A–@LlA™L»JµKhZ¹HX°ãK&º°øNIL (36 TABLEBROWSER 27 TB.ITEM.SELECTED? 20 SELECTED 14 TB.ITEM.DELETED? 6 DELETED) () TB.MAP.ITEMS :D8 (L (2 NULLFN 1 MAPFN 0 BROWSER)) %@ÉµB´@kBd@HlAµòhNIL (5 TABLEBROWSER) () TB.MAP.DELETED.ITEMS :D8 (L (2 NULLFN 1 MAPFN 0 BROWSER)) 5@Èjð³"@ÉHµhYÊjð¦@IlA¿HX°éB´@kBNIL (5 TABLEBROWSER) () TB.MAP.SELECTED.ITEMS :D8 (L (2 NULLFN 1 MAPFN 0 BROWSER)) ?@ÈkÙ@ÈIHó²#HkÔXIó‘h@H ZÊjð³ê@JlA¿°áB´@kB(36 TB.NTH.ITEM) (5 TABLEBROWSER) () TB.FIND.ITEM :D8 (L (4 BACKWARDSFLG 3 LAST# 2 FIRST# 1 PREDFN 0 BROWSER)) ‚@Bµ.kCµ@ÈRHIó³iD²#IkØºH»mÿ° @ÈHdIñ‘¿I°Ýkñ²ÒB°ÐHkÙºI»k¼Adgð˜¿gbgð—gb¿A¾@dJLÔZ ]lN‘MJKð²èh(113 TB.NTH.ITEM) (97 TB.ITEM.SELECTED? 90 SELECTED 82 TB.ITEM.DELETED? 74 DELETED 5 TABLEBROWSER) () TB.ITEM.SELECTED? :D8 (L (1 ITEM 0 BROWSER)) AÊjðhðNIL (5 TABLEITEM) () TB.ITEM.DELETED? :D8 (L (1 ITEM 0 BROWSER)) AÊjðhðNIL (5 TABLEITEM) () TB.CLEAR.LINE :D8 (L (3 WIDTH 2 LEFT 1 ITEM 0 BROWSER)) %j@ÉBµj@A C@Èg (34 BLTSHADE 19 TB.BOTTOM.OF.ITEM) (28 REPLACE 6 TABLEBROWSER) () TB.USERDATA :D8 (L (0 -args-)) 'eka!lHñ‘h„iºla»IÉJ”IK¿NIL (27 TABLEBROWSER) () TB.WINDOW :D8 (L (0 BROWSER)) @ÉNIL (5 TABLEBROWSER) () TB.REPAINTFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 BROWSER F 1 REGION) .PÉid²PdQ PQ P (43 TB.BROWSER.BUSY 36 TB.DISPLAY.LINES 31 TB.LAST.VISIBLE.ITEM# 24 TB.FIRST.VISIBLE.ITEM# 14 OBTAIN.MONITORLOCK) (5 TABLEBROWSER) () TB.REPAINTFN :D8 (L (0 WINDOW) P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 BROWSER I 1 REGION F 4 LISPXHIST) 9@g HÈjð³T!g ¿$h(49 SI::RESETUNWIND 44 \MVLIST 39 TB.REPAINTFNA0001 10 GETWINDOWUSERPROP) (34 SI::RESETUNWIND 19 TABLEBROWSER 5 TABLEBROWSER) () TB.RESHAPEFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 WINDOW F 4 OLDIMAGEBM F 5 OLDREGION) †Sg hS HdÉid³I¿¿HÉhi¿HI ZH JkÙHÈÖS HJHI hdÊjð²Æ¿STU(131 RESHAPEBYREPAINTFN 107 TB.DISPLAY.LINES 102 TB.LAST.VISIBLE.ITEM# 93 WYOFFSET 75 TB.SET.FONT 68 TB.FIRST.VISIBLE.ITEM# 60 OBTAIN.MONITORLOCK 44 ALLOW.BUTTON.EVENTS 36 OBTAIN.MONITORLOCK 17 DSPCLIPPINGREGION 10 GETWINDOWUSERPROP) (115 TABLEBROWSER 84 TABLEBROWSER 51 TABLEBROWSER 27 TABLEBROWSER 5 TABLEBROWSER) () TB.RESHAPEFN :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 OLDREGION I 1 OLDIMAGEBM I 0 WINDOW F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 TB.RESHAPEFNA0001) (8 SI::RESETUNWIND) () TB.SCROLLFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 DY F 2 WINDOW F 3 DX F 4 CONTINUOUSFLG) IRg HdÉid²$¿RSQTQjð´HÉ,d—SQT (70 TB.BROWSER.BUSY 64 SCROLLW 41 SCROLLBYREPAINTFN 29 OBTAIN.MONITORLOCK 10 GETWINDOWUSERPROP) (52 TABLEBROWSER 20 TABLEBROWSER 5 TABLEBROWSER) () TB.SCROLLFN :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 CONTINUOUSFLG I 2 DY I 1 DX I 0 WINDOW F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 TB.SCROLLFNA0001) (8 SI::RESETUNWIND) () TB.DISPLAY.LINES :D8 (L (2 LAST# 1 FIRST# 0 BROWSER)) À B@ÈHdIñ‘¿IAdkñ¡¿k@É@È@ÉU IHó³,@I ¾@NJL¿KhJ _ýó”O»i½IkÔY°ÔM´X@KÍ¿@É_K¿JgO¿@É,_d²$ ÉKlJ É,O É,ÕÖÔh(182 \INSUREWINDOW 173 \INSUREWINDOW 160 \INSUREWINDOW 141 PUTWINDOWPROP 84 DSPXPOSITION 75 TB.PRINT.LINE 65 TB.NTH.ITEM) (148 TABLEBROWSER 134 EXTENT 119 TABLEBROWSER 109 TABLEBROWSER 48 TABLEBROWSER 40 TABLEBROWSER 32 TABLEBROWSER 6 TABLEBROWSER) () TB.PRINT.LINE :D8 (L (3 PRINTFN 2 WINDOW 1 ITEM 0 BROWSER)) al@A @ÈÔBBj @ABlC@AdÊjð¥g„gAÊjð@ABgh(92 TB.SHOW.DELETION 67 TB.SHOW.SELECTION 30 POSITION 23 MOVETO 8 TB.BOTTOM.OF.ITEM) (87 REPLACE 73 TABLEITEM 62 ERASE 56 REPLACE 45 TABLEITEM 14 TABLEBROWSER) () TB.FIRST.VISIBLE.ITEM# :D8 (L (1 REGION 0 BROWSER)) 3@É(Ad§@É HHØÕ@ÈÛkØkHñ¡Hk(18 DSPCLIPPINGREGION) (5 TABLEBROWSER) () TB.LAST.VISIBLE.ITEM# :D8 (L (1 REGION 0 BROWSER)) ,@È@É(Ad§@É Õ@È HdIñI(32 CL:CEILING 21 DSPCLIPPINGREGION) (5 TABLEBROWSER) () TB.ITEM.VISIBLE? :D8 (L (1 ITEM 0 BROWSER)) 2h@É @A IHHØýó´HI@ÈÔýó(20 TB.BOTTOM.OF.ITEM 13 DSPCLIPPINGREGION) (6 TABLEBROWSER) () TB.ITEM.FROM.YCOORD :D8 (L (1 YPOS 0 BROWSER)) 9@É(AÕ@È @Hdjó¢¿kŽ@È¹dIñ‘¿I (54 TB.NTH.ITEM 22 CL:CEILING) (40 TABLEBROWSER 15 TABLEBROWSER 5 TABLEBROWSER) () TB.BOTTOM.OF.ITEM :D8 (L (1 ITEM 0 BROWSER)) @É(@ÈAd3 ¦ÈÖÕNIL (25 TABLEITEM 13 TABLEBROWSER 5 TABLEBROWSER) () TB.SHOW.DELETION :D8 (L (3 OPERATION 2 WINDOW 1 ITEM 0 BROWSER)) ?@É&@ÈnÿÿBlIkÙ@ÈIÕHÕlÛÔ@A ÔhHC (60 BLTSHADE 50 TB.BOTTOM.OF.ITEM) (33 TABLEBROWSER 13 TABLEBROWSER 5 TABLEBROWSER) () TB.SHOW.SELECTION :D8 (L (2 OPERATION 1 ITEM 0 BROWSER)) N@È`Ijd@ÉjHkÙ@ÈHÕIÈÕlÛÔ@A ÔhdgB (75 BITBLT 60 TB.BOTTOM.OF.ITEM) (68 INPUT 46 BITMAP 36 TABLEBROWSER 24 TABLEBROWSER 12 TB.SELECTION.BITMAP 5 TABLEBROWSER) () TB.UPDATE.DISPLAY :D8 (L (2 TYPE 1 FROMITEM# 0 BROWSER)) 9 @É@É@È@È@A EIIBdgð”¿jKÕgð‘K„]ÔhH ^LNNØýó³@@É(MÔ(±¼IIMÕ_¿LKÔN_ó´‚±£@A ´‚±–Bdgð²-¿HjOKÔHjOhLOÕgg ¿@Ad°_gð²RHjOHjOKÔhLOÕgg ¿@ALOÕKÛÔdkØ¿OOó´jHjOhOOÕg „h(309 SHOULDNT 303 BLTSHADE 273 TB.DISPLAY.LINES 255 BITBLT 214 TB.DISPLAY.LINES 205 BITBLT 157 TB.ITEM.UPDATABLE? 88 DSPCLIPPINGREGION 78 SHOULDNT 38 TB.BOTTOM.OF.ITEM) (297 REPLACE 249 REPLACE 244 INPUT 221 REMOVE 199 REPLACE 194 INPUT 170 INSERT 115 TABLEBROWSER 109 TABLEBROWSER 69 INSERT 57 REMOVE 29 TABLEBROWSER 21 TABLEBROWSER 13 TABLEBROWSER 5 TABLEBROWSER) () TB.ITEM.UPDATABLE? :D8 (L (2 ONLYIFVISIBLE 1 ITEM 0 BROWSER)) IA3 ªAÈb¿Bš@dA ¢h@É µ@ÉH”HAó´@Ah(40 OPENWP 24 TB.ITEM.VISIBLE?) (66 TABLEBROWSER 48 TABLEBROWSER 33 TABLEBROWSER 9 TABLEITEM) () TB.BUTTONEVENTFN :D8 (L (0 WINDOW)) h@ h@ @ @ ›@g `dlålð—¿@ låkð´@g É$X´ @H (101 TB.DO.UNLESS.BUSY 84 GETWINDOWUSERPROP 65 DOWINDOWCOM 44 TB.DO.UNLESS.BUSY 32 INSIDEP 27 LASTMOUSEY 21 LASTMOUSEX 15 DSPCLIPPINGREGION 5 TOTOPW) (89 TABLEBROWSER 79 TABLEBROWSER 50 LASTMOUSEBUTTONS 39 TB.DO.ITEM.SELECTION) () TB.DO.UNLESS.BUSYA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 WINDOW F 2 FN) 6Qg HÊjð³HÉid´ QHlRh(41 OBTAIN.MONITORLOCK 10 GETWINDOWUSERPROP) (32 TABLEBROWSER 19 TABLEBROWSER 5 TABLEBROWSER) () TB.DO.UNLESS.BUSY :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 FN I 0 WINDOW F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 TB.DO.UNLESS.BUSYA0001) (8 SI::RESETUNWIND) () TB.DO.ITEM.SELECTION :D8 (L (0 WINDOW) P 6 SELECTIONSTATE P 5 LASTVISIBLE# P 4 FIRSTVISIBLE# P 0 BROWSER) `@g ñ HÈjð´h@ YHÈ[HÈZHI \HI ]¿I@ @ _³4Njð©¿h_¿`lå_jð³ŸO˜O ³‘¿°´`lå_jð³XOµKHO _dOðœ¿`Oð³†OÊ0jð’±`dlåjð¢±¿Njð’±Ù±Ð ²²O›OÈ_¿Ndkð²Q¿KJ_"¿_ ¿O"O ó³HO" jÏ¿O"kÔ_"°ãOkÏ¿HHOÍ¿OÍ¿±þÂlðHOdi¿±þ°Ndlð¿HOd¿±þœlð²HKkØOO¿±þ†Ndlð²¿HOJkÙO¿±þmlðžHOkØK¿±þZNlð´‚±þQHJOkÙ¿±þA`låjð³Og ²CNdlðž¿HOg‡jð¥¿OÊjð’±œHOg¿l±Š`dlåjð³0¿NkðHOg‰LM ¿k^¿HOg±Pkåjð³CNdlðž¿HOg‡jð¥¿OÊjð¢±HOg¿l±`dlåjð’±¿OÈ_¿Od–È_¿Ndlð²1¿OdOó²¿OkØOO±¾Kó’O‚j¾KkØO ±©lð²/OdOó²¿OOkÙO±‹JOó’O‚j¾JkÙ °vNdlð²5¿OOó³OkØKOó’O‚j¾K °QJdOó³A¿OkØO °