(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) (FILECREATED "15-May-2026 22:31:17" ("compiled on " {MEDLEY}tmax>TMAX.;47) "15-May-2026 14:49:15" brecompiled exprs%: NGROUPMENU.ENABLED? in "FULL 15-May-2026 ..." dated "15-May-2026 14:49:24") (FILECREATED "15-May-2026 22:31:17" {MEDLEY}tmax>TMAX.;47 28263 :EDIT-BY rmk :CHANGES-TO ( FNS NGROUPMENU.ENABLED?) :PREVIOUS-DATE "12-Aug-2025 08:27:53" {MEDLEY}tmax>TMAX.;46) EDIT-TMAXA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 F I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 TMAXFILES) =gd gg QcRdH H h(52 LOADCOMP 45 LOADFROM 26 SETTOPVAL 10 GETTOPVAL) (21 YES 16 LOADDBFLG 4 LOADDBFLG) () EDIT-TMAX :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) 3o S!g $o (48 %. 33 SI::RESETUNWIND 28 \MVLIST 23 EDIT-TMAXA0001 9 BKSYSBUF) (18 SI::RESETUNWIND) ( 43 (ANALYZE ON IN TMAXFILES) 4 " ") TSP.DISPLAY.FMMENU :D8 (P 0 IMAGEOBJ.MENUW I 0 TSTREAM) B@ H 0H@ H@ gg Hgo h(61 PUTWINDOWPROP 45 ATTACHWINDOW 30 \TEDIT.PRIMARYPANE 23 TSP.SETUP.FILENAMES 14 OPENWP 5 TSP.FMMENU) (51 PASSTOMAINCOMS 40 JUSTIFY 35 TOP) ( 56 (MOVEW SHAPEW SHRINKW BURYW)) TSP.SETUP.FILENAMES :D8 (P 4 FM.ITEM P 3 EXTENSION P 1 FILE.BASE P 0 FILE.NAME I 1 TSTREAM I 0 OBJMENUW) Ag HFgHg gHg gHg Yo!Jh[o h@ \LoL  jLIoK @ JZ(164 FM.CHANGESTATE 158 CONCAT 141 NCHARS 129 ERROR 109 FM.GETITEM 102 MKATOM 97 CONCAT 70 PACKFILENAME 64 FILENAMEFIELD 48 FILENAMEFIELD 32 FILENAMEFIELD 10 GETTEXTPROP) (134 FREEMENUITEM 115 FREEMENUITEM 59 NAME 53 NAME 43 DIRECTORY 37 DIRECTORY 27 HOST 21 HOST 5 FILENAME) ( 152 "." 123 "Arg must be FreeMenuItem" 92 ".FILE" 76 (TOC INDEX)) TSP.SETUP.FMMENU :D8 (I 0 TSTREAM) @g @ (18 TSP.FMMENU 10 STREAMPROP) (5 MAGEOBJ.MENUW) () TSP.FMMENU :D8 (P 0 IMAGEOBJ.MENUW I 0 TSTREAM F 1 TSP.FM.DESC) @g u@g @gld @g @gld Qo Xdgg @gH H(129 STREAMPROP 117 WINDOWADDPROP 100 FREEMENU 88 STREAMPROP 83 HASHARRAY 68 HASHARRAYP 63 STREAMPROP 51 STREAMPROP 46 HASHARRAY 31 HASHARRAYP 26 STREAMPROP 13 STREAMPROP) (123 IMAGEOBJ.MENUW 112 FREEATTACHEDWINDOW 107 CLOSEFN 76 TSP.CODE.ARRAY 58 TSP.CODE.ARRAY 39 TSP.NGROUP.ARRAY 21 TSP.NGROUP.ARRAY 8 IMAGEOBJ.MENUW) ( 95 "TMAX (Tedit Macros And eXtensions)") TSP.FM.APPLY :D8 (P 1 TSTREAM P 0 LABEL I 2 BUTTON I 1 FMWINDOW I 0 ITEM F 2 IMAGEOBJ.MENU.ITEMS) 5@@o@ A HR (50 EVAL 37 TEXTSTREAM 32 MAINWINDOW 19 ERROR) (24 FREEMENUITEM 5 FREEMENUITEM) ( 13 "Arg must be FreeMenuItem") UPDATE.ALL :D8 (I 0 TSTREAM) ,@g @ @ghg @ (41 INSERT.ENDNOTES 33 TSP.LIST.OF.OBJECTS 16 UPDATE.XREFS 10 UPDATE.NUMBEROBJS) (28 FIRST 22 REGMARKOBJP 5 NUMBEROBJP) () DOWNDATE.ALL :D8 (I 1 WINDOW I 0 TSTREAM) .@g @i @ghg @A (43 INSERT.ENDNOTES 34 TSP.LIST.OF.OBJECTS 17 UPDATE.XREFS 10 DOWNDATE.NUMBEROBJS) (29 FIRST 23 REGMARKOBJP 5 NUMBEROBJP) () TSP.FUNCTION.HOOKS :D8 (P 0 FUNCTION.HOOK F 1 TEDIT.DEFAULT.PROPS) Qg'XNHgE` joHo jhi` ` `l QgghcQg'XNHgE` joHo jhi` ` `l Qgghcgg gg v(249 LISTPUT 233 LISTPUT 197 FLASHWINDOW 184 TERPRI 173 FLUSHRIGHT 159 CONCAT 141 TERPRI 87 FLASHWINDOW 74 TERPRI 63 FLUSHRIGHT 49 CONCAT 31 TERPRI) (244 TSP.GETFN 239 GETFN 228 TSP.PUTFN 223 PUTFN 212 TSP.PUTFN 207 PUTFN 190 PROMPTWINDOW 179 PROMPTWINDOW 167 PROMPTWINDOW 136 PROMPTWINDOW 128 TSP.PUTFN 118 PUTFN 106 TSP.GETFN 101 GETFN 80 PROMPTWINDOW 69 PROMPTWINDOW 57 PROMPTWINDOW 26 PROMPTWINDOW 18 TSP.GETFN 8 GETFN) ( 154 " replaced by TMAX PUTFN hook." 148 "TEdit PUTFN hook " 44 " replaced by TMAX GETFN hook." 38 "TEdit GETFN hook ") TSP.GETFN :D8 (I 2 FLAVOR I 1 FILENAME I 0 TSTREAM) ;Bg2@g @g @g (56 CLRHASH 51 GETWINDOWUSERPROP 40 CLRHASH 35 GETWINDOWUSERPROP 24 CLRHASH 19 STREAMPROP) (46 TSP.NGROUP.ARRAY 30 TSP.INDEX.ARRAY 14 TSP.CODE.ARRAY 5 BEFORE) () TSP.PUTFN :D8 (P 0 WINDOW I 2 FLAVOR I 1 FILENAME I 0 TSTREAM) ,@ Bg@gi Hgh (41 STREAMPROP 28 STREAMPROP 5 \TEDIT.MAINW) (35 DUMPNGROUPGRAPH 22 DUMPNGROUPGRAPH 14 BEFORE) () AutoUpdate.TOGGLE :D8 (I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@@o@  (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW) (40 FREEMENUITEM 21 FREEMENUITEM 15 AUTOUPDATE) ( 29 "Arg must be FreeMenuItem") UPDATE? :D8 (I 0 TSTREAM) @g i(10 STREAMPROP) (5 AUTOUPDATE) () NGROUP.Menu.TOGGLE :D8 (P 1 TOGGLE.STATE P 0 TSTREAM I 2 BUTTON I 1 FMWINDOW I 0 ITEM) :A @@o@ IH H (55 CLOSE.NGROUP.GRAPH 48 GRAPHMENU 30 ERROR 10 TEXTSTREAM 5 MAINWINDOW) (35 FREEMENUITEM 16 FREEMENUITEM) ( 24 "Arg must be FreeMenuItem") NGROUPMENU.ENABLED? :D8 (I 0 TSTREAM) Ogh@ gh@ ogh@ (69 ERROR 64 FM.GETITEM 59 TSP.SETUP.FMMENU 40 FM.GETITEM 35 TSP.SETUP.FMMENU 16 FM.GETITEM 11 TSP.SETUP.FMMENU) (74 FREEMENUITEM 52 NGROUP.MENU 28 NGROUP.MENU 21 FREEMENUITEM 4 NGROUP.MENU) ( 47 "Arg must be FreeMenuItem") NGROUP.Text-Before.TOGGLE :D8 (I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@@o@  (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW) (40 FREEMENUITEM 21 FREEMENUITEM 15 NGROUPTEXTBEFORE) ( 29 "Arg must be FreeMenuItem") TEXTBEFORE.ENABLED? :D8 (I 0 TSTREAM) @g (10 STREAMPROP) (5 NGROUPTEXTBEFORE) () NGROUP.Text-After.TOGGLE :D8 (I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@@o@  (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW) (40 FREEMENUITEM 21 FREEMENUITEM 15 NGROUPTEXTAFTER) ( 29 "Arg must be FreeMenuItem") TEXTAFTER.ENABLED? :D8 (I 0 TSTREAM) @g (10 STREAMPROP) (5 NGROUPTEXTAFTER) () Manual.Index.TOGGLE :D8 (I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@@o@  (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW) (40 FREEMENUITEM 21 FREEMENUITEM 15 MANUALINDEX) ( 29 "Arg must be FreeMenuItem") MANUALINDEX.ENABLED? :D8 (I 0 TSTREAM) @g (10 STREAMPROP) (5 MANUALINDEX) () GET.TSP.FONT :D8 (P 3 NEWENTRY.FONT P 2 FACE P 1 SIZE P 0 FAMILY I 1 FONT.FIELD I 0 DEFAULT.FONT) Ah@ AJ@ A,@ HIJhdi [HIKg hg@g g@g g@g (123 FONTPROP 102 FONTPROP 81 FONTPROP 57 FONTPROP 41 FONTCREATE 26 GET.TSP.FONT.FACE 17 GET.TSP.FONT.SIZE 8 GET.TSP.FONT.FAMILY) (118 FAMILY 109 FAMILY 97 SIZE 88 SIZE 76 FACE 67 FACE 52 FACE) () GET.TSP.FONT.FAMILY :D8 (I 0 DEFAULT.FONT) b`dodi dodg dgjdndhHdI  @g (95 U-CASE 90 FONTPROP 77 MKATOM 72 MENU) (85 FAMILY 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|) ( 25 (Classic Gacha Terminal Helvetica Modern TimesRoman) 11 "Font Family") GET.TSP.FONT.SIZE :D8 (I 0 DEFAULT.FONT) c`dodi dldodg dgjdndhHdI  @g (96 FONTPROP 83 MKATOM 78 MENU) (91 SIZE 49 DEFAULTMENUHELDFN 40 CLRPROMPT 4 |MENUTYPE#|) ( 31 (6 8 10 12 14 18 24 36) 11 "Font Size") GET.TSP.FONT.FACE :D8 (I 0 DEFAULT.FONT) ]`dodi dodg dgjdndhHdI  @g (90 FONTPROP 77 MKATOM 72 MENU) (85 FACE 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|) ( 25 ((Standard (QUOTE MRR) "(MEDIUM REGULAR REGULAR)") (Italic (QUOTE MIR) "(MEDIUM ITALIC REGULAR)") (Bold (QUOTE BRR) "(BOLD REGULAR REGULAR)") (BoldItalic (QUOTE BIR) "(BOLD ITALIC REGULAR)")) 11 "Font Face") ABBREVIATE.FONT :D8 (P 2 FONT.FACE P 0 FONT.LIST I 0 FONT) @ @g @!HHYdggMgg?Idgg.gg IdggggIHHXHZoo/JJg ghJJg gh (188 \APPEND2 17 FONTPROP 5 FONTP) (181 Italic 173 ITALIC 161 Bold 153 BOLD 117 TimesRoman 110 TIMESROMAN 104 Modern 96 MODERN 87 Helvetica 80 HELVETICA 73 Gacha 65 GACHA 56 Terminal 49 TERMINAL 42 Classic 34 CLASSIC 12 SPEC) ( 141 (Standard) 134 (MEDIUM REGULAR REGULAR)) TMAX.SHADEOBJ :D8 (P 0 BOUNDBOX I 2 SHADE I 1 STREAM I 0 OBJ) DAg 7@g B`AhA hA HHH (65 BLTSHADE 49 DSPYPOSITION 42 DSPXPOSITION 23 IMAGEOBJPROP 10 IMAGESTREAMTYPEP) (34 GP.DefaultShade 18 BOUNDBOX 5 DISPLAY) () TSP.LIST.OF.OBJECTSA0001 :D8 (I 2 FNARG I 1 OBJ I 0 CH# F 0 TESTFN) A@BlPNIL NIL () TSP.LIST.OF.OBJECTS :D8 (I 3 COLLECT I 2 TESTFNARG I 1 TESTFN I 0 TSTREAM) A@gBCg (22 TEDIT.MAP.OBJECTS) (17 OBJECT 8 TSP.LIST.OF.OBJECTSA0001) () (PRETTYCOMPRINT TMAXCOMS) (RPAQQ TMAXCOMS ((* ; "Developed under support from NIH grant RR-00785.") (* ; "Written by Frank Gilmurray and Sami Shaio.") (FILES (COMPILED SYSLOAD) TEDIT FREEMENU GRAPHER) (FILES * TMAXFILES) (FNS EDIT-TMAX) (DECLARE%: DONTCOPY (P (DOFILESLOAD (LIST* (QUOTE (SOURCE)) TMAXFILES))) (DECLARE%: EVAL@COMPILE (FILES TEDIT-EXPORTS.ALL))) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS TMAXPROP TMAXADDPROP)) (* ;;; "Free Menu data structures") (VARS TSP.FM.DESC IMAGEOBJ.MENU.ITEMS) (* ;;; "Free Menu functions") (FNS TSP.DISPLAY.FMMENU TSP.SETUP.FILENAMES TSP.SETUP.FMMENU TSP.FMMENU TSP.FM.APPLY UPDATE.ALL DOWNDATE.ALL TSP.FUNCTION.HOOKS TSP.GETFN TSP.PUTFN) (* ;;; "Free Menu toggle functions") (FNS AutoUpdate.TOGGLE UPDATE? NGROUP.Menu.TOGGLE NGROUPMENU.ENABLED? NGROUP.Text-Before.TOGGLE TEXTBEFORE.ENABLED? NGROUP.Text-After.TOGGLE TEXTAFTER.ENABLED? Manual.Index.TOGGLE MANUALINDEX.ENABLED?) (* ;;; "TSP font stuff") (FNS GET.TSP.FONT GET.TSP.FONT.FAMILY GET.TSP.FONT.SIZE GET.TSP.FONT.FACE ABBREVIATE.FONT TMAX.SHADEOBJ) (* ;;; "Collect ImageObjects") (FNS TSP.LIST.OF.OBJECTS) (GLOBALVARS GP.DefaultFont GP.DefaultShade) (VARS ( GP.DefaultFont (FONTCREATE (QUOTE TERMINAL) 10)) (GP.DefaultShade 1024)) (P (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (TMAX% Menu (FUNCTION TSP.DISPLAY.FMMENU) NIL (SUBITEMS (Update (FUNCTION UPDATE.ALL) "Updates all cross-references") (NGroup% Menu (FUNCTION GRAPHMENU) "Displays number-group menu"))))) (TSP.FUNCTION.HOOKS)))) (FILESLOAD (COMPILED SYSLOAD) TEDIT FREEMENU GRAPHER) (RPAQQ TMAXFILES (TMAX-DATE TMAX-ENDNOTE TMAX-INDEX TMAX-NUMBER TMAX-NGRAPH TMAX-NGROUP TMAX-XREF)) (FILESLOAD TMAX-DATE TMAX-ENDNOTE TMAX-INDEX TMAX-NUMBER TMAX-NGRAPH TMAX-NGROUP TMAX-XREF) (RPAQQ TSP.FM.DESC ((PROPS FORMAT TABLE TYPE MOMENTARY FONT (HELVETICA 10 BRR)) ((LABEL "Miscellany:" TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Update" ID UPDATE SELECTEDFN TSP.FM.APPLY) (LABEL "Undo Update" ID UNDOUPDATE SELECTEDFN TSP.FM.APPLY) (LABEL "Set AutoUpdate" TYPE TOGGLE SELECTEDFN AutoUpdate.TOGGLE FONT (TERMINAL 10 BIR)) (LABEL "Date/Time" ID DATE/TIME SELECTEDFN TSP.FM.APPLY)) (( LABEL "References:" TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Reference" ID REFERENCE SELECTEDFN TSP.FM.APPLY) (LABEL "Known References" ID KNOWNREF SELECTEDFN TSP.FM.APPLY) (LABEL "Reference By" TYPE STATE MENUITEMS (Ask Value Page) INITSTATE Value LINKS (DISPLAY DEFAULTREF)) (LABEL "" TYPE DISPLAY ID DEFAULTREF FONT (TERMINAL 10 MRR))) ((LABEL "Endnotes:" TYPE DISPLAY FONT (TERMINAL 10 MRR) ) (LABEL "Endnote" ID ENDNOTE SELECTEDFN TSP.FM.APPLY) (LABEL "Insert Endnotes" ID INSERTNOTE SELECTEDFN TSP.FM.APPLY) (LABEL "Delete Endnotes" ID DELETENOTE SELECTEDFN TSP.FM.APPLY) (LABEL "Set Style" ID SETSTYLE SELECTEDFN TSP.FM.APPLY)) ((LABEL "Numbering:" TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "NGroup Menu" TYPE TOGGLE ID NGROUP.MENU SELECTEDFN NGROUP.Menu.TOGGLE FONT (TERMINAL 10 BIR)) (LABEL "New Ngroup" ID NEWNGROUP SELECTEDFN TSP.FM.APPLY) (LABEL "Text Before" TYPE TOGGLE SELECTEDFN NGROUP.Text-Before.TOGGLE FONT (TERMINAL 10 BIR)) (LABEL "Text After" TYPE TOGGLE SELECTEDFN NGROUP.Text-After.TOGGLE FONT (TERMINAL 10 BIR))) ((LABEL "Contents File:" TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Create TOC" ID CREATETOC SELECTEDFN TSP.FM.APPLY) (LABEL "View TOC" ID VIEWTOC SELECTEDFN TSP.FM.APPLY) (LABEL "TOC Filename:" TYPE EDITSTART LINKS (EDIT TOC.FILE)) (LABEL "" TYPE EDIT ID TOC.FILE FONT (TERMINAL 10 MRR))) ((LABEL "Indices:" TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Index" ID INDEX SELECTEDFN TSP.FM.APPLY) (LABEL "Extended Index" ID XTNDINDEX SELECTEDFN TSP.FM.APPLY) (LABEL "Known Indices" ID KNOWNINDEX SELECTEDFN TSP.FM.APPLY) (LABEL "Manual Index" TYPE TOGGLE SELECTEDFN Manual.Index.TOGGLE FONT (TERMINAL 10 BIR))) ((LABEL "Indices File:" TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Create Index" ID CREATEINDEX SELECTEDFN TSP.FM.APPLY) (LABEL "View Index" ID VIEWINDEX SELECTEDFN TSP.FM.APPLY) (LABEL "Index Filename:" TYPE EDITSTART LINKS (EDIT INDEX.FILE)) (LABEL "" TYPE EDIT ID INDEX.FILE FONT (TERMINAL 10 MRR))))) (RPAQQ IMAGEOBJ.MENU.ITEMS ((UPDATE (UPDATE.ALL TSTREAM)) (UNDOUPDATE (DOWNDATE.ALL TSTREAM)) ( DATE/TIME (TEDIT.INSERT.OBJECT (DATEOBJ) TSTREAM)) (REFERENCE (INSERT.REF TSTREAM)) (KNOWNREF ( INSERT.REF TSTREAM T)) (ENDNOTE (ADD.ENDNOTE TSTREAM)) (INSERTNOTE (INSERT.ENDNOTES TSTREAM)) ( DELETENOTE (DELETE.ENDNOTES TSTREAM)) (SETSTYLE (SET.ENDNOTE.STYLE TSTREAM)) (NEWNGROUP (AND ( ADD.NUMBER.GROUP TSTREAM) (GRAPHMENU TSTREAM))) (CREATETOC (CREATE.TOC.FILE TSTREAM)) (VIEWTOC ( VIEW.TOC.FILE TSTREAM)) (INDEX (INSERT.INDEX TSTREAM)) (XTNDINDEX (INSERT.INDEXENTRY TSTREAM)) ( KNOWNINDEX (INSERT.KNOWN.INDEX TSTREAM)) (CREATEINDEX (CREATE.INDEX.FILE TSTREAM)) (VIEWINDEX ( VIEW.INDEX.FILE TSTREAM)))) (RPAQ GP.DefaultFont (FONTCREATE (QUOTE TERMINAL) 10)) (RPAQQ GP.DefaultShade 1024) (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (TMAX% Menu (FUNCTION TSP.DISPLAY.FMMENU) NIL (SUBITEMS (Update (FUNCTION UPDATE.ALL) "Updates all cross-references") (NGroup% Menu (FUNCTION GRAPHMENU) "Displays number-group menu"))))) (TSP.FUNCTION.HOOKS) NIL