(* Xm/MessageBP.def  Nov 11  17:0:38  1996 *)
(* Copyright (c) 1996,1997 XDS Ltd, Russia. All rights reserved. *)

(* Converted from Xm/MessageBP.h using H2D v1.18.1 *)

(* $RCSfile: MessageBP.def,v $ $Revision: 4 $ $Date: 28.07.98 23:14 $ *)

<*+ M2ADDTYPES *>
<*+ M2EXTENSIONS *>
<*+ NOHEADER *> 
<* IF NOT DEFINED(GENTYPEDEF) THEN *> <* NEW GENTYPEDEF+ *> <* END *>
<*+ CSTDLIB *>
(* Merged headers: Xm/MessageB.h *)

DEFINITION MODULE ["C"] MessageBP;

IMPORT SYSTEM, X, BulletinBP, Xm:=XmP, Xt:=IntrinsicP;
(* H2D:  Required IMPORT clause: 
IMPORT MessageBP, X, BulletinBP, Xm:=XmP, Xt:=IntrinsicP;
*)

(*
 * (c) Copyright 1989, 1990, 1991, 1992, 1993 OPEN SOFTWARE FOUNDATION, INC.
 * ALL RIGHTS RESERVED
 *)

(* ----------------------------------------------------- *)
(*                     Xm/MessageB.h                     *)
(* ----------------------------------------------------- *)

(*
 * Motif Release 1.2
 *)

(*  Class record constants  *)

VAR 
  xmMessageBoxWidgetClass: Xt.WidgetClass;

TYPE 
  XmMessageBoxWidgetClass = POINTER TO _XmMessageBoxClassRec;

  XmMessageBoxWidget = POINTER TO _XmMessageBoxRec;

(********    Public Function Declarations    ********)

PROCEDURE XmCreateMessageBox ( parent: Xt.Widget;
                               name: ARRAY OF CHAR;
                               al: Xt.ArgList;
                               ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmCreateMessageDialog ( parent: Xt.Widget;
                                  name: ARRAY OF CHAR;
                                  al: Xt.ArgList;
                                  ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmCreateErrorDialog ( parent: Xt.Widget;
                                name: ARRAY OF CHAR;
                                al: Xt.ArgList;
                                ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmCreateInformationDialog ( parent: Xt.Widget;
                                      name: ARRAY OF CHAR;
                                      al: Xt.ArgList;
                                      ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmCreateQuestionDialog ( parent: Xt.Widget;
                                   name: ARRAY OF CHAR;
                                   al: Xt.ArgList;
                                   ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmCreateWarningDialog ( parent: Xt.Widget;
                                  name: ARRAY OF CHAR;
                                  al: Xt.ArgList;
                                  ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmCreateWorkingDialog ( parent: Xt.Widget;
                                  name: ARRAY OF CHAR;
                                  al: Xt.ArgList;
                                  ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmCreateTemplateDialog ( parent: Xt.Widget;
                                   name: ARRAY OF CHAR;
                                   al: Xt.ArgList;
                                   ac: Xt.Cardinal ): Xt.Widget;

PROCEDURE XmMessageBoxGetChild ( widget: Xt.Widget;
                                 child: SHORTCARD ): Xt.Widget;

(********    End Public Function Declarations    ********)

(* ----------------------------------------------------- *)
(*                    Xm/MessageBP.h                     *)
(* ----------------------------------------------------- *)

(*
 * Motif Release 1.2.3
 *)

(*  Constraint part record for MessageBox widget  *)

TYPE 
  _XmMessageBoxConstraintPart = RECORD
    unused: CHAR;
  END;

  XmMessageBoxConstraintPart = _XmMessageBoxConstraintPart;

  XmMessageBoxConstraint = POINTER TO _XmMessageBoxConstraintPart;

(*   New fields for the MessageBox widget class record   *)

  _XmMessageBoxClassPart = RECORD
    extension: Xt.XtPointer;   (*  Pointer to extension record  *)
  END;

  XmMessageBoxClassPart = _XmMessageBoxClassPart;

(*  Full class record declaration  *)

  _XmMessageBoxClassRec = RECORD
    core_class          : Xt.CoreClassPart;
    composite_class     : Xt.CompositeClassPart;
    constraint_class    : Xt.ConstraintClassPart;
    manager_class       : Xm.XmManagerClassPart;
    bulletin_board_class: BulletinBP.XmBulletinBoardClassPart;
    message_box_class   : XmMessageBoxClassPart;
  END;

  XmMessageBoxClassRec = _XmMessageBoxClassRec;

(*  New fields for the MessageBox widget record  *)

  _XmMessageBoxPart = RECORD
    dialog_type        : SHORTCARD;
    default_type       : SHORTCARD;
    internal_pixmap    : Xt.Boolean;
    minimize_buttons   : Xt.Boolean;
    message_alignment  : SHORTCARD;
    message_string     : Xm.XmString;
    message_wid        : Xt.Widget;
    symbol_pixmap      : X.Pixmap;
    symbol_wid         : Xt.Widget;
    ok_label_string    : Xm.XmString;
    ok_callback        : Xt.XtCallbackList;
    ok_button          : Xt.Widget;
    cancel_label_string: Xm.XmString;
    cancel_callback    : Xt.XtCallbackList;
    help_label_string  : Xm.XmString;
    help_button        : Xt.Widget;
    separator          : Xt.Widget;
  END;

  XmMessageBoxPart = _XmMessageBoxPart;

(****************************************************************
 *
 * Full instance record declaration
 *
 ****************************************************************)

  _XmMessageBoxRec = RECORD
    core          : Xt.CorePart;
    composite     : Xt.CompositePart;
    constraint    : Xt.ConstraintPart;
    manager       : Xm.XmManagerPart;
    bulletin_board: BulletinBP.XmBulletinBoardPart;
    message_box   : XmMessageBoxPart;
  END;

  XmMessageBoxRec = _XmMessageBoxRec;

VAR 
  xmMessageBoxClassRec: XmMessageBoxClassRec;

(********    Private Function Declarations    ********)

PROCEDURE _XmMessageBoxGeoMatrixCreate ( wid: Xt.Widget;
                                         instigator: Xt.Widget;
                                         VAR desired: Xt.XtWidgetGeometry ): Xm.XmGeoMatrix;

PROCEDURE _XmMessageBoxNoGeoRequest ( geoSpec: Xm.XmGeoMatrix ): Xt.Boolean;

(********    End Private Function Declarations    ********)

END MessageBP.
