From 89a8fe183d21f9a7be8d1713b64bd9647250d475 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 25 Nov 2021 08:22:31 -0800 Subject: [PATCH 1/2] DINFO: Menu has MIN/MAX sizes for scrolling --- lispusers/DINFO | 76 ++++++++++++++++++++++++------------------- lispusers/DINFO.LCOM | Bin 30047 -> 30187 bytes 2 files changed, 42 insertions(+), 34 deletions(-) diff --git a/lispusers/DINFO b/lispusers/DINFO index dfca182fc..188fa0fe4 100644 --- a/lispusers/DINFO +++ b/lispusers/DINFO @@ -1,15 +1,16 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "14-Feb-2021 23:11:36"  -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;5 64800 - changes to%: (VARS DINFOCOMS) +(FILECREATED "25-Oct-2021 23:24:46"  +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;2 65213 - previous date%: "14-Feb-2021 14:55:19" -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;4) + changes to%: (FNS DINFO.CREATE.FMENU) + + previous date%: "14-Feb-2021 23:11:36" +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;1) (* ; " -Copyright (c) 1985, 1986, 1987, 2020, 2021 by Xerox Corporation. +Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. ") (PRETTYCOMPRINT DINFOCOMS) @@ -19,24 +20,24 @@ Copyright (c) 1985, 1986, 1987, 2020, 2021 by Xerox Corporation. (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS DINFOGRAPH DINFONODE) (FUNCTIONS DINFOGRAPHPROP)) (INITRECORDS DINFOGRAPH) - (FNS (* ; "Primary functions") + (FNS (* ; "Primary functions") DINFO DINFO.UPDATE DINFOGRAPH DINFO.SPECIAL.UPDATE DINFO.READ.GRAPH DINFO.WRITE.GRAPH DINFO.SELECT.GRAPH DINFO.DEFAULT.MENU DINFO.FIND DINFO.LOOKUP) - (FNS (* ; "Koto compatability") + (FNS (* ; "Koto compatability") DINFO.READ.KOTO.GRAPH) - (FNS (* ; "Window functions") + (FNS (* ; "Window functions") DINFO.SETUP.WINDOW DINFO.CLOSEFN DINFO.SHRINKFN DINFO.EXPANDFN DINFO.ICONFN) - (FNS (* ; "FreeMenu functions") + (FNS (* ; "FreeMenu functions") DINFO.ADD.FMENU DINFO.CREATE.FMENU DINFO.FMW.CLOSEFN DINFO.FMENU.HANDLER DINFO.UPDATE.FMENU DINFO.TOGGLE.MENU DINFO.TOGGLE.GRAPH DINFO.TOGGLE.HISTORY DINFO.TOGGLE.TEXT) - (FNS (* ; "Other menu functions") + (FNS (* ; "Other menu functions") DINFO.UPDATE.MENU.DISPLAY DINFO.UPDATE.FROM.MENU DINFO.UPDATE.HISTORY DINFO.HISTORIC.UPDATE) - (FNS (* ; "Interface to GRAPHER") + (FNS (* ; "Interface to GRAPHER") DINFO.UPDATE.GRAPH.DISPLAY DINFO.UPDATE.FROM.GRAPH DINFO.GET.GRAPH.WINDOW DINFO.CREATE.GRAPH.WINDOW DINFO.SHOWGRAPH DINFO.INVERT.NODE DINFO.LAYOUTGRAPH) - (FNS (* ; "Interface to TEdit") + (FNS (* ; "Interface to TEdit") DINFO.UPDATE.TEXT.DISPLAY DINFO.TITLEMENUFN DINFO.OPENTEXTSTREAM DINFO.SHOWSEL DINFO.GET.FILENAME) (ADDVARS (BackgroundMenuCommands (DInfo (DINFO.SELECT.GRAPH) @@ -539,14 +540,17 @@ Copyright (c) 1985, 1986, 1987, 2020, 2021 by Xerox Corporation. (DINFO.UPDATE.FMENU GRAPH]) (DINFO.CREATE.FMENU - [LAMBDA (GRAPH) (* jow "15-Jul-86 17:39") - - (* * Makes a DInfo FreeMenu for GRAPH) + [LAMBDA (GRAPH) (* ; "Edited 25-Oct-2021 23:23 by rmk:") + (* jow "15-Jul-86 17:39") + +(* ;;; "Makes a DInfo FreeMenu for GRAPH") + + (* ;; "RMK: Added MINSIZE and MAXSIZE so that the menu doesn't get distorted during reshaping") (LET* [(ADD.ITEMS (fetch (DINFOGRAPH FREEMENUITEMS) of GRAPH)) (FONT (OR (FONTP (fetch (DINFOGRAPH MENUFONT) of GRAPH)) MENUFONT)) - (FM (FREEMENU `((PROPS FONT %, FONT) + [FM (FREEMENU `((PROPS FONT %, FONT) ((LABEL Node%: TYPE DISPLAY FONT (HELVETICA 10)) (ID NODE LABEL "" TYPE DISPLAY)) ((LABEL Top! SELECTEDFN DINFO.FMENU.HANDLER FONT (HELVETICA 10 BOLD) @@ -585,8 +589,12 @@ Copyright (c) 1985, 1986, 1987, 2020, 2021 by Xerox Corporation. (HELVETICA 10 BOLD) MESSAGE "Lookup a term in this graph. LEFT for new term, MIDDLE to repeat last." - )) ADD.ITEMS] + )) + ADD.ITEMS] + (HEIGHT (FETCH (REGION HEIGHT) OF (WINDOWPROP FM 'REGION] (WINDOWPROP FM 'FM.DONTRESHAPE T) + (WINDOWPROP FM 'MINSIZE (CONS 0 HEIGHT)) + (WINDOWPROP FM 'MAXSIZE (CONS 64000 HEIGHT)) FM]) (DINFO.FMW.CLOSEFN @@ -1110,20 +1118,20 @@ Copyright (c) 1985, 1986, 1987, 2020, 2021 by Xerox Corporation. ) (PUTPROPS DINFO COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (7732 24558 (DINFO 7742 . 9356) (DINFO.UPDATE 9358 . 12222) (DINFOGRAPH 12224 . 12642) ( -DINFO.SPECIAL.UPDATE 12644 . 14342) (DINFO.READ.GRAPH 14344 . 16199) (DINFO.WRITE.GRAPH 16201 . 17291) - (DINFO.SELECT.GRAPH 17293 . 18200) (DINFO.DEFAULT.MENU 18202 . 20726) (DINFO.FIND 20728 . 23112) ( -DINFO.LOOKUP 23114 . 24556)) (24559 27253 (DINFO.READ.KOTO.GRAPH 24569 . 27251)) (27254 29568 ( -DINFO.SETUP.WINDOW 27264 . 27945) (DINFO.CLOSEFN 27947 . 28380) (DINFO.SHRINKFN 28382 . 28578) ( -DINFO.EXPANDFN 28580 . 29137) (DINFO.ICONFN 29139 . 29566)) (29569 40417 (DINFO.ADD.FMENU 29579 . -30674) (DINFO.CREATE.FMENU 30676 . 34213) (DINFO.FMW.CLOSEFN 34215 . 35060) (DINFO.FMENU.HANDLER 35062 - . 35701) (DINFO.UPDATE.FMENU 35703 . 37908) (DINFO.TOGGLE.MENU 37910 . 38500) (DINFO.TOGGLE.GRAPH -38502 . 39001) (DINFO.TOGGLE.HISTORY 39003 . 39547) (DINFO.TOGGLE.TEXT 39549 . 40415)) (40418 48116 ( -DINFO.UPDATE.MENU.DISPLAY 40428 . 44448) (DINFO.UPDATE.FROM.MENU 44450 . 44749) (DINFO.UPDATE.HISTORY -44751 . 47285) (DINFO.HISTORIC.UPDATE 47287 . 48114)) (48117 58283 (DINFO.UPDATE.GRAPH.DISPLAY 48127 - . 49445) (DINFO.UPDATE.FROM.GRAPH 49447 . 49890) (DINFO.GET.GRAPH.WINDOW 49892 . 50477) ( -DINFO.CREATE.GRAPH.WINDOW 50479 . 51596) (DINFO.SHOWGRAPH 51598 . 53323) (DINFO.INVERT.NODE 53325 . -54713) (DINFO.LAYOUTGRAPH 54715 . 58281)) (58284 64140 (DINFO.UPDATE.TEXT.DISPLAY 58294 . 60155) ( -DINFO.TITLEMENUFN 60157 . 61282) (DINFO.OPENTEXTSTREAM 61284 . 62500) (DINFO.SHOWSEL 62502 . 63235) ( -DINFO.GET.FILENAME 63237 . 64138))))) + (FILEMAP (NIL (7733 24559 (DINFO 7743 . 9357) (DINFO.UPDATE 9359 . 12223) (DINFOGRAPH 12225 . 12643) ( +DINFO.SPECIAL.UPDATE 12645 . 14343) (DINFO.READ.GRAPH 14345 . 16200) (DINFO.WRITE.GRAPH 16202 . 17292) + (DINFO.SELECT.GRAPH 17294 . 18201) (DINFO.DEFAULT.MENU 18203 . 20727) (DINFO.FIND 20729 . 23113) ( +DINFO.LOOKUP 23115 . 24557)) (24560 27254 (DINFO.READ.KOTO.GRAPH 24570 . 27252)) (27255 29569 ( +DINFO.SETUP.WINDOW 27265 . 27946) (DINFO.CLOSEFN 27948 . 28381) (DINFO.SHRINKFN 28383 . 28579) ( +DINFO.EXPANDFN 28581 . 29138) (DINFO.ICONFN 29140 . 29567)) (29570 40830 (DINFO.ADD.FMENU 29580 . +30675) (DINFO.CREATE.FMENU 30677 . 34626) (DINFO.FMW.CLOSEFN 34628 . 35473) (DINFO.FMENU.HANDLER 35475 + . 36114) (DINFO.UPDATE.FMENU 36116 . 38321) (DINFO.TOGGLE.MENU 38323 . 38913) (DINFO.TOGGLE.GRAPH +38915 . 39414) (DINFO.TOGGLE.HISTORY 39416 . 39960) (DINFO.TOGGLE.TEXT 39962 . 40828)) (40831 48529 ( +DINFO.UPDATE.MENU.DISPLAY 40841 . 44861) (DINFO.UPDATE.FROM.MENU 44863 . 45162) (DINFO.UPDATE.HISTORY +45164 . 47698) (DINFO.HISTORIC.UPDATE 47700 . 48527)) (48530 58696 (DINFO.UPDATE.GRAPH.DISPLAY 48540 + . 49858) (DINFO.UPDATE.FROM.GRAPH 49860 . 50303) (DINFO.GET.GRAPH.WINDOW 50305 . 50890) ( +DINFO.CREATE.GRAPH.WINDOW 50892 . 52009) (DINFO.SHOWGRAPH 52011 . 53736) (DINFO.INVERT.NODE 53738 . +55126) (DINFO.LAYOUTGRAPH 55128 . 58694)) (58697 64553 (DINFO.UPDATE.TEXT.DISPLAY 58707 . 60568) ( +DINFO.TITLEMENUFN 60570 . 61695) (DINFO.OPENTEXTSTREAM 61697 . 62913) (DINFO.SHOWSEL 62915 . 63648) ( +DINFO.GET.FILENAME 63650 . 64551))))) STOP diff --git a/lispusers/DINFO.LCOM b/lispusers/DINFO.LCOM index fb87677cb12bce45ed1991af8c6c1cc3d6292470..675b1c886533c47c7907eaf124e418c86d1e13df 100644 GIT binary patch delta 1384 zcmZvcTTEMZ7{EDafN*3H;ux|C{OvY(ifcKSo>I=ZSk{)F0;i>ybxzbmd&UaA(aRjk z49+;_?Lqt}MvZX~GcmfvXikVvX8MRrOn5g+^=UHWlRju>{JsJU&h_E~%-I9%7LNTQFI+NrEI2NmRuFRgo=(wngO^y)E^hF-qd#01$pmECT)kkm}sIGK7-4_UHU@4J(v?70(6;ZPm) zIc7925zeVdqD+$KXL55!iInp&2k+A(4;aQu3Ps~WI$tT(nnR#Pbl7~x?9Q{2RZ&!B zxF9~8kq*(y)h^@~1VKbdMD@5hT1_6NFR)1lwJvj$?c2w2W@}>;v*U3-^Z^T=jpkQT zoNhS=2j->yZ?G)KQ~l_m>1i!u%2$tG*i9L4e+PqpJjkHf?0Btyr`F2jtF<)J*h$wc zLuS6mvzxO)))}k_N9LO4DkcsceFX|%|K>O}rr%oEfp7LEfOmTTf#a>G+A!+w2`9Us z<3mIyey=v>j}of%^*-VtxG-N(k6H;+si(QVE+%Te)z`x;H`l>$y^&>Erj6Mbm_sxD zFmhX;A3wCm%KcThYq!?%vU7lhV$ry!dxG&$I0$VO`F@Z5zZlU)rZqhh3wz^QJ*LuI zg1?L7Wo3X&y3a(kvtA-Q6fy}xHC>j?$HY0j-^-E&f|~Lrpy0UNz!9-upeK|k=?{)^ z@bO9>_@1%>oOgZ-Jkb9U(Cl9Us;<+(RaZNd`ox7RGP~7gTqQrKqj+)n-P(g+brZAi zX+H*Bbiah+&(Syr=-%IOe}jQrU^I>UaM?kf!=tmIHJq(A{5P;A@@ymSK_K*Iw9{OP za9CtDTHDg~*dJ)UA3uQN^D`@0MVbB*#LgS|1U-@%*<)QxoNB18l~&n<=H0|E*sz+s ziXwfk2g|%Zr=Ylb{&^6zd;T2o%KS9&=lLYiw~zwfSU^ux20fX~4DkC5M*bdXr-AGM zXkRxSrq{9>Xt%R5;N_-6^qE`$w2yOxz-kWT{rOqojXb`AEd>EMROkf83kI-zv7g!& zc^3X{-HRB$T7%Q6vw+x()1$(36MmT29H(^wS)YzyI#jx8H_)68z=FuobciI zpLy@UZ)Ton?%d(N`H?$+BuqS7dP+^^)OcP^QCmaOU$Uz8 za-~$HR*mwMu;W~8UG~Co%ondWz#j}!A)*8YMG|@1DE;FnrBn4rb6BA@tF=d- z$drne(rGIBWvaC+6>6StTJ0A7_u_uPpQpuz7A*PSO~H;tMUr?g|G!(8*fB0KEK?E= zMPPqRD+{&dQj@kU*p6o=o-=7Gt!qZo$e8RC&b?mn-fQUm;Nce_ z$gG2I+w4D&`R@lfl(?@~{^XQls+#UJ*OtbxJN8v& zFShLMsO}=flcfSR3klswsjN5Qv!k)+IXu`d?&56t z=p!h~vm03D`rKO}&PBL3A9F_Q5VjWn#Qy_t#kt~1T<7iyH-6T?BBM-}kAtwQCr<$T zR_B1V)g|EPt3}{w1tS+LOYDNu&w8pEm_1iT@AawI$&^`=?aNFH|-@wkK`#Xgoq}onuvz_iDdU}fd1wW!m7ytkO From 237f3aa6bf4f8fbb23a3bf57950cc7d95b705164 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 25 Nov 2021 08:29:07 -0800 Subject: [PATCH 2/2] FILEBROWSER: Get right date for compiled files MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Turns out that FILEDATE of a compiled file returns the creation date of the source, not the compiled file. To get the proper date for both source and compiled files, you have to first call it with CFLG=T, if that is NIL, try with CFLG=NIL, if that's NIL it isn't a Medley file, use the creation date. Would be more intuititive with different semantics: (FILEDATE xx NIL) should give you the date of this file whether compiled or not, (FILEDATE xx T) should give you the date of the source file, if it happens to be a compiled file. I.e, CFLG → SFLG --- library/FILEBROWSER | 540 +++++++++++++++++++-------------------- library/FILEBROWSER.LCOM | Bin 84436 -> 84436 bytes 2 files changed, 269 insertions(+), 271 deletions(-) diff --git a/library/FILEBROWSER b/library/FILEBROWSER index 8121a3cbd..9243456a8 100644 --- a/library/FILEBROWSER +++ b/library/FILEBROWSER @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "16-Oct-2021 15:04:31"  -|{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;13| 261677 +(FILECREATED "23-Nov-2021 12:17:08"  +|{DSK}kaplan>Local>medley3.5>my-medley>library>FILEBROWSER.;21| 261024 - |changes| |to:| (VARS FILEBROWSERCOMS) - (FNS FB.GETWINDOW FB.SET.BROWSER.TITLE FB.DATE) + |changes| |to:| (FNS FB.FIX-DIRECTORY-DATES) - |previous| |date:| "19-Sep-2021 18:08:05" -|{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;10|) + |previous| |date:| "29-Oct-2021 21:19:42" +|{DSK}kaplan>Local>medley3.5>my-medley>library>FILEBROWSER.;20|) ; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation. @@ -180,8 +179,7 @@ You specify how many versions to keep."))) (* \; "Setup") (FNS FB.STARTUP FB.MAKERIGIDWINDOW) (FNS FB.PRINTFN FB.COPYFN)) - (COMS (* \; - "commands and major subfunctions") + (COMS (* \; "commands and major subfunctions") (FNS FB.MENU.WHENSELECTEDFN FB.COMMANDSELECTEDFN FB.SUBITEMP FB.MAKE.BROWSER.BUSY FB.FINISH.COMMAND FB.HANDLE.ABORT.BUTTON) (FNS FB.DELETECOMMAND FB.DELVERCOMMAND FB.IS.NOT.SUBDIRECTORY.ITEM FB.DELVER.FILES @@ -293,9 +291,9 @@ You specify how many versions to keep."))) (RPAQ? FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR)) (APPENDTOVAR FONTVARS (FB.ICONFONT LITTLEFONT) - (FB.BROWSERFONT DEFAULTFONT) - (FB.PROMPTFONT LITTLEFONT) - (FB.BROWSER.DIRECTORY.FONT BOLDFONT)) + (FB.BROWSERFONT DEFAULTFONT) + (FB.PROMPTFONT LITTLEFONT) + (FB.BROWSER.DIRECTORY.FONT BOLDFONT)) (* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.") @@ -396,27 +394,25 @@ You specify how many versions to keep."))) )) (RPAQQ FB.VERSION.MENU.ITEMS (("1" 1 "Keep only one version of the files") - ("2" 2 "Keep two versions of the files") - ("3" 3 "Keep three versions of the files") - ("4" 4 "Keep four versions of the files") - ("Other" :NUMBER "Select number of versions to keep"))) + ("2" 2 "Keep two versions of the files") + ("3" 3 "Keep three versions of the files") + ("4" 4 "Keep four versions of the files") + ("Other" :NUMBER "Select number of versions to keep"))) (RPAQQ FB.CLOSE.MENU.ITEMS (("Expunge deleted files" 'EXPUNGE - "Erases all files still marked 'deleted'") - ("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files. + "Erases all files still marked 'deleted'") + ("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files. Your deletions are thus ignored."))) (RPAQQ FB.DEPTH.MENU.ITEMS (("Global default" :GLOBAL - "Set depth using the global default (FILING.ENUMERATION.DEPTH)" - ) - ("Infinite" T - "Set depth to infinity, i.e., enumerate all levels of directory" - ) - ("1" 1 + "Set depth using the global default (FILING.ENUMERATION.DEPTH)") + ("Infinite" T + "Set depth to infinity, i.e., enumerate all levels of directory") + ("1" 1 "Set depth to 1, i.e., enumerate just the top level of the directory" - ) - ("2" 2 "Set depth to 2") - ("Other" :NUMBER "Set depth to some other finite depth"))) + ) + ("2" 2 "Set depth to 2") + ("Other" :NUMBER "Set depth to some other finite depth"))) (RPAQQ FB.INFO.MENU.ITEMS ((|Length| LENGTH "Toggles Length display") @@ -458,20 +454,21 @@ Your deletions are thus ignored."))) (DEFINEQ (FB - (NLAMBDA PATTERN (* \; "Edited 26-Feb-88 13:50 by bvm") + (NLAMBDA PATTERN (* \; "Edited 29-Oct-2021 21:18 by rmk:") + (* \; "Edited 26-Feb-88 13:50 by bvm") -(* |;;;| "FILEBROWSER entry from top-level exec: FB PATTERN ... PROPS ...") +(* |;;;| "FILEBROWSER entry from top-level exec: FB PATTERN ... PROPS ...") (DESTRUCTURING-BIND (PAT . PROPS) (NLAMBDA.ARGS PATTERN) (LET (OPTIONS) (|for| TAIL |on| PROPS |when| (AND (CL:KEYWORDP (CAR TAIL)) (CDR TAIL)) - |do| (* \; - "Interpret keyword tail of attributes as OPTIONS.") + |do| (* \; + "Interpret keyword tail of attributes as OPTIONS.") (RETURN (SETQ PROPS (LDIFF PROPS (SETQ OPTIONS TAIL))))) (ADD.PROCESS `(,(FUNCTION FILEBROWSER) - ',PAT + ',(OR PAT '*) ',PROPS ',OPTIONS) 'NAME @@ -2061,13 +2058,18 @@ Your deletions are thus ignored."))) (FB.UPDATEBROWSERITEMS BROWSER))))) (FB.FIX-DIRECTORY-DATES - (LAMBDA (BROWSER) (* \; "Edited 21-Aug-2021 23:33 by rmk:") + (LAMBDA (BROWSER) (* \; "Edited 23-Nov-2021 12:15 by rmk:") + (* \; "Edited 21-Aug-2021 23:33 by rmk:") + + (* |;;| + "FILEDATE returns the source-file date of a compiled file. We have to call with CFLG T to be sure.") + (FOR F FD CHANGE IN (FILDIR (FETCH (FILEBROWSER PATTERN) OF BROWSER)) - WHEN (SETQ FD (FILEDATE F)) UNLESS (IEQP (SETQ FD (IDATE FD)) - (GETFILEINFO F 'ICREATIONDATE)) + WHEN (SETQ FD (OR (FILEDATE F T) + (FILEDATE F))) UNLESS (IEQP (SETQ FD (IDATE FD)) + (GETFILEINFO F 'ICREATIONDATE)) DO (SETQ CHANGE T) - (SETFILEINFO F 'ICREATIONDATE FD) FINALLY (CL:WHEN CHANGE (FB.UPDATECOMMAND - BROWSER))))) + (SETFILEINFO F 'ICREATIONDATE FD) FINALLY (CL:WHEN CHANGE (FB.UPDATECOMMAND BROWSER))))) (FB.MAYBE.EXPUNGE (LAMBDA (BROWSER COMMAND) (* \; "Edited 22-Feb-2021 12:33 by rmk:") @@ -3821,120 +3823,117 @@ then click Recompute")))) (RECORD INFOFIELD (INFONAME INFOLABEL INFOWIDTH INFOFORMAT INFOPROTOTYPE)) -(DATATYPE FBFILEDATA ((FILENAME POINTER) (* \; "Full name of this file") - (FILEINFO POINTER) (* \; "Plist of attributes") - (VERSIONLESSNAME POINTER) (* \; "FILENAME sans version") - (DIRECTORYP FLAG) (* \; "True if it's a directory line") - (HASDIRPREFIX FLAG) (* \; - "True if it has a directory prefix beyond that in common to all the files") - (DIRECTORYFILEP FLAG) (* \; - "True if the \"file\" in this item is actually a subdirectory") - (SIZE POINTER) (* \; "Size of file, for stats") - (FILEDEPTH BYTE) (* \; - "Number of levels of subdirectory beneath the main pattern--zero for files at that level") - (SORTVALUE POINTER) (* \; - "Cached value by which we are sorting the dir.") - (SUBDIREND WORD) (* \; - "Index of last char in subdirectory, or zero if HASDIRPREFIX is false") - (STARTOFPNAME WORD) (* \; - "Start of name for printing purposes. Same as STARTOFNAME when browser sorted by name") - (VERSION WORD) (* \; "Version, or zero if none") - (STARTOFNAME WORD) (* \; - "Index beyond all directory fields") - DUMMY) - (ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME - ) - OF DATUM) - (FETCH (FBFILEDATA STARTOFPNAME - ) OF DATUM))) - (SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA - FILENAME) - OF DATUM) - 1 - (FETCH (FBFILEDATA SUBDIREND - ) OF - DATUM)))))) - -(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) (* \; - "True if we don't want separate subdirectory lines -- subdirs then included in name") - (NSPATTERN? FLAG) (* \; "True if host is an ns host") - (SHOWUNDELETED? FLAG) (* \; - "True if counter window should show `Undeleted' rather than `Total' counts") - (PATTERNPARSED? FLAG) (* \; - "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid") - (SORTBYDATE FLAG) (* \; - "True if SORTATTRIBUTE is one of the date attributes") - (FBREADY FLAG) (* \; "False while FB is enumerating.") - (ABORTING FLAG) (* \; - "True if enumeration is being aborted") - (FIXEDTITLE FLAG) (* \; "True if caller supplied title") - (FBCOMPUTEDDEPTH BYTE) (* \; - "Depth at the time we enumerated directory (zero for infinite)") - (FBDISPLAYEDDEPTH BYTE) (* \; - "Depth we are currently displaying (zero for infinite)") - (TABLEBROWSER POINTER) (* \; - "Pointer to TABLEBROWSER object controlling the browser") - (BROWSERWINDOW POINTER) (* \; "Main window") - (COUNTERWINDOW POINTER) (* \; - "Window that counts files, pages, deletions") - (HEADINGWINDOW POINTER) (* \; - "Window with headings for browser columns") - (INFOMENUW POINTER) (* \; - "Window containing choices for info to be displayed, or NIL if none yet") - (PROMPTWINDOW POINTER) (* \; "GETPROMPTWINDOW BROWSERWINDOW") - (INFODISPLAYED POINTER) (* \; - "List of attribute specs to be displayed") - (PATTERN POINTER) (* \; - "Directory pattern being enumerated") - (PREPAREDPATTERN POINTER) (* \; "DIRECTORY.MATCH.SETUP of same") - (SEEWINDOW POINTER) (* \; - "Primary window used by FAST SEE command") - (BROWSERFONT POINTER) (* \; "Font of BROWSERWINDOW") - (SORTBY POINTER) (* \; - "Sorting function or NIL for default sort") - (NAMESTART WORD) (* \; - "Index of first character in file name beyond the common prefix shared by all") - (DIRECTORYSTART WORD) (* \; - "Index of first character of directory in file names") - (INFOSTART WORD) (* \; - "X position in browser where first col of info is displayed") - (NAMEOVERHEAD WORD) (* \; - "This plus width of name gives is how much to allow before INFOSTART") - (OVERFLOWSPACING WORD) (* \; - "Increment between sizes considered for INFOSTART") - (DIGITWIDTH WORD) - (TOTALFILES WORD) (* \; - "Total number of files, deleted files, pages, deleted pages at the moment") - (DELETEDFILES WORD) - (TOTALPAGES POINTER) - (DELETEDPAGES POINTER) - (PAGECOUNT? POINTER) (* \; - "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages") - (COUNTERPOSITIONS POINTER) (* \; - "List of pairs (left right) describing regions where the values of the counters are displayed") - (COUNTERPAGESTRING POINTER) (* \; - "String to print after file/page count") - (OVERFLOWWIDTHS POINTER) (* \; - "List of (xpos occurrences) describing files whose names exceed default INFOSTART") - (INFOMENUCHOICES POINTER) (* \; - "Selections user has made in Info window, not necessarily the info currently displayed") - (UPDATEPROC POINTER) (* \; - "Process doing an Update (Recompute)") - (DEFAULTDIR POINTER) (* \; - "Default directory for destination of Copy/Rename") - (SORTATTRIBUTE POINTER) (* \; - "Attribute being sorted on, or NIL if by name") - (SORTMENU POINTER) - (FBLOCK POINTER) (* \; - "Lock acquired by filebrowser operations") - (SORTINDEX WORD) (* \; - "Index (zero-based) in file info of the sort attribute") - (SIZEINDEX WORD) (* \; "Index of size attribute") - (FBDEPTH POINTER) (* \; - "Enumeration depth, or NIL for default") - (ABORTWINDOW POINTER) (* \; - "Dotted pair of (abortwindow . menuw) for this browser's abort window.") - DUMMY)) +(DATATYPE FBFILEDATA ((FILENAME POINTER) (* \; "Full name of this file") + (FILEINFO POINTER) (* \; "Plist of attributes") + (VERSIONLESSNAME POINTER) (* \; "FILENAME sans version") + (DIRECTORYP FLAG) (* \; "True if it's a directory line") + (HASDIRPREFIX FLAG) (* \; + "True if it has a directory prefix beyond that in common to all the files") + (DIRECTORYFILEP FLAG) (* \; + "True if the \"file\" in this item is actually a subdirectory") + (SIZE POINTER) (* \; "Size of file, for stats") + (FILEDEPTH BYTE) (* \; + "Number of levels of subdirectory beneath the main pattern--zero for files at that level") + (SORTVALUE POINTER) (* \; + "Cached value by which we are sorting the dir.") + (SUBDIREND WORD) (* \; + "Index of last char in subdirectory, or zero if HASDIRPREFIX is false") + (STARTOFPNAME WORD) (* \; + "Start of name for printing purposes. Same as STARTOFNAME when browser sorted by name") + (VERSION WORD) (* \; "Version, or zero if none") + (STARTOFNAME WORD) (* \; + "Index beyond all directory fields") + DUMMY) + (ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME) + OF DATUM) + (FETCH (FBFILEDATA STARTOFPNAME) + OF DATUM))) + (SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA FILENAME) + OF DATUM) + 1 + (FETCH (FBFILEDATA SUBDIREND) + OF DATUM)))))) + +(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) (* \; + "True if we don't want separate subdirectory lines -- subdirs then included in name") + (NSPATTERN? FLAG) (* \; "True if host is an ns host") + (SHOWUNDELETED? FLAG) (* \; + "True if counter window should show `Undeleted' rather than `Total' counts") + (PATTERNPARSED? FLAG) (* \; + "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid") + (SORTBYDATE FLAG) (* \; + "True if SORTATTRIBUTE is one of the date attributes") + (FBREADY FLAG) (* \; "False while FB is enumerating.") + (ABORTING FLAG) (* \; + "True if enumeration is being aborted") + (FIXEDTITLE FLAG) (* \; "True if caller supplied title") + (FBCOMPUTEDDEPTH BYTE) (* \; + "Depth at the time we enumerated directory (zero for infinite)") + (FBDISPLAYEDDEPTH BYTE) (* \; + "Depth we are currently displaying (zero for infinite)") + (TABLEBROWSER POINTER) (* \; + "Pointer to TABLEBROWSER object controlling the browser") + (BROWSERWINDOW POINTER) (* \; "Main window") + (COUNTERWINDOW POINTER) (* \; + "Window that counts files, pages, deletions") + (HEADINGWINDOW POINTER) (* \; + "Window with headings for browser columns") + (INFOMENUW POINTER) (* \; + "Window containing choices for info to be displayed, or NIL if none yet") + (PROMPTWINDOW POINTER) (* \; "GETPROMPTWINDOW BROWSERWINDOW") + (INFODISPLAYED POINTER) (* \; + "List of attribute specs to be displayed") + (PATTERN POINTER) (* \; + "Directory pattern being enumerated") + (PREPAREDPATTERN POINTER) (* \; "DIRECTORY.MATCH.SETUP of same") + (SEEWINDOW POINTER) (* \; + "Primary window used by FAST SEE command") + (BROWSERFONT POINTER) (* \; "Font of BROWSERWINDOW") + (SORTBY POINTER) (* \; + "Sorting function or NIL for default sort") + (NAMESTART WORD) (* \; + "Index of first character in file name beyond the common prefix shared by all") + (DIRECTORYSTART WORD) (* \; + "Index of first character of directory in file names") + (INFOSTART WORD) (* \; + "X position in browser where first col of info is displayed") + (NAMEOVERHEAD WORD) (* \; + "This plus width of name gives is how much to allow before INFOSTART") + (OVERFLOWSPACING WORD) (* \; + "Increment between sizes considered for INFOSTART") + (DIGITWIDTH WORD) + (TOTALFILES WORD) (* \; + "Total number of files, deleted files, pages, deleted pages at the moment") + (DELETEDFILES WORD) + (TOTALPAGES POINTER) + (DELETEDPAGES POINTER) + (PAGECOUNT? POINTER) (* \; + "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages") + (COUNTERPOSITIONS POINTER) (* \; + "List of pairs (left right) describing regions where the values of the counters are displayed") + (COUNTERPAGESTRING POINTER) (* \; + "String to print after file/page count") + (OVERFLOWWIDTHS POINTER) (* \; + "List of (xpos occurrences) describing files whose names exceed default INFOSTART") + (INFOMENUCHOICES POINTER) (* \; + "Selections user has made in Info window, not necessarily the info currently displayed") + (UPDATEPROC POINTER) (* \; + "Process doing an Update (Recompute)") + (DEFAULTDIR POINTER) (* \; + "Default directory for destination of Copy/Rename") + (SORTATTRIBUTE POINTER) (* \; + "Attribute being sorted on, or NIL if by name") + (SORTMENU POINTER) + (FBLOCK POINTER) (* \; + "Lock acquired by filebrowser operations") + (SORTINDEX WORD) (* \; + "Index (zero-based) in file info of the sort attribute") + (SIZEINDEX WORD) (* \; "Index of size attribute") + (FBDEPTH POINTER) (* \; + "Enumeration depth, or NIL for default") + (ABORTWINDOW POINTER) (* \; + "Dotted pair of (abortwindow . menuw) for this browser's abort window.") + DUMMY)) ) (/DECLAREDATATYPE 'FBFILEDATA @@ -4022,25 +4021,24 @@ then click Recompute")))) (DECLARE\: EVAL@COMPILE (PUTPROPS NULL.VERSIONP MACRO ((V) - (EQ V 0))) + (EQ V 0))) (PUTPROPS NULL.DIRECTORYP MACRO ((FILEDATA) - (EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA) - 0))) + (EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA) + 0))) (PUTPROPS EQ.DIRECTORYP MACRO (OPENLAMBDA (FD1 FD2) - (STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of| - FD1) - (|fetch| (FBFILEDATA FILENAME) |of| FD2) - :END1 - (|fetch| (FBFILEDATA SUBDIREND) |of| FD1) - :END2 - (|fetch| (FBFILEDATA SUBDIREND) |of| FD2)))) + (STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of| FD1) + (|fetch| (FBFILEDATA FILENAME) |of| FD2) + :END1 + (|fetch| (FBFILEDATA SUBDIREND) |of| FD1) + :END2 + (|fetch| (FBFILEDATA SUBDIREND) |of| FD2)))) (PUTPROPS NULL.FIELDP MACRO (OPENLAMBDA (STR) - (OR (NULL STR) - (EQ (NCHARS STR) - 0)))) + (OR (NULL STR) + (EQ (NCHARS STR) + 0)))) ) (DECLARE\: DOEVAL@COMPILE DONTCOPY @@ -4133,67 +4131,67 @@ then click Recompute")))) (ADDTOVAR SYSTEMRECLST (DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) - (NSPATTERN? FLAG) - (SHOWUNDELETED? FLAG) - (PATTERNPARSED? FLAG) - (SORTBYDATE FLAG) - (FBREADY FLAG) - (ABORTING FLAG) - (FIXEDTITLE FLAG) - (FBCOMPUTEDDEPTH BYTE) - (FBDISPLAYEDDEPTH BYTE) - (TABLEBROWSER POINTER) - (BROWSERWINDOW POINTER) - (COUNTERWINDOW POINTER) - (HEADINGWINDOW POINTER) - (INFOMENUW POINTER) - (PROMPTWINDOW POINTER) - (INFODISPLAYED POINTER) - (PATTERN POINTER) - (PREPAREDPATTERN POINTER) - (SEEWINDOW POINTER) - (BROWSERFONT POINTER) - (SORTBY POINTER) - (NAMESTART WORD) - (DIRECTORYSTART WORD) - (INFOSTART WORD) - (NAMEOVERHEAD WORD) - (OVERFLOWSPACING WORD) - (DIGITWIDTH WORD) - (TOTALFILES WORD) - (DELETEDFILES WORD) - (TOTALPAGES POINTER) - (DELETEDPAGES POINTER) - (PAGECOUNT? POINTER) - (COUNTERPOSITIONS POINTER) - (COUNTERPAGESTRING POINTER) - (OVERFLOWWIDTHS POINTER) - (INFOMENUCHOICES POINTER) - (UPDATEPROC POINTER) - (DEFAULTDIR POINTER) - (SORTATTRIBUTE POINTER) - (SORTMENU POINTER) - (FBLOCK POINTER) - (SORTINDEX WORD) - (SIZEINDEX WORD) - (FBDEPTH POINTER) - (ABORTWINDOW POINTER) - DUMMY)) + (NSPATTERN? FLAG) + (SHOWUNDELETED? FLAG) + (PATTERNPARSED? FLAG) + (SORTBYDATE FLAG) + (FBREADY FLAG) + (ABORTING FLAG) + (FIXEDTITLE FLAG) + (FBCOMPUTEDDEPTH BYTE) + (FBDISPLAYEDDEPTH BYTE) + (TABLEBROWSER POINTER) + (BROWSERWINDOW POINTER) + (COUNTERWINDOW POINTER) + (HEADINGWINDOW POINTER) + (INFOMENUW POINTER) + (PROMPTWINDOW POINTER) + (INFODISPLAYED POINTER) + (PATTERN POINTER) + (PREPAREDPATTERN POINTER) + (SEEWINDOW POINTER) + (BROWSERFONT POINTER) + (SORTBY POINTER) + (NAMESTART WORD) + (DIRECTORYSTART WORD) + (INFOSTART WORD) + (NAMEOVERHEAD WORD) + (OVERFLOWSPACING WORD) + (DIGITWIDTH WORD) + (TOTALFILES WORD) + (DELETEDFILES WORD) + (TOTALPAGES POINTER) + (DELETEDPAGES POINTER) + (PAGECOUNT? POINTER) + (COUNTERPOSITIONS POINTER) + (COUNTERPAGESTRING POINTER) + (OVERFLOWWIDTHS POINTER) + (INFOMENUCHOICES POINTER) + (UPDATEPROC POINTER) + (DEFAULTDIR POINTER) + (SORTATTRIBUTE POINTER) + (SORTMENU POINTER) + (FBLOCK POINTER) + (SORTINDEX WORD) + (SIZEINDEX WORD) + (FBDEPTH POINTER) + (ABORTWINDOW POINTER) + DUMMY)) (DATATYPE FBFILEDATA ((FILENAME POINTER) - (FILEINFO POINTER) - (VERSIONLESSNAME POINTER) - (DIRECTORYP FLAG) - (HASDIRPREFIX FLAG) - (DIRECTORYFILEP FLAG) - (SIZE POINTER) - (FILEDEPTH BYTE) - (SORTVALUE POINTER) - (SUBDIREND WORD) - (STARTOFPNAME WORD) - (VERSION WORD) - (STARTOFNAME WORD) - DUMMY)) + (FILEINFO POINTER) + (VERSIONLESSNAME POINTER) + (DIRECTORYP FLAG) + (HASDIRPREFIX FLAG) + (DIRECTORYFILEP FLAG) + (SIZE POINTER) + (FILEDEPTH BYTE) + (SORTVALUE POINTER) + (SUBDIREND WORD) + (STARTOFPNAME WORD) + (VERSION WORD) + (STARTOFNAME WORD) + DUMMY)) ) (DECLARE\: DONTEVAL@LOAD DOCOPY @@ -4201,10 +4199,10 @@ then click Recompute")))) (ADDTOVAR *ATTACHED-WINDOW-COMMAND-SYNONYMS* (HARDCOPYIMAGEW.TOFILE . HARDCOPYIMAGEW) - (HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW)) + (HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW)) (ADDTOVAR |BackgroundMenuCommands| ("FileBrowser" '(FILEBROWSER) - "Opens a filebrowser window; prompts for pattern")) + "Opens a filebrowser window; prompts for pattern")) (RPAQQ |BackgroundMenu| NIL) @@ -4220,51 +4218,51 @@ then click Recompute")))) (PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1993 1994 1999 2000 2001 2021)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (28719 51355 (FB 28729 . 29685) (FB.COPYBINARYCOMMAND 29687 . 30033) (FB.COPYTEXTCOMMAND - 30035 . 30377) (FILEBROWSER 30379 . 43485) (FB.TABLEBROWSER 43487 . 43704) (FB.SELECTEDFILES 43706 . -44343) (FB.FETCHFILENAME 44345 . 44737) (FB.DIRECTORYP 44739 . 45067) (FB.PROMPTWPRINT 45069 . 46115) -(FB.PROMPTW.FORMAT 46117 . 46854) (FB.PROMPTFORINPUT 46856 . 49108) (FB.YES-OR-NO-P 49110 . 50144) ( -FB.ALLOW.ABORT 50146 . 51000) (\\FB.HARDCOPY.TOFILE.EXTENSION 51002 . 51353)) (51379 52332 (FB.STARTUP - 51389 . 51904) (FB.MAKERIGIDWINDOW 51906 . 52330)) (52333 57705 (FB.PRINTFN 52343 . 57496) (FB.COPYFN - 57498 . 57703)) (57755 63797 (FB.MENU.WHENSELECTEDFN 57765 . 58123) (FB.COMMANDSELECTEDFN 58125 . -59664) (FB.SUBITEMP 59666 . 60101) (FB.MAKE.BROWSER.BUSY 60103 . 60841) (FB.FINISH.COMMAND 60843 . -62808) (FB.HANDLE.ABORT.BUTTON 62810 . 63795)) (63798 69314 (FB.DELETECOMMAND 63808 . 64089) ( -FB.DELVERCOMMAND 64091 . 67284) (FB.IS.NOT.SUBDIRECTORY.ITEM 67286 . 67467) (FB.DELVER.FILES 67469 . -68558) (FB.DELETE.FILE 68560 . 69312)) (69315 70640 (FB.UNDELETECOMMAND 69325 . 69610) ( -FB.UNDELETEALLCOMMAND 69612 . 69891) (FB.UNDELETE.FILE 69893 . 70638)) (70641 94822 (FB.COPYCOMMAND -70651 . 70920) (FB.RENAMECOMMAND 70922 . 71197) (FB.COPY/RENAME.COMMAND 71199 . 72122) ( -FB.COPY/RENAME.ONE 72124 . 74446) (FB.COPY/RENAME.MANY 74448 . 80668) (FB.MERGE.DIRECTORIES 80670 . -81088) (FB.GREATEST.PREFIX 81090 . 82446) (FB.MAYBE.INSERT.FILE 82448 . 89888) (FB.GET.NEW.FILE.SPEC -89890 . 93721) (FB.CANONICAL.DIRECTORY 93723 . 94820)) (94823 102607 (FB.HARDCOPYCOMMAND 94833 . 95963 -) (FB.HARDCOPY.TOFILE 95965 . 102605)) (102608 112485 (FB.EDITCOMMAND 102618 . 103419) ( -FB.EDITCOMMAND.ONEFILE 103421 . 106701) (FB.EDITLISPFILE 106703 . 107742) (FB.BROWSECOMMAND 107744 . -112483)) (112486 124279 (FB.FASTSEECOMMAND 112496 . 115946) (FB.FASTSEE.ONEFILE 115948 . 118977) ( -FB.SEEFULLFN 118979 . 123110) (FB.SEEBUTTONFN 123112 . 124277)) (124280 126026 (FB.LOADCOMMAND 124290 - . 124797) (FB.COMPILECOMMAND 124799 . 125337) (FB.OPERATE.ON.FILES 125339 . 126024)) (126027 173598 ( -FB.UPDATECOMMAND 126037 . 126262) (FB.FIX-DIRECTORY-DATES 126264 . 126871) (FB.MAYBE.EXPUNGE 126873 . -127868) (FB.UPDATEBROWSERITEMS 127870 . 141085) (FB.DATE 141087 . 141662) (FB.ADJUST.DATE.WIDTH 141664 - . 144632) (FB.SET.BROWSER.TITLE 144634 . 145570) (FB.MAYBE.WIDEN.NAMES 145572 . 147691) ( -FB.SET.DEFAULT.NAME.WIDTH 147693 . 149057) (FB.CREATE.FILEBUCKET 149059 . 156279) ( -FB.CHECK.NAME.LENGTH 156281 . 158702) (FB.ADD.FILEGROUP 158704 . 160231) (FB.INSERT.DIRECTORY 160233 - . 160471) (FB.MAKE.SUBDIRECTORY.ITEM 160473 . 161882) (FB.ADD.FILE 161884 . 162497) (FB.INSERT.FILE -162499 . 165911) (FB.ANALYZE.PATTERN 165913 . 171177) (FB.CANONICALIZE.PATTERN 171179 . 172491) ( -FB.GETALLFILEINFO 172493 . 173596)) (173599 181758 (FB.SORT.VERSIONS 173609 . 176380) ( -FB.DECREASING.VERSION 176382 . 177051) (FB.INCREASING.VERSION 177053 . 177674) ( -FB.NAMES.DECREASING.VERSION 177676 . 178711) (FB.NAMES.INCREASING.VERSION 178713 . 179710) ( -FB.DECREASING.NUMERIC.ATTR 179712 . 180392) (FB.INCREASING.NUMERIC.ATTR 180394 . 181068) ( -FB.ALPHABETIC.ATTR 181070 . 181756)) (181759 191601 (FB.SORTCOMMAND 181769 . 188599) ( -FB.INSERT.SUBDIRECTORIES 188601 . 189398) (FB.GET.SORT.MENU 189400 . 191599)) (191602 207691 ( -FB.EXPUNGECOMMAND 191612 . 194131) (FB.NEWPATTERNCOMMAND 194133 . 194531) (FB.NEWINFOCOMMAND 194533 . -197299) (FB.DEPTHCOMMAND 197301 . 199076) (FB.SHAPECOMMAND 199078 . 202420) (FB.REMOVE.FILE 202422 . -204243) (FB.COUNT.FILE.CHANGE 204245 . 205690) (FB.SETNEWPATTERN 205692 . 206862) (FB.GET.NEWPATTERN -206864 . 207448) (FB.OPTIONSCOMMAND 207450 . 207689)) (207726 208713 (FB.GETWINDOW 207736 . 208711)) ( -208714 209726 (FB.INFOMENU.SHADEINITIALSELECTIONS 208724 . 209371) (FB.INFO.ITEM.NAMED 209373 . 209724 -)) (209727 219193 (FB.MAKECOUNTERWINDOW 209737 . 211199) (FB.COUNTERW.REDISPLAYFN 211201 . 211788) ( -FB.UPDATE.COUNTERS 211790 . 213862) (FB.DISPLAY.COUNTERS 213864 . 218924) (FB.COUNTER.STRING 218926 . -219191)) (219194 223837 (FB.MAKEHEADINGWINDOW 219204 . 220752) (FB.HEADINGW.REDISPLAYFN 220754 . -221020) (FB.HEADINGW.RESHAPEFN 221022 . 221398) (FB.HEADINGW.DISPLAY 221400 . 223835)) (223838 228021 -(FB.ICONFN 223848 . 224195) (FB.INFOMENU.WHENSELECTEDFN 224197 . 224927) (FB.CLOSEFN 224929 . 226132) -(FB.EXPUNGE?.MENU 226134 . 226546) (FB.AFTERCLOSEFN 226548 . 226909) (FB.CLOSE&EXPUNGE 226911 . 228019 -)) (228022 240080 (FB.HARDCOPY.DIRECTORY 228032 . 238389) (FB.HARDCOPY.PRINT.TITLE 238391 . 238717) ( -FB.HARDCOPY.MAXWIDTH 238719 . 240078))))) + (FILEMAP (NIL (28447 51200 (FB 28457 . 29530) (FB.COPYBINARYCOMMAND 29532 . 29878) (FB.COPYTEXTCOMMAND + 29880 . 30222) (FILEBROWSER 30224 . 43330) (FB.TABLEBROWSER 43332 . 43549) (FB.SELECTEDFILES 43551 . +44188) (FB.FETCHFILENAME 44190 . 44582) (FB.DIRECTORYP 44584 . 44912) (FB.PROMPTWPRINT 44914 . 45960) +(FB.PROMPTW.FORMAT 45962 . 46699) (FB.PROMPTFORINPUT 46701 . 48953) (FB.YES-OR-NO-P 48955 . 49989) ( +FB.ALLOW.ABORT 49991 . 50845) (\\FB.HARDCOPY.TOFILE.EXTENSION 50847 . 51198)) (51224 52177 (FB.STARTUP + 51234 . 51749) (FB.MAKERIGIDWINDOW 51751 . 52175)) (52178 57550 (FB.PRINTFN 52188 . 57341) (FB.COPYFN + 57343 . 57548)) (57600 63642 (FB.MENU.WHENSELECTEDFN 57610 . 57968) (FB.COMMANDSELECTEDFN 57970 . +59509) (FB.SUBITEMP 59511 . 59946) (FB.MAKE.BROWSER.BUSY 59948 . 60686) (FB.FINISH.COMMAND 60688 . +62653) (FB.HANDLE.ABORT.BUTTON 62655 . 63640)) (63643 69159 (FB.DELETECOMMAND 63653 . 63934) ( +FB.DELVERCOMMAND 63936 . 67129) (FB.IS.NOT.SUBDIRECTORY.ITEM 67131 . 67312) (FB.DELVER.FILES 67314 . +68403) (FB.DELETE.FILE 68405 . 69157)) (69160 70485 (FB.UNDELETECOMMAND 69170 . 69455) ( +FB.UNDELETEALLCOMMAND 69457 . 69736) (FB.UNDELETE.FILE 69738 . 70483)) (70486 94667 (FB.COPYCOMMAND +70496 . 70765) (FB.RENAMECOMMAND 70767 . 71042) (FB.COPY/RENAME.COMMAND 71044 . 71967) ( +FB.COPY/RENAME.ONE 71969 . 74291) (FB.COPY/RENAME.MANY 74293 . 80513) (FB.MERGE.DIRECTORIES 80515 . +80933) (FB.GREATEST.PREFIX 80935 . 82291) (FB.MAYBE.INSERT.FILE 82293 . 89733) (FB.GET.NEW.FILE.SPEC +89735 . 93566) (FB.CANONICAL.DIRECTORY 93568 . 94665)) (94668 102452 (FB.HARDCOPYCOMMAND 94678 . 95808 +) (FB.HARDCOPY.TOFILE 95810 . 102450)) (102453 112330 (FB.EDITCOMMAND 102463 . 103264) ( +FB.EDITCOMMAND.ONEFILE 103266 . 106546) (FB.EDITLISPFILE 106548 . 107587) (FB.BROWSECOMMAND 107589 . +112328)) (112331 124124 (FB.FASTSEECOMMAND 112341 . 115791) (FB.FASTSEE.ONEFILE 115793 . 118822) ( +FB.SEEFULLFN 118824 . 122955) (FB.SEEBUTTONFN 122957 . 124122)) (124125 125871 (FB.LOADCOMMAND 124135 + . 124642) (FB.COMPILECOMMAND 124644 . 125182) (FB.OPERATE.ON.FILES 125184 . 125869)) (125872 173645 ( +FB.UPDATECOMMAND 125882 . 126107) (FB.FIX-DIRECTORY-DATES 126109 . 126918) (FB.MAYBE.EXPUNGE 126920 . +127915) (FB.UPDATEBROWSERITEMS 127917 . 141132) (FB.DATE 141134 . 141709) (FB.ADJUST.DATE.WIDTH 141711 + . 144679) (FB.SET.BROWSER.TITLE 144681 . 145617) (FB.MAYBE.WIDEN.NAMES 145619 . 147738) ( +FB.SET.DEFAULT.NAME.WIDTH 147740 . 149104) (FB.CREATE.FILEBUCKET 149106 . 156326) ( +FB.CHECK.NAME.LENGTH 156328 . 158749) (FB.ADD.FILEGROUP 158751 . 160278) (FB.INSERT.DIRECTORY 160280 + . 160518) (FB.MAKE.SUBDIRECTORY.ITEM 160520 . 161929) (FB.ADD.FILE 161931 . 162544) (FB.INSERT.FILE +162546 . 165958) (FB.ANALYZE.PATTERN 165960 . 171224) (FB.CANONICALIZE.PATTERN 171226 . 172538) ( +FB.GETALLFILEINFO 172540 . 173643)) (173646 181805 (FB.SORT.VERSIONS 173656 . 176427) ( +FB.DECREASING.VERSION 176429 . 177098) (FB.INCREASING.VERSION 177100 . 177721) ( +FB.NAMES.DECREASING.VERSION 177723 . 178758) (FB.NAMES.INCREASING.VERSION 178760 . 179757) ( +FB.DECREASING.NUMERIC.ATTR 179759 . 180439) (FB.INCREASING.NUMERIC.ATTR 180441 . 181115) ( +FB.ALPHABETIC.ATTR 181117 . 181803)) (181806 191648 (FB.SORTCOMMAND 181816 . 188646) ( +FB.INSERT.SUBDIRECTORIES 188648 . 189445) (FB.GET.SORT.MENU 189447 . 191646)) (191649 207738 ( +FB.EXPUNGECOMMAND 191659 . 194178) (FB.NEWPATTERNCOMMAND 194180 . 194578) (FB.NEWINFOCOMMAND 194580 . +197346) (FB.DEPTHCOMMAND 197348 . 199123) (FB.SHAPECOMMAND 199125 . 202467) (FB.REMOVE.FILE 202469 . +204290) (FB.COUNT.FILE.CHANGE 204292 . 205737) (FB.SETNEWPATTERN 205739 . 206909) (FB.GET.NEWPATTERN +206911 . 207495) (FB.OPTIONSCOMMAND 207497 . 207736)) (207773 208760 (FB.GETWINDOW 207783 . 208758)) ( +208761 209773 (FB.INFOMENU.SHADEINITIALSELECTIONS 208771 . 209418) (FB.INFO.ITEM.NAMED 209420 . 209771 +)) (209774 219240 (FB.MAKECOUNTERWINDOW 209784 . 211246) (FB.COUNTERW.REDISPLAYFN 211248 . 211835) ( +FB.UPDATE.COUNTERS 211837 . 213909) (FB.DISPLAY.COUNTERS 213911 . 218971) (FB.COUNTER.STRING 218973 . +219238)) (219241 223884 (FB.MAKEHEADINGWINDOW 219251 . 220799) (FB.HEADINGW.REDISPLAYFN 220801 . +221067) (FB.HEADINGW.RESHAPEFN 221069 . 221445) (FB.HEADINGW.DISPLAY 221447 . 223882)) (223885 228068 +(FB.ICONFN 223895 . 224242) (FB.INFOMENU.WHENSELECTEDFN 224244 . 224974) (FB.CLOSEFN 224976 . 226179) +(FB.EXPUNGE?.MENU 226181 . 226593) (FB.AFTERCLOSEFN 226595 . 226956) (FB.CLOSE&EXPUNGE 226958 . 228066 +)) (228069 240127 (FB.HARDCOPY.DIRECTORY 228079 . 238436) (FB.HARDCOPY.PRINT.TITLE 238438 . 238764) ( +FB.HARDCOPY.MAXWIDTH 238766 . 240125))))) STOP diff --git a/library/FILEBROWSER.LCOM b/library/FILEBROWSER.LCOM index b7ab6c5d9f1688c32601dde4d43a044d8e3e31ef..5205193fe1cf35ae241a4495c53e4918cb69e361 100644 GIT binary patch delta 635 zcmZvZL2J}d5XZB-uG-ub3mzf*(-2wwX|{06?47Fwk5@ZQWY^Pk_FIVatP8`m;W40l;h_n9giC3%(IF`ts3Ly&Td&L)2Y=>IKh|y@R$dpM zj~3?!BBz?&4vXJMhWkU1-3D|>#%sekNO-^HD{i9!A>S`pcBx<5rduo?Ke^k4u-sUf N#AVpV)2-vluYZmOrNaOK delta 577 zcmZvZPfOfD6u{RkDi6*g2kGh6+LEW%!i-!S0 z54{y-5b@FvP%oukd+4d3z^~#}oUDr?I1Izg@a8wa_udUF-LTT>`fFsC!}g%8sTu-g zIBM0=(OGI0JKe$A&v!>irwT~OcnZ>V9^q(60+DX@({^t!>+Yu86li*w^$#2hq)}PH zNy`h|um!ZcPeCFZzR&SbluD%{0o~pl3TRYcMN$F)V-2U&%+dXnHMP!uS1 zSSGxgusa1lhKtWG1sDDZzpn~%%>du^2mz}GP2c&1zqG>0T?0#Hcf#EKq-+}87fcm` z`YML13F{kSf