(* Xm/SeparatorP.def  Nov 12  16:23:41  1996 *)
(* Copyright (c) 1996,1997 XDS Ltd, Russia. All rights reserved. *)

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

(* $RCSfile: SeparatorP.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/Separator.h *)

DEFINITION MODULE ["C"] SeparatorP;

IMPORT SYSTEM, Xlib, Xm:=XmP, Xt:=IntrinsicP;
(* H2D:  Required IMPORT clause: 
IMPORT SeparatorP, Xlib, XmP, IntrinsicP;
*)

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

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

(*
 * Motif Release 1.2
 *)

(*   Separator Widget   *)

VAR 
  xmSeparatorWidgetClass: Xt.WidgetClass;

TYPE 
  XmSeparatorWidgetClass = POINTER TO _XmSeparatorClassRec;

  XmSeparatorWidget = POINTER TO _XmSeparatorRec;

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

PROCEDURE XmCreateSeparator ( parent: Xt.Widget;
                              name: ARRAY OF CHAR;
                              arglist: Xt.ArgList;
                              argcount: Xt.Cardinal ): Xt.Widget;

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

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

(*
 * Motif Release 1.2.3
 *)

(*   Separator class structure   *)

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

  XmSeparatorClassPart = _XmSeparatorClassPart;

(*   Full class record declaration for Separator class   *)

  _XmSeparatorClassRec = RECORD
    core_class     : Xt.CoreClassPart;
    primitive_class: Xm.XmPrimitiveClassPart;
    separator_class: XmSeparatorClassPart;
  END;

  XmSeparatorClassRec = _XmSeparatorClassRec;

(*   The Separator instance record   *)

  _XmSeparatorPart = RECORD
    margin        : Xt.Dimension;
    orientation   : SHORTCARD;
    separator_type: SHORTCARD;
    separator_GC  : Xlib.GC;
  END;

  XmSeparatorPart = _XmSeparatorPart;

(*   Full instance record declaration   *)

  _XmSeparatorRec = RECORD
    core     : Xt.CorePart;
    primitive: Xm.XmPrimitivePart;
    separator: XmSeparatorPart;
  END;

  XmSeparatorRec = _XmSeparatorRec;

VAR 
  xmSeparatorClassRec: XmSeparatorClassRec;

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

END SeparatorP.
