diff --git a/library/TEDITMENU b/library/TEDITMENU
index 922a0c62..7bc30c56 100644
--- a/library/TEDITMENU
+++ b/library/TEDITMENU
@@ -1,121 +1,4 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "24-Apr-95 12:05:29" {DSK}<lispcore>library>TEDITMENU.;5 275666 
-
-      changes to%:  (FNS \TEDIT.TABTYPE.SET)
-
-      previous date%: "25-Aug-94 10:54:56" {DSK}<lispcore>library>TEDITMENU.;4)
-
-
-(* ; "
-Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995 by Venue & Xerox Corporation.  All rights reserved.
-")
-
-(PRETTYCOMPRINT TEDITMENUCOMS)
-
-(RPAQQ TEDITMENUCOMS
-       [(FILES TEDITDCL)
-        (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64))
-               (FILES (LOADCOMP)
-                      TEDITDCL))
-        [COMS                                                (* ; "Simple Menu Button support")
-              (FNS MB.BUTTONEVENTINFN MB.DISPLAY MB.SETIMAGE MB.SELFN MB.SIZEFN MB.WHENOPERATEDFN 
-                   MB.COPYFN MB.GETFN MB.PUTFN MB.SHOWSELFN MBUTTON.CREATE MBUTTON.CHANGENAME 
-                   MBUTTON.FIND.BUTTON MBUTTON.FIND.NEXT.BUTTON MBUTTON.FIND.NEXT.FIELD MBUTTON.INIT
-                   MBUTTON.NEXT.FIELD.AS.NUMBER MBUTTON.NEXT.FIELD.AS.PIECES 
-                   MBUTTON.NEXT.FIELD.AS.TEXT MBUTTON.NEXT.FIELD.AS.ATOM MBUTTON.SET.FIELD 
-                   MBUTTON.SET.NEXT.FIELD MBUTTON.SET.NEXT.BUTTON.STATE TEDITMENU.STREAM 
-                   \TEDITMENU.SELSCREENER)
-              (GLOBALVARS MBUTTONIMAGEFNS)
-              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MBUTTON.INIT))
-                     (ADDVARS (IMAGEOBJTYPES (TEditMenuButton FILE TEDITMENU GETFN MB.GETFN]
-        [COMS 
-              (* ;; 
-            "Three-state (ON-OFF-NEUTRAL) menu buttons, for, e.g., character properties like BOLD")
-
-              (FNS MB.CREATE.THREESTATEBUTTON MB.THREESTATE.DISPLAY MB.THREESTATE.SHOWSELFN 
-                   MB.THREESTATE.WHENOPERATEDFN MB.THREESTATEBUTTON.FN THREESTATE.INIT)
-              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (THREESTATE.INIT]
-        [COMS                                                (* ; "One-of-N Menu button sets")
-              (FNS MB.CREATE.NWAYBUTTON MB.NB.DISPLAYFN MB.NB.WHENOPERATEDFN MB.NB.SIZEFN 
-                   MB.NWAYBUTTON.SELFN MB.NWAYMENU.NEWBUTTON NWAYBUTTON.INIT MB.NB.PACKITEMS 
-                   MB.NWAYBUTTON.ADDITEM)
-              (GLOBALVARS NWAYBUTTONIMAGEFNS)
-              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (NWAYBUTTON.INIT))
-                     (ADDVARS (IMAGEOBJTYPES (NWayButton FILE TEDITMENU GETFN MB.GETFN]
-        [COMS 
-              (* ;; "Two-state, toggling menu buttons.")
-
-              (FNS \TEXTMENU.TOGGLE.CREATE \TEXTMENU.TOGGLE.DISPLAY \TEXTMENU.TOGGLE.SHOWSELFN 
-                   \TEXTMENU.TOGGLE.WHENOPERATEDFN \TEXTMENU.TOGGLEFN \TEXTMENU.TOGGLE.INIT 
-                   \TEXTMENU.SET.TOGGLE)
-              (GLOBALVARS \TOGGLEIMAGEFNS)
-              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEXTMENU.TOGGLE.INIT))
-                     (ADDVARS (IMAGEOBJTYPES (ToggleButton FILE TEDITMENU GETFN MB.GETFN]
-        [COMS 
-              (* ;; "Margin Setting and display")
-
-              (FNS DRAWMARGINSCALE MARGINBAR MARGINBAR.CREATE MB.MARGINBAR.SELFN MB.MARGINBAR.SIZEFN
-                   MB.MARGINBAR.DISPLAYFN MDESCALE MSCALE MB.MARGINBAR.SHOWTAB MB.MARGINBAR.TABTRACK
-                   \TEDIT.TABTYPE.SET MARGINBAR.INIT)
-              (BITMAPS \TEDIT.LEFTTAB \TEDIT.CENTERTAB \TEDIT.RIGHTTAB \TEDIT.DECIMALTAB 
-                     \TEDIT.DOTTED.LEFTTAB \TEDIT.DOTTED.CENTERTAB \TEDIT.DOTTED.RIGHTTAB 
-                     \TEDIT.DOTTED.DECIMALTAB TEDIT.EXTENDEDRIGHTMARK)
-              (GLOBALVARS MARGINBARIMAGEFNS)
-              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MARGINBAR.INIT))
-                     (ADDVARS (IMAGEOBJTYPES (MarginRuler FILE TEDITMENU GETFN MB.GETFN]
-        (COMS 
-              (* ;; "Text menu creation and support")
-
-              (FNS \TEXTMENU.START \TEXTMENU.DOC.CREATE TEXTMENU.CLOSEFN)
-              (BITMAPS TEXTMENUICON TEXTMENUICONMASK))
-        [COMS                                                (* ; "TEdit-specific support")
-              (FNS \TEDITMENU.CREATE \TEDIT.EXPANDED.MENU MB.DEFAULTBUTTON.FN 
-                   \TEDITMENU.RECORD.UNFORMATTED MB.DEFAULTBUTTON.ACTIONFN)
-              (FNS \TEDIT.CHARLOOKSMENU.CREATE \TEDIT.EXPANDEDCHARLOOKS.MENU \TEDIT.APPLY.BOLDNESS 
-                   \TEDIT.APPLY.CHARLOOKS \TEDIT.APPLY.OLINE \TEDIT.SHOW.CHARLOOKS 
-                   \TEDIT.NEUTRALIZE.CHARLOOKS \TEDIT.FILL.IN.CHARLOOKS.MENU 
-                   \TEDIT.NEUTRALIZE.CHARLOOKS.MENU \TEDIT.PARSE.CHARLOOKS.MENU \TEDIT.APPLY.SLOPE 
-                   \TEDIT.APPLY.STRIKEOUT \TEDIT.APPLY.ULINE)
-              (FNS \TEDITPARAMENU.CREATE \TEDIT.EXPANDEDPARA.MENU \TEDIT.APPLY.PARALOOKS 
-                   \TEDIT.SHOW.PARALOOKS \TEDIT.NEUTRALIZE.PARALOOKS.MENU \TEDIT.RECORD.TABLEADERS)
-              (FNS \TEDIT.SHOW.PAGEFORMATTING \TEDITPAGEMENU.CREATE \TEDIT.APPLY.PAGEFORMATTING 
-                   TEDIT.UNPARSE.PAGEFORMAT)
-              (COMS                                          (* ; "Initialization Code")
-                    (GLOBALVARS TEDIT.EXPANDED.MENU TEDIT.EXPANDEDPARA.MENU TEDIT.CHARLOOKS.MENU 
-                           TEDIT.MENUDIVIDER.SPEC TEDIT.EXPANDEDMENU.SPEC TEDIT.CHARLOOKSMENU.SPEC 
-                           TEDIT.PARAMENU.SPEC TEDIT.PAGEMENU.SPEC TEDIT.EXPANDED.PAGEMENU)
-                    (FNS \TEDIT.MENU.INIT)
-                    (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEDIT.MENU.INIT)
-                                                       (\TEDITMENU.CREATE)
-                                                       (\TEDIT.CHARLOOKSMENU.CREATE)
-                                                       (\TEDITPARAMENU.CREATE)
-                                                       (\TEDITPAGEMENU.CREATE]
-        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
-                                                                             (NLAML)
-                                                                             (LAMA])
-
-(FILESLOAD TEDITDCL)
-(DECLARE%: EVAL@COMPILE DONTCOPY 
-(DECLARE%: EVAL@COMPILE 
-
-(RPAQQ \SCRATCHLEN 64)
-
-
-(CONSTANTS (\SCRATCHLEN 64))
-)
-
-
-(FILESLOAD (LOADCOMP)
-       TEDITDCL)
-)
-
-
-
-(* ; "Simple Menu Button support")
-
-(DEFINEQ
-
-(MB.BUTTONEVENTINFN
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 4-Jan-2021 13:48:43" {DSK}<home>larry>ilisp>medley>library>TEDITMENU.;2 275817 

      changes to%:  (FNS \TEDIT.MENU.INIT)

      previous date%: "24-Apr-95 12:05:29" {DSK}<home>larry>ilisp>medley>library>TEDITMENU.;1)


(* ; "
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 2021 by Venue & Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT TEDITMENUCOMS)

(RPAQQ TEDITMENUCOMS
       [(FILES TEDITDCL)
        (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64))
               (FILES (LOADCOMP)
                      TEDITDCL))
        [COMS                                                (* ; "Simple Menu Button support")
              (FNS MB.BUTTONEVENTINFN MB.DISPLAY MB.SETIMAGE MB.SELFN MB.SIZEFN MB.WHENOPERATEDFN 
                   MB.COPYFN MB.GETFN MB.PUTFN MB.SHOWSELFN MBUTTON.CREATE MBUTTON.CHANGENAME 
                   MBUTTON.FIND.BUTTON MBUTTON.FIND.NEXT.BUTTON MBUTTON.FIND.NEXT.FIELD MBUTTON.INIT
                   MBUTTON.NEXT.FIELD.AS.NUMBER MBUTTON.NEXT.FIELD.AS.PIECES 
                   MBUTTON.NEXT.FIELD.AS.TEXT MBUTTON.NEXT.FIELD.AS.ATOM MBUTTON.SET.FIELD 
                   MBUTTON.SET.NEXT.FIELD MBUTTON.SET.NEXT.BUTTON.STATE TEDITMENU.STREAM 
                   \TEDITMENU.SELSCREENER)
              (GLOBALVARS MBUTTONIMAGEFNS)
              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MBUTTON.INIT))
                     (ADDVARS (IMAGEOBJTYPES (TEditMenuButton FILE TEDITMENU GETFN MB.GETFN]
        [COMS 
              (* ;; 
            "Three-state (ON-OFF-NEUTRAL) menu buttons, for, e.g., character properties like BOLD")

              (FNS MB.CREATE.THREESTATEBUTTON MB.THREESTATE.DISPLAY MB.THREESTATE.SHOWSELFN 
                   MB.THREESTATE.WHENOPERATEDFN MB.THREESTATEBUTTON.FN THREESTATE.INIT)
              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (THREESTATE.INIT]
        [COMS                                                (* ; "One-of-N Menu button sets")
              (FNS MB.CREATE.NWAYBUTTON MB.NB.DISPLAYFN MB.NB.WHENOPERATEDFN MB.NB.SIZEFN 
                   MB.NWAYBUTTON.SELFN MB.NWAYMENU.NEWBUTTON NWAYBUTTON.INIT MB.NB.PACKITEMS 
                   MB.NWAYBUTTON.ADDITEM)
              (GLOBALVARS NWAYBUTTONIMAGEFNS)
              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (NWAYBUTTON.INIT))
                     (ADDVARS (IMAGEOBJTYPES (NWayButton FILE TEDITMENU GETFN MB.GETFN]
        [COMS 
              (* ;; "Two-state, toggling menu buttons.")

              (FNS \TEXTMENU.TOGGLE.CREATE \TEXTMENU.TOGGLE.DISPLAY \TEXTMENU.TOGGLE.SHOWSELFN 
                   \TEXTMENU.TOGGLE.WHENOPERATEDFN \TEXTMENU.TOGGLEFN \TEXTMENU.TOGGLE.INIT 
                   \TEXTMENU.SET.TOGGLE)
              (GLOBALVARS \TOGGLEIMAGEFNS)
              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEXTMENU.TOGGLE.INIT))
                     (ADDVARS (IMAGEOBJTYPES (ToggleButton FILE TEDITMENU GETFN MB.GETFN]
        [COMS 
              (* ;; "Margin Setting and display")

              (FNS DRAWMARGINSCALE MARGINBAR MARGINBAR.CREATE MB.MARGINBAR.SELFN MB.MARGINBAR.SIZEFN
                   MB.MARGINBAR.DISPLAYFN MDESCALE MSCALE MB.MARGINBAR.SHOWTAB MB.MARGINBAR.TABTRACK
                   \TEDIT.TABTYPE.SET MARGINBAR.INIT)
              (BITMAPS \TEDIT.LEFTTAB \TEDIT.CENTERTAB \TEDIT.RIGHTTAB \TEDIT.DECIMALTAB 
                     \TEDIT.DOTTED.LEFTTAB \TEDIT.DOTTED.CENTERTAB \TEDIT.DOTTED.RIGHTTAB 
                     \TEDIT.DOTTED.DECIMALTAB TEDIT.EXTENDEDRIGHTMARK)
              (GLOBALVARS MARGINBARIMAGEFNS)
              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MARGINBAR.INIT))
                     (ADDVARS (IMAGEOBJTYPES (MarginRuler FILE TEDITMENU GETFN MB.GETFN]
        (COMS 
              (* ;; "Text menu creation and support")

              (FNS \TEXTMENU.START \TEXTMENU.DOC.CREATE TEXTMENU.CLOSEFN)
              (BITMAPS TEXTMENUICON TEXTMENUICONMASK))
        [COMS                                                (* ; "TEdit-specific support")
              (FNS \TEDITMENU.CREATE \TEDIT.EXPANDED.MENU MB.DEFAULTBUTTON.FN 
                   \TEDITMENU.RECORD.UNFORMATTED MB.DEFAULTBUTTON.ACTIONFN)
              (FNS \TEDIT.CHARLOOKSMENU.CREATE \TEDIT.EXPANDEDCHARLOOKS.MENU \TEDIT.APPLY.BOLDNESS 
                   \TEDIT.APPLY.CHARLOOKS \TEDIT.APPLY.OLINE \TEDIT.SHOW.CHARLOOKS 
                   \TEDIT.NEUTRALIZE.CHARLOOKS \TEDIT.FILL.IN.CHARLOOKS.MENU 
                   \TEDIT.NEUTRALIZE.CHARLOOKS.MENU \TEDIT.PARSE.CHARLOOKS.MENU \TEDIT.APPLY.SLOPE 
                   \TEDIT.APPLY.STRIKEOUT \TEDIT.APPLY.ULINE)
              (FNS \TEDITPARAMENU.CREATE \TEDIT.EXPANDEDPARA.MENU \TEDIT.APPLY.PARALOOKS 
                   \TEDIT.SHOW.PARALOOKS \TEDIT.NEUTRALIZE.PARALOOKS.MENU \TEDIT.RECORD.TABLEADERS)
              (FNS \TEDIT.SHOW.PAGEFORMATTING \TEDITPAGEMENU.CREATE \TEDIT.APPLY.PAGEFORMATTING 
                   TEDIT.UNPARSE.PAGEFORMAT)
              (COMS                                          (* ; "Initialization Code")
                    (GLOBALVARS TEDIT.EXPANDED.MENU TEDIT.EXPANDEDPARA.MENU TEDIT.CHARLOOKS.MENU 
                           TEDIT.MENUDIVIDER.SPEC TEDIT.EXPANDEDMENU.SPEC TEDIT.CHARLOOKSMENU.SPEC 
                           TEDIT.PARAMENU.SPEC TEDIT.PAGEMENU.SPEC TEDIT.EXPANDED.PAGEMENU)
                    (FNS \TEDIT.MENU.INIT)
                    (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEDIT.MENU.INIT)
                                                       (\TEDITMENU.CREATE)
                                                       (\TEDIT.CHARLOOKSMENU.CREATE)
                                                       (\TEDITPARAMENU.CREATE)
                                                       (\TEDITPAGEMENU.CREATE]
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                             (NLAML)
                                                                             (LAMA])

(FILESLOAD TEDITDCL)
(DECLARE%: EVAL@COMPILE DONTCOPY 
(DECLARE%: EVAL@COMPILE 

(RPAQQ \SCRATCHLEN 64)


(CONSTANTS (\SCRATCHLEN 64))
)


(FILESLOAD (LOADCOMP)
       TEDITDCL)
)



(* ; "Simple Menu Button support")

(DEFINEQ

(MB.BUTTONEVENTINFN
   [LAMBDA (OBJ STREAM SEL RELX RELY SELWINDOW TEXTSTREAM)(* ; "Edited 30-May-91 22:15 by jds")
 
          (* There was a buttn event inside a menu button.
@@ -140,9 +23,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (RETURN T))
              (T                                              (* He's moved outside the button.
                                                            Don't permit the selection.)
-                (RETURN 'DON'T])
-
-(MB.DISPLAY
+                (RETURN 'DON'T])

(MB.DISPLAY
   [LAMBDA (OBJ STREAM MODE)                              (* ; "Edited 11-Jan-89 16:58 by jds")
 
     (* ;; "Display the innards of a menu button")
@@ -179,9 +60,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (PRIN1 TEXT STREAM)                            (* ; "Print the button text")
               (DSPFONT OLOOKS STREAM)                        (* ; 
                                                            "And put the font back as it was.")
-          ])
-
-(MB.SETIMAGE
+          ])

(MB.SETIMAGE
   [LAMBDA (OBJ)                                              (* jds "23-Aug-84 13:22")
     (PROG ((MBFONT (IMAGEOBJPROP OBJ 'MBFONT))
            (MBTEXT (IMAGEOBJPROP OBJ 'MBTEXT))
@@ -202,9 +81,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (MOVETO 0 (FONTPROP MBFONT 'DESCENT)
                  DS)
           (PRIN1 MBTEXT DS)
-          (RETURN OBJ])
-
-(MB.SELFN
+          (RETURN OBJ])

(MB.SELFN
   [LAMBDA (OBJ SEL W FN)                                 (* ; "Edited 30-May-91 22:15 by jds")
                                                              (* Calls a menu-button's associated 
                                                            function, then turns off the 
@@ -223,9 +100,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                            selection alone,)
               (\FIXSEL TSEL (fetch (SELECTION \TEXTOBJ) of TSEL))
               (\SHOWSEL TSEL NIL NIL)))                      (* Turn off the button hilite)
-      ])
-
-(MB.SIZEFN
+      ])

(MB.SIZEFN
   [LAMBDA (OBJ STREAM CURX RIGHTMARGIN)                      (* jds "30-Aug-84 11:24")
                                                              (* Tell the size of a menu button)
     (PROG ((FONT (IMAGEOBJPROP OBJ 'MBFONT))
@@ -244,26 +119,20 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                            YDESC _ (FONTPROP FONT 'DESCENT)
                            XKERN _ 0))
           (IMAGEOBJPROP OBJ 'BOUNDBOX BOX)
-          (RETURN BOX])
-
-(MB.WHENOPERATEDFN
+          (RETURN BOX])

(MB.WHENOPERATEDFN
   [LAMBDA (OBJ DS OPERATION SEL)                             (* jds " 7-Feb-84 14:20")
     (SELECTQ OPERATION
         (HIGHLIGHTED (MB.SHOWSELFN OBJ SEL T DS))
         (UNHIGHLIGHTED (MB.SHOWSELFN OBJ SEL NIL DS))
         (SELECTED (MB.SELFN OBJ SEL DS))
         (DESELECTED)
-        NIL])
-
-(MB.COPYFN
+        NIL])

(MB.COPYFN
   [LAMBDA (OBJ)                                              (* jds "23-May-84 11:32")
                                                              (* Copy a menu button object.)
     (create IMAGEOBJ
            OBJECTDATUM _ (COPY (fetch (IMAGEOBJ OBJECTDATUM) of OBJ))
            IMAGEOBJPLIST _ (COPY (fetch (IMAGEOBJ IMAGEOBJPLIST) of OBJ))
-           IMAGEOBJFNS _ (fetch (IMAGEOBJ IMAGEOBJFNS) of OBJ])
-
-(MB.GETFN
+           IMAGEOBJFNS _ (fetch (IMAGEOBJ IMAGEOBJFNS) of OBJ])

(MB.GETFN
   [LAMBDA (OBJ FILE)                                         (* ; "Edited 20-Aug-87 16:17 by jds")
                                                              (* READ a menu button from a file.)
     (ERROR)
@@ -274,9 +143,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (\ATMOUT FILE MBFN)
           (\ATMOUT FILE (FONTPROP FONT 'FAMILY))
           (\SMALLPOUT FILE (FONTPROP FONT 'SIZE))
-          (for ATTR in (FONTPROP FONT 'FACE) do (\ATMOUT FILE ATTR])
-
-(MB.PUTFN
+          (for ATTR in (FONTPROP FONT 'FACE) do (\ATMOUT FILE ATTR])

(MB.PUTFN
   [LAMBDA (OBJ FILE)                                         (* ; "Edited 20-Aug-87 16:17 by jds")
           
           (* ;; 
@@ -292,9 +159,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 
           (\ATMOUT FILE (FONTPROP FONT 'FAMILY))
           (\SMALLPOUT FILE (FONTPROP FONT 'SIZE))
-          (for ATTR in (FONTPROP FONT 'FACE) do (\ATMOUT FILE ATTR])
-
-(MB.SHOWSELFN
+          (for ATTR in (FONTPROP FONT 'FACE) do (\ATMOUT FILE ATTR])

(MB.SHOWSELFN
   [LAMBDA (OBJ SEL ON DS)                                (* ; "Edited 11-Jan-89 16:35 by jds")
     (LET [(OBJBOX (IMAGEOBJPROP OBJ 'BOUNDBOX]
          (OR (IMAGEOBJPROP OBJ 'BITCACHE)
@@ -312,9 +177,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                     DS 0 0 (fetch (IMAGEBOX XSIZE) of OBJBOX)
                     (fetch (IMAGEBOX YSIZE) of OBJBOX)
                     'TEXTURE
-                    'INVERT BLACKSHADE])
-
-(MBUTTON.CREATE
+                    'INVERT BLACKSHADE])

(MBUTTON.CREATE
   [LAMBDA (MBTEXT MBFN MBFONT IMAGEFNS)                  (* ; "Edited 11-Jan-89 16:10 by jds")
 
     (* ;; "Create a MENU BUTTON image object, and fill in its image and function-hook fields")
@@ -334,9 +197,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (IMAGEOBJPROP OBJ 'MBFONT REAL-FONT)               (* ; "The font that text appears in")
           (MB.SETIMAGE OBJ)                              (* ; 
                                "Set up the image for the button, so we don't create it repeatedly.")
-          OBJ])
-
-(MBUTTON.CHANGENAME
+          OBJ])

(MBUTTON.CHANGENAME
   [LAMBDA (TEXTOBJ OBJ NEWNAME)                              (* jds "23-Aug-84 13:26")
           
           (* Change the text that appears in a button, and redisplay the button if it's 
@@ -345,9 +206,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
     (PROG (BOX BITMAP DS)
           (IMAGEOBJPROP OBJ 'MBTEXT NEWNAME)
           (MB.SETIMAGE OBJ)
-          (TEDIT.OBJECT.CHANGED TEXTOBJ OBJ])
-
-(MBUTTON.FIND.BUTTON
+          (TEDIT.OBJECT.CHANGED TEXTOBJ OBJ])

(MBUTTON.FIND.BUTTON
   [LAMBDA (LABEL TEXTSTREAM CH#)                         (* ; "Edited 22-Apr-93 15:40 by jds")
                                                              (* "27-Sep-84 00:52" gbn)
 
@@ -363,9 +222,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                               ([AND OBJ (EQ LABELATOM (MKATOM (IMAGEOBJPROP OBJ 'MBTEXT]
                                (RETURN PCNO)))
                            (add START-OF-PIECE (fetch (PIECE PLEN) of PC))
-                           (SETQ PC (fetch (PIECE NEXTPIECE) of PC])
-
-(MBUTTON.FIND.NEXT.BUTTON
+                           (SETQ PC (fetch (PIECE NEXTPIECE) of PC])

(MBUTTON.FIND.NEXT.BUTTON
   [LAMBDA (TEXTOBJ CH#)                                  (* ; "Edited 22-Apr-93 16:39 by jds")
 
     (* ;; "Finds the next instance of an OBJECT which looks like a menu button, 3-state button, or menuobj.  If none is found, return NIL")
@@ -385,9 +242,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                      "Which are some kind of menu-buttonish object")
                                (RETURN (CONS OBJ START-OF-PIECE]
                            (add START-OF-PIECE (fetch (PIECE PLEN) of PC))
-                           (SETQ PC (fetch (PIECE NEXTPIECE) of PC])
-
-(MBUTTON.FIND.NEXT.FIELD
+                           (SETQ PC (fetch (PIECE NEXTPIECE) of PC])

(MBUTTON.FIND.NEXT.FIELD
   [LAMBDA (TEXTOBJ CH# DON'TFIX)                         (* ; "Edited 22-Apr-93 16:53 by jds")
 
     (* ;; "Starting from CH#, find the next fill-in area (usually surrounded by a {-} pair), and select any text it contains.  Returns the TEXTOBJ's SCRATCHSEL with the text selected.  (If no insert point is found, NIL.)")
@@ -439,9 +294,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (COND
              ((NOT DON'TFIX)
               (\FIXSEL SCRATCHSEL TEXTOBJ)))
-          (RETURN SCRATCHSEL])
-
-(MBUTTON.INIT
+          (RETURN SCRATCHSEL])

(MBUTTON.INIT
   [LAMBDA NIL                                                (* jds "12-Feb-85 14:32")
     (SETQ MBUTTONIMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.DISPLAY)
                                  (FUNCTION MB.SIZEFN)
@@ -456,15 +309,11 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                  'NILL
                                  (FUNCTION MB.WHENOPERATEDFN)
                                  'NIL
-                                 'TEditMenuButton])
-
-(MBUTTON.NEXT.FIELD.AS.NUMBER
+                                 'TEditMenuButton])

(MBUTTON.NEXT.FIELD.AS.NUMBER
   [LAMBDA (TEXTOBJ CH#)                                 (* ; "Edited 12-Jun-90 19:00 by mitani")
     (MBUTTON.FIND.NEXT.FIELD TEXTOBJ CH# T)
     (NUMBERP (MKATOM (TEDIT.SEL.AS.STRING (fetch (TEXTOBJ STREAMHINT) of TEXTOBJ)
-                            (fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ])
-
-(MBUTTON.NEXT.FIELD.AS.PIECES
+                            (fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ])

(MBUTTON.NEXT.FIELD.AS.PIECES
   [LAMBDA (TEXTOBJ CH#)                                  (* ; "Edited 30-Mar-94 16:02 by jds")
 
     (* ;; 
@@ -473,18 +322,14 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
     (MBUTTON.FIND.NEXT.FIELD TEXTOBJ CH# T)
     (TEDIT.SELECTED.PIECES TEXTOBJ (fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ)
            NIL
-           'CL:IDENTITY])
-
-(MBUTTON.NEXT.FIELD.AS.TEXT
+           'CL:IDENTITY])

(MBUTTON.NEXT.FIELD.AS.TEXT
   [LAMBDA (TEXTOBJ CH#)                                  (* ; "Edited 22-Apr-93 16:14 by jds")
 
     (* ;; "Find the next fill-in field in the menu after CH#, and return its contents as a string.")
 
     (MBUTTON.FIND.NEXT.FIELD TEXTOBJ CH# T)
     (TEDIT.SEL.AS.STRING (fetch (TEXTOBJ STREAMHINT) of TEXTOBJ)
-           (fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ])
-
-(MBUTTON.NEXT.FIELD.AS.ATOM
+           (fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ])

(MBUTTON.NEXT.FIELD.AS.ATOM
   [LAMBDA (TEXTOBJ CH#)                                 (* ; "Edited 12-Jun-90 19:00 by mitani")
 
          (* Find the next fill-in field, and return its contents as an atom.
@@ -498,9 +343,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (RETURN NIL))
              (T                                              (* It's non-empty.
                                                            Convert the string to an atom.)
-                (RETURN (MKATOM STR])
-
-(MBUTTON.SET.FIELD
+                (RETURN (MKATOM STR])

(MBUTTON.SET.FIELD
   [LAMBDA (TEXTSTREAM FIELD VALUE)                       (* ; "Edited 22-Apr-93 10:56 by jds")
 
     (* ;; "Makes the contents of the field with name FIELD be VALUE.")
@@ -530,9 +373,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                  (TEDIT.DELETE TEXTSTREAM))
                                 (T                           (* ; 
                                                            "there IS new info, so insert it.")
-                                   (TEDIT.INSERT TEXTSTREAM (MKSTRING VALUE])
-
-(MBUTTON.SET.NEXT.FIELD
+                                   (TEDIT.INSERT TEXTSTREAM (MKSTRING VALUE])

(MBUTTON.SET.NEXT.FIELD
   [LAMBDA (TEXTOBJ CH# NEWVALUE DONTUPDATESCREEN)        (* ; "Edited 30-May-91 22:15 by jds")
 
          (* SET the text content of the next fill-in field in this document to be 
@@ -553,9 +394,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                            something to insert.)
                     (TEDIT.\INSERT (MKSTRING NEWVALUE)
                            SCRATCHSEL TEXTOBJ)))             (* Then fill it with out new value.)
-      ])
-
-(MBUTTON.SET.NEXT.BUTTON.STATE
+      ])

(MBUTTON.SET.NEXT.BUTTON.STATE
   [LAMBDA (TEXTOBJ STARTINGCH NEWSTATE)                      (* jds "31-Jul-85 22:09")
           
           (* * Find the next menu button in the document, and set its state to NEWSTATE.
@@ -564,9 +403,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
     (PROG* ((NEXTB (MBUTTON.FIND.NEXT.BUTTON TEXTOBJ STARTINGCH))
             (BUTTON (CAR NEXTB)))
            (IMAGEOBJPROP BUTTON 'STATE NEWSTATE)
-           (RETURN (ADD1 (CDR NEXTB])
-
-(TEDITMENU.STREAM
+           (RETURN (ADD1 (CDR NEXTB])

(TEDITMENU.STREAM
   [LAMBDA (TEXTSTREAM)                                       (* jds "13-Aug-84 14:10")
           
           (* returns the textstream of the teditmenu attached to this stream if any)
@@ -577,9 +414,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                       (EQUAL (WINDOWPROP W 'TITLE)
                                              "TEdit Menu"]
           (RETURN (COND
-                     (MENUW (TEXTSTREAM MENUW])
-
-(\TEDITMENU.SELSCREENER
+                     (MENUW (TEXTSTREAM MENUW])

(\TEDITMENU.SELSCREENER
   [LAMBDA (TEXTOBJ SEL SELECTMODE FINAL?)                (* ; "Edited 30-May-91 22:15 by jds")
 
          (* Called to screen potential selections in the TEdit menu window;
@@ -606,27 +441,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                 " in progress; please wait.")
                      T)
               (\COPYSEL SEL TEDIT.SCRATCHSELECTION)
-              (RETURN 'DON'T])
-)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS MBUTTONIMAGEFNS)
-)
-(DECLARE%: DONTEVAL@LOAD DOCOPY 
-
-(MBUTTON.INIT)
-
-
-(ADDTOVAR IMAGEOBJTYPES (TEditMenuButton FILE TEDITMENU GETFN MB.GETFN))
-)
-
-
-
-(* ;; "Three-state (ON-OFF-NEUTRAL) menu buttons, for, e.g., character properties like BOLD")
-
-(DEFINEQ
-
-(MB.CREATE.THREESTATEBUTTON
+              (RETURN 'DON'T])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS MBUTTONIMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(MBUTTON.INIT)


(ADDTOVAR IMAGEOBJTYPES (TEditMenuButton FILE TEDITMENU GETFN MB.GETFN))
)



(* ;; "Three-state (ON-OFF-NEUTRAL) menu buttons, for, e.g., character properties like BOLD")

(DEFINEQ

(MB.CREATE.THREESTATEBUTTON
   [LAMBDA (TEXT FONT STATECHANGEFN INITSTATE)                (* jds "24-Sep-86 00:49")
     (PROG ((OBJ (IMAGEOBJCREATE NIL THREESTATEIMAGEFNS))
            (BOX (create IMAGEBOX
@@ -652,9 +467,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                  DS)
           (PRIN1 (IMAGEOBJPROP OBJ 'MBTEXT)
                  DS)
-          (RETURN OBJ])
-
-(MB.THREESTATE.DISPLAY
+          (RETURN OBJ])

(MB.THREESTATE.DISPLAY
   [LAMBDA (OBJ STREAM MODE)                                  (* jds "30-Aug-84 13:53")
                                                              (* Display the innards of a menu 
                                                              button)
@@ -703,9 +516,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                           'PAINT STREAM))
               (NEUTRAL                                       (* The button is neutral.
                                                              Just display it regular.))
-              NIL])
-
-(MB.THREESTATE.SHOWSELFN
+              NIL])

(MB.THREESTATE.SHOWSELFN
   [LAMBDA (OBJ SEL ON DS)                                (* ; "Edited 30-May-91 22:16 by jds")
     (PROG [(IMAGEBOX (OR (IMAGEOBJPROP OBJ 'BOUNDBOX)
                          (IMAGEBOX OBJ DS]
@@ -754,9 +565,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                   (fetch YSIZE of IMAGEBOX)
                                   'INPUT
                                   'REPLACE))
-                  NIL])
-
-(MB.THREESTATE.WHENOPERATEDFN
+                  NIL])

(MB.THREESTATE.WHENOPERATEDFN
   [LAMBDA (OBJ DS OPERATION SEL)                         (* ; "Edited 30-May-91 22:16 by jds")
                                                              (* Handle operations on a 
                                                            three-state button)
@@ -774,9 +583,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                   (replace (SELECTION ONFLG) of SEL with NIL)
                   (replace (SELECTION SET) of TEDIT.SELECTION with NIL))
         (DESELECTED)
-        NIL])
-
-(MB.THREESTATEBUTTON.FN
+        NIL])

(MB.THREESTATEBUTTON.FN
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 30-May-91 22:16 by jds")
                                                              (* MBFN for TEdit default menu item 
                                                            buttons.)
@@ -793,9 +600,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                            change fn if she supplied one)
                     (APPLY* STATECHANGEFN OBJ NEWSTATE (TEXTSTREAM TEXTOBJ)))
           (IMAGEOBJPROP OBJ 'STATE NEWSTATE)
-          (replace (SELECTION ONFLG) of SEL with NIL])
-
-(THREESTATE.INIT
+          (replace (SELECTION ONFLG) of SEL with NIL])

(THREESTATE.INIT
   [LAMBDA NIL                                                (* jds " 9-Feb-86 15:17")
                                                              (* Initialize the IMAGEFNS for 3-state 
                                                              menu button IMAGEOBJs)
@@ -812,20 +617,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                     'NILL
                                     (FUNCTION MB.THREESTATE.WHENOPERATEDFN)
                                     'NILL
-                                    '3StateMenuButton])
-)
-(DECLARE%: DONTEVAL@LOAD DOCOPY 
-
-(THREESTATE.INIT)
-)
-
-
-
-(* ; "One-of-N Menu button sets")
-
-(DEFINEQ
-
-(MB.CREATE.NWAYBUTTON
+                                    '3StateMenuButton])
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(THREESTATE.INIT)
)



(* ; "One-of-N Menu button sets")

(DEFINEQ

(MB.CREATE.NWAYBUTTON
   [LAMBDA (BUTTONS FONT CHANGESTATEFN INITSTATE MAXITEMS/LINE)
                                                              (* gbn "24-Sep-84 15:31")
     (PROG ((OBJECT (IMAGEOBJCREATE NIL NWAYBUTTONIMAGEFNS))
@@ -885,9 +677,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (IMAGEOBJPROP OBJECT 'DESCENT DESCENT)
           (IMAGEOBJPROP OBJECT 'MBFONT FONT)
           (IMAGEOBJPROP OBJECT 'MAXITEMS/LINE MAXITEMS/LINE)
-          (RETURN OBJECT])
-
-(MB.NB.DISPLAYFN
+          (RETURN OBJECT])

(MB.NB.DISPLAYFN
   [LAMBDA (OBJ STREAM MODE)                                  (* jds "28-Aug-84 15:07")
                                                              (* Display the innards of a menu 
                                                              button)
@@ -921,9 +711,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (for BXVAL in BUTTONX as BYVAL in BUTTONY as IMAGE in BUTTONIMAGES as BUTTON
                  in BUTTONLIST when (EQ STATE BUTTON) do (BITBLT IMAGE 0 0 STREAM (IPLUS X BXVAL)
                                                                 (IPLUS Y BYVAL)
-                                                                NIL NIL 'INVERT 'REPLACE])
-
-(MB.NB.WHENOPERATEDFN
+                                                                NIL NIL 'INVERT 'REPLACE])

(MB.NB.WHENOPERATEDFN
   [LAMBDA (OBJ DS OPERATION SEL)                         (* ; "Edited 30-May-91 22:16 by jds")
     (SELECTQ OPERATION
         (HIGHLIGHTED                                         (* (MB.SHOWSELFN OBJ SEL T DS)))
@@ -938,9 +726,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                      (SIDEFN (MB.SELFN OBJ SEL DS SIDEFN]
                   (replace (SELECTION SET) of SEL with NIL))
         (DESELECTED)
-        NIL])
-
-(MB.NB.SIZEFN
+        NIL])

(MB.NB.SIZEFN
   [LAMBDA (OBJ STREAM CURX RIGHTMARGIN)                      (* jds " 6-Sep-84 14:19")
                                                              (* Tell the size of an n-way menu)
     (PROG ((OLDBOX (IMAGEOBJPROP OBJ 'BOUNDBOX))
@@ -999,9 +785,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (IMAGEOBJPROP OBJ 'BOUNDBOX BOX)
           (IMAGEOBJPROP OBJ 'BUTTONX BUTTONX)
           (IMAGEOBJPROP OBJ 'BUTTONY BUTTONY)
-          (RETURN BOX])
-
-(MB.NWAYBUTTON.SELFN
+          (RETURN BOX])

(MB.NWAYBUTTON.SELFN
   [LAMBDA (OBJ W SEL MOUSEX MOUSEY)                      (* ; "Edited 30-May-91 22:16 by jds")
                                                              (* Selecting an NWAY button.)
     (PROG ((TEXTOBJ (fetch (SELECTION \TEXTOBJ) of SEL))
@@ -1032,9 +816,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                            Unselect it)
                         (BITBLT IMAGE 0 0 W X Y NIL NIL 'INPUT 'REPLACE]
           (IMAGEOBJPROP OBJ 'STATE STATE)
-          (RETURN T])
-
-(MB.NWAYMENU.NEWBUTTON
+          (RETURN T])

(MB.NWAYMENU.NEWBUTTON
   [LAMBDA (TEXTOBJ CH# OLDBUTTON NEWBUTTON)                  (* jds " 8-Feb-84 19:41")
           
           (* Given a hook on an existing button, and an insertion point, insert a new 
@@ -1047,9 +829,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (TEDIT.INSERT TEXTOBJ "  " (ADD1 CH#))
           (TEDIT.LOOKS TEXTOBJ '(PROTECTED ON) (ADD1 CH#)
                  2)
-          (RETURN BUTTON])
-
-(NWAYBUTTON.INIT
+          (RETURN BUTTON])

(NWAYBUTTON.INIT
   [LAMBDA (BUTTONS FONT INITSTATE)                           (* jds " 9-Feb-86 15:17")
     (SETQ NWAYBUTTONIMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.NB.DISPLAYFN)
                                     (FUNCTION MB.NB.SIZEFN)
@@ -1064,9 +844,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                     'NILL
                                     (FUNCTION MB.NB.WHENOPERATEDFN)
                                     'NILL
-                                    'NWayButton])
-
-(MB.NB.PACKITEMS
+                                    'NWayButton])

(MB.NB.PACKITEMS
   [LAMBDA (WIDTH ITEMWIDTHS SPACING MAXITEMS/LINE)           (* jds "24-Oct-84 17:42")
           
           (* * Pack items into lines WIDTH wide. Item widths are in ITEMWIDTHS, and each 
@@ -1098,9 +876,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           [AND CURLINE (SETQ LINES (NCONC1 LINES (CONS CURX CURLINE]
                                                              (* Capture the last partial line, if 
                                                              there is one.)
-          (RETURN LINES])
-
-(MB.NWAYBUTTON.ADDITEM
+          (RETURN LINES])

(MB.NWAYBUTTON.ADDITEM
   [LAMBDA (OBJECT NEWBUTTON)                                 (* jds "11-Jul-85 12:44")
           
           (* Given an existing n-way choice menu button, add another choice to the list)
@@ -1148,27 +924,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (IMAGEOBJPROP OBJECT 'SELECTEDBUTTON NIL)
           (IMAGEOBJPROP OBJECT 'SIDEEFFECTFNS SIDEEFFECTFNS)
           (IMAGEOBJPROP OBJECT 'DESCENT DESCENT)
-          (RETURN OBJECT])
-)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS NWAYBUTTONIMAGEFNS)
-)
-(DECLARE%: DONTEVAL@LOAD DOCOPY 
-
-(NWAYBUTTON.INIT)
-
-
-(ADDTOVAR IMAGEOBJTYPES (NWayButton FILE TEDITMENU GETFN MB.GETFN))
-)
-
-
-
-(* ;; "Two-state, toggling menu buttons.")
-
-(DEFINEQ
-
-(\TEXTMENU.TOGGLE.CREATE
+          (RETURN OBJECT])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NWAYBUTTONIMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(NWAYBUTTON.INIT)


(ADDTOVAR IMAGEOBJTYPES (NWayButton FILE TEDITMENU GETFN MB.GETFN))
)



(* ;; "Two-state, toggling menu buttons.")

(DEFINEQ

(\TEXTMENU.TOGGLE.CREATE
   [LAMBDA (TEXT FONT STATECHANGEFN INITSTATE)                (* gbn "24-Sep-84 14:45")
           
           (* Creates a TOGGLE menu button, that can turn off and on alternately.)
@@ -1201,9 +957,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                  DS)
           (PRIN1 (IMAGEOBJPROP OBJ 'MBTEXT)
                  DS)
-          (RETURN OBJ])
-
-(\TEXTMENU.TOGGLE.DISPLAY
+          (RETURN OBJ])

(\TEXTMENU.TOGGLE.DISPLAY
   [LAMBDA (OBJ STREAM MODE)                                  (* gbn "27-Sep-84 01:23")
                                                              (* "27-Sep-84 01:11" gbn)
                                                              (* Display the innards of a menu 
@@ -1244,9 +998,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                          X Y 'TEXTURE 'INVERT BLACKSHADE))
               (OFF                                           (* The button is OFF.
                                                              Just display it regular.))
-              (ERROR "Invalid state in toggle button " OBJ])
-
-(\TEXTMENU.TOGGLE.SHOWSELFN
+              (ERROR "Invalid state in toggle button " OBJ])

(\TEXTMENU.TOGGLE.SHOWSELFN
   [LAMBDA (OBJ SEL ON DS)                                (* ; "Edited 30-May-91 22:16 by jds")
     (PROG [(IMAGEBOX (OR (IMAGEOBJPROP OBJ 'BOUNDBOX)
                          (IMAGEBOX OBJ DS]
@@ -1281,9 +1033,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                               (fetch YSIZE of IMAGEBOX)
                               'TEXTURE
                               'INVERT BLACKSHADE))
-                  NIL])
-
-(\TEXTMENU.TOGGLE.WHENOPERATEDFN
+                  NIL])

(\TEXTMENU.TOGGLE.WHENOPERATEDFN
   [LAMBDA (OBJ DS OPERATION SEL)                         (* ; "Edited 30-May-91 22:16 by jds")
                                                              (* Handle operations on a 
                                                            three-state button)
@@ -1301,9 +1051,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                   (replace (SELECTION ONFLG) of SEL with NIL)
                   (replace (SELECTION SET) of TEDIT.SELECTION with NIL))
         (DESELECTED)
-        NIL])
-
-(\TEXTMENU.TOGGLEFN
+        NIL])

(\TEXTMENU.TOGGLEFN
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 30-May-91 22:16 by jds")
                                                              (* MBFN for TOGGLE buttons--cycle 
                                                            back and forthe betwen states.)
@@ -1320,9 +1068,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                     (APPLY* STATECHANGEFN OBJ NEWSTATE (TEXTSTREAM TEXTOBJ)
                            SEL)))
           (IMAGEOBJPROP OBJ 'STATE NEWSTATE)
-          (replace (SELECTION ONFLG) of SEL with NIL])
-
-(\TEXTMENU.TOGGLE.INIT
+          (replace (SELECTION ONFLG) of SEL with NIL])

(\TEXTMENU.TOGGLE.INIT
   [LAMBDA NIL                                                (* jds " 9-Feb-86 15:18")
     (SETQ \TOGGLEIMAGEFNS (IMAGEFNSCREATE (FUNCTION \TEXTMENU.TOGGLE.DISPLAY)
                                  (FUNCTION MB.SIZEFN)
@@ -1337,9 +1083,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                  'NILL
                                  (FUNCTION \TEXTMENU.TOGGLE.WHENOPERATEDFN)
                                  'NILL
-                                 'ToggleButton])
-
-(\TEXTMENU.SET.TOGGLE
+                                 'ToggleButton])

(\TEXTMENU.SET.TOGGLE
   [LAMBDA (TEXT VALUE TEXTSTREAM)                       (* ; "Edited 12-Jun-90 19:02 by mitani")
 
          (* * finds the button with MBTEXT field TEXT in TEXTSTREAM and sets its state 
@@ -1360,27 +1104,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (IMAGEOBJPROP OBJ 'BITCACHE 'JUNK)
           (for WINDOW inside (fetch (TEXTOBJ \WINDOW) of (TEXTOBJ TEXTSTREAM))
              do (\TEDIT.REPAINTFN WINDOW))
-          (RETURN VALUE])
-)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS \TOGGLEIMAGEFNS)
-)
-(DECLARE%: DONTEVAL@LOAD DOCOPY 
-
-(\TEXTMENU.TOGGLE.INIT)
-
-
-(ADDTOVAR IMAGEOBJTYPES (ToggleButton FILE TEDITMENU GETFN MB.GETFN))
-)
-
-
-
-(* ;; "Margin Setting and display")
-
-(DEFINEQ
-
-(DRAWMARGINSCALE
+          (RETURN VALUE])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS \TOGGLEIMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(\TEXTMENU.TOGGLE.INIT)


(ADDTOVAR IMAGEOBJTYPES (ToggleButton FILE TEDITMENU GETFN MB.GETFN))
)



(* ;; "Margin Setting and display")

(DEFINEQ

(DRAWMARGINSCALE
   [LAMBDA (W UNIT)                                      (* ; "Edited 12-Jun-90 18:59 by mitani")
 
     (* ;; " Draw the margin-bar scale -- the markings across the bottom of the margin bar that show you the margin values.  Draws the scale in window W, according to UNIT = 1 for points, or 12 for picas.")
@@ -1448,9 +1172,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                       2))
                  1
                  'PAINT W)
-          (DSPOPERATION OLDOP W])
-
-(MARGINBAR
+          (DSPOPERATION OLDOP W])

(MARGINBAR
   [LAMBDA (W L1 LN R TABS UNIT UPDATE RIGHTLIM)         (* ; "Edited 12-Jun-90 18:59 by mitani")
                                                              (* Given a set of margins and a 
                                                            unit, show the margin bar properly)
@@ -1585,9 +1307,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                        'REPLACE W)
                 (for TAB in TABS do              (* Run thru the tabs, putting them 
                                                            down in place.)
-                                               (MB.MARGINBAR.SHOWTAB W TAB UNIT 'PAINT])
-
-(MARGINBAR.CREATE
+                                               (MB.MARGINBAR.SHOWTAB W TAB UNIT 'PAINT])

(MARGINBAR.CREATE
   [LAMBDA (MARL1 MARLN MARR MARTABS MARUNIT MARTABTYPE) (* ; "Edited 12-Jun-90 18:59 by mitani")
                                                              (* Create an instance of the 
                                                            margin-setting ruler for TEdit's 
@@ -1644,9 +1364,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
          (* And tell the display function that it needs to be updated when first 
        displayed. Which is the faster part.)
 
-          (RETURN OBJ])
-
-(MB.MARGINBAR.SELFN
+          (RETURN OBJ])

(MB.MARGINBAR.SELFN
   [LAMBDA (OBJ SELWINDOW SEL RELX RELY STREAM ORIGX ORIGY)
                                                             (* ; "Edited 12-Jun-90 18:59 by mitani")
                                                              (* ; 
@@ -1833,9 +1551,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                 (replace MARLN of OBJDATUM with LN)
                 (replace MARR of OBJDATUM with R)
                 (replace MARTABS of OBJDATUM with TABS)))
-    T])
-
-(MB.MARGINBAR.SIZEFN
+    T])

(MB.MARGINBAR.SIZEFN
   [LAMBDA (OBJ)                                              (* jds " 5-Sep-84 14:10")
     (PROG ((BOX (create IMAGEBOX
                        XSIZE _ 1008
@@ -1843,9 +1559,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                        YDESC _ 0
                        XKERN _ 4)))
           (IMAGEOBJPROP OBJ 'BOUNDBOX BOX)
-          (RETURN BOX])
-
-(MB.MARGINBAR.DISPLAYFN
+          (RETURN BOX])

(MB.MARGINBAR.DISPLAYFN
   [LAMBDA (OBJ STREAM MODE)                             (* ; "Edited 12-Jun-90 18:59 by mitani")
                                                              (* Display the innards of a menu 
                                                            button)
@@ -1890,9 +1604,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (BITBLT BITMAP 0 0 STREAM (IDIFFERENCE (DSPXPOSITION NIL STREAM)
                                            4)
                  (IDIFFERENCE (DSPYPOSITION NIL STREAM)
-                        (fetch YDESC of IMAGEBOX])
-
-(MDESCALE
+                        (fetch YDESC of IMAGEBOX])

(MDESCALE
   [LAMBDA (VAL UNIT)                                         (* jds " 4-NOV-83 17:29")
           
           (* Convert a value from screen offset units to marginbar units)
@@ -1904,15 +1616,11 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                          UNIT)
                2.0))
        (T (QUOTIENT (DIFFERENCE VAL 4)
-                 UNIT])
-
-(MSCALE
+                 UNIT])

(MSCALE
   [LAMBDA (VAL UNIT)                                         (* jds " 4-NOV-83 17:31")
                                                              (* Convert from marginbar units to a 
                                                              screen X offset)
-    (IPLUS 4 (FIXR (TIMES VAL (OR UNIT 1])
-
-(MB.MARGINBAR.SHOWTAB
+    (IPLUS 4 (FIXR (TIMES VAL (OR UNIT 1])

(MB.MARGINBAR.SHOWTAB
   [LAMBDA (W TAB UNIT MODE)                                  (* jds "22-Mar-85 17:36")
           
           (* Paint/erase/otherwise display the sign for a TAB in window WINDOW, using 
@@ -1945,9 +1653,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (DOTTEDDECIMAL                                 (* Decimal aligned tab)
                              (BITBLT \TEDIT.DOTTED.DECIMALTAB 0 0 W (IDIFFERENCE TABX 7)
                                     1 NIL NIL 'INPUT MODE))
-              NIL])
-
-(MB.MARGINBAR.TABTRACK
+              NIL])

(MB.MARGINBAR.TABTRACK
   [LAMBDA (STREAM OBJ TAB)                                   (* jds " 8-Feb-84 20:38")
           
           (* Given that the mouse is down over a tab, track the tab as the mouse moves.)
@@ -1967,9 +1673,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                              with (MDESCALE X UNIT))
                                                           (MB.MARGINBAR.SHOWTAB STREAM TAB UNIT
                                                                  'PAINT)
-                                                          (SETQ OLDX X])
-
-(\TEDIT.TABTYPE.SET
+                                                          (SETQ OLDX X])

(\TEDIT.TABTYPE.SET
   [LAMBDA (OBJ SEL W)                         (* ; 
                                                 "Edited 24-Apr-95 12:03 by sybalsky:mv:envos")
                                                              (* Change the kind of TAB that will 
@@ -2007,9 +1711,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                                     'OBJECTDATUM) with
                                                                                   (CDR FNARG))
                                                    'STOP]
-                 (CONS CH# STATE])
-
-(MARGINBAR.INIT
+                 (CONS CH# STATE])

(MARGINBAR.INIT
   [LAMBDA NIL                                                (* jds " 9-Feb-86 15:18")
     (SETQ MARGINBARIMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.MARGINBAR.DISPLAYFN)
                                    (FUNCTION MB.MARGINBAR.SIZEFN)
@@ -2025,46 +1727,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                    'NILL
                                    'NILL
                                    'NILL
-                                   'MarginRuler])
-)
-
-(RPAQQ \TEDIT.LEFTTAB #*(10 8)B@@@B@@@G@@@JH@@B@@@B@@@CN@@@@@@)
-
-(RPAQQ \TEDIT.CENTERTAB #*(10 8)@D@@@D@@@N@@AE@@@D@@@D@@AO@@@@@@)
-
-(RPAQQ \TEDIT.RIGHTTAB #*(10 8)@A@@@A@@@CH@@ED@@A@@@A@@AO@@@@@@)
-
-(RPAQQ \TEDIT.DECIMALTAB #*(10 8)@A@@@A@@@CH@@ED@@A@@@CH@@CH@@@@@)
-
-(RPAQQ \TEDIT.DOTTED.LEFTTAB #*(16 8)@@H@@@H@@AL@@BJ@@@H@CFH@CFOH@@@@)
-
-(RPAQQ \TEDIT.DOTTED.CENTERTAB #*(16 8)@@A@@@A@@@CH@@ED@@A@CFA@CFGL@@@@)
-
-(RPAQQ \TEDIT.DOTTED.RIGHTTAB #*(16 8)@@@D@@@D@@@N@@AE@@@DCF@DCFGL@@@@)
-
-(RPAQQ \TEDIT.DOTTED.DECIMALTAB #*(16 8)@@@D@@@D@@@N@@AE@@@D@MHN@MHN@@@@)
-
-(RPAQQ TEDIT.EXTENDEDRIGHTMARK #*(8 32)FF@@FF@@FF@@FF@@LL@@LL@@LL@@LL@@LL@@LL@@LL@@LL@@FF@@FF@@FF@@FF@@CC@@CC@@CC@@CC@@CC@@CC@@CC@@CC@@FF@@FF@@FF@@FF@@LL@@LL@@LL@@LL@@
-)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS MARGINBARIMAGEFNS)
-)
-(DECLARE%: DONTEVAL@LOAD DOCOPY 
-
-(MARGINBAR.INIT)
-
-
-(ADDTOVAR IMAGEOBJTYPES (MarginRuler FILE TEDITMENU GETFN MB.GETFN))
-)
-
-
-
-(* ;; "Text menu creation and support")
-
-(DEFINEQ
-
-(\TEXTMENU.START
+                                   'MarginRuler])
)

(RPAQQ \TEDIT.LEFTTAB #*(10 8)B@@@B@@@G@@@JH@@B@@@B@@@CN@@@@@@)

(RPAQQ \TEDIT.CENTERTAB #*(10 8)@D@@@D@@@N@@AE@@@D@@@D@@AO@@@@@@)

(RPAQQ \TEDIT.RIGHTTAB #*(10 8)@A@@@A@@@CH@@ED@@A@@@A@@AO@@@@@@)

(RPAQQ \TEDIT.DECIMALTAB #*(10 8)@A@@@A@@@CH@@ED@@A@@@CH@@CH@@@@@)

(RPAQQ \TEDIT.DOTTED.LEFTTAB #*(16 8)@@H@@@H@@AL@@BJ@@@H@CFH@CFOH@@@@)

(RPAQQ \TEDIT.DOTTED.CENTERTAB #*(16 8)@@A@@@A@@@CH@@ED@@A@CFA@CFGL@@@@)

(RPAQQ \TEDIT.DOTTED.RIGHTTAB #*(16 8)@@@D@@@D@@@N@@AE@@@DCF@DCFGL@@@@)

(RPAQQ \TEDIT.DOTTED.DECIMALTAB #*(16 8)@@@D@@@D@@@N@@AE@@@D@MHN@MHN@@@@)

(RPAQQ TEDIT.EXTENDEDRIGHTMARK #*(8 32)FF@@FF@@FF@@FF@@LL@@LL@@LL@@LL@@LL@@LL@@LL@@LL@@FF@@FF@@FF@@FF@@CC@@CC@@CC@@CC@@CC@@CC@@CC@@CC@@FF@@FF@@FF@@FF@@LL@@LL@@LL@@LL@@
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS MARGINBARIMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(MARGINBAR.INIT)


(ADDTOVAR IMAGEOBJTYPES (MarginRuler FILE TEDITMENU GETFN MB.GETFN))
)



(* ;; "Text menu creation and support")

(DEFINEQ

(\TEXTMENU.START
   [LAMBDA (MENU MAINWINDOW TITLE HEIGHT)      (* ; 
                                                 "Edited  4-Jun-93 11:59 by sybalsky:mv:envos")
 
@@ -2111,9 +1774,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                                                of (TEXTOBJ 
                                                                                            MAINWINDOW
                                                                                              ]
-          (AND MAINWINDOW (TTY.PROCESS (WINDOWPROP MAINWINDOW 'PROCESS])
-
-(\TEXTMENU.DOC.CREATE
+          (AND MAINWINDOW (TTY.PROCESS (WINDOWPROP MAINWINDOW 'PROCESS])

(\TEXTMENU.DOC.CREATE
   [LAMBDA (MENUDESC MENUPROPS)                          (* ; "Edited 12-Jun-90 19:00 by mitani")
 
          (* Create the TEXTSTREAM for a menu, given a description.
@@ -2263,9 +1924,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                                       of MENUTEXT))
                           (LIST 'SEL CH#1]                   (* And where the first selection 
                                                            should be.)
-          (RETURN MENUTEXT])
-
-(TEXTMENU.CLOSEFN
+          (RETURN MENUTEXT])

(TEXTMENU.CLOSEFN
   [LAMBDA (W)                                           (* ; "Edited 12-Jun-90 18:59 by mitani")
 
     (* ;; "CLOSE a TEdit menu window: Detach the menu, then reshape the remaining windows to take up the remaining space")
@@ -2302,27 +1961,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 
               (* ;; "This has to be TEDIT.KILL to avoid problems with the TTY being handed from main back to menu, causing main never to finish off;  menu would quit and hand TTY to top level window.")
 
-              ])
-)
-
-(RPAQQ TEXTMENUICON #*(16 24)@@@@@@@@@@@@H@@@L@@AK@@GHLAIHCFAJ@HAKFKIJJJAJBKIJBJAH@KIJDHAKDJIJLJIJDJIJDJIH@KIF@HFAHIH@FN@@@H@
-)
-
-(RPAQQ TEXTMENUICONMASK #*(16 24)@@@@@@@@@@@@H@@@L@@AO@@GOLAOOOGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOONAOOH@GN@@@H@
-)
-
-
-
-(* ; "TEdit-specific support")
-
-(DEFINEQ
-
-(\TEDITMENU.CREATE
+              ])
)

(RPAQQ TEXTMENUICON #*(16 24)@@@@@@@@@@@@H@@@L@@AK@@GHLAIHCFAJ@HAKFKIJJJAJBKIJBJAH@KIJDHAKDJIJLJIJDJIJDJIH@KIF@HFAHIH@FN@@@H@
)

(RPAQQ TEXTMENUICONMASK #*(16 24)@@@@@@@@@@@@H@@@L@@AO@@GOLAOOOGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOONAOOH@GN@@@H@
)



(* ; "TEdit-specific support")

(DEFINEQ

(\TEDITMENU.CREATE
   [LAMBDA NIL                                                (* gbn "27-Sep-84 01:04")
                                                              (* Creates the TEdit Expanded Menu)
-    (SETQ TEDIT.EXPANDED.MENU (\TEXTMENU.DOC.CREATE TEDIT.EXPANDEDMENU.SPEC])
-
-(\TEDIT.EXPANDED.MENU
+    (SETQ TEDIT.EXPANDED.MENU (\TEXTMENU.DOC.CREATE TEDIT.EXPANDEDMENU.SPEC])

(\TEDIT.EXPANDED.MENU
   [LAMBDA (STREAM)                                           (* ; "Edited 20-Aug-87 16:51 by jds")
                                                              (* "27-Sep-84 01:04" gbn)
     (PROG (CHARMENUTEXTSTREAM)
@@ -2333,9 +1975,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (COND
              ((OR (TEXTPROP STREAM 'CLEARGET)
                   (TEXTPROP STREAM 'CLEARPUT))               (* initialise the button)
-              (\TEXTMENU.SET.TOGGLE "Unformatted" 'ON CHARMENUTEXTSTREAM])
-
-(MB.DEFAULTBUTTON.FN
+              (\TEXTMENU.SET.TOGGLE "Unformatted" 'ON CHARMENUTEXTSTREAM])

(MB.DEFAULTBUTTON.FN
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 30-Mar-94 15:46 by jds")
                                                              (* ; 
                                                         "MBFN for TEdit default menu item buttons.")
@@ -2383,18 +2023,14 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 
      (* ;; "Tell the menu button handler not to turn off this button--it's still active and will turn itself off.")
 
-           (RETURN 'DON'T])
-
-(\TEDITMENU.RECORD.UNFORMATTED
+           (RETURN 'DON'T])

(\TEDITMENU.RECORD.UNFORMATTED
   [LAMBDA (BUTTON NEWSTATE TEXTSTREAM)                       (* jds " 7-Feb-85 09:44")
     (PROG ((FLG (COND
                    ((EQ NEWSTATE 'ON)
                     T)
                    (T NIL)))
            (TEXTOBJ (TEXTOBJ TEXTSTREAM)))
-          (TEXTPROP TEXTOBJ 'UNFORMATTEDPUT/GET FLG])
-
-(MB.DEFAULTBUTTON.ACTIONFN
+          (TEXTPROP TEXTOBJ 'UNFORMATTEDPUT/GET FLG])

(MB.DEFAULTBUTTON.ACTIONFN
   [LAMBDA (OBJ SEL W TEXTOBJ MAINTEXT MAINSEL)           (* ; "Edited 30-Mar-94 16:04 by jds")
                                                              (* ; 
                                                         "MBFN for TEdit default menu item buttons.")
@@ -2592,11 +2228,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (replace (SELECTION SET) of SEL with NIL)
                                                              (* ; 
                                                            "And forget that anything is selected.")
-      ])
-)
-(DEFINEQ
-
-(\TEDIT.CHARLOOKSMENU.CREATE
+      ])
)
(DEFINEQ

(\TEDIT.CHARLOOKSMENU.CREATE
   [LAMBDA NIL                                                (* ; "Edited 20-Aug-87 16:50 by jds")
                                                              (* ; "Creates the TEdit Expanded Menu")
 
@@ -2621,9 +2253,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                                    (create MB.TEXT
                                                                           MBSTRING _ "
 "))
-                                                            TEDIT.CHARLOOKSMENU.SPEC])
-
-(\TEDIT.EXPANDEDCHARLOOKS.MENU
+                                                            TEDIT.CHARLOOKSMENU.SPEC])

(\TEDIT.EXPANDEDCHARLOOKS.MENU
   [LAMBDA (STREAM)                                           (* ; "Edited 20-Aug-87 16:49 by jds")
           
           (* ;; "Open a character-looks menu.")
@@ -2631,16 +2261,12 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
     (\TEXTMENU.START (COPYTEXTSTREAM TEDIT.CHARLOOKS.MENU T)
            (\TEDIT.PRIMARYW STREAM)
            "Character Looks Menu"
-           (HEIGHTIFWINDOW 68 T])
-
-(\TEDIT.APPLY.BOLDNESS
+           (HEIGHTIFWINDOW 68 T])

(\TEDIT.APPLY.BOLDNESS
   [LAMBDA (BUTTON NEWLOOKS)                                  (* jds "30-Aug-84 13:55")
     (SELECTQ (IMAGEOBJPROP BUTTON 'STATE)
         (ON (CONS 'WEIGHT (CONS 'BOLD NEWLOOKS)))
         (OFF (CONS 'WEIGHT (CONS 'MEDIUM NEWLOOKS)))
-        NEWLOOKS])
-
-(\TEDIT.APPLY.CHARLOOKS
+        NEWLOOKS])

(\TEDIT.APPLY.CHARLOOKS
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 30-May-91 22:17 by jds")
                                                              (* MBFN for TEdit default menu item 
                                                            buttons.)
@@ -2664,16 +2290,12 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (TTY.PROCESS (WINDOWPROP (WINDOWPROP W 'MAINWINDOW)
                               'PROCESS))                     (* Leave him typing in the real 
                                                            document)
-      ])
-
-(\TEDIT.APPLY.OLINE
+      ])

(\TEDIT.APPLY.OLINE
   [LAMBDA (BUTTON NEWLOOKS)                                  (* jds "30-Aug-84 13:56")
     (SELECTQ (IMAGEOBJPROP BUTTON 'STATE)
         (ON (CONS 'OVERLINE (CONS 'ON NEWLOOKS)))
         (OFF (CONS 'OVERLINE (CONS 'OFF NEWLOOKS)))
-        NEWLOOKS])
-
-(\TEDIT.SHOW.CHARLOOKS
+        NEWLOOKS])

(\TEDIT.SHOW.CHARLOOKS
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 30-May-91 22:17 by jds")
 
     (* ;; "Set the CHARLOOKS menu from the looks of the currently selected character.")
@@ -2701,9 +2323,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                          NEWLOOKS))
                                                              (* ; 
                                                            "Fill in the menu blanks with that info")
-              ])
-
-(\TEDIT.NEUTRALIZE.CHARLOOKS
+              ])

(\TEDIT.NEUTRALIZE.CHARLOOKS
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 30-May-91 22:18 by jds")
 
          (* Handle the NEUTRAL button on a character looks menu.
@@ -2719,9 +2339,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (\TEDIT.NEUTRALIZE.CHARLOOKS.MENU TEXTOBJ CH#) (* Fill in the menu blanks with that 
                                                            info)
           (TEDIT.UPDATE.SCREEN TEXTOBJ)                      (* And update the screen image.)
-      ])
-
-(\TEDIT.FILL.IN.CHARLOOKS.MENU
+      ])

(\TEDIT.FILL.IN.CHARLOOKS.MENU
   [LAMBDA (TEXTOBJ CH# NEWLOOKS)                         (* ; "Edited 30-May-91 22:28 by jds")
 
     (* ;; "Given a TEXTOBJ describing a charlooks menu, the CH# of the start of the charlooks menu, and a set of looks, fill in the menu fields.")
@@ -2825,9 +2443,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                 "Now move up to the offset distance fill-in field.")
           (\SHOWSEL SCRATCHSEL NIL NIL)
           (replace (SELECTION SET) of SCRATCHSEL with NIL)
-          (\TEDIT.MARK.LINES.DIRTY TEXTOBJ CH# (ADD1 (fetch (SELECTION CH#) of SCRATCHSEL])
-
-(\TEDIT.NEUTRALIZE.CHARLOOKS.MENU
+          (\TEDIT.MARK.LINES.DIRTY TEXTOBJ CH# (ADD1 (fetch (SELECTION CH#) of SCRATCHSEL])

(\TEDIT.NEUTRALIZE.CHARLOOKS.MENU
   [LAMBDA (TEXTOBJ CH#)                                  (* ; "Edited 30-May-91 22:18 by jds")
 
     (* ;; 
@@ -2865,9 +2481,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                  (MBUTTON.SET.NEXT.FIELD TEXTOBJ (ADD1 (CDR NEXTB))
                         NIL)                                 (* ; 
                                                 "Now move up to the offset distance fill-in field.")
-                 ])
-
-(\TEDIT.PARSE.CHARLOOKS.MENU
+                 ])

(\TEDIT.PARSE.CHARLOOKS.MENU
   [LAMBDA (TEXTOBJ CH#)                                  (* ; "Edited 30-May-91 22:18 by jds")
                                                              (* MBFN for TEdit default menu item 
                                                            buttons.)
@@ -2980,46 +2594,32 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                            subscripting)
                       (SETQ NEWLOOKS (CONS 'SUPERSCRIPT (CONS 0 NEWLOOKS))))
               NIL)
-          (RETURN NEWLOOKS])
-
-(\TEDIT.APPLY.SLOPE
+          (RETURN NEWLOOKS])

(\TEDIT.APPLY.SLOPE
   [LAMBDA (BUTTON NEWLOOKS)                                  (* jds "30-Aug-84 13:56")
     (SELECTQ (IMAGEOBJPROP BUTTON 'STATE)
         (ON (CONS 'SLOPE (CONS 'ITALIC NEWLOOKS)))
         (OFF (CONS 'SLOPE (CONS 'REGULAR NEWLOOKS)))
-        NEWLOOKS])
-
-(\TEDIT.APPLY.STRIKEOUT
+        NEWLOOKS])

(\TEDIT.APPLY.STRIKEOUT
   [LAMBDA (BUTTON NEWLOOKS)                                  (* jds "30-Aug-84 13:56")
     (SELECTQ (IMAGEOBJPROP BUTTON 'STATE)
         (ON (CONS 'STRIKEOUT (CONS 'ON NEWLOOKS)))
         (OFF (CONS 'STRIKEOUT (CONS 'OFF NEWLOOKS)))
-        NEWLOOKS])
-
-(\TEDIT.APPLY.ULINE
+        NEWLOOKS])

(\TEDIT.APPLY.ULINE
   [LAMBDA (BUTTON NEWLOOKS)                                  (* jds "30-Aug-84 13:56")
     (SELECTQ (IMAGEOBJPROP BUTTON 'STATE)
         (ON (CONS 'UNDERLINE (CONS 'ON NEWLOOKS)))
         (OFF (CONS 'UNDERLINE (CONS 'OFF NEWLOOKS)))
-        NEWLOOKS])
-)
-(DEFINEQ
-
-(\TEDITPARAMENU.CREATE
+        NEWLOOKS])
)
(DEFINEQ

(\TEDITPARAMENU.CREATE
   [LAMBDA NIL                                                (* jds " 2-Aug-84 15:32")
                                                              (* Creates the TEdit Expanded 
                                                              Paragraph Menu)
-    (SETQ TEDIT.EXPANDEDPARA.MENU (\TEXTMENU.DOC.CREATE TEDIT.PARAMENU.SPEC])
-
-(\TEDIT.EXPANDEDPARA.MENU
+    (SETQ TEDIT.EXPANDEDPARA.MENU (\TEXTMENU.DOC.CREATE TEDIT.PARAMENU.SPEC])

(\TEDIT.EXPANDEDPARA.MENU
   [LAMBDA (STREAM)                                           (* ; "Edited 20-Aug-87 16:51 by jds")
 
     (\TEXTMENU.START (COPYTEXTSTREAM TEDIT.EXPANDEDPARA.MENU T)
            (\TEDIT.PRIMARYW (TEXTOBJ STREAM))
            "Paragraph-Looks Menu"
-           (HEIGHTIFWINDOW 141 T])
-
-(\TEDIT.APPLY.PARALOOKS
+           (HEIGHTIFWINDOW 141 T])

(\TEDIT.APPLY.PARALOOKS
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 22-Apr-93 16:45 by jds")
 
     (* ;; "Handler for the Paragraph Menu's APPLY button.  Collects the specs from the paragraph menu and calls TEDIT.PARALOOKS to effect the change.")
@@ -3199,9 +2799,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                  (fetch (SELECTION DCH) of (fetch (TEXTOBJ SEL) of MAINTEXT)))
           (\SHOWSEL SEL NIL NIL)
           (TTY.PROCESS (WINDOWPROP (WINDOWPROP W 'MAINWINDOW)
-                              'PROCESS])
-
-(\TEDIT.SHOW.PARALOOKS
+                              'PROCESS])

(\TEDIT.SHOW.PARALOOKS
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited  6-Jul-92 09:42 by jds")
 
     (* ;; "Fill in the PARAGRAPH LOOKS menu from the para looks for a selected character")
@@ -3369,9 +2967,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                      with (for TAB in (CDR (fetch (FMTSPEC TABSPEC) of FMTSPEC))
                                  collect (CONS (FQUOTIENT (CAR TAB)
                                                           (fetch MARUNIT of BUTTONDATA))
-                                                   (CDR TAB])
-
-(\TEDIT.NEUTRALIZE.PARALOOKS.MENU
+                                                   (CDR TAB])

(\TEDIT.NEUTRALIZE.PARALOOKS.MENU
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited 30-May-91 22:18 by jds")
 
     (* ;; "Set all the fields of a PARAGRAPH LOOKS menu to neutral settings.")
@@ -3451,9 +3047,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                            20)
                                                 12)))
                                 (T (IMIN -0.5 (IMINUS (fetch MARR of BUTTONDATA]
-                 (replace MARTABS of BUTTONDATA with 'NEUTRAL])
-
-(\TEDIT.RECORD.TABLEADERS
+                 (replace MARTABS of BUTTONDATA with 'NEUTRAL])

(\TEDIT.RECORD.TABLEADERS
   [LAMBDA (BUTTON NEWSTATE TEXTSTREAM SEL)               (* ; "Edited 30-May-91 22:18 by jds")
 
          (* Toggle the dotted-leader state of the margin bar tab-setter.
@@ -3480,11 +3074,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                            (DOTTEDRIGHT 'RIGHT)
                            (DECIMAL 'DOTTEDDECIMAL)
                            (DOTTEDDECIMAL 'DECIMAL)
-                           (SHOULDNT])
-)
-(DEFINEQ
-
-(\TEDIT.SHOW.PAGEFORMATTING
+                           (SHOULDNT])
)
(DEFINEQ

(\TEDIT.SHOW.PAGEFORMATTING
   [LAMBDA (OBJ SEL W)                                    (* ; "Edited  4-Feb-92 16:38 by jds")
 
 (* ;;; "Take a document's page formatting, and display it in the menu.")
@@ -3712,9 +3302,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                (OR PFONT TEDIT.DEFAULT.FOLIO.LOOKS))
                                                              (* ; 
                                                       "The font for the page numbers to appear in.")
-                                        ])
-
-(\TEDITPAGEMENU.CREATE
+                                        ])

(\TEDITPAGEMENU.CREATE
   [LAMBDA NIL                                                (* gbn " 8-Oct-84 18:25")
                                                              (* Creates the TEdit Expanded Menu)
     (SETQ TEDIT.EXPANDED.PAGEMENU (\TEXTMENU.DOC.CREATE (APPEND TEDIT.PAGEMENU.SPEC 
@@ -3725,9 +3313,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                                             MBFONT _
                                                                             (FONTCREATE 'HELVETICA 10
                                                                                    'BOLD]
-                                                               TEDIT.CHARLOOKSMENU.SPEC])
-
-(\TEDIT.APPLY.PAGEFORMATTING
+                                                               TEDIT.CHARLOOKSMENU.SPEC])

(\TEDIT.APPLY.PAGEFORMATTING
   [LAMBDA (OBJ SEL W)                         (* ; 
                                                 "Edited  4-Jun-93 12:04 by sybalsky:mv:envos")
 
@@ -3909,9 +3495,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                              (* ; 
                                                            "Mark the document as having changed.")
           (TTY.PROCESS (WINDOWPROP (WINDOWPROP W 'MAINWINDOW)
-                              'PROCESS])
-
-(TEDIT.UNPARSE.PAGEFORMAT
+                              'PROCESS])

(TEDIT.UNPARSE.PAGEFORMAT
   [LAMBDA (PAGEREGION UNITS)                            (* ; "Edited 12-Jun-90 18:59 by mitani")
 
 (* ;;; "Take a page layout and unparse it into a PList of specs.")
@@ -4023,517 +3607,9 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                                                 SCALEFACTOR))
                                                                100]
           (LIST PAGENOS PX PY PFONT PQUAD LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS
-                (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION])
-)
-
-
-
-(* ; "Initialization Code")
-
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS TEDIT.EXPANDED.MENU TEDIT.EXPANDEDPARA.MENU TEDIT.CHARLOOKS.MENU TEDIT.MENUDIVIDER.SPEC 
-       TEDIT.EXPANDEDMENU.SPEC TEDIT.CHARLOOKSMENU.SPEC TEDIT.PARAMENU.SPEC TEDIT.PAGEMENU.SPEC 
-       TEDIT.EXPANDED.PAGEMENU)
-)
-(DEFINEQ
-
-(\TEDIT.MENU.INIT
-  [LAMBDA NIL                                            (* ; "Edited 30-Mar-94 15:53 by jds")
-
-(* ;;; "Initialize the descriptions for all TEdit menus")
-
-(* ;;; "Divides between the main page layout menu and page-# font submenu")
-
-    (SETQ TEDIT.MENUDIVIDER.SPEC (LIST (create MB.TEXT
-                                              MBSTRING _ "
-
-")))
-
-(* ;;; "The principal expanded menu")
-
-    (SETQ TEDIT.EXPANDEDMENU.SPEC (LIST (create MB.BUTTON
-                                               MBLABEL _ "Quit")
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Page Layout")
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Char Looks")
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Para Looks")
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "All")
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.TOGGLE
-                                               MBTEXT _ "Unformatted"
-                                               MBCHANGESTATEFN _ (FUNCTION 
-                                                                  \TEDITMENU.RECORD.UNFORMATTED))
-                                        (create MB.TEXT
-                                               MBSTRING _ "
-")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Get")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Put")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Include")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "
-")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Find")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Substitute")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "  for")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "   ")
-                                        (create MB.TOGGLE
-                                               MBTEXT _ "Confirm")
-                                        (create MB.TEXT
-                                               MBSTRING _ "	")
-                                        (create MB.TOGGLE
-                                               MBTEXT _ "Use New Looks")
-                                        (create MB.TEXT
-                                               MBSTRING _ "
-")
-                                        (create MB.BUTTON
-                                               MBLABEL _ "Hardcopy")
-                                        (create MB.TEXT
-                                               MBSTRING _ "  server:")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "  copies:")
-                                        (create MB.INSERT)
-                                        (create MB.TEXT
-                                               MBSTRING _ "
-")
-                                        (create MB.TEXT
-                                               MBSTRING _ "Print ")
-                                        (create MB.NWAY
-                                               MBBUTTONS _ '(One% Side Duplex)
-                                               MBMAXITEMSPERLINE _ 5)
-                                        (create MB.TEXT
-                                               MBSTRING _ "   Message/Phone#:")
-                                        (create MB.INSERT)))
-
-(* ;;; "The character-looks (font, etc.) menu")
-
-    (SETQ TEDIT.CHARLOOKSMENU.SPEC (LIST (create MB.TEXT
-                                                MBSTRING _ "Props:  "
-                                                MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                         (create MB.3STATE
-                                                MBLABEL _ 'Bold)
-                                         (create MB.TEXT
-                                                MBSTRING _ "  ")
-                                         (create MB.3STATE
-                                                MBLABEL _ 'Italic)
-                                         (create MB.TEXT
-                                                MBSTRING _ "  ")
-                                         (create MB.3STATE
-                                                MBLABEL _ 'Underline)
-                                         (create MB.TEXT
-                                                MBSTRING _ "  ")
-                                         (create MB.3STATE
-                                                MBLABEL _ 'StrikeThru)
-                                         (create MB.TEXT
-                                                MBSTRING _ "  ")
-                                         (create MB.3STATE
-                                                MBLABEL _ 'Overbar)
-                                         (create MB.TEXT
-                                                MBSTRING _ "
-")
-                                         (create MB.NWAY
-                                                MBBUTTONS _
-                                                '(TimesRoman Helvetica Gacha Modern Classic Terminal
-                                                        Other)
-                                                MBMAXITEMSPERLINE _ 5)
-                                         (create MB.TEXT
-                                                MBSTRING _ "other font:")
-                                         (create MB.INSERT)
-                                         (create MB.TEXT
-                                                MBSTRING _ "
-")
-                                         (create MB.TEXT
-                                                MBSTRING _ "Size: "
-                                                MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                         (create MB.INSERT)
-                                         (create MB.TEXT
-                                                MBSTRING _ "   ")
-                                         (create MB.NWAY
-                                                MBBUTTONS _ '(Normal Superscript Subscript))
-                                         (create MB.TEXT
-                                                MBSTRING _ "  distance: "
-                                                MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                         (create MB.INSERT)))
-
-(* ;;; "The paragraph-formatting menu (margins, etc.)")
-
-    (SETQ TEDIT.PARAMENU.SPEC (LIST (create MB.BUTTON
-                                           MBLABEL _ 'APPLY
-                                           MBBUTTONEVENTFN _ (FUNCTION \TEDIT.APPLY.PARALOOKS))
-                                    (create MB.TEXT
-                                           MBSTRING _ "   ")
-                                    (create MB.BUTTON
-                                           MBLABEL _ 'SHOW
-                                           MBBUTTONEVENTFN _ (FUNCTION \TEDIT.SHOW.PARALOOKS))
-                                    (create MB.TEXT
-                                           MBSTRING _ "   ")
-                                    (create MB.BUTTON
-                                           MBLABEL _ 'NEUTRAL
-                                           MBBUTTONEVENTFN _ (FUNCTION 
-                                                              \TEDIT.NEUTRALIZE.PARALOOKS.MENU))
-                                    (create MB.TEXT
-                                           MBSTRING _ "
-")
-                                    (create MB.NWAY
-                                           MBBUTTONS _ '(Left Right Centered Justified))
-                                    (create MB.TEXT
-                                           MBSTRING _ "	")
-                                    (create MB.3STATE
-                                           MBLABEL _ "Page Heading")
-                                    (create MB.TEXT
-                                           MBSTRING _ "  type:")
-                                    (create MB.INSERT)
-                                    (create MB.TEXT
-                                           MBSTRING _ "
-Line leading:"
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.INSERT)
-                                    (create MB.TEXT
-                                           MBSTRING _ "pts   Para Leading:"
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.INSERT)
-                                    (create MB.TEXT
-                                           MBSTRING _ "pts   Special Locn:  X"
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.INSERT)
-                                    (create MB.TEXT
-                                           MBSTRING _ "picas,  Y"
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.INSERT)
-                                    (create MB.TEXT
-                                           MBSTRING _ "picas
-New Page:  "
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.3STATE
-                                           MBLABEL _ "Before")
-                                    (create MB.TEXT
-                                           MBSTRING _ "  ")
-                                    (create MB.3STATE
-                                           MBLABEL _ "After")
-                                    (create MB.TEXT
-                                           MBSTRING _ "	Display mode:  "
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.3STATE
-                                           MBLABEL _ "Hardcopy")
-                                    (create MB.TEXT
-                                           MBSTRING _ "	Keep:  "
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.3STATE
-                                           MBLABEL _ "Heading")
-                                    (create MB.TEXT
-                                           MBSTRING _ "
-Tab Type:  "
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    [create MB.NWAY
-                                           MBBUTTONS _ '((Left \TEDIT.TABTYPE.SET)
-                                                         (Right \TEDIT.TABTYPE.SET)
-                                                         (Centered \TEDIT.TABTYPE.SET)
-                                                         (Decimal \TEDIT.TABTYPE.SET]
-                                    (create MB.TEXT
-                                           MBSTRING _ "  ")
-                                    (create MB.TOGGLE
-                                           MBTEXT _ "Dotted Leader"
-                                           MBCHANGESTATEFN _ (FUNCTION \TEDIT.RECORD.TABLEADERS))
-                                    (create MB.TEXT
-                                           MBSTRING _ "	Default Tab Size:"
-                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
-                                    (create MB.INSERT)
-                                    (create MB.TEXT
-                                           MBSTRING _ "
-")
-                                    (create MB.MARGINBAR)
-                                    (create MB.TEXT
-                                           MBSTRING _ "
-")))
-
-(* ;;; "Page-layout menu for columns, page headings, page numbers, etc.")
-
-    (SETQ TEDIT.PAGEMENU.SPEC (APPEND (LIST (create MB.BUTTON
-                                                   MBLABEL _ 'APPLY
-                                                   MBBUTTONEVENTFN _ '\TEDIT.APPLY.PAGEFORMATTING)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "   "
-                                                   MBFONT _ (FONTCREATE 'HELVETICA 8 'BOLD))
-                                            (create MB.BUTTON
-                                                   MBLABEL _ 'SHOW
-                                                   MBBUTTONEVENTFN _ '\TEDIT.SHOW.PAGEFORMATTING)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "
-")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "For page:  ")
-                                            (create MB.NWAY
-                                                   MBBUTTONS _ '(|First(&Default)| Other% Left 
-                                                                       Other% Right))
-                                            (create MB.TEXT
-                                                   MBSTRING _ "
-   Starting Page #:  ")
-                                            (create MB.INSERT
-                                                   MBINITENTRY _ 1)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "	Paper Size:  ")
-                                            (create MB.NWAY
-                                                   MBBUTTONS _ '(Letter Legal A4)
-                                                   MBINITSTATE _ 'Letter)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "  ")
-                                            (create MB.TOGGLE
-                                                   MBTEXT _ "Landscape")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "
-
-")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "Page numbers:  ")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "  "
-                                                   MBFONT _ (FONTCREATE 'HELVETICA 8 'BOLD))
-                                            (create MB.NWAY
-                                                   MBBUTTONS _ '(No Yes)
-                                                   MBINITSTATE _ 'Yes)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "  ")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "X: ")
-                                            (create MB.INSERT
-                                                   MBINITENTRY _ 25.5)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "  ")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "Y: ")
-                                            (create MB.INSERT
-                                                   MBINITENTRY _ 3)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "    Format:  ")
-                                            (create MB.NWAY
-                                                   MBBUTTONS _ '(123 xiv XIV)
-                                                   MBINITSTATE _ '123)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "
-		")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "Alignment: ")
-                                            (create MB.NWAY
-                                                   MBBUTTONS _ '(Left Centered Right)
-                                                   MBINITSTATE _ 'Centered)
-                                            (create MB.TEXT
-                                                   MBSTRING _ "
-")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "		Text before number:  ")
-                                            (create MB.INSERT
-                                                   MBINITENTRY _ "")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "   Text after number:  ")
-                                            (create MB.INSERT
-                                                   MBINITENTRY _ "")
-                                            (create MB.TEXT
-                                                   MBSTRING _ "
-"))
-                                     (LIST (create MB.TEXT
-                                                  MBSTRING _ "Margins:   Left")
-                                           (create MB.INSERT
-                                                  MBINITENTRY _ 6)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Right")
-                                           (create MB.INSERT
-                                                  MBINITENTRY _ 6)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "   Top")
-                                           (create MB.INSERT
-                                                  MBINITENTRY _ 6)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "   Bottom")
-                                           (create MB.INSERT
-                                                  MBINITENTRY _ 6)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "
-")
-                                           (create MB.TEXT
-                                                  MBSTRING _ "Columns: ")
-                                           (create MB.INSERT
-                                                  MBINITENTRY _ 1)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "	Col Width: ")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "	Space between cols: ")
-                                           (create MB.INSERT
-                                                  MBINITENTRY _ 1)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "
-")
-                                           (create MB.TEXT
-                                                  MBSTRING _ "Page Headings:"
-                                                  MBFONT _ (FONTCREATE 'HELVETICA 10 'BOLD))
-                                           (create MB.TEXT
-                                                  MBSTRING _ "
-	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "
-	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "
-	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "
-	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "	Heading Type:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  X:")
-                                           (create MB.INSERT)
-                                           (create MB.TEXT
-                                                  MBSTRING _ "  Y:")
-                                           (create MB.INSERT])
-)
-(DECLARE%: DONTEVAL@LOAD DOCOPY 
-
-(\TEDIT.MENU.INIT)
-
-(\TEDITMENU.CREATE)
-
-(\TEDIT.CHARLOOKSMENU.CREATE)
-
-(\TEDITPARAMENU.CREATE)
-
-(\TEDITPAGEMENU.CREATE)
-)
-(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
-
-(ADDTOVAR NLAMA )
-
-(ADDTOVAR NLAML )
-
-(ADDTOVAR LAMA )
-)
-(PUTPROPS TEDITMENU COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
-1991 1992 1993 1994 1995))
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6283 33125 (MB.BUTTONEVENTINFN 6293 . 7624) (MB.DISPLAY 7626 . 9994) (MB.SETIMAGE 9996
- . 10954) (MB.SELFN 10956 . 12371) (MB.SIZEFN 12373 . 13390) (MB.WHENOPERATEDFN 13392 . 13724) (
-MB.COPYFN 13726 . 14188) (MB.GETFN 14190 . 14798) (MB.PUTFN 14800 . 15577) (MB.SHOWSELFN 15579 . 16551
-) (MBUTTON.CREATE 16553 . 17837) (MBUTTON.CHANGENAME 17839 . 18234) (MBUTTON.FIND.BUTTON 18236 . 19252
-) (MBUTTON.FIND.NEXT.BUTTON 19254 . 20649) (MBUTTON.FIND.NEXT.FIELD 20651 . 24365) (MBUTTON.INIT 24367
- . 25157) (MBUTTON.NEXT.FIELD.AS.NUMBER 25159 . 25512) (MBUTTON.NEXT.FIELD.AS.PIECES 25514 . 25944) (
-MBUTTON.NEXT.FIELD.AS.TEXT 25946 . 26368) (MBUTTON.NEXT.FIELD.AS.ATOM 26370 . 27243) (
-MBUTTON.SET.FIELD 27245 . 29301) (MBUTTON.SET.NEXT.FIELD 29303 . 30520) (MBUTTON.SET.NEXT.BUTTON.STATE
- 30522 . 31018) (TEDITMENU.STREAM 31020 . 31629) (\TEDITMENU.SELSCREENER 31631 . 33123)) (33429 43852 
-(MB.CREATE.THREESTATEBUTTON 33439 . 34610) (MB.THREESTATE.DISPLAY 34612 . 37202) (
-MB.THREESTATE.SHOWSELFN 37204 . 40306) (MB.THREESTATE.WHENOPERATEDFN 40308 . 41687) (
-MB.THREESTATEBUTTON.FN 41689 . 42786) (THREESTATE.INIT 42788 . 43850)) (43953 63189 (
-MB.CREATE.NWAYBUTTON 43963 . 47931) (MB.NB.DISPLAYFN 47933 . 50205) (MB.NB.WHENOPERATEDFN 50207 . 
-51239) (MB.NB.SIZEFN 51241 . 54780) (MB.NWAYBUTTON.SELFN 54782 . 56726) (MB.NWAYMENU.NEWBUTTON 56728
- . 57314) (NWAYBUTTON.INIT 57316 . 58169) (MB.NB.PACKITEMS 58171 . 60168) (MB.NWAYBUTTON.ADDITEM 60170
- . 63187)) (63443 74091 (\TEXTMENU.TOGGLE.CREATE 63453 . 64854) (\TEXTMENU.TOGGLE.DISPLAY 64856 . 
-67208) (\TEXTMENU.TOGGLE.SHOWSELFN 67210 . 69572) (\TEXTMENU.TOGGLE.WHENOPERATEDFN 69574 . 70962) (
-\TEXTMENU.TOGGLEFN 70964 . 72044) (\TEXTMENU.TOGGLE.INIT 72046 . 72881) (\TEXTMENU.SET.TOGGLE 72883 . 
-74089)) (74343 111715 (DRAWMARGINSCALE 74353 . 77897) (MARGINBAR 77899 . 85269) (MARGINBAR.CREATE 
-85271 . 88181) (MB.MARGINBAR.SELFN 88183 . 100777) (MB.MARGINBAR.SIZEFN 100779 . 101141) (
-MB.MARGINBAR.DISPLAYFN 101143 . 103828) (MDESCALE 103830 . 104269) (MSCALE 104271 . 104605) (
-MB.MARGINBAR.SHOWTAB 104607 . 106778) (MB.MARGINBAR.TABTRACK 106780 . 108115) (\TEDIT.TABTYPE.SET 
-108117 . 110824) (MARGINBAR.INIT 110826 . 111713)) (112732 130334 (\TEXTMENU.START 112742 . 115934) (
-\TEXTMENU.DOC.CREATE 115936 . 127460) (TEXTMENU.CLOSEFN 127462 . 130332)) (130644 150708 (
-\TEDITMENU.CREATE 130654 . 130954) (\TEDIT.EXPANDED.MENU 130956 . 131660) (MB.DEFAULTBUTTON.FN 131662
- . 134534) (\TEDITMENU.RECORD.UNFORMATTED 134536 . 134874) (MB.DEFAULTBUTTON.ACTIONFN 134876 . 150706)
-) (150709 178092 (\TEDIT.CHARLOOKSMENU.CREATE 150719 . 152859) (\TEDIT.EXPANDEDCHARLOOKS.MENU 152861
- . 153235) (\TEDIT.APPLY.BOLDNESS 153237 . 153522) (\TEDIT.APPLY.CHARLOOKS 153524 . 155455) (
-\TEDIT.APPLY.OLINE 155457 . 155738) (\TEDIT.SHOW.CHARLOOKS 155740 . 157653) (
-\TEDIT.NEUTRALIZE.CHARLOOKS 157655 . 158581) (\TEDIT.FILL.IN.CHARLOOKS.MENU 158583 . 166236) (
-\TEDIT.NEUTRALIZE.CHARLOOKS.MENU 166238 . 169121) (\TEDIT.PARSE.CHARLOOKS.MENU 169123 . 177231) (
-\TEDIT.APPLY.SLOPE 177233 . 177516) (\TEDIT.APPLY.STRIKEOUT 177518 . 177805) (\TEDIT.APPLY.ULINE 
-177807 . 178090)) (178093 210159 (\TEDITPARAMENU.CREATE 178103 . 178483) (\TEDIT.EXPANDEDPARA.MENU 
-178485 . 178805) (\TEDIT.APPLY.PARALOOKS 178807 . 191037) (\TEDIT.SHOW.PARALOOKS 191039 . 202566) (
-\TEDIT.NEUTRALIZE.PARALOOKS.MENU 202568 . 208639) (\TEDIT.RECORD.TABLEADERS 208641 . 210157)) (210160 
-248162 (\TEDIT.SHOW.PAGEFORMATTING 210170 . 226710) (\TEDITPAGEMENU.CREATE 226712 . 227755) (
-\TEDIT.APPLY.PAGEFORMATTING 227757 . 240128) (TEDIT.UNPARSE.PAGEFORMAT 240130 . 248160)) (248467 
-275206 (\TEDIT.MENU.INIT 248477 . 275204)))))
-STOP
+                (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION])
)



(* ; "Initialization Code")

(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS TEDIT.EXPANDED.MENU TEDIT.EXPANDEDPARA.MENU TEDIT.CHARLOOKS.MENU TEDIT.MENUDIVIDER.SPEC 
       TEDIT.EXPANDEDMENU.SPEC TEDIT.CHARLOOKSMENU.SPEC TEDIT.PARAMENU.SPEC TEDIT.PAGEMENU.SPEC 
       TEDIT.EXPANDED.PAGEMENU)
)
(DEFINEQ

(\TEDIT.MENU.INIT
  [LAMBDA NIL                                          (* ; "Edited  4-Jan-2021 13:36 by larry")
                                                             (* ; "Edited 30-Mar-94 15:53 by jds")

(* ;;; "Initialize the descriptions for all TEdit menus")

(* ;;; "Divides between the main page layout menu and page-# font submenu")

    (SETQ TEDIT.MENUDIVIDER.SPEC (LIST (create MB.TEXT
                                              MBSTRING _ "

")))

(* ;;; "The principal expanded menu")

    (SETQ TEDIT.EXPANDEDMENU.SPEC (LIST (create MB.BUTTON
                                               MBLABEL _ "Quit")
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.BUTTON
                                               MBLABEL _ "Page Layout")
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.BUTTON
                                               MBLABEL _ "Char Looks")
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.BUTTON
                                               MBLABEL _ "Para Looks")
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.BUTTON
                                               MBLABEL _ "All")
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.TOGGLE
                                               MBTEXT _ "Unformatted"
                                               MBCHANGESTATEFN _ (FUNCTION 
                                                                  \TEDITMENU.RECORD.UNFORMATTED))
                                        (create MB.TEXT
                                               MBSTRING _ "
")
                                        (create MB.BUTTON
                                               MBLABEL _ "Get")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.BUTTON
                                               MBLABEL _ "Put")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.BUTTON
                                               MBLABEL _ "Include")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "
")
                                        (create MB.BUTTON
                                               MBLABEL _ "Find")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.BUTTON
                                               MBLABEL _ "Substitute")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "  for")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "   ")
                                        (create MB.TOGGLE
                                               MBTEXT _ "Confirm")
                                        (create MB.TEXT
                                               MBSTRING _ "	")
                                        (create MB.TOGGLE
                                               MBTEXT _ "Use New Looks")
                                        (create MB.TEXT
                                               MBSTRING _ "
")
                                        (create MB.BUTTON
                                               MBLABEL _ "Hardcopy")
                                        (create MB.TEXT
                                               MBSTRING _ "  server:")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "  copies:")
                                        (create MB.INSERT)
                                        (create MB.TEXT
                                               MBSTRING _ "
")
                                        (create MB.TEXT
                                               MBSTRING _ "Print ")
                                        (create MB.NWAY
                                               MBBUTTONS _ '(One% Side Duplex)
                                               MBMAXITEMSPERLINE _ 5)
                                        (create MB.TEXT
                                               MBSTRING _ "   Message/Phone#:")
                                        (create MB.INSERT)))

(* ;;; "The character-looks (font, etc.) menu")

    (SETQ TEDIT.CHARLOOKSMENU.SPEC (LIST (create MB.TEXT
                                                MBSTRING _ "Props:  "
                                                MBFONT _ (FONTCREATE 'HELVETICA 8))
                                         (create MB.3STATE
                                                MBLABEL _ 'Bold)
                                         (create MB.TEXT
                                                MBSTRING _ "  ")
                                         (create MB.3STATE
                                                MBLABEL _ 'Italic)
                                         (create MB.TEXT
                                                MBSTRING _ "  ")
                                         (create MB.3STATE
                                                MBLABEL _ 'Underline)
                                         (create MB.TEXT
                                                MBSTRING _ "  ")
                                         (create MB.3STATE
                                                MBLABEL _ 'StrikeThru)
                                         (create MB.TEXT
                                                MBSTRING _ "  ")
                                         (create MB.3STATE
                                                MBLABEL _ 'Overbar)
                                         (create MB.TEXT
                                                MBSTRING _ "
")
                                         (create MB.NWAY
                                                MBBUTTONS _
                                                '(TimesRoman Helvetica Gacha Modern Classic Terminal
                                                        Other)
                                                MBMAXITEMSPERLINE _ 5)
                                         (create MB.TEXT
                                                MBSTRING _ "other font:")
                                         (create MB.INSERT)
                                         (create MB.TEXT
                                                MBSTRING _ "
")
                                         (create MB.TEXT
                                                MBSTRING _ "Size: "
                                                MBFONT _ (FONTCREATE 'HELVETICA 8))
                                         (create MB.INSERT)
                                         (create MB.TEXT
                                                MBSTRING _ "   ")
                                         (create MB.NWAY
                                                MBBUTTONS _ '(Normal Superscript Subscript))
                                         (create MB.TEXT
                                                MBSTRING _ "  distance: "
                                                MBFONT _ (FONTCREATE 'HELVETICA 8))
                                         (create MB.INSERT)))

(* ;;; "The paragraph-formatting menu (margins, etc.)")

    (SETQ TEDIT.PARAMENU.SPEC (LIST (create MB.BUTTON
                                           MBLABEL _ 'APPLY
                                           MBBUTTONEVENTFN _ (FUNCTION \TEDIT.APPLY.PARALOOKS))
                                    (create MB.TEXT
                                           MBSTRING _ "   ")
                                    (create MB.BUTTON
                                           MBLABEL _ 'SHOW
                                           MBBUTTONEVENTFN _ (FUNCTION \TEDIT.SHOW.PARALOOKS))
                                    (create MB.TEXT
                                           MBSTRING _ "   ")
                                    (create MB.BUTTON
                                           MBLABEL _ 'NEUTRAL
                                           MBBUTTONEVENTFN _ (FUNCTION 
                                                              \TEDIT.NEUTRALIZE.PARALOOKS.MENU))
                                    (create MB.TEXT
                                           MBSTRING _ "
")
                                    (create MB.NWAY
                                           MBBUTTONS _ '(Left Right Centered Justified))
                                    (create MB.TEXT
                                           MBSTRING _ "	")
                                    (create MB.3STATE
                                           MBLABEL _ "Page Heading")
                                    (create MB.TEXT
                                           MBSTRING _ "  type:")
                                    (create MB.INSERT)
                                    (create MB.TEXT
                                           MBSTRING _ "%
+Line leading:"
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.INSERT)
                                    (create MB.TEXT
                                           MBSTRING _ "pts   Para Leading:"
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.INSERT)
                                    (create MB.TEXT
                                           MBSTRING _ "pts   Special Locn:  X"
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.INSERT)
                                    (create MB.TEXT
                                           MBSTRING _ "picas,  Y"
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.INSERT)
                                    (create MB.TEXT
                                           MBSTRING _ "picas%
+New Page:  "
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.3STATE
                                           MBLABEL _ "Before")
                                    (create MB.TEXT
                                           MBSTRING _ "  ")
                                    (create MB.3STATE
                                           MBLABEL _ "After")
                                    (create MB.TEXT
                                           MBSTRING _ "	Display mode:  "
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.3STATE
                                           MBLABEL _ "Hardcopy")
                                    (create MB.TEXT
                                           MBSTRING _ "	Keep:  "
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.3STATE
                                           MBLABEL _ "Heading")
                                    (create MB.TEXT
                                           MBSTRING _ "
Tab Type:  "
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    [create MB.NWAY
                                           MBBUTTONS _ '((Left \TEDIT.TABTYPE.SET)
                                                         (Right \TEDIT.TABTYPE.SET)
                                                         (Centered \TEDIT.TABTYPE.SET)
                                                         (Decimal \TEDIT.TABTYPE.SET]
                                    (create MB.TEXT
                                           MBSTRING _ "  ")
                                    (create MB.TOGGLE
                                           MBTEXT _ "Dotted Leader"
                                           MBCHANGESTATEFN _ (FUNCTION \TEDIT.RECORD.TABLEADERS))
                                    (create MB.TEXT
                                           MBSTRING _ "	Default Tab Size:"
                                           MBFONT _ (FONTCREATE 'HELVETICA 8))
                                    (create MB.INSERT)
                                    (create MB.TEXT
                                           MBSTRING _ "
")
                                    (create MB.MARGINBAR)
                                    (create MB.TEXT
                                           MBSTRING _ "
")))

(* ;;; "Page-layout menu for columns, page headings, page numbers, etc.")

    (SETQ TEDIT.PAGEMENU.SPEC (APPEND (LIST (create MB.BUTTON
                                                   MBLABEL _ 'APPLY
                                                   MBBUTTONEVENTFN _ '\TEDIT.APPLY.PAGEFORMATTING)
                                            (create MB.TEXT
                                                   MBSTRING _ "   "
                                                   MBFONT _ (FONTCREATE 'HELVETICA 8 'BOLD))
                                            (create MB.BUTTON
                                                   MBLABEL _ 'SHOW
                                                   MBBUTTONEVENTFN _ '\TEDIT.SHOW.PAGEFORMATTING)
                                            (create MB.TEXT
                                                   MBSTRING _ "
")
                                            (create MB.TEXT
                                                   MBSTRING _ "For page:  ")
                                            (create MB.NWAY
                                                   MBBUTTONS _ '(|First(&Default)| Other% Left 
                                                                       Other% Right))
                                            (create MB.TEXT
                                                   MBSTRING _ "
   Starting Page #:  ")
                                            (create MB.INSERT
                                                   MBINITENTRY _ 1)
                                            (create MB.TEXT
                                                   MBSTRING _ "	Paper Size:  ")
                                            (create MB.NWAY
                                                   MBBUTTONS _ '(Letter Legal A4)
                                                   MBINITSTATE _ 'Letter)
                                            (create MB.TEXT
                                                   MBSTRING _ "  ")
                                            (create MB.TOGGLE
                                                   MBTEXT _ "Landscape")
                                            (create MB.TEXT
                                                   MBSTRING _ "

")
                                            (create MB.TEXT
                                                   MBSTRING _ "Page numbers:  ")
                                            (create MB.TEXT
                                                   MBSTRING _ "  "
                                                   MBFONT _ (FONTCREATE 'HELVETICA 8 'BOLD))
                                            (create MB.NWAY
                                                   MBBUTTONS _ '(No Yes)
                                                   MBINITSTATE _ 'Yes)
                                            (create MB.TEXT
                                                   MBSTRING _ "  ")
                                            (create MB.TEXT
                                                   MBSTRING _ "X: ")
                                            (create MB.INSERT
                                                   MBINITENTRY _ 25.5)
                                            (create MB.TEXT
                                                   MBSTRING _ "  ")
                                            (create MB.TEXT
                                                   MBSTRING _ "Y: ")
                                            (create MB.INSERT
                                                   MBINITENTRY _ 3)
                                            (create MB.TEXT
                                                   MBSTRING _ "    Format:  ")
                                            (create MB.NWAY
                                                   MBBUTTONS _ '(123 xiv XIV)
                                                   MBINITSTATE _ '123)
                                            (create MB.TEXT
                                                   MBSTRING _ "%
+		")
                                            (create MB.TEXT
                                                   MBSTRING _ "Alignment: ")
                                            (create MB.NWAY
                                                   MBBUTTONS _ '(Left Centered Right)
                                                   MBINITSTATE _ 'Centered)
                                            (create MB.TEXT
                                                   MBSTRING _ "
")
                                            (create MB.TEXT
                                                   MBSTRING _ "		Text before number:  ")
                                            (create MB.INSERT
                                                   MBINITENTRY _ "")
                                            (create MB.TEXT
                                                   MBSTRING _ "   Text after number:  ")
                                            (create MB.INSERT
                                                   MBINITENTRY _ "")
                                            (create MB.TEXT
                                                   MBSTRING _ "
"))
                                     (LIST (create MB.TEXT
                                                  MBSTRING _ "Margins:   Left")
                                           (create MB.INSERT
                                                  MBINITENTRY _ 6)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Right")
                                           (create MB.INSERT
                                                  MBINITENTRY _ 6)
                                           (create MB.TEXT
                                                  MBSTRING _ "   Top")
                                           (create MB.INSERT
                                                  MBINITENTRY _ 6)
                                           (create MB.TEXT
                                                  MBSTRING _ "   Bottom")
                                           (create MB.INSERT
                                                  MBINITENTRY _ 6)
                                           (create MB.TEXT
                                                  MBSTRING _ "
")
                                           (create MB.TEXT
                                                  MBSTRING _ "Columns: ")
                                           (create MB.INSERT
                                                  MBINITENTRY _ 1)
                                           (create MB.TEXT
                                                  MBSTRING _ "	Col Width: ")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "	Space between cols: ")
                                           (create MB.INSERT
                                                  MBINITENTRY _ 1)
                                           (create MB.TEXT
                                                  MBSTRING _ "
")
                                           (create MB.TEXT
                                                  MBSTRING _ "Page Headings:"
                                                  MBFONT _ (FONTCREATE 'HELVETICA 10 'BOLD))
                                           (create MB.TEXT
                                                  MBSTRING _ "%
+	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "%
+	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "
	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "
	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "	Heading Type:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  X:")
                                           (create MB.INSERT)
                                           (create MB.TEXT
                                                  MBSTRING _ "  Y:")
                                           (create MB.INSERT])
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(\TEDIT.MENU.INIT)

(\TEDITMENU.CREATE)

(\TEDIT.CHARLOOKSMENU.CREATE)

(\TEDITPARAMENU.CREATE)

(\TEDITPAGEMENU.CREATE)
)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA )

(ADDTOVAR NLAML )

(ADDTOVAR LAMA )
)
(PUTPROPS TEDITMENU COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
1991 1992 1993 1994 1995 2021))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (6319 33161 (MB.BUTTONEVENTINFN 6329 . 7660) (MB.DISPLAY 7662 . 10030) (MB.SETIMAGE 
10032 . 10990) (MB.SELFN 10992 . 12407) (MB.SIZEFN 12409 . 13426) (MB.WHENOPERATEDFN 13428 . 13760) (
MB.COPYFN 13762 . 14224) (MB.GETFN 14226 . 14834) (MB.PUTFN 14836 . 15613) (MB.SHOWSELFN 15615 . 16587
) (MBUTTON.CREATE 16589 . 17873) (MBUTTON.CHANGENAME 17875 . 18270) (MBUTTON.FIND.BUTTON 18272 . 19288
) (MBUTTON.FIND.NEXT.BUTTON 19290 . 20685) (MBUTTON.FIND.NEXT.FIELD 20687 . 24401) (MBUTTON.INIT 24403
 . 25193) (MBUTTON.NEXT.FIELD.AS.NUMBER 25195 . 25548) (MBUTTON.NEXT.FIELD.AS.PIECES 25550 . 25980) (
MBUTTON.NEXT.FIELD.AS.TEXT 25982 . 26404) (MBUTTON.NEXT.FIELD.AS.ATOM 26406 . 27279) (
MBUTTON.SET.FIELD 27281 . 29337) (MBUTTON.SET.NEXT.FIELD 29339 . 30556) (MBUTTON.SET.NEXT.BUTTON.STATE
 30558 . 31054) (TEDITMENU.STREAM 31056 . 31665) (\TEDITMENU.SELSCREENER 31667 . 33159)) (33465 43888 
(MB.CREATE.THREESTATEBUTTON 33475 . 34646) (MB.THREESTATE.DISPLAY 34648 . 37238) (
MB.THREESTATE.SHOWSELFN 37240 . 40342) (MB.THREESTATE.WHENOPERATEDFN 40344 . 41723) (
MB.THREESTATEBUTTON.FN 41725 . 42822) (THREESTATE.INIT 42824 . 43886)) (43989 63225 (
MB.CREATE.NWAYBUTTON 43999 . 47967) (MB.NB.DISPLAYFN 47969 . 50241) (MB.NB.WHENOPERATEDFN 50243 . 
51275) (MB.NB.SIZEFN 51277 . 54816) (MB.NWAYBUTTON.SELFN 54818 . 56762) (MB.NWAYMENU.NEWBUTTON 56764
 . 57350) (NWAYBUTTON.INIT 57352 . 58205) (MB.NB.PACKITEMS 58207 . 60204) (MB.NWAYBUTTON.ADDITEM 60206
 . 63223)) (63479 74127 (\TEXTMENU.TOGGLE.CREATE 63489 . 64890) (\TEXTMENU.TOGGLE.DISPLAY 64892 . 
67244) (\TEXTMENU.TOGGLE.SHOWSELFN 67246 . 69608) (\TEXTMENU.TOGGLE.WHENOPERATEDFN 69610 . 70998) (
\TEXTMENU.TOGGLEFN 71000 . 72080) (\TEXTMENU.TOGGLE.INIT 72082 . 72917) (\TEXTMENU.SET.TOGGLE 72919 . 
74125)) (74379 111751 (DRAWMARGINSCALE 74389 . 77933) (MARGINBAR 77935 . 85305) (MARGINBAR.CREATE 
85307 . 88217) (MB.MARGINBAR.SELFN 88219 . 100813) (MB.MARGINBAR.SIZEFN 100815 . 101177) (
MB.MARGINBAR.DISPLAYFN 101179 . 103864) (MDESCALE 103866 . 104305) (MSCALE 104307 . 104641) (
MB.MARGINBAR.SHOWTAB 104643 . 106814) (MB.MARGINBAR.TABTRACK 106816 . 108151) (\TEDIT.TABTYPE.SET 
108153 . 110860) (MARGINBAR.INIT 110862 . 111749)) (112768 130370 (\TEXTMENU.START 112778 . 115970) (
\TEXTMENU.DOC.CREATE 115972 . 127496) (TEXTMENU.CLOSEFN 127498 . 130368)) (130680 150744 (
\TEDITMENU.CREATE 130690 . 130990) (\TEDIT.EXPANDED.MENU 130992 . 131696) (MB.DEFAULTBUTTON.FN 131698
 . 134570) (\TEDITMENU.RECORD.UNFORMATTED 134572 . 134910) (MB.DEFAULTBUTTON.ACTIONFN 134912 . 150742)
) (150745 178128 (\TEDIT.CHARLOOKSMENU.CREATE 150755 . 152895) (\TEDIT.EXPANDEDCHARLOOKS.MENU 152897
 . 153271) (\TEDIT.APPLY.BOLDNESS 153273 . 153558) (\TEDIT.APPLY.CHARLOOKS 153560 . 155491) (
\TEDIT.APPLY.OLINE 155493 . 155774) (\TEDIT.SHOW.CHARLOOKS 155776 . 157689) (
\TEDIT.NEUTRALIZE.CHARLOOKS 157691 . 158617) (\TEDIT.FILL.IN.CHARLOOKS.MENU 158619 . 166272) (
\TEDIT.NEUTRALIZE.CHARLOOKS.MENU 166274 . 169157) (\TEDIT.PARSE.CHARLOOKS.MENU 169159 . 177267) (
\TEDIT.APPLY.SLOPE 177269 . 177552) (\TEDIT.APPLY.STRIKEOUT 177554 . 177841) (\TEDIT.APPLY.ULINE 
177843 . 178126)) (178129 210195 (\TEDITPARAMENU.CREATE 178139 . 178519) (\TEDIT.EXPANDEDPARA.MENU 
178521 . 178841) (\TEDIT.APPLY.PARALOOKS 178843 . 191073) (\TEDIT.SHOW.PARALOOKS 191075 . 202602) (
\TEDIT.NEUTRALIZE.PARALOOKS.MENU 202604 . 208675) (\TEDIT.RECORD.TABLEADERS 208677 . 210193)) (210196 
248198 (\TEDIT.SHOW.PAGEFORMATTING 210206 . 226746) (\TEDITPAGEMENU.CREATE 226748 . 227791) (
\TEDIT.APPLY.PAGEFORMATTING 227793 . 240164) (TEDIT.UNPARSE.PAGEFORMAT 240166 . 248196)) (248503 
275352 (\TEDIT.MENU.INIT 248513 . 275350)))))
STOP
\ No newline at end of file
diff --git a/library/TEDITMENU.LCOM b/library/TEDITMENU.LCOM
index 97b2680e..372962fd 100644
Binary files a/library/TEDITMENU.LCOM and b/library/TEDITMENU.LCOM differ
diff --git a/loadups/xfull35.dribble b/loadups/xfull35.dribble
index fdc1c6f8..ad0c2ab5 100644
--- a/loadups/xfull35.dribble
+++ b/loadups/xfull35.dribble
@@ -1 +1 @@
-
Full loadup started at 27-Dec-2020 12:22:44 while connected to 
{DSK}<home>larry>winhome>home>ilisp>medley>


{DSK}<home>larry>winhome>home>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1
compiled on 14-May-2018 10:53:32
File created 14-May-2018 10:52:48
POSTSCRIPTSTREAMCOMS
Loading FULL fonts...
  Loading CLASSIC 8 10 12 
  Loading MODERN 8 10 12 
  Loading TERMINAL 8 10 12 
  Loading postscript fonts
FULL fonts loaded

{DSK}<home>larry>winhome>home>ilisp>medley>library>CHAT.LCOM;1
compiled on 25-Oct-93 12:23:25
File created 20-Jan-93 13:46:52
CHATCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>DMCHAT.LCOM;1
compiled on 25-Feb-93 18:08:53
File created 20-Jan-93 13:49:09
DMCHATCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>CHATTERMINAL.LCOM;1
compiled on 24-Feb-93 19:37:23
File created  4-Jul-90 02:21:01
CHATTERMINALCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDIT.LCOM;1
compiled on 18-May-2018 09:16:24
File created 19-Apr-2018 12:22:03
TEDITCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITDCL.LCOM;1
compiled on 18-May-2018 09:17:04
File created 25-Aug-94 10:53:00
TEDITDCLCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>PCTREE.LCOM;1
compiled on 18-May-2018 09:19:35
File created 19-Apr-2018 12:19:49
PCTREECOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEXTOFD.LCOM;1
compiled on 11-Feb-2001 12:06:43
File created 11-Feb-2001 12:06:42
TEXTOFDCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITCOMMAND.LCOM;1
compiled on 18-May-2018 09:16:59
File created 20-Apr-2018 08:07:35
TEDITCOMMANDCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITSCREEN.LCOM;1
compiled on 18-May-2018 09:18:38
File created 25-Aug-94 13:26:23
TEDITSCREENCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITABBREV.LCOM;1
compiled on  6-Aug-2020 14:52:14
File created  6-Aug-2020 14:52:14
TEDITABBREVCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITLOOKS.LCOM;1
compiled on 18-May-2018 09:17:44
File created 29-Jan-99 17:33:35
TEDITLOOKSCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITFIND.LCOM;1
compiled on 18-May-2018 09:17:21
File created  6-May-2018 17:34:44
TEDITFINDCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITHISTORY.LCOM;1
compiled on 18-May-2018 09:17:41
File created 29-Jan-99 17:34:39
TEDITHISTORYCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITFILE.LCOM;1
compiled on 18-May-2018 09:17:06
File created 19-May-2001 11:45:53
TEDITFILECOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITWINDOW.LCOM;1
compiled on 18-May-2018 09:18:51
File created 21-Jun-99 20:00:42
TEDITWINDOWCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITSELECTION.LCOM;1
compiled on 18-May-2018 09:18:43
File created 25-Aug-94 10:56:07
TEDITSELECTIONCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>IMAGEOBJ.LCOM;1
compiled on  8-Feb-97 11:26:32
File created  7-Dec-95 13:21:56
IMAGEOBJCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>EDITBITMAP.LCOM;1
compiled on 25-Feb-93 18:10:27
File created 11-Jun-90 15:42:25
EDITBITMAPCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>READNUMBER.LCOM;1
compiled on 16-Aug-95 11:18:52
File created 25-May-93 00:28:30
READNUMBERCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TFBRAVO.LCOM;1
compiled on 19-Apr-2018 12:19:55
File created 19-Apr-2018 12:19:55
TFBRAVOCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITHCPY.LCOM;1
compiled on 18-May-2018 09:17:32
File created 25-Aug-94 10:54:07
TEDITHCPYCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITPAGE.LCOM;1
compiled on 18-May-2018 09:18:32
File created 25-Aug-94 10:55:28
TEDITPAGECOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITMENU.LCOM;1
compiled on 18-May-2018 09:18:07
File created 24-Apr-95 12:05:29
TEDITMENUCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITFNKEYS.LCOM;1
compiled on 18-May-2018 09:17:25
File created  6-May-2018 17:15:13
TEDITFNKEYSCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>HRULE.LCOM;1
compiled on 26-Feb-93 11:26:19
File created  8-Oct-92 16:50:21
HRULECOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>TEDITCHAT.LCOM;1
compiled on 18-May-2018 09:16:55
File created 28-Mar-94 16:05:24
IL:TEDITCHATCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>FILEBROWSER.LCOM;1
compiled on 11-Sep-2001 09:26:17
File created 11-Sep-2001 09:26:14

{DSK}<home>larry>winhome>home>ilisp>medley>library>TABLEBROWSER.LCOM;1
compiled on  1-Dec-2018 17:25:13
File created  1-Dec-2018 17:25:13
TABLEBROWSERCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>THINFILES.LCOM;1
compiled on 26-Jun-99 00:47:00
File created  1-May-92 16:49:39
THINFILESCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>GRAPHER.LCOM;1
compiled on 14-May-2018 10:24:43
File created 14-May-2018 10:24:38
GRAPHERCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>SPY.LCOM;1
compiled on 23-Aug-94 16:33:38
File created 29-Apr-94 14:13:52
SPYCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>WHERE-IS.DFASL;1
XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
Source file created Wednesday, 13 June 1990, 1:16:15.
FASL file created Thursday, 21 January 1993, 18:52:55.


{DSK}<home>larry>winhome>home>ilisp>medley>library>HASH-FILE.dfasl;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
Source file created Monday, 11 June 1990, 16:16:54.
FASL file created Friday, 26 February 1993, 11:23:40.


{DSK}<home>larry>winhome>home>ilisp>medley>library>CASH-FILE.DFASL;5
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
Source file created 11-Jun-90 14:33:44
FASL file created Saturday, 19 September 2020, 22:04:31


{DSK}<home>larry>winhome>home>ilisp>medley>library>COPYFILES.LCOM;1
compiled on  6-Apr-2018 21:14:29
File created  6-Apr-2018 21:14:29
COPYFILESCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>MSANALYZE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSANALYZE.;5
Source file created Wednesday, 15 August 1990, 13:11:23.
FASL file created Sunday, 28 February 1993, 23:16:46.


{DSK}<home>larry>winhome>home>ilisp>medley>library>MSPARSE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
Source file created Wednesday, 15 August 1990, 13:00:12.
FASL file created Sunday, 28 February 1993, 23:24:50.


{DSK}<home>larry>winhome>home>ilisp>medley>library>MASTERSCOPE.DFASL;4
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>MASTERSCOPE.;4
Source file created Saturday, 19 September 2020, 9:54:51.
FASL file created Saturday, 19 September 2020, 9:54:51.


{DSK}<home>larry>winhome>home>ilisp>medley>library>MSCOMMON.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
Source file created Monday, 4 May 1992, 13:19:40.
FASL file created Sunday, 28 February 1993, 23:23:14.


{DSK}<home>larry>winhome>home>ilisp>medley>library>UNIXPRINT.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
Source file created Friday, 4 May 2018, 17:18:00.
FASL file created Friday, 4 May 2018, 17:18:00.


{DSK}<home>larry>winhome>home>ilisp>medley>library>UNIXCOMM.LCOM;1
compiled on 25-Apr-2018 07:31:56
File created 25-Apr-2018 07:31:56
UNIXCOMMCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>UNICODE.LCOM;18
compiled on 29-Nov-2020 10:50:35
File created 29-Nov-2020 10:50:18
UNICODECOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>ISO8859IO.LCOM;1
compiled on  9-Mar-99 18:20:33
File created  9-Mar-99 18:20:26
ISO8859IOCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>HELPSYS.LCOM;1
compiled on 27-Nov-2020 11:23:11
File created 27-Nov-2020 09:47:44
HELPSYSCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>DINFO.LCOM;1
compiled on 27-Nov-2020 09:16:14
File created 27-Nov-2020 09:14:02
DINFOCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>HASH.LCOM;1
compiled on 26-Feb-93 11:22:10
File created 11-Jun-90 16:23:11
HASHCOMS

Reading IRM graph...OK.
{DSK}<home>larry>winhome>home>ilisp>medley>library>CLIPBOARD.LCOM;1
compiled on  8-Aug-2020 15:48:08
File created  8-Aug-2020 15:48:08
CLIPBOARDCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>MACINTERFACE.LCOM;47
compiled on 27-Dec-2020 12:06:19
File created 27-Dec-2020 12:06:04
MACINTERFACECOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3
compiled on 28-Jun-99 17:13:58
File created 28-Jun-99 17:13:51
PRETTYFILEINDEXCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>WHO-LINE.LCOM;1
compiled on 19-Feb-2001 11:57:34
File created 19-Feb-2001 11:53:32
WHO-LINECOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>UNIXCHAT.LCOM;1
compiled on 21-Jan-93 18:45:15
File created 15-Aug-90 11:05:53
UNIXCHATCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>library>UNIXTELNET.LCOM;1
compiled on 18-Jul-94 23:29:48
File created 16-Feb-90 17:00:31
UNIXTELNETCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>SETDEFAULTPRINTER.LCOM;3
compiled on 12-Nov-98 17:41:28
File created  7-Jun-93 15:34:58
SETDEFAULTPRINTERCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>DEFAULTSUBITEMFN.LCOM;1
compiled on  8-Sep-94 20:23:23
File created  4-Mar-87 15:59:01
DEFAULTSUBITEMFNCOMS

{DSK}<home>larry>winhome>home>ilisp>medley>lispusers>LoadPatches.;1
File created 16-Nov-88 14:11:42
LOADPATCHESCOMS
About to end loadup
Creating FULL sysout on 
{DSK}<home>larry>winhome>home>ilisp>medley>loadups>xfull35.sysout
\ No newline at end of file
+
Full loadup started at  4-Jan-2021 14:00:27 while connected to 
{DSK}<home>larry>ilisp>medley>


{DSK}<home>larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1
compiled on 14-May-2018 10:53:32
File created 14-May-2018 10:52:48
POSTSCRIPTSTREAMCOMS
Loading FULL fonts...
  Loading CLASSIC 8 10 12 
  Loading MODERN 8 10 12 
  Loading TERMINAL 8 10 12 
  Loading postscript fonts
FULL fonts loaded

{DSK}<home>larry>ilisp>medley>library>CHAT.LCOM;1
compiled on 25-Oct-93 12:23:25
File created 20-Jan-93 13:46:52
CHATCOMS

{DSK}<home>larry>ilisp>medley>library>DMCHAT.LCOM;1
compiled on 25-Feb-93 18:08:53
File created 20-Jan-93 13:49:09
DMCHATCOMS

{DSK}<home>larry>ilisp>medley>library>CHATTERMINAL.LCOM;1
compiled on 24-Feb-93 19:37:23
File created  4-Jul-90 02:21:01
CHATTERMINALCOMS

{DSK}<home>larry>ilisp>medley>library>TEDIT.LCOM;1
compiled on 18-May-2018 09:16:24
File created 19-Apr-2018 12:22:03
TEDITCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITDCL.LCOM;1
compiled on 18-May-2018 09:17:04
File created 25-Aug-94 10:53:00
TEDITDCLCOMS

{DSK}<home>larry>ilisp>medley>library>PCTREE.LCOM;1
compiled on 18-May-2018 09:19:35
File created 19-Apr-2018 12:19:49
PCTREECOMS

{DSK}<home>larry>ilisp>medley>library>TEXTOFD.LCOM;1
compiled on 11-Feb-2001 12:06:43
File created 11-Feb-2001 12:06:42
TEXTOFDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1
compiled on 18-May-2018 09:16:59
File created 20-Apr-2018 08:07:35
TEDITCOMMANDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITSCREEN.LCOM;1
compiled on 18-May-2018 09:18:38
File created 25-Aug-94 13:26:23
TEDITSCREENCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITABBREV.LCOM;1
compiled on  6-Aug-2020 14:52:14
File created  6-Aug-2020 14:52:14
TEDITABBREVCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITLOOKS.LCOM;1
compiled on 18-May-2018 09:17:44
File created 29-Jan-99 17:33:35
TEDITLOOKSCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFIND.LCOM;1
compiled on 18-May-2018 09:17:21
File created  6-May-2018 17:34:44
TEDITFINDCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITHISTORY.LCOM;1
compiled on 18-May-2018 09:17:41
File created 29-Jan-99 17:34:39
TEDITHISTORYCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFILE.LCOM;1
compiled on 18-May-2018 09:17:06
File created 19-May-2001 11:45:53
TEDITFILECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITWINDOW.LCOM;1
compiled on 18-May-2018 09:18:51
File created 21-Jun-99 20:00:42
TEDITWINDOWCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITSELECTION.LCOM;1
compiled on 18-May-2018 09:18:43
File created 25-Aug-94 10:56:07
TEDITSELECTIONCOMS

{DSK}<home>larry>ilisp>medley>library>IMAGEOBJ.LCOM;1
compiled on  8-Feb-97 11:26:32
File created  7-Dec-95 13:21:56
IMAGEOBJCOMS

{DSK}<home>larry>ilisp>medley>library>EDITBITMAP.LCOM;1
compiled on 25-Feb-93 18:10:27
File created 11-Jun-90 15:42:25
EDITBITMAPCOMS

{DSK}<home>larry>ilisp>medley>library>READNUMBER.LCOM;1
compiled on 16-Aug-95 11:18:52
File created 25-May-93 00:28:30
READNUMBERCOMS

{DSK}<home>larry>ilisp>medley>library>TFBRAVO.LCOM;1
compiled on 19-Apr-2018 12:19:55
File created 19-Apr-2018 12:19:55
TFBRAVOCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITHCPY.LCOM;1
compiled on 18-May-2018 09:17:32
File created 25-Aug-94 10:54:07
TEDITHCPYCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITPAGE.LCOM;1
compiled on 18-May-2018 09:18:32
File created 25-Aug-94 10:55:28
TEDITPAGECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITMENU.LCOM;2
compiled on  4-Jan-2021 13:48:55
File created  4-Jan-2021 13:48:43
TEDITMENUCOMS

{DSK}<home>larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1
compiled on 18-May-2018 09:17:25
File created  6-May-2018 17:15:13
TEDITFNKEYSCOMS

{DSK}<home>larry>ilisp>medley>library>HRULE.LCOM;1
compiled on 26-Feb-93 11:26:19
File created  8-Oct-92 16:50:21
HRULECOMS

{DSK}<home>larry>ilisp>medley>library>TEDITCHAT.LCOM;1
compiled on 18-May-2018 09:16:55
File created 28-Mar-94 16:05:24
IL:TEDITCHATCOMS

{DSK}<home>larry>ilisp>medley>library>FILEBROWSER.LCOM;1
compiled on 11-Sep-2001 09:26:17
File created 11-Sep-2001 09:26:14

{DSK}<home>larry>ilisp>medley>library>TABLEBROWSER.LCOM;1
compiled on  1-Dec-2018 17:25:13
File created  1-Dec-2018 17:25:13
TABLEBROWSERCOMS

{DSK}<home>larry>ilisp>medley>lispusers>THINFILES.LCOM;1
compiled on 26-Jun-99 00:47:00
File created  1-May-92 16:49:39
THINFILESCOMS

{DSK}<home>larry>ilisp>medley>library>GRAPHER.LCOM;1
compiled on 14-May-2018 10:24:43
File created 14-May-2018 10:24:38
GRAPHERCOMS

{DSK}<home>larry>ilisp>medley>library>SPY.LCOM;1
compiled on 23-Aug-94 16:33:38
File created 29-Apr-94 14:13:52
SPYCOMS

{DSK}<home>larry>ilisp>medley>library>WHERE-IS.DFASL;1
XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
Source file created Wednesday, 13 June 1990, 1:16:15.
FASL file created Thursday, 21 January 1993, 18:52:55.


{DSK}<home>larry>ilisp>medley>library>HASH-FILE.dfasl;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
Source file created Monday, 11 June 1990, 16:16:54.
FASL file created Friday, 26 February 1993, 11:23:40.


{DSK}<home>larry>ilisp>medley>library>CASH-FILE.DFASL;5
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
Source file created 11-Jun-90 14:33:44
FASL file created Saturday, 19 September 2020, 22:04:31


{DSK}<home>larry>ilisp>medley>library>COPYFILES.LCOM;1
compiled on  6-Apr-2018 21:14:29
File created  6-Apr-2018 21:14:29
COPYFILESCOMS

{DSK}<home>larry>ilisp>medley>library>MSANALYZE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSANALYZE.;5
Source file created Wednesday, 15 August 1990, 13:11:23.
FASL file created Sunday, 28 February 1993, 23:16:46.


{DSK}<home>larry>ilisp>medley>library>MSPARSE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
Source file created Wednesday, 15 August 1990, 13:00:12.
FASL file created Sunday, 28 February 1993, 23:24:50.


{DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.DFASL;4
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>MASTERSCOPE.;4
Source file created Saturday, 19 September 2020, 9:54:51.
FASL file created Saturday, 19 September 2020, 9:54:51.


{DSK}<home>larry>ilisp>medley>library>MSCOMMON.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
Source file created Monday, 4 May 1992, 13:19:40.
FASL file created Sunday, 28 February 1993, 23:23:14.


{DSK}<home>larry>ilisp>medley>library>UNIXPRINT.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
Source file created Friday, 4 May 2018, 17:18:00.
FASL file created Friday, 4 May 2018, 17:18:00.


{DSK}<home>larry>ilisp>medley>library>UNIXCOMM.LCOM;1
compiled on 25-Apr-2018 07:31:56
File created 25-Apr-2018 07:31:56
UNIXCOMMCOMS

{DSK}<home>larry>ilisp>medley>library>UNICODE.LCOM;18
compiled on 29-Nov-2020 10:50:35
File created 29-Nov-2020 10:50:18
UNICODECOMS

{DSK}<home>larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1
compiled on  9-Mar-99 18:20:33
File created  9-Mar-99 18:20:26
ISO8859IOCOMS

{DSK}<home>larry>ilisp>medley>lispusers>HELPSYS.LCOM;1
compiled on 27-Nov-2020 11:23:11
File created 27-Nov-2020 09:47:44
HELPSYSCOMS

{DSK}<home>larry>ilisp>medley>lispusers>DINFO.LCOM;1
compiled on 27-Nov-2020 09:16:14
File created 27-Nov-2020 09:14:02
DINFOCOMS

{DSK}<home>larry>ilisp>medley>library>HASH.LCOM;1
compiled on 26-Feb-93 11:22:10
File created 11-Jun-90 16:23:11
HASHCOMS

Reading IRM graph...OK.
{DSK}<home>larry>ilisp>medley>library>CLIPBOARD.LCOM;1
compiled on  8-Aug-2020 15:48:08
File created  8-Aug-2020 15:48:08
CLIPBOARDCOMS

{DSK}<home>larry>ilisp>medley>lispusers>MACINTERFACE.LCOM;47
compiled on 27-Dec-2020 12:06:19
File created 27-Dec-2020 12:06:04
MACINTERFACECOMS

{DSK}<home>larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3
compiled on 28-Jun-99 17:13:58
File created 28-Jun-99 17:13:51
PRETTYFILEINDEXCOMS

{DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.LCOM;1
compiled on 19-Feb-2001 11:57:34
File created 19-Feb-2001 11:53:32
WHO-LINECOMS

{DSK}<home>larry>ilisp>medley>library>UNIXCHAT.LCOM;1
compiled on 21-Jan-93 18:45:15
File created 15-Aug-90 11:05:53
UNIXCHATCOMS

{DSK}<home>larry>ilisp>medley>library>UNIXTELNET.LCOM;1
compiled on 18-Jul-94 23:29:48
File created 16-Feb-90 17:00:31
UNIXTELNETCOMS

{DSK}<home>larry>ilisp>medley>lispusers>SETDEFAULTPRINTER.LCOM;3
compiled on 12-Nov-98 17:41:28
File created  7-Jun-93 15:34:58
SETDEFAULTPRINTERCOMS

{DSK}<home>larry>ilisp>medley>lispusers>DEFAULTSUBITEMFN.LCOM;1
compiled on  8-Sep-94 20:23:23
File created  4-Mar-87 15:59:01
DEFAULTSUBITEMFNCOMS

{DSK}<home>larry>ilisp>medley>lispusers>LoadPatches.;1
File created 16-Nov-88 14:11:42
LOADPATCHESCOMS
About to end loadup
Creating FULL sysout on {DSK}<home>larry>ilisp>medley>loadups>xfull35.sysout
\ No newline at end of file
diff --git a/loadups/xfull35.sysout b/loadups/xfull35.sysout
index 26dc28f2..cb79daa0 100644
Binary files a/loadups/xfull35.sysout and b/loadups/xfull35.sysout differ
