MODULE ObxHello1;
(**

   project   = "BlackBox"
   organization   = "www.oberon.ch"
   contributors   = "Oberon microsystems"
   version   = "System/Rsrc/About"
   copyright   = "System/Rsrc/About"
   license   = "Docu/BB-License"
   changes   = ""
   issues   = ""

**)

   IMPORT Views, TextModels, TextMappers, TextViews;

   PROCEDURE Do*;

      VAR t: TextModels.Model; f: TextMappers.Formatter; v: TextViews.View;
   BEGIN
      t := TextModels.dir.New();   (* create a new, empty text object *)
      f.ConnectTo(t);   (* connect a formatter to the text *)
      f.WriteString("Hello World"); f.WriteLn;   (* write a string and a 0DX into new text *)
      v := TextViews.dir.New(t);   (* create a new text view for t *)
      Views.OpenView(v)   (* open the view in a window *)
   END Do;
END ObxHello1.