github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-25 20:06:44 +00:00
Code Issues Projects Releases Wiki Activity

Fix typo in MasterScope functions (multiple occurrences: LOADBFLG should be LOADDBFLG).

Browse Source 
Changed to CL compiler by default (not need to go to submenu). This is my preference, so I should remove it before setting pull request.
This commit is contained in:
Matt Heffron
2023-02-28 16:40:57 -08:00
parent 55bca749b0
commit f60c636292
2 changed files with 59 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
lispusers/MANAGER
View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Feb-2023 23:53:39" {LU}MANAGER.;11 115662
(FILECREATED "22-Feb-2023 22:50:32" {LU}MANAGER.;15 115916
:CHANGES-TO (FNS Manager.MAINOPEN)
(VARS MANAGERCOMS)
:CHANGES-TO (VARS MANAGERCOMS)
(FNS Manager.DO.COMMAND)
:PREVIOUS-DATE " 6-Feb-2023 16:47:42" {LU}MANAGER.;9)
:PREVIOUS-DATE "22-Feb-2023 14:13:20" {LU}MANAGER.;14)
(* ; "
@@ -53,11 +53,12 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
(* ;; "")
(SPECVARS Manager.ACTIVEFLG MANAGER-CASES MANAGER-ADDTOFILES?)
(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG SAVEDBFLG
(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADDBFLG SAVEDBFLG
MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS
MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS
MANAGER-MAIN-MENU-ITEMS MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW
MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR BackgroundMenuCommands BackgroundMenu)
MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR MANAGER.BM MANAGER.BM.MASK
BackgroundMenuCommands BackgroundMenu)
(VARS *UNMANAGED-TYPES* MANAGER-ACTIVITY-WINDOW-TITLE (MANAGER-CASES)
(MANAGER-ADDTOFILES?)
MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-FILE-OPERATIONS-COMMANDS
@@ -186,11 +187,11 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG SAVEDBFLG
(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADDBFLG SAVEDBFLG
MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS
MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-MAIN-MENU-ITEMS
MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR
BackgroundMenuCommands BackgroundMenu)
MANAGER.BM MANAGER.BM.MASK BackgroundMenuCommands BackgroundMenu)
)
(RPAQQ *UNMANAGED-TYPES* (EXPRESSIONS FILES FIELDS FILEVARS-ARE-NOW-OK))
@@ -265,9 +266,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("Set to Ask" 'DBFILEASK
("Dump DB" 'DUMPDB
"Dump this file's MasterScope information, if it exists and make it's upkeep automatic"
]
("Compile" 'COMPILE "Compile this file" (SUBITEMS ("Compile" 'COMPILE "InterLisp compiler")
(" CL:COMPILE-FILE " 'CL:COMPILE-FILE
"CommonLisp compiler")))
("Compile" 'CL:COMPILE-FILE "Compile this file with the CommonLisp compiler"
(SUBITEMS ("Compile" 'COMPILE "InterLisp compiler")
(" CL:COMPILE-FILE " 'CL:COMPILE-FILE "CommonLisp compiler")))
("Changes" 'CHANGES "Show the changes that have been made to this file."
(SUBITEMS ("Brief" 'CHANGES "Show the changes that have been made to this file.")
(" Everything " 'PL "Display everything on this file's property list")
@@ -540,16 +541,16 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
UPDATEFILES])
(Manager.ANCHORED-SET-POSITION
[LAMBDA (IW IH) (* ; "Edited 6-Feb-2023 15:15 by Matt Heffron")
(* ; "Edited 6-Feb-2023 15:13 by Matt Heffron")
(* ; "Edited 6-Feb-2023 15:10 by Matt Heffron")
(* ; "Edited 6-Feb-2023 14:51 by Matt Heffron")
(* ; "Edited 6-Feb-2023 14:43 by Matt Heffron")
(* ; "Edited 6-Feb-2023 14:40 by Matt Heffron")
(* ; "Edited 6-Feb-2023 14:37 by Matt Heffron")
(* ; "Edited 6-Feb-2023 14:32 by Matt Heffron")
(* ; "Edited 6-Feb-2023 14:26 by Matt Heffron")
(* ; "Edited 6-Feb-2023 13:44 by Matt Heffron")
[LAMBDA (IW IH) (* ; "Edited 6-Feb-2023 15:15 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:13 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:10 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:51 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:43 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:40 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:37 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:32 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:26 by MattHeffron" )
(* ; "Edited 6-Feb-2023 13:44 by MattHeffron" )
(LET (WREGION XPOS YPOS TEMP)
(SETQ WREGION (WINDOWPROP MANAGER-MAIN-WINDOW 'REGION))
(SETQ YPOS (fetch (REGION BOTTOM) of WREGION))
@@ -571,7 +572,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
YCOORD _ YPOS])
(Manager.DO.COMMAND
[LAMBDA (COMMAND ITEM COMSTYPE FILE MENU) (* ; "Edited 6-Feb-2023 15:23 by Matt Heffron")
[LAMBDA (COMMAND ITEM COMSTYPE FILE MENU) (* ; "Edited 22-Feb-2023 22:48 by MattHeffron" )
(* ; "Edited 22-Feb-2023 14:13 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:23 by MattHeffron" )
(* ; "Edited 18-Nov-87 14:30 by raf")
(if (EQ COMSTYPE 'FILEVARS)
then (SETQ COMSTYPE 'VARS) (* ; "The Manager currently does unnatural things with the FILEVARS type, this is a hack to compensate for it. E.g., editing a FILEVARS = editing the VARS, etc.")
@@ -881,50 +884,50 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
(FILESLOAD 'DATABASEFNS)
(CL:FORMAT T
"~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a"
SAVEDBFLG LOADBFLG))
SAVEDBFLG LOADDBFLG))
(DBFILE
(FILESLOAD 'DATABASEFNS)
(CL:FORMAT T "~&The DATABASE prop for ~a is: ~a" FILE
(GETPROP FILE 'DATABASE))
(CL:FORMAT T
"~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a"
SAVEDBFLG LOADBFLG))
SAVEDBFLG LOADDBFLG))
(DBON
(FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ON)
(SETQ LOADDBFLG 'ON)
(SETQ SAVEDBFLG 'ON))
(DBOFF
(FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'OFF)
(SETQ SAVEDBFLG 'OFF))
(SETQ LOADDBFLG 'NO)
(SETQ SAVEDBFLG 'NO))
(DBASK
(FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ASK)
(SETQ LOADDBFLG 'ASK)
(SETQ SAVEDBFLG 'ASK))
(DBLOADON
(FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ON))
(SETQ LOADDBFLG 'YES))
(DBSAVEON
(FILESLOAD 'DATABASEFNS)
(SETQ SAVEDBFLG 'ON))
(SETQ SAVEDBFLG 'YES))
(DBLOADOFF
(FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'OFF))
(SETQ LOADDBFLG 'NO))
(DBSAVEOFF
(FILESLOAD 'DATABASEFNS)
(SETQ SAVEDBFLG 'OFF))
(SETQ SAVEDBFLG 'NO))
(DBLOADASK
(FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ASK))
(SETQ LOADDBFLG 'ASK))
(DBSAVEASK
(FILESLOAD 'DATABASEFNS)
(SETQ SAVEDBFLG 'ASK))
(DBFILEON
(FILESLOAD 'DATABASEFNS)
(PUTPROP FILE 'DATABASE 'ON))
(PUTPROP FILE 'DATABASE 'YES))
(DBFILEOFF
(FILESLOAD 'DATABASEFNS)
(PUTPROP FILE 'DATABASE 'OFF))
(PUTPROP FILE 'DATABASE 'NO))
(DBFILEASK
(FILESLOAD 'DATABASEFNS)
(PUTPROP FILE 'DATABASE 'ASK))
@@ -1428,9 +1431,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
FILE])
(Manager.MAINOPEN
[LAMBDA (POSITION) (* ; "Edited 6-Feb-2023 23:53 by Matt Heffron")
(* ; "Edited 6-Feb-2023 23:38 by Matt Heffron")
(* ; "Edited 6-Feb-2023 15:19 by Matt Heffron")
[LAMBDA (POSITION) (* ; "Edited 6-Feb-2023 23:53 by MattHeffron" )
(* ; "Edited 6-Feb-2023 23:38 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:19 by MattHeffron" )
(* ; "Edited 17-Aug-87 13:59 by raf")
(* ;;; "Builds the manager main (FILELST) menu at the indicated position.")
@@ -1605,8 +1608,8 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
" submenu for the file " FILE])
(Manager.SET-ANCHOR
[LAMBDA (NEWANCHOR) (* ; "Edited 6-Feb-2023 16:47 by Matt Heffron")
(* ; "Edited 6-Feb-2023 16:45 by Matt Heffron")
[LAMBDA (NEWANCHOR) (* ; "Edited 6-Feb-2023 16:47 by MattHeffron" )
(* ; "Edited 6-Feb-2023 16:45 by MattHeffron" )
(* ; "")
(if (AND (FMEMB NEWANCHOR '(ANCHOR-TL ANCHOR-TR ANCHOR-BL ANCHOR-BR))
(NEQ Manager.WINDOW-ANCHOR NEWANCHOR))
@@ -1815,20 +1818,20 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
)
(PUTPROPS MANAGER COPYRIGHT ("Xerox Corporation" 1986 1987 1900 2022 2023))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (25491 105786 (MANAGER 25501 . 26300) (MANAGER.RESET 26302 . 27816) (Manager.ADDADV
27818 . 29171) (Manager.ADDTOFILES? 29173 . 29451) (Manager.ALTERMARKING 29453 . 31063) (
Manager.ANCHORED-SET-POSITION 31065 . 33149) (Manager.DO.COMMAND 33151 . 65421) (Manager.HIGHLIGHT
65423 . 65720) (Manager.PROMPT 65722 . 66035) (Manager.WINDOW 66037 . 66670) (
Manager.insurefilehighlights 66672 . 67743) (Manager.CHANGED? 67745 . 68294) (Manager.CHECKFILE 68296
. 69395) (Manager.COLLECTCOMS 69397 . 70835) (Manager.COMS.WSF 70837 . 73507) (Manager.COMSOPEN 73509
. 78247) (Manager.COMSUPDATE 78249 . 79341) (Manager.HIGHLIGHTED 79343 . 79649) (
Manager.INSUREHIGHLIGHTS 79651 . 80209) (Manager.FILECHANGES 80211 . 80510) (Manager.FILELSTCHANGED?
80512 . 80840) (Manager.FILESUBTYPES 80842 . 81480) (Manager.GET.ENVIRONMENT 81482 . 84020) (
Manager.GETFILE 84022 . 86336) (Manager.INTITLE? 86338 . 87016) (Manager.MAIN.WSF 87018 . 89662) (
Manager.MAINCLOSE 89664 . 90774) (Manager.MAINMENUITEMS 90776 . 91853) (Manager.MAINOPEN 91855 . 97573
) (Manager.MAINUPDATE 97575 . 98211) (Manager.MAKEFILE.ADV 98213 . 99249) (Manager.MENUCOLUMNS 99251
. 100055) (Manager.MENUHASITEM 100057 . 100414) (Manager.MENUITEMS 100416 . 100661) (
Manager.REMOVE.DUPLICATE.ADVICE 100663 . 102269) (Manager.RESETSUBITEMS 102271 . 103508) (
Manager.SET-ANCHOR 103510 . 104012) (Manager.SORT.COMS 104014 . 104546) (Manager.SORTBYCOLUMN 104548
. 105784)))))
(FILEMAP (NIL (25521 106040 (MANAGER 25531 . 26330) (MANAGER.RESET 26332 . 27846) (Manager.ADDADV
27848 . 29201) (Manager.ADDTOFILES? 29203 . 29481) (Manager.ALTERMARKING 29483 . 31093) (
Manager.ANCHORED-SET-POSITION 31095 . 33179) (Manager.DO.COMMAND 33181 . 65675) (Manager.HIGHLIGHT
65677 . 65974) (Manager.PROMPT 65976 . 66289) (Manager.WINDOW 66291 . 66924) (
Manager.insurefilehighlights 66926 . 67997) (Manager.CHANGED? 67999 . 68548) (Manager.CHECKFILE 68550
. 69649) (Manager.COLLECTCOMS 69651 . 71089) (Manager.COMS.WSF 71091 . 73761) (Manager.COMSOPEN 73763
. 78501) (Manager.COMSUPDATE 78503 . 79595) (Manager.HIGHLIGHTED 79597 . 79903) (
Manager.INSUREHIGHLIGHTS 79905 . 80463) (Manager.FILECHANGES 80465 . 80764) (Manager.FILELSTCHANGED?
80766 . 81094) (Manager.FILESUBTYPES 81096 . 81734) (Manager.GET.ENVIRONMENT 81736 . 84274) (
Manager.GETFILE 84276 . 86590) (Manager.INTITLE? 86592 . 87270) (Manager.MAIN.WSF 87272 . 89916) (
Manager.MAINCLOSE 89918 . 91028) (Manager.MAINMENUITEMS 91030 . 92107) (Manager.MAINOPEN 92109 . 97827
) (Manager.MAINUPDATE 97829 . 98465) (Manager.MAKEFILE.ADV 98467 . 99503) (Manager.MENUCOLUMNS 99505
. 100309) (Manager.MENUHASITEM 100311 . 100668) (Manager.MENUITEMS 100670 . 100915) (
Manager.REMOVE.DUPLICATE.ADVICE 100917 . 102523) (Manager.RESETSUBITEMS 102525 . 103762) (
Manager.SET-ANCHOR 103764 . 104266) (Manager.SORT.COMS 104268 . 104800) (Manager.SORTBYCOLUMN 104802
. 106038)))))
STOP

BIN
lispusers/MANAGER.DFASL
View File

Binary file not shown.