Last modified on Fri May 7 16:20:32 PDT 1993 by mjordan modified on Tue Feb 11 17:33:16 PST 1992 by muller modified on Tue Apr 24 17:41:54 1990 by jerome

UNSAFE INTERFACE Xaw;

FROM Ctypes  	IMPORT char_star_star, int_star, long, unsigned_long_star;
FROM X  	IMPORT Atom, AtomStar, Enumeration,
                       XEventStar, XRectangleStar;
FROM Xt 	IMPORT AppContext, Boolean, CallbackProc, Cardinal,
                       Dimension,  Position, String, StringStar,
                       Widget, WidgetClass;
IMPORT Xmu;

Size of a regular List of objects

CONST
  MaxSizeList  = 63;

All Rights Reserved

Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, 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 names of Digital or MIT not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission.

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL 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.

*****************************************************************

====================================================================== * $XConsortium: Shell.h,v 1.21 89/12/13 08:57:08 swick Exp $ * $oHeader: Shell.h,v 1.2 88/08/18 15:56:14 asente Exp $ *======================================================================

********************************************************************** * * Shell Widget * **********************************************************************

* Shell specific atoms

#define XtNiconName iconName in XtN.i3 #define XtCIconName IconName in XtC.i3 #define XtNiconPixmap iconPixmap in XtN.i3 #define XtCIconPixmap IconPixmap in XtC.i3 #define XtNiconWindow iconWindow in XtN.i3 #define XtCIconWindow IconWindow in XtC.i3 #define XtNiconMask iconMask in XtN.i3 #define XtCIconMask IconMask in XtC.i3 #define XtNwindowGroup windowGroup in XtN.i3 #define XtCWindowGroup WindowGroup in XtC.i3 #define XtNvisual visual in XtN.i3 #define XtCVisual Visual in XtC.i3 #define XtNtitleEncoding titleEncoding in XtN.i3 #define XtCTitleEncoding TitleEncoding in XtC.i3

#define XtNsaveUnder saveUnder in XtN.i3 #define XtCSaveUnder SaveUnder in XtC.i3 #define XtNtransient transient in XtN.i3 #define XtCTransient Transient in XtC.i3 #define XtNoverrideRedirect overrideRedirect in XtN.i3 #define XtCOverrideRedirect OverrideRedirect in XtC.i3 #define XtNtransientFor transientFor in XtN.i3 #define XtCTransientFor TransientFor in XtC.i3

#define XtNiconNameEncoding iconNameEncoding in XtN.i3 #define XtCIconNameEncoding IconNameEncoding in XtC.i3

#define XtNallowShellResize allowShellResize in XtN.i3 #define XtCAllowShellResize AllowShellResize in XtC.i3 #define XtNcreatePopupChildProc createPopupChildProc in XtN.i3 #define XtCCreatePopupChildProc CreatePopupChildProc in XtC.i3

#define XtNtitle title in XtN.i3 #define XtCTitle Title in XtC.i3

#define XtRAtom Atom in XtR.i3

* The following are only used at creation and can not be changed via * SetValues.

#define XtNargc argc in XtN.i3 #define XtCArgc Argc in XtC.i3 #define XtNargv argv in XtN.i3 #define XtCArgv Argv in XtC.i3 #define XtNiconX iconX in XtN.i3 #define XtCIconX IconX in XtC.i3 #define XtNiconY iconY in XtN.i3 #define XtCIconY IconY in XtC.i3 #define XtNinput input in XtN.i3 #define XtCInput Input in XtC.i3 #define XtNiconic iconic in XtN.i3 #define XtCIconic Iconic in XtC.i3 #define XtNinitialState initialState in XtN.i3 #define XtCInitialState InitialState in XtC.i3 #define XtNgeometry geometry in XtN.i3 #define XtCGeometry Geometry in XtC.i3 #define XtNbaseWidth baseWidth in XtN.i3 #define XtCBaseWidth BaseWidth in XtC.i3 #define XtNbaseHeight baseHeight in XtN.i3 #define XtCBaseHeight BaseHeight in XtC.i3 #define XtNwinGravity winGravity in XtN.i3 #define XtCWinGravity WinGravity in XtC.i3 #define XtNminWidth minWidth in XtN.i3 #define XtCMinWidth MinWidth in XtC.i3 #define XtNminHeight minHeight in XtN.i3 #define XtCMinHeight MinHeight in XtC.i3 #define XtNmaxWidth maxWidth in XtN.i3 #define XtCMaxWidth MaxWidth in XtC.i3 #define XtNmaxHeight maxHeight in XtN.i3 #define XtCMaxHeight MaxHeight in XtC.i3 #define XtNwidthInc widthInc in XtN.i3 #define XtCWidthInc WidthInc in XtC.i3 #define XtNheightInc heightInc in XtN.i3 #define XtCHeightInc HeightInc in XtC.i3 #define XtNminAspectY minAspectY in XtN.i3 #define XtCMinAspectY MinAspectY in XtC.i3 #define XtNmaxAspectY maxAspectY in XtN.i3 #define XtCMaxAspectY MaxAspectY in XtC.i3 #define XtNminAspectX minAspectX in XtN.i3 #define XtCMinAspectX MinAspectX in XtC.i3 #define XtNmaxAspectX maxAspectX in XtN.i3 #define XtCMaxAspectX MaxAspectX in XtC.i3 #define XtNwmTimeout wmTimeout in XtN.i3 #define XtCWmTimeout WmTimeout in XtC.i3 #define XtNwaitForWm waitforwm in XtN.i3 #define XtCWaitForWm Waitforwm in XtC.i3

Class record constants

<* EXTERNAL *>  VAR
   shellWidgetClass:  WidgetClass;
   overrideShellWidgetClass:  WidgetClass;
   wmShellWidgetClass:  WidgetClass;
   transientShellWidgetClass:  WidgetClass;
   topLevelShellWidgetClass:  WidgetClass;
   applicationShellWidgetClass:  WidgetClass;

********************************************************************** * * AsciiSink Object * **********************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- echo Output Boolean True displayNonprinting Output Boolean True

#define XtCOutput Output in XtC.i3

#define XtNdisplayNonprinting displayNonprinting in XtN.i3 #define XtNecho echo in XtN.i3

Class record constants

<* EXTERNAL *>
   VAR asciiSinkObjectClass: WidgetClass;

Class record constants

<* EXTERNAL *>
   VAR asciiSrcObjectClass: WidgetClass;

* Resource Definitions.

