[Oberon] Obtaining the title of a marked viewer.

[Chris Burrows]

> -----Original Message-----
> From: Oberon [mailto:oberon-bounces at lists.inf.ethz.ch] On Behalf Of
> peter at easthope.ca
> Sent: Sunday, 19 February 2017 4:22 AM
> To: oberon at lists.inf.ethz.ch
> Subject: [Oberon] Obtaining the title of a marked viewer.
> 
> Suppose a Text viewer is * marked.  Oberon.MarkedText() gives the
> Text, a pointer to a TextDesc.
> 
> How can the title of the viewer be obtained?  Hypothetically a
> message broadcast into the Display can induce the viewer to identify
> itself.

VAR
  v:Viewers.Viewer;
  mv: MenuViewers.Viewer;
  title: ARRAY 100 OF CHAR;
...
...
  v := Oberon.MarkedViewer();
  mv := v(MenuViewers.Viewer);
  MenuViewers.GetName(mv, title);


Regards,
Chris Burrows
CFB Software
http://www.astrobe.com