OberonCore

MODULE TestForm;

   IMPORT StdCmds, Ports, Views, Controls, FormGen,  FormViews, FormModels;

   PROCEDURE Do*;
      VAR p: Controls.Prop; v: Views.View;  m: FormModels.Model;
   BEGIN
      FormGen.Empty; StdCmds.SetMaskMode;
      NEW(p);
      p.link := 'TestForm.Do';
      p.label := 'Press me';
      v := Controls.dir.NewPushButton(p);
      m := FormViews.FocusModel();
      m.Insert(v, 40*Ports.mm, 30*Ports.mm, 60*Ports.mm, 37*Ports.mm);
   END Do;

END TestForm.