#define XtCDataCompression DataCompression in XtC.i3 #define XtCPieceSize PieceSize in XtC.i3 #define XtCType Type in XtC.i3 #define XtCUseStringInPlace UseStringInPlace in XtC.i3

#define XtNdataCompression dataCompression in XtN.i3 #define XtNpieceSize pieceSize in XtN.i3 #define XtNtype type in XtN.i3 #define XtNuseStringInPlace useStringInPlace in XtN.i3

#define XtRAsciiType AsciiType in XtR.i3

#define XtEstring string in XtE.i3 #define XtEfile file in XtE.i3

TYPE
  AsciiType = Enumeration;
CONST
  AsciiFile	= 0;
  AsciiString	= 1;

Function Name: Xaw.AsciiSourceFreeString * Description: Frees the string returned by a get values call * on the string when the source is of type string. * Arguments: w - the AsciiSrc object. * Returns: none.

<* EXTERNAL XawAsciiSourceFreeString *>
   PROCEDURE AsciiSourceFreeString(w: Widget);

<* EXTERNAL XawAsciiSave *>
   PROCEDURE AsciiSave (w: Widget): Boolean;

<* EXTERNAL XawAsciiSaveAsFile *>
   PROCEDURE AsciiSaveAsFile (w: Widget; name: String): Boolean;

<* EXTERNAL XawAsciiSourceChanged *>
   PROCEDURE AsciiSourceChanged (w: Widget): Boolean;

*************************************************************** * * AsciiText widgets * ***************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL displayPosition TextPosition int 0 editType EditType XawTextEditType XawtextRead font Font XFontStruct* Fixed foreground Foreground Pixel Black height Height Dimension font height insertPosition TextPosition int 0 leftMargin Margin Dimension 2 mappedWhenManaged MappedWhenManaged Boolean True selectTypes SelectTypes Pointer (internal) selection Selection Pointer empty selection sensitive Sensitive Boolean True string String String NULL textOptions TextOptions int 0 width Width Dimension 100 x Position Position 0 y Position Position 0

* Everything else we need is in StringDefs.h or Text.h

<* EXTERNAL *> VAR
   asciiDiskWidgetClass: WidgetClass;
   asciiTextWidgetClass: WidgetClass;
   asciiStringWidgetClass: WidgetClass;

********************************************************************** * * Box Widget (subclass of CompositeClass) * **********************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL hSpace HSpace Dimension 4 height Height Dimension 0 mappedWhenManaged MappedWhenManaged Boolean True orientation Orientation XtOrientation vertical vSpace VSpace Dimension 4 width Width Dimension 0 x Position Position 0 y Position Position 0

New fields

#define XtNhSpace hSpace in XtN.i3 #define XtNvSpace vSpace in XtN.i3

Class record constants

<* EXTERNAL *> VAR
   boxWidgetClass: WidgetClass;

CONST
  ZERO       = 0;
  ONE        = 1;
  TWO        = 2;
  THREE      = 3;
  FOUR       = 4;
  FIVE       = 5;
  SIX        = 6;
  SEVEN      = 7;
  EIGHT      = 8;
  NINE       = 9;
  TEN        = 10;

********************************************************************** * * Clock Widget * **********************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- analog Boolean Boolean True background Background Pixel white backingStore BackingStore BackingStore default border BorderColor Pixel Black borderWidth BorderWidth Dimension 1 chime Boolean Boolean False destroyCallback Callback Pointer NULL font Font XFontStruct* fixed foreground Foreground Pixel black hand Foreground Pixel black height Height Dimension 164 highlight Foreground Pixel black mappedWhenManaged MappedWhenManaged Boolean True padding Margin int 8 reverseVideo ReverseVideo Boolean False update Interval int 60 (seconds) width Width Dimension 164 x Position Position 0 y Position Position 0

Resource names used to the clock widget

		(* color of hands *)

#define XtNhand hands in XtN.i3

		(* Boolean: digital if FALSE *)

#define XtNanalog analog in XtN.i3

		(* Boolean:  *)

#define XtNchime chime in XtN.i3

		(* Int: amount of space around outside of clock *)

#define XtNpadding padding in XtN.i3

<* EXTERNAL *> VAR
   clockWidgetClass: WidgetClass;

********************************************************************** * * Command Widget * **********************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground bitmap Pixmap Pixmap None border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 callback Callback Pointer NULL cursor Cursor Cursor None destroyCallback Callback Pointer NULL font Font XFontStruct* XtDefaultFont foreground Foreground Pixel XtDefaultForeground height Height Dimension text height highlightThickness Thickness Dimension 2 insensitiveBorder Insensitive Pixmap Gray internalHeight Height Dimension 2 internalWidth Width Dimension 4 justify Justify XtJustify XtJustifyCenter label Label String NULL mappedWhenManaged MappedWhenManaged Boolean True resize Resize Boolean True sensitive Sensitive Boolean True width Width Dimension text width x Position Position 0 y Position Position 0

#define XtNhighlightThickness highlightThickness in XtN.i3 #define XtNshapeStyle shapeStyle in XtN.i3 #define XtCShapeStyle ShapeStyle in XtC.i3 #define XtRShapeStyle ShapeStyle in XtR.i3 #define XtNcornerRoundPercent cornerRoundPercent in XtN.i3 #define XtCCornerRoundPercent CornerRoundPercent in XtC.i3

CONST
   ShapeRectangle		= Xmu.ShapeRectangle;
   ShapeOval			= Xmu.ShapeOval;
   ShapeEllipse 		= Xmu.ShapeEllipse;
   ShapeRoundedRectangle	= Xmu.ShapeRoundedRectangle;

<* EXTERNAL *> VAR
   commandWidgetClass: WidgetClass;

********************************************************************** * * Dialog Widget * **********************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL height Height Dimension computed at create icon Icon Pixmap 0 label Label String NULL mappedWhenManaged MappedWhenManaged Boolean True sensitive Sensitive Boolean True value Value String NULL width Width Dimension computed at create x Position Position 0 y Position Position 0

#define XtCIcon Icon in XtC.i3

#define XtNicon icon in XtN.i3

<* EXTERNAL *> VAR
   dialogWidgetClass: WidgetClass;

<* EXTERNAL XawDialogAddButton *>
   PROCEDURE DialogAddButton (parent: Widget; name: String;
                              function: CallbackProc; param: ADDRESS);

<* EXTERNAL XawDialogGetValueString *>
   PROCEDURE DialogGetValueString (w: Widget): String;

