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

(* File: xcommand.i3						*)
(* Last modified on Thu Apr 12 00:12:08 1990 by muller		*)
(*      modified on Thu Feb 15 11:55:40 1990 by jerome		*)

(*==============================================================*)
(*	The X11 R4 Interface for Modula 3			*)
(*								*)
(*	The Athena Widgets Set Example (re)coded in Modula3	*)
(*==============================================================*)

(*
 * This an example of how to use the Command widget.
 *
 * User events handled through callback routines.
 *
 * November 14, 1989 - Chris D. Peterson 
 *)

(*
 * $XConsortium: xcommand.c,v 1.10 89/12/15 19:36:59 kit Exp $
 *
 * Copyright 1989 Massachusetts Institute of Technology
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of M.I.T. not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  M.I.T. makes no representations about the
 * suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 * M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL M.I.T.
 * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
 * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 *)

MODULE xcommand EXPORTS Main;

FROM   M3toC   IMPORT	TtoS, StoT, argc, argv;

IMPORT Wr, Stdio, Cstdlib, Xrm, Xt, XtN, Xaw;


(*	Function Name: Syntax
 *	Description: Prints the calling syntax for this program to stdout.
 *	Arguments: app_con - the application context.
 *                 call - the name of the application.
 *	Returns: none - exits tho.
 *)

PROCEDURE Syntax (app_con: Xt.AppContext; call: Xt.String) =
BEGIN
    Xt.DestroyApplicationContext (app_con);
    Wr.PutText (Stdio.stdout, "Usage: " &  StoT (call) &
                              " [-label <label name>]\n");
    Cstdlib.exit (1);
END Syntax;


(*	Function Name: Select
 *	Description: This function prints a message to stdout.
 *	Arguments: w - ** UNUSED **
 *                 call_data - ** UNUSED **
 *                 client_data - ** UNUSED **
 *	Returns: none
 *)

PROCEDURE Select (<*UNUSED*> w: Xt.Widget; 
                  <*UNUSED*> client_data, call_data: ADDRESS) =
BEGIN
    Wr.PutText (Stdio.stdout, "Button selected.\n");
END Select;


VAR
    fb_res     := NEW (Xt.FallbackResList);
    options    := NEW (Xrm.OptionDescList);
    app_con:           Xt.AppContext;
    root:              Xt.Widget;
    command:           Xt.Widget;


BEGIN
    fb_res[0] := TtoS ("*Command.Label: Click the left mouse button here");
    fb_res[1] := NIL;

    options[0] := Xrm.OptionDescRec{ TtoS ("-label"),
				     TtoS ("*Command.label"), 
				     Xrm.optionSepArg,
				     NIL};

    root := Xt.AppInitialize (app_con, TtoS ("Xcommand"), options, 1,
			      argc, argv, fb_res);

    IF (argc # 1) THEN Syntax (app_con, argv[0]) END;

    command := Xt.CreateManagedWidget (TtoS ("command"), 
                                       Xaw.commandWidgetClass, 
                                       root);

    (*
     * Add a callback routine to the Command widget that will print
     * the message "Button selected." to stdout.
     *)

    Xt.AddCallback (command, XtN.callback, Select);

    Xt.RealizeWidget (root);
    Xt.AppMainLoop (app_con);

END xcommand.