Hardcopy to printer (#2290)
* Separate interface for imagefile creation from the send-to-printer interface * SEND.FILE.TO.PRINTER recognizes :DEFAULTPRINTER * Various changes to address #2414 * Move BITMAP properties from PRINTERTYPES to PRINTFILETYPES. * Fix ShellOpen, add UNIX-TMP-FILE-NAME * Include COERCEFONTSPEC changes in anticipation of HTML streams * PDFSTREAM compatible with new imagefile architecture plus able to convert non-local Postscript streams * SKETCH compatible with new imagefile/printing architecture * TEDIT compatible with new printing architecture * Tedit files are of type TEDIT, not TEXT, new interface function TEDIT.TO.IMAGEFILE * ATTACHEDWINDOW: DOATTACHEDWINDOWCOM allows menu to have a form to EVAL, like the background menu * WINDOW: fix menus for new hardcopy architecture * Remove FLUSHFONTSINCORE--FLUSHFONTCACHE is more general * LOAD character names as suggested in PR #2398 * HARDCOPYW respects file extension * VIEWER as default printinghost * SLASHIT interprets '. * MCCS to UTF8 conversion on printer name * Deal with {LPT}.LOCAL and upper casing * @ LPT printers work with exact upper/lower matching * Using NSPRINT functions to recognize fax * Let "UNIX" be the name of the default printer of type UNIX
This commit is contained in:
rmkaplan
GitHub
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "29-May-2024 15:30:07" {LIB}FILEBROWSER.\;2 266071
|
||||
(FILECREATED "24-Dec-2025 11:14:31" |{WMEDLEY}<library>FILEBROWSER.;34| 263525
|
||||
|
||||
:EDIT-BY "mth"
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS FB.PROMPTW.FORMAT FB.FASTSEE.ONEFILE)
|
||||
:CHANGES-TO (FNS FB.HARDCOPY.TOFILE)
|
||||
|
||||
:PREVIOUS-DATE " 4-Nov-2023 23:55:27" {LIB}FILEBROWSER.\;1)
|
||||
:PREVIOUS-DATE " 6-Nov-2025 14:33:28" |{WMEDLEY}<library>FILEBROWSER.;33|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT FILEBROWSERCOMS)
|
||||
@@ -91,22 +91,10 @@ You specify how many versions to keep.")))
|
||||
(|See| (FB.EDITCOMMAND READONLY)
|
||||
|
||||
"Displays selected files one at a time in a separate window"
|
||||
(SUBITEMS ("Fast SEE Pretty" FB.FASTSEECOMMAND
|
||||
"Views file quickly, uses font information, no scrolling backwards"
|
||||
)
|
||||
("Fast SEE Unformatted" (FB.FASTSEECOMMAND
|
||||
T)
|
||||
|
||||
"Views file quickly, shows raw characters, no scrolling backwards"
|
||||
)
|
||||
("Scrollable & Pretty" (FB.EDITCOMMAND
|
||||
READONLY)
|
||||
|
||||
"Views file with font information in a fully scrollable window"
|
||||
)
|
||||
("FileBrowse" FB.BROWSECOMMAND
|
||||
)
|
||||
(|Browse| FB.BROWSECOMMAND
|
||||
"Recursively call FileBrowser on the selected subdirectory"
|
||||
)))
|
||||
)
|
||||
(|Edit| FB.EDITCOMMAND
|
||||
"Calls an editor on the selected files (use submenu to specify editor)"
|
||||
(SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT)
|
||||
@@ -337,15 +325,8 @@ You specify how many versions to keep.")))
|
||||
("To a printer" (FB.HARDCOPYCOMMAND PRINTER)
|
||||
"Sends hardcopy of selected files to a printer of your choosing")))
|
||||
(|See| (FB.EDITCOMMAND READONLY)
|
||||
"Displays selected files one at a time in a separate window"
|
||||
(SUBITEMS ("Fast SEE Pretty" FB.FASTSEECOMMAND
|
||||
"Views file quickly, uses font information, no scrolling backwards")
|
||||
("Fast SEE Unformatted" (FB.FASTSEECOMMAND T)
|
||||
"Views file quickly, shows raw characters, no scrolling backwards")
|
||||
("Scrollable & Pretty" (FB.EDITCOMMAND READONLY)
|
||||
"Views file with font information in a fully scrollable window")
|
||||
("FileBrowse" FB.BROWSECOMMAND
|
||||
"Recursively call FileBrowser on the selected subdirectory")))
|
||||
"Displays selected files one at a time in a separate window")
|
||||
(|Browse| FB.BROWSECOMMAND "Recursively call FileBrowser on the selected subdirectory")
|
||||
(|Edit| FB.EDITCOMMAND
|
||||
"Calls an editor on the selected files (use submenu to specify editor)"
|
||||
(SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT)
|
||||
@@ -827,13 +808,10 @@ Your deletions are thus ignored.")))
|
||||
(REDISPLAYW (CAR W))))))
|
||||
|
||||
(\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
(LAMBDA NIL (* \;
|
||||
"Edited 25-Feb-91 15:15 by gadener")
|
||||
(LET ((TYPE (PRINTERTYPE)))
|
||||
(CASE TYPE
|
||||
(INTERPRESS 'IP)
|
||||
(POSTSCRIPT 'PS)
|
||||
(DEFAULT TYPE)))))
|
||||
(LAMBDA NIL (* \; "Edited 20-Sep-2025 11:41 by rmk")
|
||||
(* \; "Edited 14-Sep-2025 20:48 by rmk")
|
||||
(OR (CAR (EXTENSIONS.FOR.IMAGEFILETYPE (PRINTERTYPE)))
|
||||
DEFAULTPRINTERTYPE)))
|
||||
)
|
||||
|
||||
|
||||
@@ -1586,22 +1564,25 @@ Your deletions are thus ignored.")))
|
||||
PRINTOPTIONS)))))))
|
||||
|
||||
(FB.HARDCOPY.TOFILE
|
||||
(LAMBDA (BROWSER FILES) (* \;
|
||||
"Edited 15-Feb-91 17:13 by gadener")
|
||||
(LAMBDA (BROWSER FILES) (* \; "Edited 21-Dec-2025 09:05 by rmk")
|
||||
(* \; "Edited 20-Sep-2025 12:55 by rmk")
|
||||
(* \; "Edited 18-Sep-2025 10:29 by rmk")
|
||||
(* \; "Edited 14-Sep-2025 20:55 by rmk")
|
||||
(* \; "Edited 15-Feb-91 17:13 by gadener")
|
||||
|
||||
(* |;;| "Handle the \"Hardcopy>To File\" command. ")
|
||||
|
||||
(PROG ((HCOPYFILE (FB.PROMPTFORINPUT (COND
|
||||
((CDR FILES)
|
||||
"Hardcopy file name pattern: ")
|
||||
(T "Hardcopy file name: "))
|
||||
((CDR FILES)
|
||||
"Hardcopy file name pattern: ")
|
||||
(T "Hardcopy file name: "))
|
||||
(COND
|
||||
((CDR FILES)
|
||||
(PACKFILENAME.STRING 'NAME '* 'EXTENSION (
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
)))
|
||||
(T (PACKFILENAME.STRING 'VERSION NIL 'EXTENSION (
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
)
|
||||
'BODY
|
||||
(FB.FETCHFILENAME (CAR FILES)))))
|
||||
@@ -1619,72 +1600,56 @@ Your deletions are thus ignored.")))
|
||||
((|for| TAIL |on| (SETQ HCOPYFIELDS (UNPACKFILENAME.STRING HCOPYFILE))
|
||||
|by| (CDDR TAIL) |bind| HOST HAVEDIRECTORY I
|
||||
|do| (COND
|
||||
((SETQ I (STRPOS '* (CADR TAIL)))
|
||||
(|if| (NEQ (CAR TAIL)
|
||||
'NAME)
|
||||
|then| (RETURN (SETQ MSG "Only name portion can contain *")
|
||||
)) (* \; "Take apart name into FORE*AFT")
|
||||
(SETQ HCOPYTAIL (CDR TAIL))
|
||||
(SETQ FORE (OR (SUBSTRING (CADR TAIL)
|
||||
1
|
||||
(SUB1 I))
|
||||
""))
|
||||
(SETQ AFT (OR (SUBSTRING (CADR TAIL)
|
||||
(ADD1 I))
|
||||
"")))
|
||||
(T (SELECTQ (CAR TAIL)
|
||||
(NAME (RETURN (SETQ MSG
|
||||
"Name must have * for multiple hardcopy files"
|
||||
)))
|
||||
(EXTENSION (SETQ EXT (MKATOM (U-CASE (CADR TAIL)))))
|
||||
(DIRECTORY (SETQ HAVEDIRECTORY T))
|
||||
(HOST (SETQ HOST (CADR TAIL)))
|
||||
NIL))) |finally| (|if| (AND HOST (NOT HAVEDIRECTORY))
|
||||
|then|
|
||||
((SETQ I (STRPOS '* (CADR TAIL)))
|
||||
(|if| (NEQ (CAR TAIL)
|
||||
'NAME)
|
||||
|then| (RETURN (SETQ MSG "Only name portion can contain *")))
|
||||
(* \; "Take apart name into FORE*AFT")
|
||||
(SETQ HCOPYTAIL (CDR TAIL))
|
||||
(SETQ FORE (OR (SUBSTRING (CADR TAIL)
|
||||
1
|
||||
(SUB1 I))
|
||||
""))
|
||||
(SETQ AFT (OR (SUBSTRING (CADR TAIL)
|
||||
(ADD1 I))
|
||||
"")))
|
||||
(T (SELECTQ (CAR TAIL)
|
||||
(NAME (RETURN (SETQ MSG
|
||||
"Name must have * for multiple hardcopy files")))
|
||||
(EXTENSION (SETQ EXT (MKATOM (U-CASE (CADR TAIL)))))
|
||||
(DIRECTORY (SETQ HAVEDIRECTORY T))
|
||||
(HOST (SETQ HOST (CADR TAIL)))
|
||||
NIL))) |finally| (|if| (AND HOST (NOT HAVEDIRECTORY))
|
||||
|then|
|
||||
(* \;
|
||||
"E.g., {DSK}*.IP. This pattern explicitly has no directory")
|
||||
(|push| HCOPYFIELDS
|
||||
'DIRECTORY NIL)))
|
||||
"E.g., {DSK}*.IP. This pattern explicitly has no directory")
|
||||
(|push| HCOPYFIELDS 'DIRECTORY NIL)))
|
||||
(FB.PROMPTWPRINT BROWSER "Bad pattern -- " MSG)
|
||||
(RETURN))))
|
||||
(T (SETQ EXT (U-CASE (FILENAMEFIELD HCOPYFILE 'EXTENSION)))))
|
||||
(COND
|
||||
((AND (NULL (SETQ PRINTFILETYPE (|for| TYPE |in| PRINTFILETYPES
|
||||
|when| (FMEMB EXT (CADR (ASSOC 'EXTENSION
|
||||
(CDR TYPE))))
|
||||
|do| (* \;
|
||||
"Opencoded PRINTFILETYPE.FROM.EXTENSION because that one's buggy")
|
||||
(RETURN (CAR TYPE)))))
|
||||
(NULL (SETQ PRINTFILETYPE (MENU (|MakeMenuOfImageTypes| "File type?")))))
|
||||
(RETURN)))
|
||||
(|for| ITEM |in| FILES |bind| (CONVERTERS _ (PRINTFILEPROP PRINTFILETYPE
|
||||
'CONVERSION))
|
||||
FILETYPE NAME FN FIELDS
|
||||
(CL:UNLESS (SETQ PRINTFILETYPE (OR (IMAGEFILETYPE.FROM.EXTENSION NIL EXT)
|
||||
(MENU (|MakeMenuOfImageTypes| "File type?"))))
|
||||
(RETURN))
|
||||
(|for| ITEM NAME FIELDS |in| FILES
|
||||
|do| (SETQ ITEM (FB.FETCHFILENAME ITEM))
|
||||
(SETQ FILETYPE (OR (PRINTFILETYPE ITEM)
|
||||
'TEXT))
|
||||
(COND
|
||||
((SETQ FN (LISTGET CONVERTERS FILETYPE))
|
||||
(FB.PROMPTW.FORMAT BROWSER "~%Writing ~A..."
|
||||
(SETQ NAME (COND
|
||||
((CDR FILES)
|
||||
(SETQ FIELDS (UNPACKFILENAME.STRING ITEM NIL NIL
|
||||
'TENEX))
|
||||
(RPLACA HCOPYTAIL (CONCAT FORE (LISTGET FIELDS
|
||||
'NAME)
|
||||
AFT))
|
||||
(CL:APPLY (FUNCTION PACKFILENAME.STRING)
|
||||
'VERSION NIL (APPEND HCOPYFIELDS FIELDS)))
|
||||
(T HCOPYFILE))))
|
||||
(SETQ NAME (CL:FUNCALL FN ITEM NAME))
|
||||
(COND
|
||||
((LISTP NAME) (* \; "Result is (SOURCE DESTINATION)")
|
||||
(SETQ NAME (CADR NAME))))
|
||||
(FB.PROMPTWPRINT BROWSER "done.")
|
||||
(FB.MAYBE.INSERT.FILE BROWSER NAME))
|
||||
(T (FB.PROMPTW.FORMAT BROWSER
|
||||
"~%Failed to hardcopy ~A -- Can't convert a ~A file to format ~A"
|
||||
ITEM FILETYPE PRINTFILETYPE)))))))
|
||||
(SETQ NAME (COND
|
||||
((CDR FILES)
|
||||
(SETQ FIELDS (UNPACKFILENAME.STRING ITEM NIL NIL 'TENEX))
|
||||
(RPLACA HCOPYTAIL (CONCAT FORE (LISTGET FIELDS 'NAME)
|
||||
AFT))
|
||||
(CL:APPLY (FUNCTION PACKFILENAME.STRING)
|
||||
'VERSION NIL (APPEND HCOPYFIELDS FIELDS)))
|
||||
(T (OUTFILEP HCOPYFILE))))
|
||||
(FB.PROMPTW.FORMAT BROWSER "~%Writing ~A..." NAME)
|
||||
(|if| (SETQ NAME (CONVERT.TO.IMAGEFILE ITEM NAME PRINTFILETYPE
|
||||
'(NOERROR T QUIET T)))
|
||||
|then| (FB.PROMPTWPRINT BROWSER "done.")
|
||||
(FB.MAYBE.INSERT.FILE BROWSER NAME)
|
||||
|else| (FB.PROMPTW.FORMAT BROWSER
|
||||
"~%Failed to hardcopy ~A -- Can't convert a ~A file to format ~A"
|
||||
ITEM (OR (IMAGESOURCETYPE ITEM)
|
||||
'TEXT)
|
||||
PRINTFILETYPE))))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
@@ -4249,51 +4214,51 @@ then click Recompute"))))
|
||||
(ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (31871 54979 (FB 31881 . 33016) (FB.COPYBINARYCOMMAND 33018 . 33364) (FB.COPYTEXTCOMMAND
|
||||
33366 . 33708) (FILEBROWSER 33710 . 46816) (FB.TABLEBROWSER 46818 . 47035) (FB.SELECTEDFILES 47037 .
|
||||
47674) (FB.FETCHFILENAME 47676 . 48068) (FB.DIRECTORYP 48070 . 48464) (FB.PROMPTWPRINT 48466 . 49512)
|
||||
(FB.PROMPTW.FORMAT 49514 . 50478) (FB.PROMPTFORINPUT 50480 . 52732) (FB.YES-OR-NO-P 52734 . 53768) (
|
||||
FB.ALLOW.ABORT 53770 . 54624) (\\FB.HARDCOPY.TOFILE.EXTENSION 54626 . 54977)) (55003 55956 (FB.STARTUP
|
||||
55013 . 55528) (FB.MAKERIGIDWINDOW 55530 . 55954)) (55957 61440 (FB.PRINTFN 55967 . 61120) (FB.COPYFN
|
||||
61122 . 61438)) (61490 67830 (FB.MENU.WHENSELECTEDFN 61500 . 61858) (FB.COMMANDSELECTEDFN 61860 .
|
||||
63399) (FB.SUBITEMP 63401 . 64002) (FB.MAKE.BROWSER.BUSY 64004 . 64808) (FB.FINISH.COMMAND 64810 .
|
||||
66841) (FB.HANDLE.ABORT.BUTTON 66843 . 67828)) (67831 73347 (FB.DELETECOMMAND 67841 . 68122) (
|
||||
FB.DELVERCOMMAND 68124 . 71317) (FB.IS.NOT.SUBDIRECTORY.ITEM 71319 . 71500) (FB.DELVER.FILES 71502 .
|
||||
72591) (FB.DELETE.FILE 72593 . 73345)) (73348 74673 (FB.UNDELETECOMMAND 73358 . 73643) (
|
||||
FB.UNDELETEALLCOMMAND 73645 . 73924) (FB.UNDELETE.FILE 73926 . 74671)) (74674 98855 (FB.COPYCOMMAND
|
||||
74684 . 74953) (FB.RENAMECOMMAND 74955 . 75230) (FB.COPY/RENAME.COMMAND 75232 . 76155) (
|
||||
FB.COPY/RENAME.ONE 76157 . 78479) (FB.COPY/RENAME.MANY 78481 . 84701) (FB.MERGE.DIRECTORIES 84703 .
|
||||
85121) (FB.GREATEST.PREFIX 85123 . 86479) (FB.MAYBE.INSERT.FILE 86481 . 93921) (FB.GET.NEW.FILE.SPEC
|
||||
93923 . 97754) (FB.CANONICAL.DIRECTORY 97756 . 98853)) (98856 106640 (FB.HARDCOPYCOMMAND 98866 . 99996
|
||||
) (FB.HARDCOPY.TOFILE 99998 . 106638)) (106641 116850 (FB.EDITCOMMAND 106651 . 107518) (
|
||||
FB.EDITCOMMAND.ONEFILE 107520 . 110934) (FB.EDITLISPFILE 110936 . 112041) (FB.BROWSECOMMAND 112043 .
|
||||
116848)) (116851 128571 (FB.FASTSEECOMMAND 116861 . 120311) (FB.FASTSEE.ONEFILE 120313 . 123269) (
|
||||
FB.SEEFULLFN 123271 . 127402) (FB.SEEBUTTONFN 127404 . 128569)) (128572 130318 (FB.LOADCOMMAND 128582
|
||||
. 129089) (FB.COMPILECOMMAND 129091 . 129629) (FB.OPERATE.ON.FILES 129631 . 130316)) (130319 178504 (
|
||||
FB.UPDATECOMMAND 130329 . 130554) (FB.FIX-DIRECTORY-DATES 130556 . 131579) (FB.MAYBE.EXPUNGE 131581 .
|
||||
132642) (FB.UPDATEBROWSERITEMS 132644 . 145859) (FB.DATE 145861 . 146502) (FB.ADJUST.DATE.WIDTH 146504
|
||||
. 149472) (FB.SET.BROWSER.TITLE 149474 . 150476) (FB.MAYBE.WIDEN.NAMES 150478 . 152597) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 152599 . 153963) (FB.CREATE.FILEBUCKET 153965 . 161185) (
|
||||
FB.CHECK.NAME.LENGTH 161187 . 163608) (FB.ADD.FILEGROUP 163610 . 165137) (FB.INSERT.DIRECTORY 165139
|
||||
. 165377) (FB.MAKE.SUBDIRECTORY.ITEM 165379 . 166788) (FB.ADD.FILE 166790 . 167403) (FB.INSERT.FILE
|
||||
167405 . 170817) (FB.ANALYZE.PATTERN 170819 . 176083) (FB.CANONICALIZE.PATTERN 176085 . 177397) (
|
||||
FB.GETALLFILEINFO 177399 . 178502)) (178505 186664 (FB.SORT.VERSIONS 178515 . 181286) (
|
||||
FB.DECREASING.VERSION 181288 . 181957) (FB.INCREASING.VERSION 181959 . 182580) (
|
||||
FB.NAMES.DECREASING.VERSION 182582 . 183617) (FB.NAMES.INCREASING.VERSION 183619 . 184616) (
|
||||
FB.DECREASING.NUMERIC.ATTR 184618 . 185298) (FB.INCREASING.NUMERIC.ATTR 185300 . 185974) (
|
||||
FB.ALPHABETIC.ATTR 185976 . 186662)) (186665 196507 (FB.SORTCOMMAND 186675 . 193505) (
|
||||
FB.INSERT.SUBDIRECTORIES 193507 . 194304) (FB.GET.SORT.MENU 194306 . 196505)) (196508 212729 (
|
||||
FB.EXPUNGECOMMAND 196518 . 199103) (FB.NEWPATTERNCOMMAND 199105 . 199503) (FB.NEWINFOCOMMAND 199505 .
|
||||
202337) (FB.DEPTHCOMMAND 202339 . 204114) (FB.SHAPECOMMAND 204116 . 207458) (FB.REMOVE.FILE 207460 .
|
||||
209281) (FB.COUNT.FILE.CHANGE 209283 . 210728) (FB.SETNEWPATTERN 210730 . 211900) (FB.GET.NEWPATTERN
|
||||
211902 . 212486) (FB.OPTIONSCOMMAND 212488 . 212727)) (212764 213817 (FB.GETWINDOW 212774 . 213815)) (
|
||||
213818 214830 (FB.INFOMENU.SHADEINITIALSELECTIONS 213828 . 214475) (FB.INFO.ITEM.NAMED 214477 . 214828
|
||||
)) (214831 224363 (FB.MAKECOUNTERWINDOW 214841 . 216369) (FB.COUNTERW.REDISPLAYFN 216371 . 216958) (
|
||||
FB.UPDATE.COUNTERS 216960 . 219032) (FB.DISPLAY.COUNTERS 219034 . 224094) (FB.COUNTER.STRING 224096 .
|
||||
224361)) (224364 229073 (FB.MAKEHEADINGWINDOW 224374 . 225988) (FB.HEADINGW.REDISPLAYFN 225990 .
|
||||
226256) (FB.HEADINGW.RESHAPEFN 226258 . 226634) (FB.HEADINGW.DISPLAY 226636 . 229071)) (229074 233257
|
||||
(FB.ICONFN 229084 . 229431) (FB.INFOMENU.WHENSELECTEDFN 229433 . 230163) (FB.CLOSEFN 230165 . 231368)
|
||||
(FB.EXPUNGE?.MENU 231370 . 231782) (FB.AFTERCLOSEFN 231784 . 232145) (FB.CLOSE&EXPUNGE 232147 . 233255
|
||||
)) (233258 245316 (FB.HARDCOPY.DIRECTORY 233268 . 243625) (FB.HARDCOPY.PRINT.TITLE 243627 . 243953) (
|
||||
FB.HARDCOPY.MAXWIDTH 243955 . 245314)))))
|
||||
(FILEMAP (NIL (30255 53354 (FB 30265 . 31400) (FB.COPYBINARYCOMMAND 31402 . 31748) (FB.COPYTEXTCOMMAND
|
||||
31750 . 32092) (FILEBROWSER 32094 . 45200) (FB.TABLEBROWSER 45202 . 45419) (FB.SELECTEDFILES 45421 .
|
||||
46058) (FB.FETCHFILENAME 46060 . 46452) (FB.DIRECTORYP 46454 . 46848) (FB.PROMPTWPRINT 46850 . 47896)
|
||||
(FB.PROMPTW.FORMAT 47898 . 48862) (FB.PROMPTFORINPUT 48864 . 51116) (FB.YES-OR-NO-P 51118 . 52152) (
|
||||
FB.ALLOW.ABORT 52154 . 53008) (\\FB.HARDCOPY.TOFILE.EXTENSION 53010 . 53352)) (53378 54331 (FB.STARTUP
|
||||
53388 . 53903) (FB.MAKERIGIDWINDOW 53905 . 54329)) (54332 59815 (FB.PRINTFN 54342 . 59495) (FB.COPYFN
|
||||
59497 . 59813)) (59865 66205 (FB.MENU.WHENSELECTEDFN 59875 . 60233) (FB.COMMANDSELECTEDFN 60235 .
|
||||
61774) (FB.SUBITEMP 61776 . 62377) (FB.MAKE.BROWSER.BUSY 62379 . 63183) (FB.FINISH.COMMAND 63185 .
|
||||
65216) (FB.HANDLE.ABORT.BUTTON 65218 . 66203)) (66206 71722 (FB.DELETECOMMAND 66216 . 66497) (
|
||||
FB.DELVERCOMMAND 66499 . 69692) (FB.IS.NOT.SUBDIRECTORY.ITEM 69694 . 69875) (FB.DELVER.FILES 69877 .
|
||||
70966) (FB.DELETE.FILE 70968 . 71720)) (71723 73048 (FB.UNDELETECOMMAND 71733 . 72018) (
|
||||
FB.UNDELETEALLCOMMAND 72020 . 72299) (FB.UNDELETE.FILE 72301 . 73046)) (73049 97230 (FB.COPYCOMMAND
|
||||
73059 . 73328) (FB.RENAMECOMMAND 73330 . 73605) (FB.COPY/RENAME.COMMAND 73607 . 74530) (
|
||||
FB.COPY/RENAME.ONE 74532 . 76854) (FB.COPY/RENAME.MANY 76856 . 83076) (FB.MERGE.DIRECTORIES 83078 .
|
||||
83496) (FB.GREATEST.PREFIX 83498 . 84854) (FB.MAYBE.INSERT.FILE 84856 . 92296) (FB.GET.NEW.FILE.SPEC
|
||||
92298 . 96129) (FB.CANONICAL.DIRECTORY 96131 . 97228)) (97231 104094 (FB.HARDCOPYCOMMAND 97241 . 98371
|
||||
) (FB.HARDCOPY.TOFILE 98373 . 104092)) (104095 114304 (FB.EDITCOMMAND 104105 . 104972) (
|
||||
FB.EDITCOMMAND.ONEFILE 104974 . 108388) (FB.EDITLISPFILE 108390 . 109495) (FB.BROWSECOMMAND 109497 .
|
||||
114302)) (114305 126025 (FB.FASTSEECOMMAND 114315 . 117765) (FB.FASTSEE.ONEFILE 117767 . 120723) (
|
||||
FB.SEEFULLFN 120725 . 124856) (FB.SEEBUTTONFN 124858 . 126023)) (126026 127772 (FB.LOADCOMMAND 126036
|
||||
. 126543) (FB.COMPILECOMMAND 126545 . 127083) (FB.OPERATE.ON.FILES 127085 . 127770)) (127773 175958 (
|
||||
FB.UPDATECOMMAND 127783 . 128008) (FB.FIX-DIRECTORY-DATES 128010 . 129033) (FB.MAYBE.EXPUNGE 129035 .
|
||||
130096) (FB.UPDATEBROWSERITEMS 130098 . 143313) (FB.DATE 143315 . 143956) (FB.ADJUST.DATE.WIDTH 143958
|
||||
. 146926) (FB.SET.BROWSER.TITLE 146928 . 147930) (FB.MAYBE.WIDEN.NAMES 147932 . 150051) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 150053 . 151417) (FB.CREATE.FILEBUCKET 151419 . 158639) (
|
||||
FB.CHECK.NAME.LENGTH 158641 . 161062) (FB.ADD.FILEGROUP 161064 . 162591) (FB.INSERT.DIRECTORY 162593
|
||||
. 162831) (FB.MAKE.SUBDIRECTORY.ITEM 162833 . 164242) (FB.ADD.FILE 164244 . 164857) (FB.INSERT.FILE
|
||||
164859 . 168271) (FB.ANALYZE.PATTERN 168273 . 173537) (FB.CANONICALIZE.PATTERN 173539 . 174851) (
|
||||
FB.GETALLFILEINFO 174853 . 175956)) (175959 184118 (FB.SORT.VERSIONS 175969 . 178740) (
|
||||
FB.DECREASING.VERSION 178742 . 179411) (FB.INCREASING.VERSION 179413 . 180034) (
|
||||
FB.NAMES.DECREASING.VERSION 180036 . 181071) (FB.NAMES.INCREASING.VERSION 181073 . 182070) (
|
||||
FB.DECREASING.NUMERIC.ATTR 182072 . 182752) (FB.INCREASING.NUMERIC.ATTR 182754 . 183428) (
|
||||
FB.ALPHABETIC.ATTR 183430 . 184116)) (184119 193961 (FB.SORTCOMMAND 184129 . 190959) (
|
||||
FB.INSERT.SUBDIRECTORIES 190961 . 191758) (FB.GET.SORT.MENU 191760 . 193959)) (193962 210183 (
|
||||
FB.EXPUNGECOMMAND 193972 . 196557) (FB.NEWPATTERNCOMMAND 196559 . 196957) (FB.NEWINFOCOMMAND 196959 .
|
||||
199791) (FB.DEPTHCOMMAND 199793 . 201568) (FB.SHAPECOMMAND 201570 . 204912) (FB.REMOVE.FILE 204914 .
|
||||
206735) (FB.COUNT.FILE.CHANGE 206737 . 208182) (FB.SETNEWPATTERN 208184 . 209354) (FB.GET.NEWPATTERN
|
||||
209356 . 209940) (FB.OPTIONSCOMMAND 209942 . 210181)) (210218 211271 (FB.GETWINDOW 210228 . 211269)) (
|
||||
211272 212284 (FB.INFOMENU.SHADEINITIALSELECTIONS 211282 . 211929) (FB.INFO.ITEM.NAMED 211931 . 212282
|
||||
)) (212285 221817 (FB.MAKECOUNTERWINDOW 212295 . 213823) (FB.COUNTERW.REDISPLAYFN 213825 . 214412) (
|
||||
FB.UPDATE.COUNTERS 214414 . 216486) (FB.DISPLAY.COUNTERS 216488 . 221548) (FB.COUNTER.STRING 221550 .
|
||||
221815)) (221818 226527 (FB.MAKEHEADINGWINDOW 221828 . 223442) (FB.HEADINGW.REDISPLAYFN 223444 .
|
||||
223710) (FB.HEADINGW.RESHAPEFN 223712 . 224088) (FB.HEADINGW.DISPLAY 224090 . 226525)) (226528 230711
|
||||
(FB.ICONFN 226538 . 226885) (FB.INFOMENU.WHENSELECTEDFN 226887 . 227617) (FB.CLOSEFN 227619 . 228822)
|
||||
(FB.EXPUNGE?.MENU 228824 . 229236) (FB.AFTERCLOSEFN 229238 . 229599) (FB.CLOSE&EXPUNGE 229601 . 230709
|
||||
)) (230712 242770 (FB.HARDCOPY.DIRECTORY 230722 . 241079) (FB.HARDCOPY.PRINT.TITLE 241081 . 241407) (
|
||||
FB.HARDCOPY.MAXWIDTH 241409 . 242768)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user