********************************************************************** * * Form Widget * **********************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 defaultDistance Thickness int 4 destroyCallback Callback Pointer NULL height Height Dimension computed at realize mappedWhenManaged MappedWhenManaged Boolean True sensitive Sensitive Boolean True width Width Dimension computed at realize x Position Position 0 y Position Position 0

Constraint parameters:

Name Class RepType Default Value ---- ----- ------- ------------- bottom Edge XtEdgeType XtRubber fromHoriz Widget Widget (left edge of form) fromVert Widget Widget (top of form) horizDistance Thickness int defaultDistance left Edge XtEdgeType XtRubber resizable Boolean Boolean False right Edge XtEdgeType XtRubber top Edge XtEdgeType XtRubber vertDistance Thickness int defaultDistance

#define XtNdefaultDistance defaultDistance in XtN.i3 #define XtNtop top in XtN.i3 #define XtNbottom bottom in XtN.i3 #define XtNleft left in XtN.i3 #define XtNright right in XtN.i3 #define XtNfromHoriz fromHoriz in XtN.i3 #define XtNfromVert fromVert in XtN.i3 #define XtNhorizDistance horizDistance in XtN.i3 #define XtNvertDistance vertDistance in XtN.i3 #define XtNresizable resizable in XtN.i3

#define XtCEdge Edge in XtC.i3 #define XtCWidget Widget in XtC.i3

#define XtRWidget Widget in XtR.i3

TYPE
  EdgeType		= Enumeration;
CONST
    ChainTop		= 0;	(* Keep this edge a constant distance from
				   the top of the form *)
    ChainBottom		= 1;	(* Keep this edge a constant distance from
				   the bottom of the form *)
    ChainLeft		= 2;	(* Keep this edge a constant distance from
				   the left of the form *)
    ChainRight		= 3;	(* Keep this edge a constant distance from
				   the right of the form *)
    Rubber		= 4;	(* Keep this edge a proportional distance
				   from the edges of the form*)

<* EXTERNAL *> VAR
   formWidgetClass: WidgetClass;

<* EXTERNAL XawFormDoLayout *>
   PROCEDURE FormDoLayout (widget: Widget; doit: Boolean);

* Grip.h - Public Definitions for Grip widget (used by VPane Widget) *

************************************************************************** * * Grip Widget * *************************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- foreground Foreground Pixel XtDefaultForeground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 0 callback Callback Pointer GripAction cursor Cursor Cursor None destroyCallback Callback Pointer NULL height Height Dimension 8 mappedWhenManaged MappedWhenManaged Boolean True sensitive Sensitive Boolean True width Width Dimension 8 x Position Position 0 y Position Position 0

#define XtNgripTranslations gripTranslations in XtN.i3

TYPE
  GripCallDataRec =  RECORD
      event: XEventStar;		(* the event causing the GripAction *)
      params: StringStar;		(* the TranslationTable params *)
      num_params: Cardinal		(* count of params *)
                     END;
  GripCallDataStar = UNTRACED REF GripCallDataRec;

<* EXTERNAL *> VAR
   gripWidgetClass: WidgetClass;

********************************************************************** * * Label Widget * **********************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground bitmap Pixmap Pixmap None border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 cursor Cursor Cursor None destroyCallback Callback XtCallbackList NULL font Font XFontStruct* XtDefaultFont foreground Foreground Pixel XtDefaultForeground height Height Dimension text height insensitiveBorder Insensitive Pixmap Gray internalHeight Height Dimension 2 internalWidth Width Dimension 4 justify Justify XtJustify XtJustifyCenter label Label String NULL mappedWhenManaged MappedWhenManaged Boolean True resize Resize Boolean True sensitive Sensitive Boolean True width Width Dimension text width x Position Position 0 y Position Position 0

#define XtNbitmap bitmap in XtN.i3 #define XtNforeground foreground in XtN.i3 #define XtNlabel label in XtN.i3 #define XtNfont font in XtN.i3 #define XtNinternalWidth internalWidth in XtN.i3 #define XtNinternalHeight internalHeight in XtN.i3 #define XtNresize resize in XtN.i3 #define XtCResize Resize in XtC.i3

#define XtCBitmap Bitmap in XtC.i3

Class record constants

<* EXTERNAL *> VAR
  labelWidgetClass: WidgetClass;

This is the List widget, it is useful to display a list, without the * overhead of having a widget for each item in the list. It allows * the user to select an item in a list and notifies the application through * a callback function. * * Created: 8/13/88 * By: Chris D. Peterson * MIT X Consortium

********************************************************************** * * List Widget * **********************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 callback Callback XtCallbackList NULL **6 columnSpacing Spacing Dimension 6 cursor Cursor Cursor left_ptr defaultColumns Columns int 2 **5 destroyCallback Callback Pointer NULL font Font XFontStruct* XtDefaultFont forceColumns Columns Boolean False **5 foreground Foreground Pixel XtDefaultForeground height Height Dimension 0 **1 insensitiveBorder Insensitive Pixmap Gray internalHeight Height Dimension 2 internalWidth Width Dimension 4 list List String * NULL **2 longest Longest int 0 **3 **4 mappedWhenManaged MappedWhenManaged Boolean True numberStrings NumberStrings int 0 **4 pasteBuffer Boolean Boolean False rowSpacing Spacing Dimension 4 sensitive Sensitive Boolean True verticalList Boolean Boolean False width Width Dimension 0 **1 x Position Position 0 y Position Position 0

**1 - If the Width or Height of the list widget is zero (0) then the value is set to the minimum size necessay to fit the entire list.

If both Width and Height are zero then they are adjusted to fit the entire list that is created width the number of default columns specified in the defaultColumns resource.

**2 - This is an array of strings the specify elements of the list. This resource must be specified. (What good is a list widget without a list?? :-)

**3 - Longest is the length of the widest string in pixels.

**4 - If either of these values are zero (0) then the list widget calculates the correct value.

(This allows you to make startup faster if you already have this information calculated)

NOTE: If the numberStrings value is zero the list must be NULL terminated.

**5 - By setting the List.Columns resource you can force the application to have a given number of columns.

**6 - This returns the name and index of the item selected in an XawListReturnStruct that is pointed to by the client_data in the CallbackProc.

* Value returned when there are no highlighted objects.

CONST
  XAW_LIST_NONE = -1;

