DIRECTORYCommander USING [CommandObject, Handle],CommandTool USING [DoCommand],DB,IO USING[noWhereStream, STREAM],Nut,Rope USING [Cat, ROPE],TiogaMenuOps USING [Open],ViewerClasses USING [Viewer, ViewerRec, ViewerFlavor],ViewerOps,WhiteboardDB,WhiteboardViewers; WhiteboardNut: CEDAR PROGRAM IMPORTS CommandTool, IO, Nut, Rope, TiogaMenuOps, ViewerOps, WhiteboardDB, WhiteboardViewers =BEGINOPEN ViewerClasses;ROPE: TYPE = Rope.ROPE;CreateWBViewer: PUBLIC PROC[eName: ROPE, parent: Viewer] =BEGINnewV: Viewer;IF NOT WhiteboardDB.WBExists[eName] THEN RETURN;newV _ ViewerOps.FindViewer[Rope.Cat["Whiteboard: ", eName]];IF newV = NIL OR newV.destroyed THEN {newV _ Nut.GetSpawnedProperty[parent];IF newV = NIL OR newV.destroyed OR newV.newVersion OR Nut.GetFrozenProperty[newV] OR newV.class.flavor # WhiteboardViewers.wbTHEN newV _ NIL;newV _ WhiteboardDB.Display[eName, newV];[] _ Nut.SetSpawnedProperty[parent, newV] }ELSE Open[newV];RETURN;END;WhiteboardDisplay: Nut.NutProc = {IF NOT WhiteboardDB.WBExists[eName] THEN RETURN;[] _ WhiteboardDB.Display[eName]};CreateTextViewer: PUBLIC PROC[eName: ROPE] =BEGINnewV: Viewer;newV _ ViewerOps.FindViewer[eName];IF newV = NIL OR newV.destroyed THEN newV _ TiogaMenuOps.Open[fileName: eName]ELSE Open[newV];RETURN;END;DoCommandFile: PUBLIC PROC[commandFile: ROPE] =BEGINcmd: Commander.Handle = NEW[Commander.CommandObject _ []];cmd.out _ IO.noWhereStream;cmd.err _ IO.noWhereStream;[] _ CommandTool.DoCommand[commandLine: Rope.Cat["///Commands/Source ", commandFile, " &\n"], parent: cmd];END;Open: PROC[viewer: Viewer] =BEGINIF viewer#NIL THENIF viewer.iconic THEN ViewerOps.OpenIcon[viewer]ELSE ViewerOps.PaintViewer[viewer, all];END;Nut.Register["Whiteboard", $Whiteboard, WhiteboardDisplay, WhiteboardDisplay]END...   d  WhiteboardNut.mesaCopyright (C) 1984 by Xerox Corporation. All rights reserved.last edited by:John Maxwell on: September 22, 1982 12:19 pmWillie-Sue on: February 22, 1983 4:19 pmCattell on: April 21, 1983 4:02 pmDonahue, November 19, 1985 9:00:05 am PST(Removed use of PressPrinter stuff -- press files now get treated like tools)Widom, August 24, 1984 7:21:39 pm PDTLast Edited by: Winkler, December 18, 1984 5:21:52 pm PSTIf whiteboard has been deleted, do nothingtry to find a viewer that might have been createdregister the necessary procedures with Nut for outside clients of Whiteboards Êï  ˜ Jšœ™Jšœ=™=Jšœ™Jšœ,™,Jšœ(™(Jšœ"™"Jšœ)™)J™MJšœ%™%J™9J˜ šÏk	˜	Jšœ
œ˜(Jšœœ˜Jšœ˜Jšœœœ˜ Jšœ˜Jšœœœ˜Jšœœ˜Jšœœ#˜6J˜
J˜J˜J˜ —šœœœ˜šœ˜JšœV˜V—Jš˜Jšœ˜J˜ —Jšœœœ˜J˜ šÏnœœœ˜:š˜J˜J™*Jšœœœœ˜0Jšœ1™1J˜=šœœœœ˜&Jšœ&˜&Jšœœœœœœ)˜}Jšœœ˜Jšœ)˜)J˜+—Jšœ˜Jšœ˜Jšœ˜J˜ ——˜"Jšœœœœ˜0Jšœ ˜ J˜—J˜ šžœœœ˜,Jš˜J˜J˜#Jšœœœœ*˜NJšœ˜Jšœ˜Jšœ˜J˜ —šžœœœœ˜/š˜Jšœœ˜:Jšœ
œ˜Jšœ
œ˜Jšœk˜kJšœ˜——J˜ šžœœ˜Jš˜šœœ˜Jšœœ˜0Jšœ$˜(—Jšœ˜—J˜ JšœM™MJ˜ J˜MJ˜ Jšœ˜J˜ — …—    .    