[Oberon] Viewer marking.

[peter at easthope.ca]

Suppose this test is compiled in A2.  If the context 
is removed it can compile in S3 as well.

MODULE MarkingTest IN Oberon;
	IMPORT Documents, Oberon, Texts;
	VAR
		W: Texts.Writer;
		
	PROCEDURE T*;  (* No parameters. *)
	BEGIN
		IF Oberon.MarkedViewer() # NIL THEN
			Texts.WriteString(W, "A Text viewer is marked."); Texts.WriteLn(W);
			Texts.Append(Oberon.Log, W.buf)
		ELSIF Documents.MarkedDoc() # NIL THEN
			Texts.WriteString(W, "A Document viewer is marked."); Texts.WriteLn(W);
			Texts.Append(Oberon.Log, W.buf)
		ELSE
			Texts.WriteString(W, "No viewer is marked."); Texts.WriteLn(W);
			Texts.Append(Oberon.Log, W.buf)
		END
	END T;
	
BEGIN
	Texts.OpenWriter(W)
END MarkingTest.

MarkingTest.T always reports "A Text viewer is marked."  Pressing F2 
to remove the marker has no effect.  How is viewer marking detected 
correctly?

Thanks,                      ... Lyall E.
-- 

123456789 123456789 123456789 123456789 123456789 123456789 123456789
Tel: +1 360 639 0202                      Pender Is.: +1 250 629 3757
http://easthope.ca/Peter.html              Bcc: peter at easthope. ca