#define XtNcursor cursor in XtN.i3 #define XtNcolumnSpacing columnSpacing in XtN.i3 #define XtNdefaultColumns defaultColumns in XtN.i3 #define XtNforceColumns forceColumns in XtN.i3 #define XtNlist list in XtN.i3 #define XtNlongest longest in XtN.i3 #define XtNnumberStrings numberStrings in XtN.i3 #define XtNpasteBuffer pasteBuffer in XtN.i3 #define XtNrowSpacing rowSpacing in XtN.i3 #define XtNverticalList verticalList in XtN.i3

Class record constants

<* EXTERNAL *> VAR
   listWidgetClass: WidgetClass;

TYPE
  ListReturnStruct = RECORD  string: String; list_index: INTEGER; END;
  ListReturnStructStar = UNTRACED REF ListReturnStruct;

Function Name: Xaw.ListChange. * Description: Changes the list being used and shown. * Arguments: w - the list widget. * list - the new list. * nitems - the number of items in the list. * longest - the length (in Pixels) of the longest element * in the list. * resize - if TRUE the the list widget will * try to resize itself. * Returns: none. * NOTE: If nitems of longest are <= 0 then they will be caluculated. * If nitems is <= 0 then the list needs to be NULL terminated.

<* EXTERNAL XawListChange *>
   PROCEDURE ListChange (w: Widget; list: char_star_star;
                         nitems, longest: INTEGER; resize: Boolean);

<* EXTERNAL XawListUnhighlight *>
   PROCEDURE ListUnhighlight (w: Widget);

<* EXTERNAL XawListHighlight *>
   PROCEDURE ListHighlight (w: Widget; item: INTEGER);

<* EXTERNAL XawListShowCurrent *>
   PROCEDURE ListShowCurrent (w: Widget): ListReturnStructStar;

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel White border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL foreground Foreground Pixel Black height Height Dimension 100 mappedWhenManaged MappedWhenManaged Boolean True reverseVideo ReverseVideo Boolean False width Width Dimension 100 x Position Position 0 y Position Position 0

<* EXTERNAL *> VAR
   logoWidgetClass: WidgetClass ;

* Mailbox widget; looks a lot like the clock widget, don't it...

resource names used by mailbox widget that aren't defined in StringDefs.h

#define XtNupdate update in XtN.i3

command to exec #define XtNcheckCommand checkCommand in XtN.i3 #define XtNonceOnly onceOnly in XtN.i3

Int: volume for bell #define XtNvolume volume in XtN.i3 #define XtNfullPixmap fullPixmap in XtN.i3 #define XtNfullPixmapMask fullPixmapMask in XtN.i3 #define XtNemptyPixmap emptyPixmap in XtN.i3 #define XtNemptyPixmapMask emptyPixmapMask in XtN.i3 #define XtNflip flip in XtN.i3 #define XtNshapeWindow shapeWindow in XtN.i3

#define XtCCheckCommand CheckCommand in XtC.i3 #define XtCVolume Volume in XtC.i3 #define XtCPixmapMask PixmapMask in XtC.i3 #define XtCFlip Flip in XtC.i3 #define XtCShapeWindow ShapeWindow in XtC.i3

structures

<* EXTERNAL *> VAR
   mailboxWidgetClass: WidgetClass;

********************************************************************** * * MenuButton Widget * **********************************************************************

* MenuButton.h - Public Header file for MenuButton widget. * * This is the public header file for the Athena MenuButton widget. * It is intended to provide an easy method of activating pulldown menus. * * Date: May 2, 1989 * * By: Chris D. Peterson * MIT X Consortium * kit@expo.lcs.mit.edu

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground bitmap Pixmap Pixmap None border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 callback Callback Pointer NULL cursor Cursor Cursor None destroyCallback Callback Pointer NULL font Font XFontStruct* XtDefaultFont foreground Foreground Pixel XtDefaultForeground height Height Dimension text height highlightThickness Thickness Dimension 2 insensitiveBorder Insensitive Pixmap Gray internalHeight Height Dimension 2 internalWidth Width Dimension 4 justify Justify XtJustify XtJustifyCenter label Label String NULL mappedWhenManaged MappedWhenManaged Boolean True menuName MenuName String menu resize Resize Boolean True sensitive Sensitive Boolean True width Width Dimension text width x Position Position 0 y Position Position 0

#define XtNmenuName menuName in XtN.i3 #define XtCMenuName MenuName in XtC.i3

<* EXTERNAL *> VAR
   menuButtonWidgetClass: WidgetClass;

* Paned.h - Paned Composite Widget's public header file. * * Updated and significantly modifided from the Athena VPaned Widget. * * Date: March 1, 1989 * * By: Chris D. Peterson * MIT X Consortium * kit@expo.lcs.mit.edu

*************************************************************** * * Vertical Paned Widget (SubClass of CompositeClass) * ***************************************************************

RESOURCES:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground betweenCursor Cursor Cursor ** border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 cursor Cursor Cursor None destroyCallback Callback Pointer NULL height Height Dimension 0 gripIndent GripIndent Position 16 gripCursor Cursor Cursor ** horizontalGripCursol Cursor Cursor sb_h_double_arrow horizontalBetweencursor Cursor Cursor sb_up_arrow internalBorderColor BorderColor Pixel XtDefaultForeground internalBorderWidth BorderWidth Position 1 leftCursor Cursor Cursor sb_left_arrow lowerCursor Cursor Cursor sb_down_arrow mappedWhenManaged MappedWhenManaged Boolean True orientation Orientation XtOrientation XtorientVertical refigureMode Boolean Boolean On rightCursor Cursor Cursor sb_right_arrow sensitive Sensitive Boolean True upperCursor Cursor Cursor sb_up_arrow verticalBetweenCursor Cursor Cursor sb_left_arrow verticalGripCursor Cursor Cursor sb_v_double_arrow width Width Dimension 0 x Position Position 0 y Position Position 0

** These resources now are set to the vertical or horizontal cursor depending upon orientation, by default. If a value is specified here then that cursor will be used reguardless of orientation.

CONSTRAINT RESOURCES:

Name Class RepType Default Value ---- ----- ------- ------------- allowResize Boolean Boolean False max Max Dimension unlimited min Min Dimension Grip Size preferredPaneSize PerferredPaneSize Dimension PANED_ASK_CHILD resizeToPreferred Boolean Boolean False showGrip ShowGrip Boolean True skipAdjust Boolean Boolean False

CONST
  PANED_ASK_CHILD = 0;
  PANED_GRIP_SIZE = 0;

