DIRECTORY
IO,
Menus USING [AppendMenuEntry, ClickProc, CreateEntry, FindEntry, MenuEntry, ReplaceMenuEntry],
MessageWindow,
Rope,
TEditInput,
TextNode,
TiogaMenuOps USING [tiogaMenu],
TiogaMesaOps,
TiogaExecCommands,
TiogaIO,
TiogaIOExtras,
TiogaOps,
ViewerOps,
ViewerTools;

TiogaPlainImpl: CEDAR PROGRAM
IMPORTS IO, Menus, MessageWindow, Rope, TEditInput, <<TEditScrolling,>> TextNode, TiogaExecCommands, TiogaIO, TiogaIOExtras, TiogaMenuOps, TiogaMesaOps, TiogaOps, ViewerOps, ViewerTools
~ BEGIN

ROPE: TYPE = Rope.ROPE;
Node: TYPE ~ TextNode.Ref;

InstallMenuButton: PROC [name: ROPE, proc: Menus.ClickProc] = {
old: Menus.MenuEntry =
Menus.FindEntry[menu: TiogaMenuOps.tiogaMenu, entryName: name];
new: Menus.MenuEntry =
Menus.CreateEntry[name: name, proc: proc, fork: FALSE];
IF old = NIL
THEN Menus.AppendMenuEntry[TiogaMenuOps.tiogaMenu, new]
ELSE Menus.ReplaceMenuEntry[TiogaMenuOps.tiogaMenu, old, new];
};

PlainClick: Menus.ClickProc ~ {
TEditInput.InterpretAtom[parent, $MakePlain];
};

CedarClick: Menus.ClickProc ~ {
TEditInput.InterpretAtom[parent, $MakeCedar];
};


defaultNestIndent: Rope.ROPE ¬ "  ";

MakePlain: TEditInput.CommandProc ~ {
root: Node ~ TiogaOps.ViewerDoc[viewer];
Inner: PROC [root: Node] ~ {
r: ROPE ¬ TiogaIO.RopeFromSimpleDoc[root];
SELECT TRUE FROM
NOT Rope.IsEmpty[r] => MessageWindow.Append["Document is already plain", TRUE];
viewer.link#NIL => MessageWindow.Append["Can't do this with split views", TRUE];
ENDCASE => {
s: IO.STREAM ~ IO.ROS[];
TiogaIOExtras.WritePlain[s, root, TRUE, defaultNestIndent];
r ¬ IO.RopeFromROS[s];
ViewerTools.SetTiogaContents[viewer, NEW[ViewerTools.TiogaContentsRec ¬ [contents: r, formatting: NIL]], TRUE];
ViewerOps.SetNewVersion[viewer];
};
};
TiogaOps.CallWithLocks[Inner, root];
RETURN [recordAtom: TRUE, quit: TRUE];
};

defaultTabIndent: INT ¬ 8;

MakeCedar: TEditInput.CommandProc ~ {
root: Node ~ TiogaOps.ViewerDoc[viewer];
Inner: PROC [root: Node] ~ {
r: ROPE ~ TiogaIO.RopeFromSimpleDoc[root];
SELECT TRUE FROM
Rope.IsEmpty[r] => MessageWindow.Append["Document is not plain", TRUE];
viewer.link#NIL => MessageWindow.Append["Can't do this with split views", TRUE];
ENDCASE => {
node: Node ¬ TiogaExecCommands.ReadIndent[r, defaultTabIndent];
ViewerOps.SetViewer[viewer: viewer, data: node, op: $TiogaDocument];
node ¬ TiogaOps.ViewerDoc[viewer];
[] ¬ TiogaMesaOps.SpanMesaLooks[
span: TextNode.MakeNodeSpan[node, TextNode.LastWithin[node]], 
root: node
];
};
};
TiogaOps.CallWithLocks[Inner, root];
RETURN [recordAtom: TRUE, quit: TRUE];
};

TEditInput.Register[$MakePlain, MakePlain];
TEditInput.Register[$MakeCedar, MakeCedar];
InstallMenuButton["Plain", PlainClick];
InstallMenuButton["Cedar", CedarClick];
END.
  x  
TiogaPlainImpl.mesa
Copyright Ó 1993 by Xerox Corporation.  All rights reserved.
Christian Jacobi, March 18, 1993 3:46 pm PST

TEditDocument,
TEditScrolling,
ViewerClasses,
FindPos: PROC [v: ViewerClasses.Viewer] RETURNS [pos: INT ¬ 0] = {
WITH v.data SELECT FROM
tdd: TEditDocument.TEditDocumentData => {
lt: TEditDocument.LineTable ¬ tdd.lineTable;
IF lt#NIL AND lt.maxLines>0 THEN RETURN [lt[0].pos.where];
};
ENDCASE => {}
};
--This causes ugly repositioning; can that be fixed?
--This causes ugly repositioning; can that be fixed?
pos: INT ¬ FindPos[viewer];
TEditScrolling.ScrollToPosition[viewer, [node, pos], FALSE];
ÊN  •NewlineDelimiter
™ code™Kšœ
Ïeœ1™<K™,K™ —šÏk	˜	K˜KšœžœS˜^K˜K˜K™K˜K™K˜	Kšœžœ˜K˜K˜K˜K˜K˜	K™K˜
K˜—K˜ šÏnœžœž˜Kšžœ²˜¹—Kšœž˜K˜ Kšžœžœžœ˜Kšœžœ˜K˜ šŸœžœžœ˜?šœ˜Kšœ?˜?—šœ˜Kšœ0žœ˜7—šžœž˜Kšžœ3˜7Kšžœ:˜>—K˜K˜ —šŸ
œ˜K˜-K˜K˜ —šŸ
œ˜K˜-K˜K˜ —šŸœžœžœžœ	™Bšžœžœž™™)K™,Kš
žœžœžœžœžœ™:K™—Kšžœ™—K™—K˜ Kšœžœ˜$K˜ šŸ	œ˜%J™4Kšœ(˜(šŸœžœ˜Kšœžœ#˜*šžœžœž˜KšžœFžœ˜OKšœžœ;žœ˜Pšžœ˜Kš	œžœžœžœžœ˜Kšœ"žœ˜;Kšœžœ˜Kšœ%žœ:žœžœœ˜oK˜ K˜——K˜—K˜$Kšžœžœžœ˜&K˜K˜ —Kšœžœ˜K˜ šŸ	œ˜%J™4Kšœ(˜(šŸœžœ˜Kšœžœ#˜*˜KšœAžœ˜GKšœžœ;žœ˜Pšžœ˜Kšœžœ™K˜?K˜DK˜"˜ K˜>K˜
K˜—Kšœ5žœ™<K˜——K˜—K˜$Kšžœžœžœ˜&K˜—K˜ K˜+K˜+K˜'K˜'Kšžœ˜— …—    
Ž  T  