Make sure the Ngroups menu is initialized

lispusers/tmax/TMAX

@@ -1,14 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "12-Aug-2025 08:27:53" 
+
(FILECREATED "15-May-2026 22:31:17" {MEDLEY}<lispusers>tmax>TMAX.;47
 28263  
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>tmax>TMAX.;46
 28244  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS TMAXCOMS TSP.FM.DESC)
+      :CHANGES-TO (FNS NGROUPMENU.ENABLED?)
 
-      :PREVIOUS-DATE "30-Mar-2025 21:51:58" 
+      :PREVIOUS-DATE "12-Aug-2025 08:27:53" {MEDLEY}<lispusers>tmax>TMAX.;46)
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TMAX>TMAX.;44)
 
 
 (PRETTYCOMPRINT TMAXCOMS)
@@ -377,9 +375,10 @@
             (T (CLOSE.NGROUP.GRAPH TSTREAM])
 
 (NGROUPMENU.ENABLED?

-  [LAMBDA (TSTREAM)
                                          (* ; "Edited 21-Feb-2025 10:17 by rmk")


+  [LAMBDA (TSTREAM)
                                          (* ; "Edited 15-May-2026 22:29 by rmk")


+                                                             (* ; "Edited 21-Feb-2025 10:17 by rmk")


                                                              (* ; "Edited 29-Sep-87 11:42 by fsg")

-    (FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))
+    (FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TSP.SETUP.FMMENU
 TSTREAM))
            'STATE])
 
 (NGROUP.Text-Before.TOGGLE

@@ -577,15 +576,15 @@
 
 (TSP.FUNCTION.HOOKS
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3307 4191 (EDIT-TMAX 3317 . 4189)) (8202 16445 (TSP.DISPLAY.FMMENU 8212 . 8886) (
+  (FILEMAP (NIL (3221 4105 (EDIT-TMAX 3231 . 4103)) (8116 16359 (TSP.DISPLAY.FMMENU 8126 . 8800) (
-TSP.SETUP.FILENAMES 8888 . 10219) (TSP.SETUP.FMMENU 10221 . 10772) (TSP.FMMENU 10774 . 11878) (
+TSP.SETUP.FILENAMES 8802 . 10133) (TSP.SETUP.FMMENU 10135 . 10686) (TSP.FMMENU 10688 . 11792) (
-TSP.FM.APPLY 11880 . 12468) (UPDATE.ALL 12470 . 13346) (DOWNDATE.ALL 13348 . 13975) (
+TSP.FM.APPLY 11794 . 12382) (UPDATE.ALL 12384 . 13260) (DOWNDATE.ALL 13262 . 13889) (
-TSP.FUNCTION.HOOKS 13977 . 15407) (TSP.GETFN 15409 . 15984) (TSP.PUTFN 15986 . 16443)) (16491 20425 (
+TSP.FUNCTION.HOOKS 13891 . 15321) (TSP.GETFN 15323 . 15898) (TSP.PUTFN 15900 . 16357)) (16405 20444 (
-AutoUpdate.TOGGLE 16501 . 16958) (UPDATE? 16960 . 17325) (NGROUP.Menu.TOGGLE 17327 . 17872) (
+AutoUpdate.TOGGLE 16415 . 16872) (UPDATE? 16874 . 17239) (NGROUP.Menu.TOGGLE 17241 . 17786) (
-NGROUPMENU.ENABLED? 17874 . 18216) (NGROUP.Text-Before.TOGGLE 18218 . 18689) (TEXTBEFORE.ENABLED? 
+NGROUPMENU.ENABLED? 17788 . 18235) (NGROUP.Text-Before.TOGGLE 18237 . 18708) (TEXTBEFORE.ENABLED? 
-18691 . 18958) (NGROUP.Text-After.TOGGLE 18960 . 19429) (TEXTAFTER.ENABLED? 19431 . 19696) (
+18710 . 18977) (NGROUP.Text-After.TOGGLE 18979 . 19448) (TEXTAFTER.ENABLED? 19450 . 19715) (
-Manual.Index.TOGGLE 19698 . 20158) (MANUALINDEX.ENABLED? 20160 . 20423)) (20459 26121 (GET.TSP.FONT 
+Manual.Index.TOGGLE 19717 . 20177) (MANUALINDEX.ENABLED? 20179 . 20442)) (20478 26140 (GET.TSP.FONT 
-20469 . 21743) (GET.TSP.FONT.FAMILY 21745 . 22365) (GET.TSP.FONT.SIZE 22367 . 22855) (
+20488 . 21762) (GET.TSP.FONT.FAMILY 21764 . 22384) (GET.TSP.FONT.SIZE 22386 . 22874) (
-GET.TSP.FONT.FACE 22857 . 23749) (ABBREVIATE.FONT 23751 . 25365) (TMAX.SHADEOBJ 25367 . 26119)) (26161
+GET.TSP.FONT.FACE 22876 . 23768) (ABBREVIATE.FONT 23770 . 25384) (TMAX.SHADEOBJ 25386 . 26138)) (26180
- 27529 (TSP.LIST.OF.OBJECTS 26171 . 27527)))))
+ 27548 (TSP.LIST.OF.OBJECTS 26190 . 27546)))))
 STOP

lispusers/tmax/TMAX-NGRAPH

@@ -1,15 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)
 