#define XtNallowResize allowResize in XtN.i3 #define XtNbetweenCursor betweenCursor in XtN.i3 #define XtNverticalBetweenCursor verticalBetweenCursor in XtN.i3 #define XtNhorizontalBetweenCursor horizontalBetweenCursorin XtN.i3 #define XtNgripCursor gripCursor in XtN.i3 #define XtNgripIndent gripIndent in XtN.i3 #define XtNhorizontalGripCursor horizontalGripCursor in XtN.i3 #define XtNinternalBorderColor internalBorderColor in XtN.i3 #define XtNinternalBorderWidth internalBorderWidth in XtN.i3 #define XtNleftCursor leftCursor in XtN.i3 #define XtNlowerCursor lowerCursor in XtN.i3 #define XtNrefigureMode refigureMode in XtN.i3 #define XtNposition position in XtN.i3 #define XtNmin min in XtN.i3 #define XtNmax max in XtN.i3 #define XtNpreferredPaneSize preferredPaneSize in XtN.i3 #define XtNresizeToPreferred resizeToPreferred in XtN.i3 #define XtNrightCursor rightCursor in XtN.i3 #define XtNshowGrip showGrip in XtN.i3 #define XtNskipAdjust skipAdjust in XtN.i3 #define XtNupperCursor upperCursor in XtN.i3 #define XtNverticalGripCursor verticalGripCursor in XtN.i3

#define XtCGripIndent GripIndent in XtC.i3 #define XtCMin Min in XtC.i3 #define XtCMax Max in XtC.i3 #define XtCPreferredPaneSize PreferredPaneSize in XtC.i3 #define XtCShowGrip ShowGrip in XtC.i3

Class record constant

<* EXTERNAL *> VAR
   panedWidgetClass: WidgetClass;

Function Name: Xaw.PanedSetMinMax * Description: Sets the min and max size for a pane. * Arguments: widget - the widget that is a child of the Paned widget. * min, max - the new min and max size for the pane. * Returns: none.

<* EXTERNAL XawPanedSetMinMax *>
   PROCEDURE PanedSetMinMax (widget: Widget; min, max: INTEGER);

<* EXTERNAL XawPanedGetMinMax *>
   PROCEDURE PanedGetMinMax (widget: Widget; min, max: int_star);

<* EXTERNAL XawPanedSetRefigureMode *>
   PROCEDURE PanedSetRefigureMode (w: Widget; mode: Boolean);

<* EXTERNAL XawPanedGetNumSub *>
   PROCEDURE PanedGetNumSub (w: Widget): INTEGER;

<* EXTERNAL XawPanedAllowResize *>
   PROCEDURE PanedAllowResize (widget: Widget; allow_resize: Boolean);

*************************************************************** * * Scrollbar Widget * ***************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel White border BorderColor Pixel Black borderWidth BorderWidth Dimension 1 destroyCallback Callback Function NULL foreground Color Pixel Black height Height Dimension length or thickness jumpProc Callback Function NULL length Length Dimension 1 mappedWhenManaged MappedWhenManaged Boolean True orientation Orientation XtOrientation XtorientVertical reverseVideo ReverseVideo Boolean False scrollDCursor Cursor Cursor XC_sb_down_arrow scrollHCursor Cursor Cursor XC_sb_h_double_arrow scrollLCursor Cursor Cursor XC_sb_left_arrow scrollProc Callback Function NULL scrollRCursor Cursor Cursor XC_sb_right_arrow scrollUCursor Cursor Cursor XC_sb_up_arrow scrollVCursor Cursor Cursor XC_sb_v_double_arrow sensitive Sensitive Boolean True shown Shown float 0.0 thickness Thickness Dimension 14 thumb Thumb Pixmap Grey topOfThumb TopOfThumb float 0.0 width Width Dimension thickness or length x Position Position 0 y Position Position 0

* Most things we need are in StringDefs.h

#define XtCMinimumThumb MinimumThumb in XtC.i3 #define XtCShown Shown in XtC.i3 #define XtCTopOfThumb TopOfThumb in XtC.i3

#define XtNminimumThumb minimumThumb in XtN.i3 #define XtNtopOfThumb topOfThumb in XtN.i3

<* EXTERNAL *> VAR
   scrollbarWidgetClass: WidgetClass;

<* EXTERNAL XawScrollbarSetThumb *>
   PROCEDURE ScrollbarSetThumb (scrollBar: Widget; top, shown: REAL);

*************************************************************** * * Simple widgets * ***************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 cursor Cursor Cursor None destroyCallback Callback Pointer NULL height Height Dimension 0 insensitiveBorder Insensitive Pixmap Gray mappedWhenManaged MappedWhenManaged Boolean True sensitive Sensitive Boolean True width Width Dimension 0 x Position Position 0 y Position Position 0

#define XtNcursor cursor in XtN.i3 #define XtNinsensitiveBorder insensitiveBorder in XtN.i3 #define XtCInsensitive Insensitive in XtC.i3

<* EXTERNAL *> VAR
   simpleWidgetClass: WidgetClass;

* SimpleMenu.h - Public Header file for SimpleMenu widget. * * This is the public header file for the Athena SimpleMenu widget. * It is intended to provide one pane pulldown and popup menus within * the framework of the X Toolkit. As the name implies it is a first and * by no means complete implementation of menu code. It does not attempt to * fill the needs of all applications, but does allow a resource oriented * interface to menus. * * Date: April 3, 1989 * * By: Chris D. Peterson * MIT X Consortium * kit@expo.lcs.mit.edu

*************************************************************** * * SimpleMenu widget * ***************************************************************

SimpleMenu Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground backgroundPixmap BackgroundPixmap Pixmap None borderColor BorderColor Pixel XtDefaultForeground borderPixmap BorderPixmap Pixmap None borderWidth BorderWidth Dimension 1 bottomMargin VerticalMargins Dimension VerticalSpace columnWidth ColumnWidth Dimension Width of widest text cursor Cursor Cursor None destroyCallback Callback Pointer NULL height Height Dimension 0 label Label String NULL (No label) labelClass LabelClass Pointer smeBSBObjectClass mappedWhenManaged MappedWhenManaged Boolean True rowHeight RowHeight Dimension Height of Font sensitive Sensitive Boolean True topMargin VerticalMargins Dimension VerticalSpace width Width Dimension 0 x Position Position 0n y Position Position 0

<* EXTERNAL *> VAR
   simpleMenuWidgetClass: WidgetClass;

