DIRECTORY Commander, MultiCursors, Process, Rope, ViewerClasses, ViewerOps;


SaveCommand: CEDAR PROGRAM
IMPORTS Commander, MultiCursors, Process, ViewerOps

~ BEGIN

VerboseSaveAllEdits: PUBLIC PROC = {
Save: ViewerOps.EnumProc = {
MultiCursors.InvertACursor[NIL]; -- main cursor becomes a filled box
IF (v.newVersion OR v.newFile) AND v.class.save # NIL THEN
[] _ ViewerOps.SaveViewer[v ! ANY => CONTINUE];
v.newVersion ¬ v.newFile ¬ FALSE;
IF v.icon=dirtyDocument THEN v.icon ¬ document;
IF v.link#NIL THEN FOR t: ViewerOps.Viewer ¬ v.link, t.link UNTIL t=v DO
t.newVersion ¬ t.newFile ¬ FALSE;
ENDLOOP;
MultiCursors.InvertACursor[NIL]; -- main cursor becomes a hollow box, again
RETURN[TRUE];
};
PaintCaption: ViewerOps.EnumProc = { ViewerOps.PaintViewer[v, caption] };
inner: PROC = {
MultiCursors.SetACursor[activate, NIL]; -- main cursor becomes a hollow box
ViewerOps.EnumerateViewers[Save];
MultiCursors.SetACursor[textPointer, NIL]; -- to show the saves are done
ViewerOps.EnumerateViewers[PaintCaption]; -- ok if this doesn't finish
};
inner[];
};


SaveCommand: Commander.CommandProc ~ {
Process.Detach[FORK VerboseSaveAllEdits[]];
};

Commander.Register["SaveSafely", SaveCommand, "safely saves all viewers"];

END.
    ˜  
SaveCommand.mesa
Copyright Ó 1991, 1992 by Xerox Corporation.  All rights reserved.
Weiser, May 25, 1992 7:53 pm PDT


poor man's crash recovery
Êç  •NewlineDelimiter
–(cedarcode) style™ šÏnœ™Icodešœ
Ïeœ7™BK™ K™ K™ —šÏk	œB˜KK˜ —K˜ šœŸœŸ˜KšŸœ,˜3—K˜ KšœŸ˜˜ šœŸœŸœ˜$Kšœ™šœ˜KšœŸœÏc#˜Dš	ŸœŸœŸœŸœŸ˜:KšœœŸœŸœ˜/—KšœŸœ˜!KšŸœŸœ˜/šŸœŸœŸœŸœ&ŸœŸ˜HKšœŸœ˜!KšŸœ˜—KšœŸœ *˜KKšŸœŸœ˜Kšœ˜—Kšœ=˜IšœŸœ˜Kšœ"Ÿœ #˜KKšœ!˜!Kšœ%Ÿœ ˜HKšœ* ˜FK˜—Kšœ˜Kšœ˜K˜ —K˜ šœ˜&KšœŸœ˜+—K˜K˜ KšœJ˜J—K˜ KšŸœ˜— …—    Î  M  