Improved handling of the ICONW for MANAGER-MAIN-WINDOW.
This commit is contained in:
Matt Heffron
@@ -1,10 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 6-Feb-2023 16:47:42" {DSK}<home>matt>medley>LISPUSERS>MANAGER.;9 115036
|
||||
(FILECREATED " 6-Feb-2023 23:53:39" {LU}MANAGER.;11 115662
|
||||
|
||||
:CHANGES-TO (FNS Manager.SET-ANCHOR)
|
||||
:CHANGES-TO (FNS Manager.MAINOPEN)
|
||||
(VARS MANAGERCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 6-Feb-2023 15:24:08" {DSK}<home>matt>medley>LISPUSERS>MANAGER.;8)
|
||||
:PREVIOUS-DATE " 6-Feb-2023 16:47:42" {LU}MANAGER.;9)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -56,7 +57,7 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
|
||||
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.WINDOW-ANCHOR BackgroundMenuCommands BackgroundMenu)
|
||||
MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR BackgroundMenuCommands BackgroundMenu)
|
||||
(VARS *UNMANAGED-TYPES* MANAGER-ACTIVITY-WINDOW-TITLE (MANAGER-CASES)
|
||||
(MANAGER-ADDTOFILES?)
|
||||
MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-FILE-OPERATIONS-COMMANDS
|
||||
@@ -69,6 +70,9 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
|
||||
(Manager.DATASPACE NIL)
|
||||
(MANAGER-WINDOWS NIL)
|
||||
(MANAGER-MAIN-WINDOW NIL)
|
||||
(MANAGER-MAIN-ICONW (ICONW MANAGER.BM MANAGER.BM.MASK
|
||||
(create POSITION XCOORD _ 0 YCOORD _ 0)
|
||||
T))
|
||||
(MANAGER-OPEN-WINDOWS NIL)
|
||||
(MANAGER-FILE-MENU NIL)
|
||||
(MANAGER-FILELST-MENU NIL)
|
||||
@@ -185,8 +189,8 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
|
||||
(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG 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.WINDOW-ANCHOR BackgroundMenuCommands
|
||||
BackgroundMenu)
|
||||
MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR
|
||||
BackgroundMenuCommands BackgroundMenu)
|
||||
)
|
||||
|
||||
(RPAQQ *UNMANAGED-TYPES* (EXPRESSIONS FILES FIELDS FILEVARS-ARE-NOW-OK))
|
||||
@@ -403,6 +407,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
|
||||
|
||||
(RPAQ? MANAGER-MAIN-WINDOW NIL)
|
||||
|
||||
(RPAQ? MANAGER-MAIN-ICONW (ICONW MANAGER.BM MANAGER.BM.MASK (create POSITION XCOORD _ 0 YCOORD _ 0)
|
||||
T))
|
||||
|
||||
(RPAQ? MANAGER-OPEN-WINDOWS NIL)
|
||||
|
||||
(RPAQ? MANAGER-FILE-MENU NIL)
|
||||
@@ -1421,7 +1428,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
|
||||
FILE])
|
||||
|
||||
(Manager.MAINOPEN
|
||||
[LAMBDA (POSITION) (* ; "Edited 6-Feb-2023 15:19 by Matt Heffron")
|
||||
[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")
|
||||
(* ; "Edited 17-Aug-87 13:59 by raf")
|
||||
|
||||
(* ;;; "Builds the manager main (FILELST) menu at the indicated position.")
|
||||
@@ -1483,17 +1492,18 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
|
||||
(* ;; "Shrink to the manager icon, and remember to update when the expanding")
|
||||
|
||||
[WINDOWPROP MANAGER-MAIN-WINDOW 'ICONFN (FUNCTION (LAMBDA (WIN OICON)
|
||||
(LET ((IW (if (NULL OICON)
|
||||
then (ICONW MANAGER.BM
|
||||
MANAGER.BM.MASK
|
||||
)
|
||||
else OICON)))
|
||||
[WINDOWPROP IW 'EXPANDFN
|
||||
(FUNCTION (LAMBDA NIL
|
||||
(
|
||||
Manager.MAINUPDATE
|
||||
NIL]
|
||||
IW]
|
||||
(SETQ MANAGER-MAIN-ICONW
|
||||
(if (NULL OICON)
|
||||
then (OR MANAGER-MAIN-ICONW
|
||||
(ICONW MANAGER.BM
|
||||
MANAGER.BM.MASK))
|
||||
else OICON))
|
||||
[WINDOWPROP MANAGER-MAIN-ICONW
|
||||
'EXPANDFN
|
||||
(FUNCTION (LAMBDA NIL
|
||||
(Manager.MAINUPDATE
|
||||
NIL]
|
||||
MANAGER-MAIN-ICONW]
|
||||
(SETQ Manager.ACTIVEFLG T)
|
||||
(Manager.MAINUPDATE T])
|
||||
|
||||
@@ -1805,20 +1815,20 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
|
||||
)
|
||||
(PUTPROPS MANAGER COPYRIGHT ("Xerox Corporation" 1986 1987 1900 2022 2023))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (25135 105160 (MANAGER 25145 . 25944) (MANAGER.RESET 25946 . 27460) (Manager.ADDADV
|
||||
27462 . 28815) (Manager.ADDTOFILES? 28817 . 29095) (Manager.ALTERMARKING 29097 . 30707) (
|
||||
Manager.ANCHORED-SET-POSITION 30709 . 32793) (Manager.DO.COMMAND 32795 . 65065) (Manager.HIGHLIGHT
|
||||
65067 . 65364) (Manager.PROMPT 65366 . 65679) (Manager.WINDOW 65681 . 66314) (
|
||||
Manager.insurefilehighlights 66316 . 67387) (Manager.CHANGED? 67389 . 67938) (Manager.CHECKFILE 67940
|
||||
. 69039) (Manager.COLLECTCOMS 69041 . 70479) (Manager.COMS.WSF 70481 . 73151) (Manager.COMSOPEN 73153
|
||||
. 77891) (Manager.COMSUPDATE 77893 . 78985) (Manager.HIGHLIGHTED 78987 . 79293) (
|
||||
Manager.INSUREHIGHLIGHTS 79295 . 79853) (Manager.FILECHANGES 79855 . 80154) (Manager.FILELSTCHANGED?
|
||||
80156 . 80484) (Manager.FILESUBTYPES 80486 . 81124) (Manager.GET.ENVIRONMENT 81126 . 83664) (
|
||||
Manager.GETFILE 83666 . 85980) (Manager.INTITLE? 85982 . 86660) (Manager.MAIN.WSF 86662 . 89306) (
|
||||
Manager.MAINCLOSE 89308 . 90418) (Manager.MAINMENUITEMS 90420 . 91497) (Manager.MAINOPEN 91499 . 96947
|
||||
) (Manager.MAINUPDATE 96949 . 97585) (Manager.MAKEFILE.ADV 97587 . 98623) (Manager.MENUCOLUMNS 98625
|
||||
. 99429) (Manager.MENUHASITEM 99431 . 99788) (Manager.MENUITEMS 99790 . 100035) (
|
||||
Manager.REMOVE.DUPLICATE.ADVICE 100037 . 101643) (Manager.RESETSUBITEMS 101645 . 102882) (
|
||||
Manager.SET-ANCHOR 102884 . 103386) (Manager.SORT.COMS 103388 . 103920) (Manager.SORTBYCOLUMN 103922
|
||||
. 105158)))))
|
||||
(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)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user