#define XtCColumnWidth ColumnWidth in XtC.i3 #define XtCLabelClass LabelClass in XtC.i3 #define XtCMenuOnScreen MenuOnScreen in XtC.i3 #define XtCPopupOnEntry PopupOnEntry in XtC.i3 #define XtCRowHeight RowHeight in XtC.i3 #define XtCVerticalMargins VerticalMargins in XtC.i3

*********************************************************** * * Public Functions. * ***********************************************************

Function Name: Xaw.SimpleMenuAddGlobalActions * Description: adds the global actions to the simple menu widget. * Arguments: app_con - the appcontext. * Returns: none.

<* EXTERNAL XawSimpleMenuAddGlobalActions *>
   PROCEDURE SimpleMenuAddGlobalActions (app_con: AppContext);

<* EXTERNAL XawSimpleMenuGetActiveEntry *>
   PROCEDURE SimpleMenuGetActiveEntry (w: Widget): Widget;

<* EXTERNAL XawSimpleMenuClearActiveEntry *>
   PROCEDURE SimpleMenuClearActiveEntry (w: Widget);

* Sme.h - Public Header file for Sme object. * * This is the public header file for the Athena Sme object. * It is intended to be used with the simple menu widget. * * Date: April 3, 1989 * * By: Chris D. Peterson * MIT X Consortium * kit@expo.lcs.mit.edu

*************************************************************** * * Sme Object * ***************************************************************

Simple Menu Entry Resources:

Name Class RepType Default Value ---- ----- ------- ------------- callback Callback Pointer NULL destroyCallback Callback Pointer NULL height Height Dimension 0 sensitive Sensitive Boolean True width Width Dimension 0 x Position Position 0n y Position Position 0

<* EXTERNAL *> VAR
   smeObjectClass: WidgetClass;

*************************************************************** * * SmeBSB object * ***************************************************************

BSB Menu Entry Resources:

Name Class RepType Default Value ---- ----- ------- ------------- callback Callback Callback NULL destroyCallback Callback Pointer NULL font Font XFontStruct * XtDefaultFont foreground Foreground Pixel XtDefaultForeground height Height Dimension 0 label Label String Name of entry leftBitmap LeftBitmap Pixmap None leftMargin HorizontalMargins Dimension 4 rightBitmap RightBitmap Pixmap None rightMargin HorizontalMargins Dimension 4 sensitive Sensitive Boolean True vertSpace VertSpace int 25 width Width Dimension 0 x Position Position 0n y Position Position 0

<* EXTERNAL *> VAR
   smeBSBObjectClass: WidgetClass;

*************************************************************** * * SmeLine Object * ***************************************************************

Menu Entry Resources:

Name Class RepType Default Value ---- ----- ------- ------------- callback Callback Pointer NULL destroyCallback Callback Pointer NULL height Height Dimension 0 sensitive Sensitive Boolean True width Width Dimension 0 x Position Position 0n y Position Position 0

#define XtCLineWidth LineWidth in XtC.i3 #define XtCStipple Stipple in XtC.i3

#define XtNlineWidth lineWidth in XtN.i3 #define XtNstipple stipple in XtN.i3

<* EXTERNAL *> VAR
   smeLineObjectClass: WidgetClass;

********************************************************************** * * StripChart Widget * **********************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL foreground Foreground Pixel XtDefaultForeground getValue Callback Callback NULL height Height Dimension 120 highlight Foreground Pixel Black mappedWhenManaged MappedWhenManaged Boolean True minScale Scale int 1 reverseVideo ReverseVideo Boolean False update Interval int 5 (seconds) width Width Dimension 120 x Position Position 0 y Position Position 0

CONST
  DEFAULT_JUMP = -1;

#define XtNgetValue getValue in XtN.i3 #define XtNhighlight highlight in XtN.i3 #define XtNjumpScroll jumpScroll in XtN.i3 #define XtNminScale minScale in XtN.i3 #define XtNscale scale in XtN.i3 #define XtNupdate update in XtN.i3 #define XtNvmunix vmunix in XtN.i3

<* EXTERNAL *> VAR
   stripChartWidgetClass: WidgetClass;

*************************************************************** * * Template widget * ***************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL height Height Dimension 0 mappedWhenManaged MappedWhenManaged Boolean True sensitive Sensitive Boolean True width Width Dimension 0 x Position Position 0 y Position Position 0

define any special resource names here that are not in <X11/StringDefs.h>

#define XtNtemplateResource templateResource in XtN.i3

#define XtCTemplateResource TemplateResource in XtC.i3

declare the class constant

<* EXTERNAL *> VAR
   templateWidgetClass: WidgetClass;

*************************************************************** * * Text widget * ***************************************************************

Parameters:

Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL dialogHOffset Margin int 10 dialogVOffset Margin int 10 displayCaret Output Boolean True displayPosition TextPosition int 0 editType EditType XtTextEditType XttextRead height Height Dimension font height insertPosition TextPosition int 0 leftMargin Margin Dimension 2 mappedWhenManaged MappedWhenManaged Boolean True selectTypes SelectTypes Pointer (internal) selection Selection Pointer empty selection sensitive Sensitive Boolean True textSink TextSink Pointer (none) textSource TextSource Pointer (none) width Width Dimension 100 x Position int 0 y Position int 0

#define XtEtextScrollNever never in XtE.i3 #define XtEtextScrollWhenNeeded whenneeded in XtE.i3 #define XtEtextScrollAlways always in XtE.i3

#define XtEtextWrapNever never in XtE.i3 #define XtEtextWrapLine line in XtE.i3 #define XtEtextWrapWord word in XtE.i3

#define XtEtextResizeNever never in XtE.i3 #define XtEtextResizeWidth width in XtE.i3 #define XtEtextResizeHeight height in XtE.i3 #define XtEtextResizeBoth both in XtE.i3

#define XtNautoFill autoFill in XtN.i3 #define XtNbottomMargin bottomMargin in XtN.i3 #define XtNdialogHOffset dialogHOffset in XtN.i3 #define XtNdialogVOffset dialogVOffset in XtN.i3 #define XtNdisplayCaret displayCaret in XtN.i3 #define XtNdisplayPosition displayPosition in XtN.i3 #define XtNinsertPosition insertPosition in XtN.i3 #define XtNleftMargin leftMargin in XtN.i3 #define XtNresize resize in XtN.i3 #define XtNrightMargin rightMargin in XtN.i3 #define XtNscrollVertical scrollVertical in XtN.i3 #define XtNscrollHorizontal scrollHorizontal in XtN.i3 #define XtNselectTypes selectTypes in XtN.i3 #define XtNselection selection in XtN.i3 #define XtNtopMargin topMargin in XtN.i3 #define XtNwrap wrap in XtN.i3

