From 89a8fe183d21f9a7be8d1713b64bd9647250d475 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 25 Nov 2021 08:22:31 -0800 Subject: [PATCH] DINFO: Menu has MIN/MAX sizes for scrolling --- lispusers/DINFO | 76 ++++++++++++++++++++++++------------------- lispusers/DINFO.LCOM | Bin 30047 -> 30187 bytes 2 files changed, 42 insertions(+), 34 deletions(-) diff --git a/lispusers/DINFO b/lispusers/DINFO index dfca182f..188fa0fe 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 fb87677cb12bce45ed1991af8c6c1cc3d6292470..675b1c886533c47c7907eaf124e418c86d1e13df 100644 GIT binary patch delta 1384 zcmZvcTTEMZ7{EDafN*3H;ux|C{OvY(ifcKSo>I=ZSk{)F0;i>ybxzbmd&UaA(aRjk z49+;_?Lqt}MvZX~GcmfvXikVvX8MRrOn5g+^=UHWlRju>{JsJU&h_E~%-I9%7LNTQFI+NrEI2NmRuFRgo=(wngO^y)E^hF-qd#01$pmECT)kkm}sIGK7-4_UHU@4J(v?70(6;ZPm) zIc7925zeVdqD+$KXL55!iInp&2k+A(4;aQu3Ps~WI$tT(nnR#Pbl7~x?9Q{2RZ&!B zxF9~8kq*(y)h^@~1VKbdMD@5hT1_6NFR)1lwJvj$?c2w2W@}>;v*U3-^Z^T=jpkQT zoNhS=2j->yZ?G)KQ~l_m>1i!u%2$tG*i9L4e+PqpJjkHf?0Btyr`F2jtF<)J*h$wc zLuS6mvzxO)))}k_N9LO4DkcsceFX|%|K>O}rr%oEfp7LEfOmTTf#a>G+A!+w2`9Us z<3mIyey=v>j}of%^*-VtxG-N(k6H;+si(QVE+%Te)z`x;H`l>$y^&>Erj6Mbm_sxD zFmhX;A3wCm%KcThYq!?%vU7lhV$ry!dxG&$I0$VO`F@Z5zZlU)rZqhh3wz^QJ*LuI zg1?L7Wo3X&y3a(kvtA-Q6fy}xHC>j?$HY0j-^-E&f|~Lrpy0UNz!9-upeK|k=?{)^ z@bO9>_@1%>oOgZ-Jkb9U(Cl9Us;<+(RaZNd`ox7RGP~7gTqQrKqj+)n-P(g+brZAi zX+H*Bbiah+&(Syr=-%IOe}jQrU^I>UaM?kf!=tmIHJq(A{5P;A@@ymSK_K*Iw9{OP za9CtDTHDg~*dJ)UA3uQN^D`@0MVbB*#LgS|1U-@%*<)QxoNB18l~&n<=H0|E*sz+s ziXwfk2g|%Zr=Ylb{&^6zd;T2o%KS9&=lLYiw~zwfSU^ux20fX~4DkC5M*bdXr-AGM zXkRxSrq{9>Xt%R5;N_-6^qE`$w2yOxz-kWT{rOqojXb`AEd>EMROkf83kI-zv7g!& zc^3X{-HRB$T7%Q6vw+x()1$(36MmT29H(^wS)YzyI#jx8H_)68z=FuobciI zpLy@UZ)Ton?%d(N`H?$+BuqS7dP+^^)OcP^QCmaOU$Uz8 za-~$HR*mwMu;W~8UG~Co%ondWz#j}!A)*8YMG|@1DE;FnrBn4rb6BA@tF=d- z$drne(rGIBWvaC+6>6StTJ0A7_u_uPpQpuz7A*PSO~H;tMUr?g|G!(8*fB0KEK?E= zMPPqRD+{&dQj@kU*p6o=o-=7Gt!qZo$e8RC&b?mn-fQUm;Nce_ z$gG2I+w4D&`R@lfl(?@~{^XQls+#UJ*OtbxJN8v& zFShLMsO}=flcfSR3klswsjN5Qv!k)+IXu`d?&56t z=p!h~vm03D`rKO}&PBL3A9F_Q5VjWn#Qy_t#kt~1T<7iyH-6T?BBM-}kAtwQCr<$T zR_B1V)g|EPt3}{w1tS+LOYDNu&w8pEm_1iT@AawI$&^`=?aNFH|-@wkK`#Xgoq}onuvz_iDdU}fd1wW!m7ytkO