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 b7ab6c5d9..5205193fe 100644 Binary files a/library/FILEBROWSER.LCOM and b/library/FILEBROWSER.LCOM differ 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 fb87677cb..675b1c886 100644 Binary files a/lispusers/DINFO.LCOM and b/lispusers/DINFO.LCOM differ