#define XtCAutoFill AutoFill in XtC.i3 #define XtCResize Resize in XtC.i3 #define XtCScroll Scroll in XtC.i3 #define XtCSelectTypes SelectTypes in XtC.i3 #define XtCWrap Wrap in XtC.i3

Return Error code for XawTextSearch

VAR
  TextSearchError     := -12345;

CONST
  EditDone           = 0;
  EditError          = 1;
  PositionError      = 2;

<* EXTERNAL *>
   VAR FMT8BIT: Atom;

<* EXTERNAL *>
   VAR textWidgetClass: WidgetClass;

TYPE
  TextScrollMode	= Enumeration;
CONST
  textScrollNever	= 0;
  textScrollWhenNeeded	= 1;
  textScrollAlways	= 3;

TYPE
  TextWrapMode		= Enumeration;
CONST
  textWrapNever		= 0;
  textWrapLine		= 1;
  textWrapWord		= 2;

TYPE
  TextResizeMode	= Enumeration;
CONST
  textResizeNever	= 0;
  textResizeWidth	= 1;
  textResizeHeight	= 3;
  textResizeBoth	= 4;

TYPE
  TextScanDirection	= Enumeration;
CONST
  sdLeft		= 0;
  sdRight		= 1;

TYPE
  TextEditType		= Enumeration;
CONST
  textRead		= 0;
  textAppend		= 1;
  textEdit		= 2;

TYPE
  TextSelectType	= Enumeration;
CONST
  selectNull		= 0;
  selectPosition	= 1;
  selectChar		= 2;
  selectWord		= 3;
  selectLine		= 4;
  selectParagraph	= 5;
  selectAll		= 6;

TYPE
  TextSelectTypeStar =  UNTRACED REF TextSelectType;

  TextBlock          =  RECORD
				firstPos: INTEGER;
				length: INTEGER;
				ptr: String;
				format: Atom;
			END;
  TextBlockStar      =  UNTRACED REF TextBlock;

<* EXTERNAL XawTextDisplay *>
   PROCEDURE TextDisplay (w: Widget);

<* EXTERNAL XawTextEnableRedisplay *>
   PROCEDURE TextEnableRedisplay (w: Widget);

<* EXTERNAL XawTextDisableRedisplay *>
   PROCEDURE TextDisableRedisplay (w: Widget);

<* EXTERNAL XawTextSetSelectionArray *>
   PROCEDURE TextSetSelectionArray (w: Widget; sarray: TextSelectTypeStar);

<* EXTERNAL XawTextGetSelectionPos *>
   PROCEDURE TextGetSelectionPos (w: Widget; left, right: TextPositionStar);

<* EXTERNAL XawTextSetSource *>
   PROCEDURE TextSetSource (w, source: Widget; startPos: TextPosition);

<* EXTERNAL XawTextReplace *>
   PROCEDURE TextReplace (w: Widget; startPos, endPos: TextPosition; text: TextBlockStar): INTEGER;

<* EXTERNAL XawTextTopPosition *>
   PROCEDURE TextTopPosition (w: Widget): TextPosition;

<* EXTERNAL XawTextSetInsertionPoint *>
   PROCEDURE TextSetInsertionPoint (w: Widget; position: TextPosition);

<* EXTERNAL XawTextGetInsertionPoint *>
   PROCEDURE TextGetInsertionPoint (w: Widget): TextPosition;

<* EXTERNAL XawTextUnsetSelection *>
   PROCEDURE TextUnsetSelection (w: Widget);

<* EXTERNAL XawTextSetSelection *>
   PROCEDURE TextSetSelection (w: Widget; left, right: TextPosition);

<* EXTERNAL XawTextInvalidate *>
   PROCEDURE TextInvalidate (w: Widget; from, to: TextPosition);

<* EXTERNAL XawTextGetSource *>
   PROCEDURE TextGetSource (w: Widget): Widget;

<* EXTERNAL XawTextSearch *>
   PROCEDURE TextSearch (w: Widget; dir: TextScanDirection;
                         text: TextBlockStar): TextPosition;

********************************************************************** * * TextSink Object * **********************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- font Font XFontStruct * XtDefaultFont foreground Foreground Pixel XtDefaultForeground background Background Pixel XtDefaultBackground

Class record constants

<* EXTERNAL *> VAR
   textSinkObjectClass: WidgetClass;

TYPE
  TextInsertState = Enumeration;
CONST
  isOn		= 0;
  isOff		= 1;

Function Name: Xaw.TextSinkDisplayText * Description: Stub function that in subclasses will display text. * Arguments: w - the TextSink Object. * x, y - location to start drawing text. * pos1, pos2 - location of starting and ending points * in the text buffer. * highlight - hightlight this text? * Returns: none. * * This function doesn't actually display anything, it is only a place * holder.

<* EXTERNAL XawTextSinkDisplayText *>
   PROCEDURE TextSinkDisplayText (w: Widget;
                                  x, y: Position;
                                  pos1, pos2: TextPosition;
                                  highlight: Boolean);

<* EXTERNAL XawTextSinkInsertCursor *>
   PROCEDURE TextSinkInsertCursor (w: Widget;
                                   x, y: Position;
                                   state: TextInsertState);

<* EXTERNAL XawTextSinkClearToBackground  *>
   PROCEDURE TextSinkClearToBackground  (w: Widget;
                                         x, y: Position;
                                         width, height: Dimension);

<* EXTERNAL XawTextSinkFindPosition *>
   PROCEDURE TextSinkFindPosition (w: Widget;
                                   fromPos: TextPosition;
                                   fromx, width: INTEGER;
                                   stopAtWordBreak: Boolean;
                                   resPos: TextPositionStar;
                                   resWidth, resHeight: int_star);

<* EXTERNAL XawTextSinkFindDistance  *>
   PROCEDURE TextSinkFindDistance  (w: Widget;
                                    fromPos: TextPosition;
                                    fromx: INTEGER;
				    toPos: TextPosition;
                                    resPos: TextPositionStar;
                                    resHeight: int_star);

<* EXTERNAL XawTextSinkResolve *>
   PROCEDURE TextSinkResolve (w: Widget;
                              pos: TextPosition;
                              fromx, width: INTEGER;
                              resPos: TextPositionStar);

<* EXTERNAL XawTextSinkMaxLines *>
   PROCEDURE TextSinkMaxLines (w: Widget; height: Dimension): INTEGER;

