ATTACHEDWINDOW: DOATTACHEDWINDOWCOM allows menu to have a form to EVAL
Like the background menu
This commit is contained in:
rmkaplan
parent
18567383e1
commit
1632df7d2b
@ -1,14 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "28-Jun-99 17:18:50" {DSK}<project>medley3.5>sources>ATTACHEDWINDOW.;3 124287
|
||||
|
||||
changes to%: (FNS RESHAPEALLWINDOWS)
|
||||
(FILECREATED "23-Dec-2025 23:51:48" {WMEDLEY}<sources>ATTACHEDWINDOW.;2 124374
|
||||
|
||||
previous date%: "28-Jun-99 15:59:05" {DSK}<project>medley3.5>sources>ATTACHEDWINDOW.;2)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS DOATTACHEDWINDOWCOM)
|
||||
|
||||
:PREVIOUS-DATE "28-Jun-99 17:18:50" {WMEDLEY}<sources>ATTACHEDWINDOW.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 by Venue & Xerox Corporation. All rights reserved.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT ATTACHEDWINDOWCOMS)
|
||||
|
||||
@ -246,15 +245,16 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
'MAINWINDOW NIL])
|
||||
|
||||
(DOATTACHEDWINDOWCOM
|
||||
[LAMBDA (ATTACHEDW) (* ; "Edited 16-Jul-92 11:22 by cat")
|
||||
(* ; "Edited 22-Jan-88 13:35 by woz")
|
||||
[LAMBDA (ATTACHEDW) (* ; "Edited 23-Dec-2025 22:42 by rmk")
|
||||
(* ; "Edited 16-Jul-92 11:22 by cat")
|
||||
(* ; "Edited 22-Jan-88 13:35 by woz")
|
||||
|
||||
(* ;; "a right button function for attached windows that brings up the window command menu and then, depending upon the command selected, either passes the command to the main window or performs it on the attached window. The commands in the windowprop PASSTOMAINCOMS are passed to the central window. Others are applied to ATTACHEDW.")
|
||||
(* ;; "a right button function for attached windows that brings up the window command menu and then, depending upon the command selected, either passes the command to the main window or performs it on the attached window. The commands in the windowprop PASSTOMAINCOMS are passed to the central window. Others are applied to ATTACHEDW.")
|
||||
|
||||
(COND
|
||||
((WINDOWP ATTACHEDW)
|
||||
(TOTOPW ATTACHEDW)
|
||||
(LET [(COM (MENU (COND
|
||||
(LET ([COM (MENU (COND
|
||||
((type? MENU WindowMenu)
|
||||
WindowMenu)
|
||||
(T (SETQ WindowMenu (create MENU
|
||||
@ -267,15 +267,20 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
WHENHELDFN _ (FUNCTION PPROMPT3)
|
||||
WHENUNHELDFN _ (FUNCTION CLRPROMPT)
|
||||
CENTERFLG _ T]
|
||||
WINDOW)
|
||||
(DECLARE (SPECVARS WINDOW))
|
||||
(CL:WHEN COM
|
||||
(COND
|
||||
([OR (EQ (WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS)
|
||||
T)
|
||||
(MEMB (OR (CDR (ASSOC COM *ATTACHED-WINDOW-COMMAND-SYNONYMS*))
|
||||
COM)
|
||||
(WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS]
|
||||
(APPLY* COM (CENTRALWINDOW ATTACHEDW)))
|
||||
(T (APPLY* COM ATTACHEDW)))
|
||||
(SETQ WINDOW (COND
|
||||
([OR (EQ (WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS)
|
||||
T)
|
||||
(MEMB (OR (CDR (ASSOC COM *ATTACHED-WINDOW-COMMAND-SYNONYMS*))
|
||||
COM)
|
||||
(WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS]
|
||||
(CENTRALWINDOW ATTACHEDW))
|
||||
(T ATTACHEDW)))
|
||||
(CL:IF (LISTP COM)
|
||||
(EVAL COM)
|
||||
(APPLY* COM WINDOW))
|
||||
T)))
|
||||
((NULL ATTACHEDW)
|
||||
(DOBACKGROUNDCOM])
|
||||
@ -2006,10 +2011,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD RESHAPINGWINDOWDATA (ATTACHEDW (ATEDGE . ATWHEREONEDGE)
|
||||
(ATMINX . ATMINY)
|
||||
(ATMAXX . ATMAXY)
|
||||
(ATXSIZE . ATYSIZE)
|
||||
(ATNOWX . ATNOWY)))
|
||||
(ATMINX . ATMINY)
|
||||
(ATMAXX . ATMAXY)
|
||||
(ATXSIZE . ATYSIZE)
|
||||
(ATNOWX . ATNOWY)))
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@ -2024,32 +2029,30 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
(CONS 'HARDCOPYIMAGEW.TOFILE 'HARDCOPYIMAGEW))
|
||||
"used by attachwindows to associate window command substitutes with their original name, eg \interactive.closew with closew. Must be maintained as an alist, with each entry of the form (new-com . old-com)."
|
||||
)
|
||||
(PUTPROPS ATTACHEDWINDOW COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990
|
||||
1991 1992 1995 1999))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2273 10646 (ATTACHWINDOW 2283 . 4854) (ATTACHEDWINDOWS 4856 . 5792) (ALLATTACHEDWINDOWS
|
||||
5794 . 6219) (DETACHWINDOW 6221 . 7121) (DETACHALLWINDOWS 7123 . 7440) (FREEATTACHEDWINDOW 7442 .
|
||||
9079) (MAINWINDOW 9081 . 9761) (REMOVEWINDOW 9763 . 10065) (REPOSITIONATTACHEDWINDOWS 10067 . 10644))
|
||||
(10647 104021 (ATTACHEDWINDOWREGION 10657 . 11325) (ATTACHEDWINDOWTOTOPFN 11327 . 11804) (
|
||||
CENTERINHEIGHT 11806 . 12276) (CENTERINWIDTH 12278 . 12728) (CENTRALWINDOW 12730 . 13160) (
|
||||
CLOSEATTACHEDWINDOWS 13162 . 13738) (DOATTACHEDWINDOWCOM 13740 . 15811) (DOATTACHEDWINDOWCOM2 15813 .
|
||||
16101) (DOMAINWINDOWCOMFN 16103 . 16657) (EXPANDATTACHEDWINDOWS 16659 . 17725) (MAKEMAINWINDOW 17727
|
||||
. 19442) (MAXATTACHEDWINDOWEXTENT 19444 . 24053) (MAXIMUMMAINWINDOWSIZE 24055 . 24740) (
|
||||
MAXIMUMWINDOWSIZE 24742 . 25491) (MINATTACHEDWINDOWEXTENT 25493 . 29820) (MINIMUMMAINWINDOWSIZE 29822
|
||||
. 30608) (MOVEATTACHEDWINDOWS 30610 . 31262) (MOVEATTACHEDWINDOWTOPLACE 31264 . 40365) (
|
||||
OPENATTACHEDWINDOWS 40367 . 41320) (RESHAPEALLWINDOWS 41322 . 51053) (\TOTALPROPOSEDSIZE 51055 . 52568
|
||||
) (SHRINKATTACHEDWINDOWS 52570 . 53529) (TOPATTACHEDWINDOWS 53531 . 54044) (UNMAKEMAINWINDOW 54046 .
|
||||
54818) (UPIQUOTIENT 54820 . 55129) (WINDOWPOSITION 55131 . 55473) (WINDOWSIZE 55475 . 56020) (
|
||||
\ALLOCMINIMUMSIZES 56022 . 66540) (\ALLOCSPACETOGROUPEDWINDOWS 66542 . 67117) (\TOTALFIXEDHEIGHT 67119
|
||||
. 67877) (\TOTALFIXEDWIDTH 67879 . 68769) (\ALLOCHEIGHTTOGROUPEDWINDOW 68771 . 74324) (
|
||||
\ALLOCWIDTHTOGROUPEDWINDOW 74326 . 79621) (\ATWGROUPSIZE 79623 . 80738) (\BREAKAPARTATWSTRUCTURE 80740
|
||||
. 81244) (\BUILDATWSTRUCTURE 81246 . 85867) (\LIMITBYMAX 85869 . 86032) (\LIMITBYMIN 86034 . 86294) (
|
||||
\MAXHEIGHTOFGROUP 86296 . 87340) (\MAXWIDTHOFGROUP 87342 . 88384) (\RESHAPEATTACHEDWINDOWSAROUNDMAINW
|
||||
88386 . 96384) (\SETGROUPMIN 96386 . 101125) (\SETWINFOXSIZE 101127 . 101971) (\SETWINFOYSIZE 101973
|
||||
. 102981) (\SHAREOFXTRAX 102983 . 103464) (\SHAREOFXTRAY 103466 . 104019)) (104022 117243 (ATTACHMENU
|
||||
104032 . 104740) (CREATEMENUEDWINDOW 104742 . 109899) (MENUWINDOW 109901 . 112303) (MENUWMINSIZEFN
|
||||
112305 . 114268) (MENUWRESHAPEFN 114270 . 117241)) (117244 123236 (GETPROMPTWINDOW 117254 . 119306) (
|
||||
\PROMPTWINDOW.EXPAND 119308 . 119885) (\PROMPTWINDOW.SET.HEIGHT 119887 . 120815) (\PROMPTWINDOW.OPENFN
|
||||
120817 . 121792) (\PROMPTWINDOW.PAGEFULLFN 121794 . 122223) (REATTACHPROMPTWINDOW 122225 . 122666) (
|
||||
REMOVEPROMPTWINDOW 122668 . 123234)))))
|
||||
(FILEMAP (NIL (2125 10498 (ATTACHWINDOW 2135 . 4706) (ATTACHEDWINDOWS 4708 . 5644) (ALLATTACHEDWINDOWS
|
||||
5646 . 6071) (DETACHWINDOW 6073 . 6973) (DETACHALLWINDOWS 6975 . 7292) (FREEATTACHEDWINDOW 7294 .
|
||||
8931) (MAINWINDOW 8933 . 9613) (REMOVEWINDOW 9615 . 9917) (REPOSITIONATTACHEDWINDOWS 9919 . 10496)) (
|
||||
10499 104246 (ATTACHEDWINDOWREGION 10509 . 11177) (ATTACHEDWINDOWTOTOPFN 11179 . 11656) (
|
||||
CENTERINHEIGHT 11658 . 12128) (CENTERINWIDTH 12130 . 12580) (CENTRALWINDOW 12582 . 13012) (
|
||||
CLOSEATTACHEDWINDOWS 13014 . 13590) (DOATTACHEDWINDOWCOM 13592 . 16036) (DOATTACHEDWINDOWCOM2 16038 .
|
||||
16326) (DOMAINWINDOWCOMFN 16328 . 16882) (EXPANDATTACHEDWINDOWS 16884 . 17950) (MAKEMAINWINDOW 17952
|
||||
. 19667) (MAXATTACHEDWINDOWEXTENT 19669 . 24278) (MAXIMUMMAINWINDOWSIZE 24280 . 24965) (
|
||||
MAXIMUMWINDOWSIZE 24967 . 25716) (MINATTACHEDWINDOWEXTENT 25718 . 30045) (MINIMUMMAINWINDOWSIZE 30047
|
||||
. 30833) (MOVEATTACHEDWINDOWS 30835 . 31487) (MOVEATTACHEDWINDOWTOPLACE 31489 . 40590) (
|
||||
OPENATTACHEDWINDOWS 40592 . 41545) (RESHAPEALLWINDOWS 41547 . 51278) (\TOTALPROPOSEDSIZE 51280 . 52793
|
||||
) (SHRINKATTACHEDWINDOWS 52795 . 53754) (TOPATTACHEDWINDOWS 53756 . 54269) (UNMAKEMAINWINDOW 54271 .
|
||||
55043) (UPIQUOTIENT 55045 . 55354) (WINDOWPOSITION 55356 . 55698) (WINDOWSIZE 55700 . 56245) (
|
||||
\ALLOCMINIMUMSIZES 56247 . 66765) (\ALLOCSPACETOGROUPEDWINDOWS 66767 . 67342) (\TOTALFIXEDHEIGHT 67344
|
||||
. 68102) (\TOTALFIXEDWIDTH 68104 . 68994) (\ALLOCHEIGHTTOGROUPEDWINDOW 68996 . 74549) (
|
||||
\ALLOCWIDTHTOGROUPEDWINDOW 74551 . 79846) (\ATWGROUPSIZE 79848 . 80963) (\BREAKAPARTATWSTRUCTURE 80965
|
||||
. 81469) (\BUILDATWSTRUCTURE 81471 . 86092) (\LIMITBYMAX 86094 . 86257) (\LIMITBYMIN 86259 . 86519) (
|
||||
\MAXHEIGHTOFGROUP 86521 . 87565) (\MAXWIDTHOFGROUP 87567 . 88609) (\RESHAPEATTACHEDWINDOWSAROUNDMAINW
|
||||
88611 . 96609) (\SETGROUPMIN 96611 . 101350) (\SETWINFOXSIZE 101352 . 102196) (\SETWINFOYSIZE 102198
|
||||
. 103206) (\SHAREOFXTRAX 103208 . 103689) (\SHAREOFXTRAY 103691 . 104244)) (104247 117468 (ATTACHMENU
|
||||
104257 . 104965) (CREATEMENUEDWINDOW 104967 . 110124) (MENUWINDOW 110126 . 112528) (MENUWMINSIZEFN
|
||||
112530 . 114493) (MENUWRESHAPEFN 114495 . 117466)) (117469 123461 (GETPROMPTWINDOW 117479 . 119531) (
|
||||
\PROMPTWINDOW.EXPAND 119533 . 120110) (\PROMPTWINDOW.SET.HEIGHT 120112 . 121040) (\PROMPTWINDOW.OPENFN
|
||||
121042 . 122017) (\PROMPTWINDOW.PAGEFULLFN 122019 . 122448) (REATTACHPROMPTWINDOW 122450 . 122891) (
|
||||
REMOVEPROMPTWINDOW 122893 . 123459)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user