ðqSyntax10.Scn.FntSyntax10b.Scn.FntHSyntax10i.Scn.Fnt¯5AMODULE Flush; IMPORT Kernel, Display, Viewers, MenuViewers, TextFrames; PROCEDURE Do*; (** call Flush.Do if you want to access a file that you have recently used with Oberon from outside of Oberon. Flush.Do ensures that Oberon does not keep the file open any longer. *) VAR h: INTEGER; v: MenuViewers.Viewer; BEGIN h := Viewers.minH; Viewers.minH := 1; v := MenuViewers.New(TextFrames.NewMenu("", ""), TextFrames.NewText(TextFrames.Text(""), 0), TextFrames.menuH, Display.Width-1, Display.Bottom); Viewers.minH := h; Viewers.Close(v); Kernel.GC END Do; END Flush.Do