<* EXTERNAL XawTextSinkMaxHeight *>
   PROCEDURE TextSinkMaxHeight (w: Widget; lines: INTEGER): INTEGER;

<* EXTERNAL XawTextSinkSetTabs *>
   PROCEDURE TextSinkSetTabs (w: Widget; tab_count: INTEGER; tabs: int_star);

<* EXTERNAL XawTextSinkGetCursorBounds *>
   PROCEDURE TextSinkGetCursorBounds (w: Widget; rect: XRectangleStar);

********************************************************************** * * TextSrc Object * **********************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- editType EditType XawTextEditType XawtextRead

Class record constants

<* EXTERNAL *> VAR
   textSrcObjectClass: WidgetClass;

TYPE
  TextScanType		= Enumeration;
CONST
  stPositions		= 0;
  stWhiteSpace		= 1;
  stEOL			= 2;
  stParagraph		= 3;
  stAll			= 4;

TYPE
  highlightType		= Enumeration;
CONST
  Normal		= 0;
  Selected		= 1;

TYPE
  TextSelectionMode	= Enumeration;
CONST
  smTextSelect		= 0;
  smTextExtend		= 1;

TYPE
  TextSelectionAction	= Enumeration;
CONST
  actionStart		= 0;
  actionAdjust		= 1;
  actionEnd		= 2;

TYPE
  TextPosition        = long;
  TextPositionStar    = UNTRACED REF TextPosition;

* Error Conditions:

CONST
  TextReadError = -1;
  TextScanError = -1;

Function Name: Xaw.TextSourceRead * Description: This function reads the source. * Arguments: w - the TextSrc Object. * pos - position of the text to retreive. * RETURNED text - text block that will contain returned text. * length - maximum number of characters to read. * Returns: The number of characters read into the buffer.

<* EXTERNAL XawTextSourceRead *>
   PROCEDURE TextSourceRead (w: Widget; pos: TextPosition;
                             text: TextBlockStar;
                             length: INTEGER): TextPosition;

<* EXTERNAL XawTextSourceReplace  *>
   PROCEDURE TextSourceReplace  (w: Widget; startPos, endPos: TextPosition;
                                 text: TextBlockStar): INTEGER;

<* EXTERNAL XawTextSourceScan *>
   PROCEDURE TextSourceScan (w: Widget; position: TextPosition;
                             type: TextScanType;
                             dir: TextScanDirection; count: INTEGER;
                             include: Boolean): TextPosition;

<* EXTERNAL XawTextSourceSearch *>
   PROCEDURE TextSourceSearch (w: Widget;  position: TextPosition;
                               dir: TextScanDirection;
                               text: TextBlockStar): TextPosition;

<* EXTERNAL XawTextSourceConvertSelection *>
   PROCEDURE TextSourceConvertSelection (w: Widget;
                                         selection, target, type: AtomStar;
                                         value: ADDRESS;
                                         length: unsigned_long_star;
                                         format: int_star): Boolean;

<* EXTERNAL XawTextSourceSetSelection *>
   PROCEDURE TextSourceSetSelection (w: Widget;
                                     left, right: TextPosition;
                                     selection: Atom);

********************************************************************** * * Toggle Widget * **********************************************************************

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- radioGroup RadioGroup Widget NULL + radioData RadioData Pointer (caddr_t) Widget ++ state State Boolean Off

background Background Pixel XtDefaultBackground bitmap Pixmap Pixmap None border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 callback Callback Pointer NULL cursor Cursor Cursor None destroyCallback Callback Pointer NULL font Font XFontStructx* XtDefaultFont foreground Foreground Pixel XtDefaultForeground height Height Dimension text height highlightThickness Thickness Dimension 2 insensitiveBorder Insensitive Pixmap Gray internalHeight Height Dimension 2 internalWidth Width Dimension 4 justify Justify XtJustify XtJustifyCenter label Label String NULL mappedWhenManaged MappedWhenManaged Boolean True resize Resize Boolean True sensitive Sensitive Boolean True width Width Dimension text width x Position Position 0 y Position Position 0

+ To use the toggle as a radio toggle button, set this resource to point to any other widget in the radio group.

++ This is the data returned from a call to XtToggleGetCurrent, by default this is set to the name of toggle widget.

* These should be in StringDefs.h but aren't so we will define * them here if they are needed.

#define XtCWidget Widget in XtC.i3 #define XtCState State in XtC.i3 #define XtCRadioGroup RadioGroup in XtC.i3 #define XtCRadioData RadioData in XtC.i3

#define XtRWidget Widget in XtR.i3

#define XtNstate state in XtN.i3 #define XtNradioGroup radioGroup in XtN.i3 #define XtNradioData radioData in XtN.i3

<* EXTERNAL *> VAR
   toggleWidgetClass: WidgetClass;

Function Name: Xaw.ToggleChangeRadioGroup * Description: Allows a toggle widget to change radio lists. * Arguments: w - The toggle widget to change lists. * radio_group - any widget in the new list. * Returns: none.

<* EXTERNAL XawToggleChangeRadioGroup *>
   PROCEDURE ToggleChangeRadioGroup (w: Widget; radio_group: Widget);

<* EXTERNAL XawToggleGetCurrent *>
   PROCEDURE ToggleGetCurrent (radio_group: Widget): ADDRESS;

<* EXTERNAL XawToggleSetCurrent *>
   PROCEDURE ToggleSetCurrent (radio_group: Widget; radio_data: ADDRESS);

<* EXTERNAL XawToggleUnsetCurrent *>
   PROCEDURE ToggleUnsetCurrent (radio_group: Widget);

Resources:

Name Class RepType Default Value ---- ----- ------- ------------- allowHoriz Boolean Boolean False allowVert Boolean Boolean False background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL foreceBars Boolean Boolean False height Height Dimension 0 mappedWhenManaged MappedWhenManaged Boolean True sensitive Sensitive Boolean True useBottom Boolean Boolean False useRight Boolean Boolean False width Width Dimension 0 x Position Position 0 y Position Position 0

fields added to Form

#define XtNforceBars forceBars in XtN.i3 #define XtNallowHoriz allowHoriz in XtN.i3 #define XtNallowVert allowVert in XtN.i3 #define XtNuseBottom useBottom in XtN.i3 #define XtNuseRight useRight in XtN.i3

<* EXTERNAL *> VAR
   viewportWidgetClass: WidgetClass;

<* EXTERNAL XawInitializeWidgetSet *>
   PROCEDURE InitializeWidgetSet ();

END Xaw.