TextDocs.NewDocOberon14b.Scn.FntOberon10.Scn.FntArial11.Scn.FntG {:,/, TextDocs menus (for screen wider than 1000 pixels) System.Directory TextDocs.Lib\d System.DeleteFiles TextDocs.Lib ~ Columbus.Inspect TextDocs.Lib ~ (LogDoc) (TextDoc) LayLa.AddToLibrary TextDocs.UserMenu ^ (select CONFIG) LayLa.OpenAsDoc (CONFIG (DEF BW 39) (DEF BH 18) (DEF BW2 80) (DEF Tools (NEW Iconizer (w=BW h=16) (ATTR Popup=TRUE Menu=TRUE Pin=FALSE) (LINKS Closed=(HLIST Panel (w=BW h=16 hjustify=CENTER) (ATTR Locked=TRUE) (NEW Caption (ATTR Value="Tools"))) Open=(VLIST Panel (w=84 hjustify=CENTER vjustify=TOP vdist=1 border=1) (ATTR Locked=TRUE) (NEW Button (w=BW2 h=18) (ATTR Caption="SearchDiff ^^" Cmd="TextDocs.SearchDiff \w")) (NEW Button (w=BW2 h=18) (ATTR Caption="RecallText" Cmd="TextDocs.Recall")) (NEW Button (w=BW2 h=18) (ATTR Caption="RecallDoc" Cmd="Desktops.Recall")) (NEW Button (w=BW2 h=18) (ATTR Caption="Columbus" Cmd="Columbus.Inspect ~")) (NEW Button (w=BW2 h=18) (ATTR Caption="Count *" Cmd="EditTools.Words *")) (NEW Button (w=BW2 h=18) (ATTR Caption="Controls *" Cmd="TextDocs.Controls *")) (NEW Button (w=BW2 h=18) (ATTR Caption="DeleteObjs *" Cmd="EditTools.RemoveObjects *")) (NEW Button (w=BW2 h=18) (ATTR Caption="OpenMod ^" Cmd="TextDocs.Show ^")) (NEW Button (w=BW2 h=18) (ATTR Caption="OpenUnix ^" Cmd="EditTools.OpenUnix ^")) (NEW Button (w=BW2 h=18) (ATTR Caption="OpenAscii ^" Cmd="EditTools.OpenAscii ^")) (NEW Button (w=BW2 h=18) (ATTR Caption="StoreUnix" Cmd="EditTools.StoreUnix")) (NEW Button (w=BW2 h=18) (ATTR Caption="StoreAscii" Cmd="EditTools.StoreAscii")) ) ) ) ) (DEF Style (NEW Iconizer (w=BW h=16) (ATTR Popup=TRUE Menu=TRUE Pin=FALSE) (LINKS Closed=(HLIST Panel (w=BW h=16 hjustify=CENTER) (ATTR Locked=TRUE) (NEW Caption (ATTR Value="Style"))) Open=(VLIST Panel (w=84 hjustify=CENTER vjustify=TOP vdist=1 border=1) (ATTR Locked=TRUE) (NEW Button (w=BW2 h=18) (ATTR Caption="IncSize" Cmd="EditTools.IncSize 2")) (NEW Button (w=BW2 h=18) (ATTR Caption="DecSize" Cmd="EditTools.IncSize -2")) (NEW Button (w=BW2 h=18) (ATTR Caption="Plain" Cmd="EditTools.ChangeStyle ? => .")) (NEW Button (w=BW2 h=18) (ATTR Caption="Bold" Cmd="EditTools.ChangeStyle ? => b")) (NEW Button (w=BW2 h=18) (ATTR Caption="Italic" Cmd="EditTools.ChangeStyle ? => i")) (NEW Button (w=BW2 h=18) (ATTR Caption="Courier" Cmd="EditTools.ChangeFamily ? => Courier")) (NEW Button (w=BW2 h=18) (ATTR Caption="Oberon" Cmd="EditTools.ChangeFamily ? => Oberon")) (NEW Button (w=BW2 h=18) (ATTR Caption="Mono" Cmd="EditTools.Change ? => Courier10.Scn.Fnt")) (NEW Button (w=BW2 h=18) (ATTR Caption="Super" Cmd="EditTools.IncVoff 1")) (NEW Button (w=BW2 h=18) (ATTR Caption="Sub" Cmd="EditTools.IncVoff -1")) (NEW Button (w=BW2 h=18) (ATTR Caption="UPPER" Cmd="EditTools.Upper")) (NEW Button (w=BW2 h=18) (ATTR Caption="lower" Cmd="EditTools.Lower")) (NEW Button (w=BW2 h=18) (ATTR Caption="Show" Cmd="EditTools.ShowAttrs ^")) ) ) ) ) (HLIST Panel (border=0 dist=0 w=640 h=20 vjustify=CENTER) (ATTR Border=0 Locked=TRUE) (NEW NamePlate (w=110 h=20)) (NEW Button (w=BW h=18) (ATTR Caption="Close" Cmd="Desktops.CloseDoc")) (NEW Button (w=BW h=18) (ATTR Caption="Hide" Cmd="Finder.Minimize")) (NEW Button (w=BW h=18) (ATTR Caption="Grow" Cmd="Desktops.Grow")) (NEW Button (w=BW h=18) (ATTR Caption="Copy" Cmd="Desktops.Copy")) (NEW Button (w=BW h=18) (ATTR Caption="Search" Cmd="TextDocs.Search")) (NEW Button (w=BW h=18) (ATTR Caption="Rep" Cmd="TextDocs.Replace")) (NEW Button (w=BW h=18) (ATTR Caption="RepAll" Cmd="TextDocs.ReplaceAll")) (NEW Button (w=BW h=18) (ATTR Caption="Store" Cmd="Desktops.StoreDoc")) (NEW VIRTUAL) (NEW Style) (NEW Tools) (NEW VIRTUAL (w=2)) ) ) Log LayLa.AddToLibrary TextDocs.LogSystemMenu ^ (select CONFIG) LayLa.AddToLibrary TextDocs.LogUserMenu ^ LayLa.AddToLibrary TextDocs.LogDeskMenu ^ LayLa.OpenAsDoc (CONFIG (DEF BW 39) (DEF BH 18) (DEF BW2 80) (DEF Document (NEW Iconizer (w=BW h=16) (ATTR Popup=TRUE Menu=TRUE Pin=FALSE) (LINKS Closed=(HLIST Panel (w=BW h=16 hjustify=CENTER vjustify=CENTER) (ATTR Locked=TRUE) (NEW Caption (ATTR Value="Log"))) Open=(VLIST Panel (w=BW hjustify=CENTER vjustify=TOP vdist=1 border=1) (ATTR Locked=TRUE) (NEW Button (w=BW h=BH) (ATTR Caption="Close" Cmd="Desktops.CloseDoc")) (NEW Button (w=BW h=BH) (ATTR Caption="Hide" Cmd="Finder.Minimize")) (NEW Button (w=BW h=BH) (ATTR Caption="Grow" Cmd="Desktops.Grow")) (NEW Button (w=BW h=BH) (ATTR Caption="Copy" Cmd="Desktops.Copy")) (NEW Button (w=BW h=BH) (ATTR Caption="Store" Cmd="Desktops.StoreDoc")) ) ) ) ) (HLIST Panel (border=0 dist=0 w=384 h=20 vjustify=CENTER) (ATTR Border=0 Locked=TRUE) (NEW NamePlate (w=110 h=20)) (NEW Document) (NEW Button (w=BW h=18) (ATTR Caption="Locate" Cmd="TextDocs.Locate")) (NEW Button (w=BW h=BH) (ATTR Caption="Search" Cmd="TextDocs.Search")) (NEW Button (w=BW h=BH) (ATTR Caption="Clear" Cmd="System.Clear")) (NEW VIRTUAL) (NEW DigitalClock (w=BW h=18)) ) ) Combo LayLa.Insert ^ LayLa.OpenAsDoc (CONFIG (DEF W 131) (DEF H 20) (DEF LH 46) (NEW Iconizer (w=W h=H) (ATTR Popup=TRUE) (LINKS Closed=(HLIST Panel (w=W) (ATTR Locked=TRUE) (NEW VIRTUAL (w=8)) (NEW TextField (w=[]) (ATTR Name="PrinterName" Value="Printer@eamon")) ) Open=(HLIST Panel (w=W) (ATTR Locked=TRUE) (NEW List (w=[] h=LH) (ATTR ScrollBar=FALSE Sorted=FALSE Cmd="Gadgets.Set '.PrinterName.Value' '#Point'")) ) ) ) ) Printer@eamon "LPR:lph1-ds@lillian" Temp.ps LayLa.Insert ^ LayLa.OpenAsDoc (CONFIG (DEF BW 46) (DEF BH 21) (DEF BW2 60) (NEW Iconizer (w=BW h=BH) (ATTR Popup=TRUE Menu=TRUE Pin=FALSE) (LINKS Closed=(HLIST Panel (w=BW h=BH hjustify=CENTER vjustify=CENTER) (ATTR Locked=TRUE) (NEW Caption (ATTR Value="Recall"))) Open=(VLIST Panel (w=64 hjustify=CENTER vjustify=TOP vdist=1 border=1) (ATTR Locked=TRUE) (NEW Button (w=BW2 h=BH) (ATTR Caption="Text" Cmd="TextDocs.Recall")) (NEW Button (w=BW2 h=BH) (ATTR Caption="Viewer" Cmd="System.Recall")) (NEW Button (w=BW2 h=BH) (ATTR Caption="Document" Cmd="Desktops.Recall")) ) ) ) ) LayLa.Insert ^ LayLa.OpenAsDoc (CONFIG (DEF BW 46) (DEF BH 21) (DEF BW2 60) (DEF BW3 62) (NEW Iconizer (w=BW h=BH) (ATTR Popup=TRUE Menu=TRUE Pin=FALSE) (LINKS Closed=(HLIST Panel (w=BW h=BH hjustify=CENTER vjustify=CENTER) (ATTR Locked=TRUE) (NEW Caption (ATTR Value="Quit"))) Open=(VLIST Panel (w=BW3 hjustify=CENTER vjustify=TOP vdist=1 border=1) (ATTR Locked=TRUE) (NEW Button (w=BW2 h=BH) (ATTR Caption="" Cmd="")) (NEW Button (w=BW2 h=BH) (ATTR Caption="Shutdown" Cmd="System.Quit")) (NEW Button (w=BW2 h=BH) (ATTR Caption="Reboot" Cmd="System.Reboot")) ) ) ) ) LayLa.Insert ^ LayLa.OpenAsDoc (CONFIG (DEF BW 46) (DEF BH 21) (DEF BW2 60) (NEW Iconizer (w=BW h=BH) (ATTR Popup=TRUE Menu=TRUE Pin=FALSE) (LINKS Closed=(HLIST Panel (w=BW h=BH hjustify=CENTER vjustify=CENTER) (ATTR Locked=TRUE) (NEW Caption (ATTR Value="Print *"))) Open=(VLIST Panel (w=64 hjustify=CENTER vjustify=TOP vdist=1 border=1) (ATTR Locked=TRUE) (NEW Button (w=BW2 h=BH) (ATTR Caption="One-up" Cmd="Desktops.PrintDoc '&PrinterName.Value ' *")) (NEW Button (w=BW2 h=BH) (ATTR Caption="Two-up" Cmd="Desktops.PrintDoc '&PrinterName.Value '\l *")) (NEW Button (w=BW2 h=BH) (ATTR Caption="Four-up" Cmd="Desktops.PrintDoc '&PrinterName.Value '\d *")) ) ) ) ) 06.05.98 pjm