-
(FILECREATED "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14|
 27479  
+
(FILECREATED "12-Apr-2026 23:42:38" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;15|
 27461  
 
       :EDIT-BY |rmk|
 
-      :CHANGES-TO (FNS NGROUP.CHARTYPE.CONVERT UPDATE.NUMBEROBJS DOWNDATE.NUMBEROBJS NGROUP.CHARTYPE
+      :CHANGES-TO (FNS TSP.GET.NGROUP.ARRAY)
-                       INITIAL.NGROUP.GRAPH RESET.DEPENDENT.CLASSES GET.NCOUNTER GRAPHMENU 
-                       CREATE.NGROUP.NODE FLATTEN.TREE.TO.STRING)
-                  (VARS TMAX-NGRAPHCOMS)
 
-      :PREVIOUS-DATE "23-Feb-2025 22:59:05" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;11|)
+      :PREVIOUS-DATE "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14|)
 
 
 (PRETTYCOMPRINT TMAX-NGRAPHCOMS)
@@ -197,9 +194,13 @@
     (CADR (GETHASH NGID (TSP.GET.NGROUP.ARRAY
 TSTREAM)))))
 
 (TSP.GET.NGROUP.ARRAY

-  (LAMBDA (TSTREAM)
                                         (* \; "Edited 21-Feb-2025 10:17 by rmk")

+  (LAMBDA (TSTREAM)
                                         (* \; "Edited 12-Apr-2026 23:40 by rmk")


+                                                            (* \; "Edited 21-Feb-2025 10:17 by rmk")

                                                              (* |ss:| "27-Jun-87 16:21")

-    (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)))
+    (OR (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)
+        (LET ((ARRAY (HASHARRAY 30)))
+             (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY (HASHARRAY 30))
+             ARRAY))))
 
 (tsp.legalid

   (lambda (prev.ngroups stream)
                              (* |fsg| " 3-Aug-87 17:04")

@@ -485,15 +486,15 @@
        |finally|
 (TMAXPROP TSTREAM 'COUNTERS NIL))))
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (1692 12881 (GRAPHMENU 1702 . 2983) (INITIAL.NGROUP.GRAPH 2985 . 3763) (
+  (FILEMAP (NIL (1437 12863 (GRAPHMENU 1447 . 2728) (INITIAL.NGROUP.GRAPH 2730 . 3508) (
-NGROUP.MAKE.ROOTNODE 3765 . 3986) (TSPGRAPHREGION 3988 . 4639) (CLOSE.NGROUP.GRAPH 4641 . 5245) (
+NGROUP.MAKE.ROOTNODE 3510 . 3731) (TSPGRAPHREGION 3733 . 4384) (CLOSE.NGROUP.GRAPH 4386 . 4990) (
-NGROUP.GRAPH.CLOSEFN 5247 . 5904) (ADD.NGROUP.TO.MOTHER.NODE 5906 . 6411) (ADD.NODE.TO.GRAPH 6413 . 
+NGROUP.GRAPH.CLOSEFN 4992 . 5649) (ADD.NGROUP.TO.MOTHER.NODE 5651 . 6156) (ADD.NODE.TO.GRAPH 6158 . 
-7624) (COLLECT.HASHARRAY 7626 . 7912) (CREATE.NGROUP.NODE 7914 . 8749) (GET.FROMNODES 8751 . 9057) (
+7369) (COLLECT.HASHARRAY 7371 . 7657) (CREATE.NGROUP.NODE 7659 . 8494) (GET.FROMNODES 8496 . 8802) (
-GET.TONODES 9059 . 9646) (FIND.NODE 9648 . 9927) (TSP.GET.NGROUP.ARRAY 9929 . 10199) (TSP.LEGALID 
+GET.TONODES 8804 . 9391) (FIND.NODE 9393 . 9672) (TSP.GET.NGROUP.ARRAY 9674 . 10181) (TSP.LEGALID 
-10201 . 11362) (LIST.ANCESTORS 11364 . 11893) (TOPLEVEL.SISTERS 11895 . 12333) (GET.NGROUP.MOTHER 
+10183 . 11344) (LIST.ANCESTORS 11346 . 11875) (TOPLEVEL.SISTERS 11877 . 12315) (GET.NGROUP.MOTHER 
-12335 . 12879)) (12928 27456 (DOWNDATE.NUMBEROBJS 12938 . 14887) (UPDATE.NUMBEROBJS 14889 . 16686) (
+12317 . 12861)) (12910 27438 (DOWNDATE.NUMBEROBJS 12920 . 14869) (UPDATE.NUMBEROBJS 14871 . 16668) (
-RESET.DEPENDENT.CLASSES 16688 . 17263) (RESET.NCOUNTER 17265 . 18156) (GET.NCOUNTER 18158 . 19417) (
+RESET.DEPENDENT.CLASSES 16670 . 17245) (RESET.NCOUNTER 17247 . 18138) (GET.NCOUNTER 18140 . 19399) (
-NCOUNTER? 19419 . 21229) (FLATTEN.TREE.TO.STRING 21231 . 23129) (NGROUP.CHARTYPE 23131 . 24689) (
+NCOUNTER? 19401 . 21211) (FLATTEN.TREE.TO.STRING 21213 . 23111) (NGROUP.CHARTYPE 23113 . 24671) (
-NGROUP.CHARTYPE.CONVERT 24691 . 26076) (NUMBER.TO.LETTER 26078 . 27068) (REMOVE.ALL.COUNTERS 27070 . 
+NGROUP.CHARTYPE.CONVERT 24673 . 26058) (NUMBER.TO.LETTER 26060 . 27050) (REMOVE.ALL.COUNTERS 27052 . 
-27454)))))
+27436)))))
 STOP