(* Copyright (C) 1989, 1990 Digital Equipment Corporation	*)
(* All rights reserved.						*)
(* See the file COPYRIGHT for a full description.		*)

(* File: hw.i3							*)
(* Last modified on Wed May 16 03:04:07 1990 by muller		*)
(*      modified on Fri Feb  9 18:27:30 1990 by jerome		*)


(*==============================================================*)
(*	The X11 R4 Interface for Modula 3			*)
(*==============================================================*)

(*	The smallest X Toolkit application in Modula3!		*)

MODULE hw EXPORTS Main;

FROM      M3toC IMPORT argc, argv;
IMPORT    Xt, Xaw;

VAR
  root:   Xt.Widget;

BEGIN
  root := Xt.Initialize (argc := argc, argv := argv);
  EVAL    Xt.CreateManagedWidget (argv[0], Xaw.labelWidgetClass, root);
          Xt.RealizeWidget (root);
          Xt.MainLoop (); 

END hw.