-------------------------------------------------------------------------------------- -- Ada language interface to OSF/Motif toolkit -- -- Version: 1.0 -- -- Release date: 3/19/91 -- -- Compiled under: -- VADS 5.5+ on Apollo Domain / DEC Ultrix / SCO Unix -- -- This is an Ada binding to the OSF Motif toolkit. -- Requires: -- OSF/Motif toolkit -- Verdix (or Verdix-derived) Ada libraries -- -- Author: -- Boeing Commercial Airplanes Avionics Flight Systems Organization -- -- -- Mailing Address: -- P.O. Box 3999, M/S 65-07 -- Seattle, WA 98124 -- Attn: E. J. Jones -- -- -- Approved for public release; distribution is unlimited. Per DoD Directive -- 5230.24. -- -- Copyright (c) 1991, The Boeing Company, Seattle, Washington. This software, -- the BCA Ada language interface to the OSF/Motif toolkit, produced by the -- Boeing Commercial Airplane Company and made available under STARS (Software -- Technology for Adaptable, Reliable Systems) is approved for release under -- Distribution "A" of the Scientific and Technical Information Program -- Classification Scheme (DoD Directive 5230.24) unless otherwise indicated. -- Sponsored by the U.S. Defense Advanced Research Project Agency (DARPA) under -- contract F19628-88-D-0028, the STARS program is supported by the military -- services, SEI, and MITRE, with the U.S. Air Force as the executive -- contracting agent. The code identified herein is subject to change. -- -- Permission to use, modify, copy, and comment on this software for purposes -- stated under Distribution "A" and without fee is hereby granted. This -- software retains Contractor indemnification to the Government regarding -- copyrights pursuant to the above referenced STARS contract. The Government -- disclaims all responsibility against liability, including costs and expenses -- for violation of proprietary rights, or copyrights arising out of the -- creation or use of this software. -- -- In addition, the Government and The Boeing Company disclaim all warranties -- with regard to this software, including all implied warranties of -- merchantability and fitness. In no event shall the Government or The Boeing -- Company be liable for any special, indirect or consequential damages or any -- damages whatsoever resulting from the loss of use, data or profits, whether -- in action of contract, negligence or other tortuous action, arising in -- connection with the use or performance of this software. The Boeing Company -- does not agree to support or maintain this software or to produce any -- future versions. -------------------------------------------------------------------------------------- ------------------------------------------------------------------------------- -- Title : MOTIF WIDGET SET BINDINGS -- -- -- -- Description : -- -- The Motif Widget Set Ada bindings were initially designed for use -- -- by Avionics/Flight Systems. These bindings are to be used in conjunc- -- -- with the OSF Motif Widget Set written in C. Thus these Ada bindings -- -- are termed "shallow." -- -- -- ------------------------------------------------------------------------------- -- CHANGE HISTORY -- -- Ver.Developer Date Description -- -- --- -------- ---- ---------------------------------------- -- 1.0 1/89 Original version. -- -- 1.1 E.J.Jones(206)477-3566 5/90 Developed callbacks structures, tested-- -- & fixed bindings. -- -- -- 1.2 E.J.Jones(206)477-3566 12/90 Changed font struct to XLib -- -- implementation -- ------------------------------------------------------------------------------- with SYSTEM, AFS_BASIC_TYPES, XM_WIDGET_SET_PRIVATE, X_TOOLKIT_INTRINSICS_OSF, XLIB, X_TOOLKIT_PRIVATE_OSF,A_strings; use AFS_BASIC_TYPES, XM_WIDGET_SET_PRIVATE, X_TOOLKIT_INTRINSICS_OSF, X_TOOLKIT_PRIVATE_OSF; package XM_WIDGET_SET is type XM_STRING_COMPONENT_TYPE is new AFS_LARGE_INTEGER; subtype XM_COMPOUND_STRING is SYSTEM.ADDRESS; type XM_STRING_CONTEXT is PRIVATE; type XM_FONT_LIST is PRIVATE; package XT renames X_TOOLKIT_INTRINSICS_OSF; -------------------------------------------------------------------------------------- -- Type structures for callback routines -------------------------------------------------------------------------------------- ------------------------------------------------------ -- Any callback -- ------------------------------------------------------ type XM_ANY_CALLBACK_STRUCT is record REASON : integer; EVENT : SYSTEM.ADDRESS; end record; type XM_ANY_CALLBACK_STRUCT_PTR is access XM_ANY_CALLBACK_STRUCT; ------------------------------------------------------ -- Text widget callback structures -- ------------------------------------------------------ subtype XM_TEXT_POSITION is AFS_BASIC_TYPES.AFS_LARGE_INTEGER; type XM_TEXT_BLOCK_REC is record PTR : SYSTEM.ADDRESS; LENGTH : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; FORMAT : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; end record; type XM_TEXT_BLOCK_REC_PTR is access XM_TEXT_BLOCK_REC; ------------------------------------------------------- type XM_TEXT_VERIFY_CALLBACK_STRUCT is record REASON : integer; EVENT : SYSTEM.ADDRESS; DOIT : BOOLEAN; CURRINSERT : XM_TEXT_POSITION; NEWINSERT : XM_TEXT_POSITION; STARTPOS : XM_TEXT_POSITION; ENDPOS : XM_TEXT_POSITION; TEXT : XM_TEXT_BLOCK_REC_PTR; end record; type XM_TEXT_VERIFY_PTR is access XM_TEXT_VERIFY_CALLBACK_STRUCT; type XM_TEXT_SCAN_TYPE is ( XM_SELECT_POSITION, XM_SELECT_WHITESPACE, XM_SELECT_WORD, XM_SELECT_LINE, XM_SELECT_ALL); ------------------------------------------------------ -- List widget callback structures -- ------------------------------------------------------ type XM_STRING_PTR is access XM_WIDGET_SET.XM_COMPOUND_STRING; type XM_LIST_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : SYSTEM.ADDRESS; ITEM : XM_WIDGET_SET.XM_COMPOUND_STRING; ITEM_LENGTH : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; ITEM_POSITION : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; SELECTED_ITEMS : XM_STRING_PTR; SELECTED_ITEM_COUNT : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; SELECTED_TYPE : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; end record; type XM_LIST_CALLBACK_STRUCT_PTR is access XM_LIST_CALLBACK_STRUCT; ------------------------------------------------------ -- Scale widget callback structures -- ------------------------------------------------------ type XM_SCALE_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; XEVENT : SYSTEM.ADDRESS; VALUE : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; end record; type XM_SCALE_CALLBACK_STRUCT_PTR is access XM_SCALE_CALLBACK_STRUCT; ------------------------------------------------------ -- File Selection widget callback structures -- ------------------------------------------------------ type XM_FILE_SELECTION_BOX_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; XEVENT : SYSTEM.ADDRESS; VALUE : XM_COMPOUND_STRING; LENGTH : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; MASK : XM_COMPOUND_STRING; MASK_LENGTH : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; end record; type XM_FILE_SELECTION_BOX_CALLBACK_STRUCT_PTR is access XM_FILE_SELECTION_BOX_CALLBACK_STRUCT; ------------------------------------------------------ -- Command widget callback structures -- ------------------------------------------------------ type XM_COMMAND_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : SYSTEM.ADDRESS; VALUE : XM_COMPOUND_STRING; LENGTH : integer; end record; type XM_COMMAND_CALLBACK_STRUCT_PTR is access XM_COMMAND_CALLBACK_STRUCT; ------------------------------------------------------ -- Scroll bar widget callback structures -- ------------------------------------------------------ type XM_SCROLL_BAR_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : SYSTEM.ADDRESS; -- xlib event ptr VALUE : integer; PIXEL : integer; end record; type XM_SCROLL_BAR_CALLBACK_STRUCT_PTR is access XM_SCROLL_BAR_CALLBACK_STRUCT; ------------------------------------------------------ -- Toggle button widget callback structures -- ------------------------------------------------------ type XM_TOGGLE_BUTTON_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; -- xlib event ptr SET : integer; end record; type XM_TOGGLE_BUTTON_CALLBACK_STRUCT_PTR is access XM_TOGGLE_BUTTON_CALLBACK_STRUCT; ------------------------------------------------------ -- Drawing Area widget callback structures -- ------------------------------------------------------ type XM_DRAWING_AREA_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : SYSTEM.ADDRESS; -- xlib event ptr WINDOW : SYSTEM.ADDRESS; end record; type XM_DRAWING_AREA_CALLBACK_STRUCT_PTR is access XM_DRAWING_AREA_CALLBACK_STRUCT; ------------------------------------------------------ -- Drawn Button Callback structures -- ------------------------------------------------------ type XM_DRAWN_BUTTON_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : SYSTEM.ADDRESS; -- xlib event ptr WINDOW : SYSTEM.ADDRESS; end record; type XM_DRAWN_BUTTON_CALLBACK_STRUCT_PTR is access XM_DRAWN_BUTTON_CALLBACK_STRUCT; ------------------------------------------------------ -- Row Column Callback structures -- ------------------------------------------------------ type XM_ROW_COLUMN_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : SYSTEM.ADDRESS; -- xlib event ptr WIDGET : XT.WIDGET; DATA : SYSTEM.ADDRESS; -- you must choose the length of the string CALLBACK_STRUCT : SYSTEM.ADDRESS; -- before using UNCHECKED CONVERSION end record; type XM_ROW_COLUMN_CALLBACK_STRUCT_PTR is access XM_ROW_COLUMN_CALLBACK_STRUCT; ------------------------------------------------------ -- Selection widget callback structures -- ------------------------------------------------------ type XM_SELECTION_BOX_CALLBACK_STRUCT is record REASON : AFS_BASIC_TYPES.AFS_LARGE_INTEGER; EVENT : SYSTEM.ADDRESS; VALUE : XM_COMPOUND_STRING; LENGTH : integer; end record; type XM_SELECTION_BOX_CALLBACK_STRUCT_PTR is access XM_SELECTION_BOX_CALLBACK_STRUCT; -- ************************************************************************************* -- ************************************************************************************* -- * -- * FUNCTIONS THAT RETURN THE WIDGET CLASS FOR VARIOUS OSF/MOTIF WIDGETS AND GADGETS -- * -- ************************************************************************************* -- ************************************************************************************* function XM_ARROW_BUTTON_WIDGET_CLASS return WIDGET_CLASS; function XM_ARROW_BUTTON_GADGET_CLASS return WIDGET_CLASS; function XM_BULLETIN_BOARD_WIDGET_CLASS return WIDGET_CLASS; function XM_CASCADE_BUTTON_WIDGET_CLASS return WIDGET_CLASS; function XM_CASCADE_BUTTON_GADGET_CLASS return WIDGET_CLASS; function XM_COMMAND_WIDGET_CLASS return WIDGET_CLASS; function XM_DIALOG_SHELL_WIDGET_CLASS return WIDGET_CLASS; function XM_DRAWING_AREA_WIDGET_CLASS return WIDGET_CLASS; function XM_DRAWN_BUTTON_WIDGET_CLASS return WIDGET_CLASS; function XM_FILE_SELECTION_BOX_WIDGET_CLASS return WIDGET_CLASS; function XM_FORM_WIDGET_CLASS return WIDGET_CLASS; function XM_FRAME_WIDGET_CLASS return WIDGET_CLASS; function XM_LABEL_WIDGET_CLASS return WIDGET_CLASS; function XM_LABEL_GADGET_CLASS return WIDGET_CLASS; function XM_LIST_WIDGET_CLASS return WIDGET_CLASS; function XM_MAIN_WINDOW_WIDGET_CLASS return WIDGET_CLASS; function XM_MENU_SHELL_WIDGET_CLASS return WIDGET_CLASS; function XM_MESSAGE_BOX_WIDGET_CLASS return WIDGET_CLASS; function XM_PANED_WINDOW_WIDGET_CLASS return WIDGET_CLASS; function XM_PUSH_BUTTON_WIDGET_CLASS return WIDGET_CLASS; function XM_PUSH_BUTTON_GADGET_CLASS return WIDGET_CLASS; function XM_ROW_COLUMN_WIDGET_CLASS return WIDGET_CLASS; function XM_SCALE_WIDGET_CLASS return WIDGET_CLASS; function XM_SCROLL_BAR_WIDGET_CLASS return WIDGET_CLASS; function XM_SCROLLED_WINDOW_WIDGET_CLASS return WIDGET_CLASS; function XM_SELECTION_BOX_WIDGET_CLASS return WIDGET_CLASS; function XM_SEPARATOR_GADGET_CLASS return WIDGET_CLASS; function XM_SEPARATOR_WIDGET_CLASS return WIDGET_CLASS; function XM_TEXT_WIDGET_CLASS return WIDGET_CLASS; function XM_TOGGLE_BUTTON_WIDGET_CLASS return WIDGET_CLASS; function XM_TOGGLE_BUTTON_GADGET_CLASS return WIDGET_CLASS; function XM_PRIMITIVE_WIDGET_CLASS return WIDGET_CLASS; function XM_GADGET_CLASS return WIDGET_CLASS; function XM_MANAGER_WIDGET_CLASS return WIDGET_CLASS; -- ********************************************************************************** -- ********************************************************************************** -- * -- * Functions for creating widgets and gadgets -- * -- ********************************************************************************** -- ********************************************************************************** function XM_CREATE_ARROW_BUTTON ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_ARROW_BUTTON_GADGET ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_BULLETIN_BOARD ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_BULLETIN_BOARD_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_CASCADE_BUTTON ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_CASCADE_BUTTON_GADGET ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_COMMAND ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_DIALOG_SHELL ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_DRAWING_AREA ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_DRAWN_BUTTON ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_ERROR_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_FILE_SELECTION_BOX ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_FILE_SELECTION_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_FORM ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_FORM_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_FRAME ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_INFORMATION_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_LABEL ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_LABEL_GADGET ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_LIST ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_MAIN_WINDOW ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_MENU_BAR ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_MENU_SHELL ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_MESSAGE_BOX ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_MESSAGE_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_OPTION_MENU ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_POPUP_MENU ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_PROMPT_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_PULLDOWN_MENU ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_QUESTION_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_PANED_WINDOW ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_PUSH_BUTTON ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_PUSH_BUTTON_GADGET ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_RADIO_BOX ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_ROW_COLUMN ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SCALE ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SCROLL_BAR ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SCROLLED_LIST ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SCROLLED_TEXT ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SCROLLED_WINDOW ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SELECTION_BOX ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SELECTION_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SEPARATOR ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_SEPARATOR_GADGET ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_TEXT ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_TOGGLE_BUTTON ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_TOGGLE_BUTTON_GADGET ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_WARNING_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; function XM_CREATE_WORKING_DIALOG ( PARENT : in WIDGET; NAME : in STRING; ARGLIST : in ARG_LIST := NULL_ARG_LIST ) return WIDGET; -- ********************************************************************************** -- ********************************************************************************** -- * -- * RESOURCES Defined by both XTK and XM -- * -- ********************************************************************************** -- ********************************************************************************** -- -- CORE Resources -- XMN_ANCESTOR_SENSITIVE : constant XTN_RESOURCE_STRING := ANCESTORSENSITIVE'address; XMN_X : constant XTN_RESOURCE_STRING := X'address ; XMN_Y : constant XTN_RESOURCE_STRING := Y'address ; XMN_WIDTH : constant XTN_RESOURCE_STRING := WIDTH'address ; XMN_HEIGHT : constant XTN_RESOURCE_STRING := HEIGHT'address ; XMN_DEPTH : constant XTN_RESOURCE_STRING := DEPTH'address ; XMN_BACKGROUND : constant XTN_RESOURCE_STRING := BACKGROUND'address ; XMN_BACKGROUND_PIXMAP : constant XTN_RESOURCE_STRING := BACKGROUNDPIXMAP'address ; XMN_BORDER_COLOR : constant XTN_RESOURCE_STRING := BORDERCOLOR'address ; XMN_BORDER_PIXMAP : constant XTN_RESOURCE_STRING := BORDERPIXMAP'address ; XMN_BORDER_WIDTH : constant XTN_RESOURCE_STRING := BORDERWIDTH'address ; XMN_SENSITIVE : constant XTN_RESOURCE_STRING := SENSITIVE'address ; XMN_MAPPED_WHEN_MANAGED : constant XTN_RESOURCE_STRING := MAPPEDWHENMANAGED'address ; XMN_DESTROY_CALLBACK : constant XTN_RESOURCE_STRING := DESTROYCALLBACK'address ; XMN_TRANSLATIONS : constant XTN_RESOURCE_STRING := TRANSLATIONS'address ; -- BORDERCOLOR is not a typo - it is in StringDefs.h -- BORDER : constant STRING := "borderColor" & ASCII.NUL; -- -- Nothing for COMPOSITE or CONSTRAINT CLASSES -- -- -- SHELL CLASS RESOURCES -- XMN_ICON_NAME : constant XTN_RESOURCE_STRING := ICONNAME'address ; XMN_ICON_PIXMAP : constant XTN_RESOURCE_STRING := ICONPIXMAP'address ; XMN_ICON_WINDOW : constant XTN_RESOURCE_STRING := ICONWINDOW'address ; XMN_ICON_MASK : constant XTN_RESOURCE_STRING := ICONMASK'address ; XMN_WINDOW_GROUP : constant XTN_RESOURCE_STRING := WINDOWGROUP'address ; XMN_SAVE_UNDER : constant XTN_RESOURCE_STRING := SAVEUNDER'address ; XMN_TRANSIENT : constant XTN_RESOURCE_STRING := TRANSIENT'address ; XMN_POPUP_CALLBACK : constant XTN_RESOURCE_STRING := POPUPCALLBACK'address ; XMN_POPDOWN_CALLBACK : constant XTN_RESOURCE_STRING := POPDOWNCALLBACK'address ; XMN_OVERRIDE_REDIRECT : constant XTN_RESOURCE_STRING := OVERRIDEREDIRECT'address ; XMN_ALLOW_SHELL_RESIZE : constant XTN_RESOURCE_STRING := ALLOWSHELLRESIZE'address ; XMN_CREATE_POPUP_CHILDPROC : constant XTN_RESOURCE_STRING := CREATEPOPUPCHILDPROC'address ; XMN_TITLE : constant XTN_RESOURCE_STRING := TITLE'address ; XMN_ICON_X : constant XTN_RESOURCE_STRING := ICONX'address ; XMN_ICON_Y : constant XTN_RESOURCE_STRING := ICONY'address ; XMN_INPUT : constant XTN_RESOURCE_STRING := INPUT'address ; XMN_ICONIC : constant XTN_RESOURCE_STRING := ICONIC'address ; XMN_INITIAL_STATE : constant XTN_RESOURCE_STRING := INITIALSTATE'address ; XMN_GEOMETRY : constant XTN_RESOURCE_STRING := GEOMETRY'address ; XMN_MIN_WIDTH : constant XTN_RESOURCE_STRING := MINWIDTH'address ; XMN_MIN_HEIGHT : constant XTN_RESOURCE_STRING := MINHEIGHT'address ; XMN_MAX_WIDTH : constant XTN_RESOURCE_STRING := MAXWIDTH'address ; XMN_MAX_HEIGHT : constant XTN_RESOURCE_STRING := MAXHEIGHT'address ; XMN_WIDTH_INC : constant XTN_RESOURCE_STRING := WIDTHINC'address ; XMN_HEIGHT_INC : constant XTN_RESOURCE_STRING := HEIGHTINC'address ; XMN_MIN_ASPECT_X : constant XTN_RESOURCE_STRING := MINASPECTX'address ; XMN_MIN_ASPECT_Y : constant XTN_RESOURCE_STRING := MINASPECTY'address ; XMN_MAX_ASPECT_X : constant XTN_RESOURCE_STRING := MAXASPECTX'address ; XMN_MAX_ASPECT_Y : constant XTN_RESOURCE_STRING := MAXASPECTY'address ; XMN_WM_TIME_OUT : constant XTN_RESOURCE_STRING := WMTIMEOUT'address ; XMN_WAIT_FOR_WM : constant XTN_RESOURCE_STRING := WAITFORWM'address ; -- -- Vendor shell resources -- XMN_KEYBOARD_FOCUS_POLICY : constant XTN_RESOURCE_STRING := KEYBOARDFOCUSPOLICY'address; XMN_FOCUS_POLICY_CHANGED : constant XTN_RESOURCE_STRING := FOCUSPOLICYCHANGED'address ; XMN_SHELL_UNIT_TYPE : constant XTN_RESOURCE_STRING := SHELLUNITTYPE'address ; -- -- ************************************************************************ -- * Resource names -- * Taken from StringDefs.h -- ************************************************************************ XMN_ACCELERATOR : constant XTN_RESOURCE_STRING := ACCELERATOR'address; XMN_ACCELERATORS : constant XTN_RESOURCE_STRING := ACCELERATORS'address; XMN_ACCELERATOR_TEXT : constant XTN_RESOURCE_STRING := ACCELERATORTEXT'address; XMN_ADJUST_LAST : constant XTN_RESOURCE_STRING := ADJUSTLAST'address; XMN_ADJUST_MARGIN : constant XTN_RESOURCE_STRING := ADJUSTMARGIN'address; XMN_ALIGNMENT : constant XTN_RESOURCE_STRING := ALIGNMENT'address; -- XMN_ANCESTOR_SENSITIVE : constant XTN_RESOURCE_STRING := ANCESTORSENSITIVE'address; XMN_ARM_CALLBACK : constant XTN_RESOURCE_STRING := ARMCALLBACK'address; -- XMN_BACKGROUND : constant XTN_RESOURCE_STRING := BACKGROUND'address; -- XMN_BACKGROUND_PIXMAP : constant XTN_RESOURCE_STRING := BACKGROUNDPIXMAP'address; XMN_BITMAP : constant XTN_RESOURCE_STRING := BITMAP'address; -- XMN_BORDER_COLOR : constant XTN_RESOURCE_STRING := BORDERCOLOR'address; -- XMN_BORDER_PIXMAP : constant XTN_RESOURCE_STRING := BORDERPIXMAP'address; -- XMN_BORDER_WIDTH : constant XTN_RESOURCE_STRING := BORDERWIDTH'address; XMN_CASCADE_PIXMAP : constant XTN_RESOURCE_STRING := CASCADEPIXMAP'address; XMN_CASCADING_CALLBACK : constant XTN_RESOURCE_STRING := CASCADINGCALLBACK'address; XMN_COLORMAP : constant XTN_RESOURCE_STRING := COLORMAP'address; -- XMN_DEPTH : constant XTN_RESOURCE_STRING := DEPTH'address; -- XMN_DESTROY_CALLBACK : constant XTN_RESOURCE_STRING := DESTROYCALLBACK'address; XMN_DIR_MASK : constant XTN_RESOURCE_STRING := DIRMASK'address; XMN_DIR_SPEC : constant XTN_RESOURCE_STRING := DIRSPEC'address; XMN_DISARM_CALLBACK : constant XTN_RESOURCE_STRING := DISARMCALLBACK'address; XMN_EDIT_TYPE : constant XTN_RESOURCE_STRING := EDITTYPE'address; XMN_ENTRY_ALIGNMENT : constant XTN_RESOURCE_STRING := ENTRYALIGNMENT'address; XMN_ENTRY_BORDER : constant XTN_RESOURCE_STRING := ENTRYBORDER'address; XMN_ENTRY_CLASS : constant XTN_RESOURCE_STRING := ENTRYCLASS'address; XMN_ENTRY_CALLBACK : constant XTN_RESOURCE_STRING := ENTRYCALLBACK'address; XMN_EXPOSE_CALLBACK : constant XTN_RESOURCE_STRING := EXPOSECALLBACK'address; XMN_FILE : constant XTN_RESOURCE_STRING := FILE'address; XMN_FILE_SEARCH_PROC : constant XTN_RESOURCE_STRING := FILESEARCHPROC'address; XMN_FILL_ON_SELECT : constant XTN_RESOURCE_STRING := FILLONSELECT'address; XMN_FILTER_LABEL_STRING : constant XTN_RESOURCE_STRING := FILTERLABELSTRING'address; XMN_FONT : constant XTN_RESOURCE_STRING := FONT'address; XMN_FONT_LIST : constant XTN_RESOURCE_STRING := FONTLIST'address; XMN_FORCE_BARS : constant XTN_RESOURCE_STRING := FORCEBARS'address; -- 'function' is a reserved word XMN_FUNCTION : constant XTN_RESOURCE_STRING := FUNCTIONSTR'address; -- XMN_HEIGHT : constant XTN_RESOURCE_STRING := HEIGHT'address; XMN_HIGHLIGHT : constant XTN_RESOURCE_STRING := HIGHLIGHT'address; XMN_INDEX : constant XTN_RESOURCE_STRING := INDEX'address; XMN_INDICATOR_ON : constant XTN_RESOURCE_STRING := INDICATORON'address; XMN_INDICATOR_TYPE : constant XTN_RESOURCE_STRING := INDICATORTYPE'address; XMN_INNER_HEIGHT : constant XTN_RESOURCE_STRING := INNERHEIGHT'address; XMN_INNER_WIDTH : constant XTN_RESOURCE_STRING := INNERWIDTH'address; XMN_INNER_WINDOW : constant XTN_RESOURCE_STRING := INNERWINDOW'address; XMN_INTERNAL_HEIGHT : constant XTN_RESOURCE_STRING := INTERNALHEIGHT'address; XMN_INTERNAL_WIDTH : constant XTN_RESOURCE_STRING := INTERNALWIDTH'address; XMN_IS_ALIGNED : constant XTN_RESOURCE_STRING := ISALIGNED'address; XMN_IS_HOMOGENEOUS : constant XTN_RESOURCE_STRING := ISHOMOGENEOUS'address; XMN_JUMP_PROC : constant XTN_RESOURCE_STRING := JUMPPROC'address; XMN_JUSTIFY : constant XTN_RESOURCE_STRING := JUSTIFY'address; XMN_LABEL_INSENSITIVE_PIXMAP : constant XTN_RESOURCE_STRING := LABELINSENSITIVEPIXMAP'address; XMN_LABEL_PIXMAP : constant XTN_RESOURCE_STRING := LABELPIXMAP'address; XMN_LABEL_STRING : constant XTN_RESOURCE_STRING := LABELSTRING'address; XMN_LABEL_TYPE : constant XTN_RESOURCE_STRING := LABELTYPE'address; XMN_LENGTH : constant XTN_RESOURCE_STRING := LENGTH'address; XMN_LIST_UPDATED : constant XTN_RESOURCE_STRING := LISTUPDATED'address; XMN_LOWER_RIGHT : constant XTN_RESOURCE_STRING := LOWERRIGHT'address; XMN_MAP_CALLBACK : constant XTN_RESOURCE_STRING := MAPCALLBACK'address; -- XMN_MAPPED_WHEN_MANAGED : constant XTN_RESOURCE_STRING := MAPPEDWHENMANAGED'address; XMN_MAPPING_DELAY : constant XTN_RESOURCE_STRING := MAPPINGDELAY'address; XMN_MARGIN_HEIGHT : constant XTN_RESOURCE_STRING := MARGINHEIGHT'address; XMN_MARGIN_TOP : constant XTN_RESOURCE_STRING := MARGINTOP'address; XMN_MARGIN_BOTTOM : constant XTN_RESOURCE_STRING := MARGINBOTTOM'address; XMN_MARGIN_WIDTH : constant XTN_RESOURCE_STRING := MARGINWIDTH'address; XMN_MARGIN_RIGHT : constant XTN_RESOURCE_STRING := MARGINRIGHT'address; XMN_MARGIN_LEFT : constant XTN_RESOURCE_STRING := MARGINLEFT'address; XMN_MENU_ACCELERATOR : constant XTN_RESOURCE_STRING := MENUACCELERATOR'address; XMN_MENU_CURSOR : constant XTN_RESOURCE_STRING := MENUCURSOR'address; XMN_MENU_ENTRY : constant XTN_RESOURCE_STRING := MENUENTRY'address; XMN_MENU_HELP_WIDGET : constant XTN_RESOURCE_STRING := MENUHELPWIDGET'address; XMN_MENU_HISTORY : constant XTN_RESOURCE_STRING := MENUHISTORY'address; XMN_MNEMONIC : constant XTN_RESOURCE_STRING := MNEMONIC'address; XMN_NAME : constant XTN_RESOURCE_STRING := NAME'address; XMN_NOTIFY : constant XTN_RESOURCE_STRING := NOTIFY'address; XMN_NUM_COLUMNS : constant XTN_RESOURCE_STRING := NUMCOLUMNS'address; XMN_ORIENTATION : constant XTN_RESOURCE_STRING := ORIENTATION'address; XMN_PACKING : constant XTN_RESOURCE_STRING := PACKING'address; XMN_PARAMETER : constant XTN_RESOURCE_STRING := PARAMETER'address; -- XMN_POPDOWN_CALLBACK : constant XTN_RESOURCE_STRING := POPDOWNCALLBACK'address; -- XMN_POPUP_CALLBACK : constant XTN_RESOURCE_STRING := POPUPCALLBACK'address; XMN_POPUP_ENABLED : constant XTN_RESOURCE_STRING := POPUPENABLED'address; XMN_RADIO_ALWAYS_ONE : constant XTN_RESOURCE_STRING := RADIOALWAYSONE'address; XMN_RADIO_BEHAVIOR : constant XTN_RESOURCE_STRING := RADIOBEHAVIOR'address; XMN_RECOMPUTE_SIZE : constant XTN_RESOURCE_STRING := RECOMPUTESIZE'address; XMN_RESIZE : constant XTN_RESOURCE_STRING := RESIZE'address; XMN_RESIZE_CALLBACK : constant XTN_RESOURCE_STRING := RESIZECALLBACK'address; XMN_REVERSE_VIDEO : constant XTN_RESOURCE_STRING := REVERSEVIDEO'address; XMN_ROW_COLUMN_TYPE : constant XTN_RESOURCE_STRING := ROWCOLUMNTYPE'address; XMN_SCREEN : constant XTN_RESOURCE_STRING := SCREEN'address; XMN_SCROLL_PROC : constant XTN_RESOURCE_STRING := SCROLLPROC'address; XMN_SCROLL_D_CURSOR : constant XTN_RESOURCE_STRING := SCROLLDCURSOR'address; XMN_SCROLL_H_CURSOR : constant XTN_RESOURCE_STRING := SCROLLHCURSOR'address; XMN_SCROLL_L_CURSOR : constant XTN_RESOURCE_STRING := SCROLLLCURSOR'address; XMN_SCROLL_R_CURSOR : constant XTN_RESOURCE_STRING := SCROLLRCURSOR'address; XMN_SCROLL_U_CURSOR : constant XTN_RESOURCE_STRING := SCROLLUCURSOR'address; XMN_SCROLL_V_CURSOR : constant XTN_RESOURCE_STRING := SCROLLVCURSOR'address; XMN_SELECT_COLOR : constant XTN_RESOURCE_STRING := SELECTCOLOR'address; XMN_SELECTION : constant XTN_RESOURCE_STRING := SELECTION'address; XMN_SELECTION_ARRAY : constant XTN_RESOURCE_STRING := SELECTIONARRAY'address; XMN_SELECT_INSENSITIVE_PIXMAP : constant XTN_RESOURCE_STRING := SELECTINSENSITIVEPIXMAP'address; XMN_SELECT_PIXMAP : constant XTN_RESOURCE_STRING := SELECTPIXMAP'address; -- XMN_SENSITIVE : constant XTN_RESOURCE_STRING := SENSITIVE'address; XMN_SET : constant XTN_RESOURCE_STRING := SET'address; XMN_SHADOW : constant XTN_RESOURCE_STRING := SHADOW'address; XMN_SHOWN : constant XTN_RESOURCE_STRING := SHOWN'address; XMN_SPACE : constant XTN_RESOURCE_STRING := SPACE'address; XMN_SPACING : constant XTN_RESOURCE_STRING := SPACING'address; -- 'STRING' is a reserved word XMN_STRING : constant XTN_RESOURCE_STRING := STRINGSTR'address; XMN_STRING_DIRECTION : constant XTN_RESOURCE_STRING := STRINGDIRECTION'address; XMN_SUB_MENU_ID : constant XTN_RESOURCE_STRING := SUBMENUID'address; XMN_TEXT_OPTIONS : constant XTN_RESOURCE_STRING := TEXTOPTIONS'address; XMN_TEXT_SINK : constant XTN_RESOURCE_STRING := TEXTSINK'address; XMN_TEXT_SOURCE : constant XTN_RESOURCE_STRING := TEXTSOURCE'address; XMN_THICKNESS : constant XTN_RESOURCE_STRING := THICKNESS'address; XMN_THUMB : constant XTN_RESOURCE_STRING := THUMB'address; XMN_THUMB_PROC : constant XTN_RESOURCE_STRING := THUMBPROC'address; XMN_TOP : constant XTN_RESOURCE_STRING := TOP'address; -- XMN_TRANSLATIONS : constant XTN_RESOURCE_STRING := TRANSLATIONS'address; XMN_UNMAP_CALLBACK : constant XTN_RESOURCE_STRING := UNMAPCALLBACK'address; XMN_UNSELECT_PIXMAP : constant XTN_RESOURCE_STRING := UNSELECTPIXMAP'address; XMN_UPDATE : constant XTN_RESOURCE_STRING := UPDATE'address; XMN_USE_BOTTOM : constant XTN_RESOURCE_STRING := USEBOTTOM'address; XMN_USE_RIGHT : constant XTN_RESOURCE_STRING := USERIGHT'address; XMN_VALUE : constant XTN_RESOURCE_STRING := VALUE'address; XMN_VISIBLE_WHEN_OFF : constant XTN_RESOURCE_STRING := VISIBLEWHENOFF'address; XMN_WHICH_BUTTON : constant XTN_RESOURCE_STRING := WHICHBUTTON'address; -- XMN_WIDTH : constant XTN_RESOURCE_STRING := WIDTH'address; XMN_WINDOW : constant XTN_RESOURCE_STRING := WINDOW'address; -- XMN_X : constant XTN_RESOURCE_STRING := X'address; -- XMN_Y : constant XTN_RESOURCE_STRING := Y'address; -- -- ************************************************************************ -- * Resource names -- * Taken from Shell.h -- ************************************************************************ -- -- XMN_ICON_NAME : constant XTN_RESOURCE_STRING := ICONNAME'address; -- XMN_ICON_PIXMAP : constant XTN_RESOURCE_STRING := ICONPIXMAP'address; -- XMN_ICON_WINDOW : constant XTN_RESOURCE_STRING := ICONWINDOW'address; -- XMN_ICON_MASK : constant XTN_RESOURCE_STRING := ICONMASK'address; -- XMN_WINDOW_GROUP : constant XTN_RESOURCE_STRING := WINDOWGROUP'address; -- XMN_SAVE_UNDER : constant XTN_RESOURCE_STRING := SAVEUNDER'address; -- XMN_TRANSIENT : constant XTN_RESOURCE_STRING := TRANSIENT'address; -- XMN_OVERRIDE_REDIRECT : constant XTN_RESOURCE_STRING := OVERRIDEREDIRECT'address; -- XMN_ALLOW_SHELL_RESIZE : constant XTN_RESOURCE_STRING := ALLOWSHELLRESIZE'address; XMN_CREATE_POPUP_CHILD_PROC : constant XTN_RESOURCE_STRING := CREATEPOPUPCHILDPROC'address; -- XMN_TITLE : constant XTN_RESOURCE_STRING := TITLE'address; -- -- * -- * The following are only used at creation and can not be changed via -- * SetValues. -- * -- XMN_ARGC : constant XTN_RESOURCE_STRING := ARGC'address; XMN_ARGV : constant XTN_RESOURCE_STRING := ARGV'address; -- XMN_ICON_X : constant XTN_RESOURCE_STRING := ICONX'address; -- XMN_ICON_Y : constant XTN_RESOURCE_STRING := ICONY'address; -- XMN_INPUT : constant XTN_RESOURCE_STRING := INPUTSTR'address; -- XMN_ICONIC : constant XTN_RESOURCE_STRING := ICONIC'address; -- XMN_INITIAL_STATE : constant XTN_RESOURCE_STRING := INITIALSTATE'address; -- XMN_GEOMETRY : constant XTN_RESOURCE_STRING := GEOMETRY'address; -- XMN_MIN_WIDTH : constant XTN_RESOURCE_STRING := MINWIDTH'address; -- XMN_MIN_HEIGHT : constant XTN_RESOURCE_STRING := MINHEIGHT'address; -- XMN_MAX_WIDTH : constant XTN_RESOURCE_STRING := MAXWIDTH'address; -- XMN_MAX_HEIGHT : constant XTN_RESOURCE_STRING := MAXHEIGHT'address; -- XMN_WIDTH_INC : constant XTN_RESOURCE_STRING := WIDTHINC'address; -- XMN_HEIGHT_INC : constant XTN_RESOURCE_STRING := HEIGHTINC'address; -- XMN_MIN_ASPECT_Y : constant XTN_RESOURCE_STRING := MINASPECTY'address; -- XMN_MAX_ASPECT_Y : constant XTN_RESOURCE_STRING := MAXASPECTY'address; -- XMN_MIN_ASPECT_X : constant XTN_RESOURCE_STRING := MINASPECTX'address; -- XMN_MAX_ASPECT_X : constant XTN_RESOURCE_STRING := MAXASPECTX'address; XMN_WM_TIMEOUT : constant XTN_RESOURCE_STRING := WMTIMEOUT'address; -- XMN_WAIT_FOR_WM : constant XTN_RESOURCE_STRING := WAITFORWM'address; -- ************************************************************************ -- * Resource names -- * Taken from Vendor.h -- ************************************************************************ XMN_DELETE_RESPONSE : constant XTN_RESOURCE_STRING := DELETERESPONSE'address; -- XMN_KEYBOARD_FOCUS_POLICY : constant XTN_RESOURCE_STRING := KEYBOARDFOCUSPOLICY'address; -- XMN_FOCUS_POLICY_CHANGED : constant XTN_RESOURCE_STRING := FOCUSPOLICYCHANGED'address; -- XMN_SHELL_UNIT_TYPE : constant XTN_RESOURCE_STRING := SHELLUNITTYPE'address; XMN_MWM_DECORATIONS : constant XTN_RESOURCE_STRING := MWMDECORATIONS'address; XMN_MWM_FUNCTIONS : constant XTN_RESOURCE_STRING := MWMFUNCTIONS'address; XMN_MWM_INPUT_MODE : constant XTN_RESOURCE_STRING := MWMINPUTMODE'address; XMN_MWM_MENU : constant XTN_RESOURCE_STRING := MWMMENU'address; XMN_MWM_MESSAGES : constant XTN_RESOURCE_STRING := MWMMESSAGES'address; -- ************************************************************************ -- * Primitive Resources -- ************************************************************************ XMN_FOREGROUND : constant XTN_RESOURCE_STRING := FOREGROUND'address; XMN_TRAVERSAL_ON : constant XTN_RESOURCE_STRING := TRAVERSALON'address; XMN_HIGHLIGHT_ON_ENTER : constant XTN_RESOURCE_STRING := HIGHLIGHTONENTER'address; XMN_SIZE_POLICY : constant XTN_RESOURCE_STRING := SIZEPOLICY'address; XMN_HIGHLIGHT_THICKNESS : constant XTN_RESOURCE_STRING := HIGHLIGHTTHICKNESS'address; XMN_HIGHLIGHT_COLOR : constant XTN_RESOURCE_STRING := HIGHLIGHTCOLOR'address; XMN_HIGHLIGHT_PIXMAP : constant XTN_RESOURCE_STRING := HIGHLIGHTPIXMAP'address; XMN_SHADOW_THICKNESS : constant XTN_RESOURCE_STRING := SHADOWTHICKNESS'address; XMN_TOP_SHADOW_COLOR : constant XTN_RESOURCE_STRING := TOPSHADOWCOLOR'address; XMN_TOP_SHADOW_PIXMAP : constant XTN_RESOURCE_STRING := TOPSHADOWPIXMAP'address; XMN_BOTTOM_SHADOW_COLOR : constant XTN_RESOURCE_STRING := BOTTOMSHADOWCOLOR'address; XMN_BOTTOM_SHADOW_PIXMAP : constant XTN_RESOURCE_STRING := BOTTOMSHADOWPIXMAP'address; XMN_UNIT_TYPE : constant XTN_RESOURCE_STRING := UNITTYPE'address; XMN_HELP_CALLBACK : constant XTN_RESOURCE_STRING := HELPCALLBACK'address; XMN_USER_DATA : constant XTN_RESOURCE_STRING := USERDATA'address; -- ************************************************************************ -- * Manager Resources -- ************************************************************************ XMN_CHILD_POSITION : constant XTN_RESOURCE_STRING := CHILDPOSITION'address; -- ************************************************************************ -- * Form resources -- ************************************************************************ -- Form resources XMN_HORIZONTAL_SPACING : constant XTN_RESOURCE_STRING := HORIZONTALSPACING'address; XMN_VERTICAL_SPACING : constant XTN_RESOURCE_STRING := VERTICALSPACING'address; XMN_FRACTION_BASE : constant XTN_RESOURCE_STRING := FRACTIONBASE'address; XMN_RUBBER_POSITIONING : constant XTN_RESOURCE_STRING := RUBBERPOSITIONING'address; XMN_RESIZE_POLICY : constant XTN_RESOURCE_STRING := RESIZEPOLICY'address; -- Form constraint resources XMN_TOP_ATTACHMENT : constant XTN_RESOURCE_STRING := TOPATTACHMENT'address; XMN_BOTTOM_ATTACHMENT : constant XTN_RESOURCE_STRING := BOTTOMATTACHMENT'address; XMN_LEFT_ATTACHMENT : constant XTN_RESOURCE_STRING := LEFTATTACHMENT'address; XMN_RIGHT_ATTACHMENT : constant XTN_RESOURCE_STRING := RIGHTATTACHMENT'address; XMN_TOP_WIDGET : constant XTN_RESOURCE_STRING := TOPWIDGET'address; XMN_BOTTOM_WIDGET : constant XTN_RESOURCE_STRING := BOTTOMWIDGET'address; XMN_LEFT_WIDGET : constant XTN_RESOURCE_STRING := LEFTWIDGET'address; XMN_RIGHT_WIDGET : constant XTN_RESOURCE_STRING := RIGHTWIDGET'address; XMN_TOP_POSITION : constant XTN_RESOURCE_STRING := TOPPOSITION'address; XMN_BOTTOM_POSITION : constant XTN_RESOURCE_STRING := BOTTOMPOSITION'address; XMN_LEFT_POSITION : constant XTN_RESOURCE_STRING := LEFTPOSITION'address; XMN_RIGHT_POSITION : constant XTN_RESOURCE_STRING := RIGHTPOSITION'address; XMN_TOP_OFFSET : constant XTN_RESOURCE_STRING := TOPOFFSET'address; XMN_BOTTOM_OFFSET : constant XTN_RESOURCE_STRING := BOTTOMOFFSET'address; XMN_LEFT_OFFSET : constant XTN_RESOURCE_STRING := LEFTOFFSET'address; XMN_RIGHT_OFFSET : constant XTN_RESOURCE_STRING := RIGHTOFFSET'address; XMN_RESIZABLE : constant XTN_RESOURCE_STRING := RESIZABLE'address; -- ************************************************************************ -- * PushButton -- ************************************************************************ XMN_FILL_ON_ARM : constant XTN_RESOURCE_STRING := FILLONARM'address; XMN_ARM_COLOR : constant XTN_RESOURCE_STRING := ARMCOLOR'address; XMN_ARM_PIXMAP : constant XTN_RESOURCE_STRING := ARMPIXMAP'address; XMN_SHOW_AS_DEFAULT : constant XTN_RESOURCE_STRING := SHOWASDEFAULT'address; -- ************************************************************************ -- * DrawnButton -- ************************************************************************ XMN_PUSH_BUTTON_ENABLED : constant XTN_RESOURCE_STRING := PUSHBUTTONENABLED'address; XMN_SHADOW_TYPE : constant XTN_RESOURCE_STRING := SHADOWTYPE'address; -- ************************************************************************ -- * Arrow -- ************************************************************************ XMN_ARROW_DIRECTION : constant XTN_RESOURCE_STRING := ARROWDIRECTION'address; XMN_ACTIVATE_CALLBACK : constant XTN_RESOURCE_STRING := ACTIVATECALLBACK'address; -- ************************************************************************ -- * Separator -- ************************************************************************ XMN_MARGIN : constant XTN_RESOURCE_STRING := MARGIN'address; XMN_SEPARATOR_TYPE : constant XTN_RESOURCE_STRING := SEPARATORTYPE'address; -- ************************************************************************ -- * ScrollBar resource names -- ************************************************************************ -- Resources for scrollbar -- XMN_MINIMUM : constant XTN_RESOURCE_STRING := MINIMUM'address; XMN_MAXIMUM : constant XTN_RESOURCE_STRING := MAXIMUM'address; XMN_SLIDER_SIZE : constant XTN_RESOURCE_STRING := SLIDERSIZE'address; XMN_SHOW_ARROWS : constant XTN_RESOURCE_STRING := SHOWARROWS'address; XMN_PROCESSING_DIRECTION : constant XTN_RESOURCE_STRING := PROCESSINGDIRECTION'address; XMN_INCREMENT : constant XTN_RESOURCE_STRING := INCREMENT'address; XMN_PAGE_INCREMENT : constant XTN_RESOURCE_STRING := PAGEINCREMENT'address; XMN_INITIAL_DELAY : constant XTN_RESOURCE_STRING := INITIALDELAY'address; XMN_REPEAT_DELAY : constant XTN_RESOURCE_STRING := REPEATDELAY'address; XMN_VALUE_CHANGED_CALLBACK : constant XTN_RESOURCE_STRING := VALUECHANGEDCALLBACK'address; XMN_INCREMENT_CALLBACK : constant XTN_RESOURCE_STRING := INCREMENTCALLBACK'address; XMN_DECREMENT_CALLBACK : constant XTN_RESOURCE_STRING := DECREMENTCALLBACK'address; XMN_PAGE_INCREMENT_CALLBACK : constant XTN_RESOURCE_STRING := PAGEINCREMENTCALLBACK'address; XMN_PAGE_DECREMENT_CALLBACK : constant XTN_RESOURCE_STRING := PAGEDECREMENTCALLBACK'address; XMN_TO_TOP_CALLBACK : constant XTN_RESOURCE_STRING := TOTOPCALLBACK'address; XMN_TO_BOTTOM_CALLBACK : constant XTN_RESOURCE_STRING := TOBOTTOMCALLBACK'address; XMN_DRAG_CALLBACK : constant XTN_RESOURCE_STRING := DRAGCALLBACK'address; -- ************************************************************************ -- * List Widget resources -- ************************************************************************ XMN_LIST_SPACING : constant XTN_RESOURCE_STRING := LISTSPACING'address; XMN_LIST_MARGIN_WIDTH : constant XTN_RESOURCE_STRING := LISTMARGINWIDTH'address; XMN_LIST_MARGIN_HEIGHT : constant XTN_RESOURCE_STRING := LISTMARGINHEIGHT'address; XMN_ITEMS : constant XTN_RESOURCE_STRING := ITEMS'address; XMN_ITEM_COUNT : constant XTN_RESOURCE_STRING := ITEMCOUNT'address; XMN_SELECTED_ITEMS : constant XTN_RESOURCE_STRING := SELECTEDITEMS'address; XMN_SELECTED_ITEM_COUNT : constant XTN_RESOURCE_STRING := SELECTEDITEMCOUNT'address; XMN_VISIBLE_ITEM_COUNT : constant XTN_RESOURCE_STRING := VISIBLEITEMCOUNT'address; XMN_SELECTION_POLICY : constant XTN_RESOURCE_STRING := SELECTIONPOLICY'address; XMN_LIST_SIZE_POLICY : constant XTN_RESOURCE_STRING := LISTSIZEPOLICY'address; XMN_DOUBLE_CLICK_INTERVAL : constant XTN_RESOURCE_STRING := DOUBLECLICKINTERVAL'address; XMN_SINGLE_SELECTION_CALLBACK : constant XTN_RESOURCE_STRING := SINGLESELECTIONCALLBACK'address; XMN_MULTIPLE_SELECTION_CALLBACK: constant XTN_RESOURCE_STRING := MULTIPLESELECTIONCALLBACK'address; XMN_EXTENDED_SELECTION_CALLBACK: constant XTN_RESOURCE_STRING := EXTENDEDSELECTIONCALLBACK'address; XMN_BROWSE_SELECTION_CALLBACK : constant XTN_RESOURCE_STRING := BROWSESELECTIONCALLBACK'address; XMN_DEFAULT_ACTION_CALLBACK : constant XTN_RESOURCE_STRING := DEFAULTACTIONCALLBACK'address; XMN_AUTOMATIC_SELECTION : constant XTN_RESOURCE_STRING := AUTOMATICSELECTION'address; -- ************************************************************************ -- * Scrolled Window Resources -- ************************************************************************ XMN_HORIZONTAL_SCROLL_BAR : constant XTN_RESOURCE_STRING := HORIZONTALSCROLLBAR'address; XMN_VERTICAL_SCROLL_BAR : constant XTN_RESOURCE_STRING := VERTICALSCROLLBAR'address; XMN_WORK_WINDOW : constant XTN_RESOURCE_STRING := WORKWINDOW'address; XMN_CLIP_WINDOW : constant XTN_RESOURCE_STRING := CLIPWINDOW'address; XMN_SCROLLING_POLICY : constant XTN_RESOURCE_STRING := SCROLLINGPOLICY'address; XMN_VISUAL_POLICY : constant XTN_RESOURCE_STRING := VISUALPOLICY'address; XMN_SCROLL_BAR_DISPLAY_POLICY : constant XTN_RESOURCE_STRING := SCROLLBARDISPLAYPOLICY'address; XMN_SCROLL_BAR_PLACEMENT : constant XTN_RESOURCE_STRING := SCROLLBARPLACEMENT'address; XMN_UPDATE_SLIDER_SIZE : constant XTN_RESOURCE_STRING := UPDATESLIDERSIZE'address; XMN_SCROLLED_WINDOW_MARGIN_HEIGHT: constant XTN_RESOURCE_STRING := SCROLLEDWINDOWMARGINHEIGHT'address; XMN_SCROLLED_WINDOW_MARGIN_WIDTH : constant XTN_RESOURCE_STRING := SCROLLEDWINDOWMARGINWIDTH'address; -- ************************************************************************ -- * MainWindow Resources * -- ************************************************************************ XMN_COMMAND_WINDOW : constant XTN_RESOURCE_STRING := COMMANDWINDOW'address; XMN_MENU_BAR : constant XTN_RESOURCE_STRING := MENUBAR'address; XMN_MAIN_WINDOW_MARGIN_HEIGHT : constant XTN_RESOURCE_STRING := MAINWINDOWMARGINHEIGHT'address; XMN_MAIN_WINDOW_MARGIN_WIDTH : constant XTN_RESOURCE_STRING := MAINWINDOWMARGINWIDTH'address; XMN_SHOW_SEPARATOR : constant XTN_RESOURCE_STRING := SHOWSEPARATOR'address; -- ************************************************************************ -- * Text Widget resources -- ************************************************************************ XMN_SOURCE : constant XTN_RESOURCE_STRING := SOURCE'address; XMN_OUTPUT_CREATE : constant XTN_RESOURCE_STRING := OUTPUTCREATE'address; XMN_INPUT_CREATE : constant XTN_RESOURCE_STRING := INPUTCREATE'address; XMN_AUTO_SHOW_CURSOR_POSITION : constant XTN_RESOURCE_STRING := AUTOSHOWCURSORPOSITION'address; XMN_CURSOR_POSITION : constant XTN_RESOURCE_STRING := CURSORPOSITION'address; XMN_EDITABLE : constant XTN_RESOURCE_STRING := EDITABLE'address; XMN_MAX_LENGTH : constant XTN_RESOURCE_STRING := MAXLENGTH'address; XMN_FOCUSCALLBACK : constant XTN_RESOURCE_STRING := FOCUSCALLBACK'address; XMN_LOSING_FOCUS_CALLBACK : constant XTN_RESOURCE_STRING := LOSINGFOCUSCALLBACK'address; XMN_MODIFY_VERIFY_CALLBACK : constant XTN_RESOURCE_STRING := MODIFYVERIFYCALLBACK'address; XMN_MOTION_VERIFY_CALLBACK : constant XTN_RESOURCE_STRING := MOTIONVERIFYCALLBACK'address; XMN_EXECUTE_CALLBACK : constant XTN_RESOURCE_STRING := EXECUTECALLBACK'address; XMN_WORD_WRAP : constant XTN_RESOURCE_STRING := WORDWRAP'address; XMN_BLINK_RATE : constant XTN_RESOURCE_STRING := BLINKRATE'address; XMN_RESIZE_WIDTH : constant XTN_RESOURCE_STRING := RESIZEWIDTH'address; XMN_RESIZE_HEIGHT : constant XTN_RESOURCE_STRING := RESIZEHEIGHT'address; XMN_SCROLL_HORIZONTAL : constant XTN_RESOURCE_STRING := SCROLLHORIZONTAL'address; XMN_SCROLL_VERTICAL : constant XTN_RESOURCE_STRING := SCROLLVERTICAL'address; XMN_SCROLL_LEFT_SIDE : constant XTN_RESOURCE_STRING := SCROLLLEFTSIDE'address; XMN_SCROLL_TOP_SIDE : constant XTN_RESOURCE_STRING := SCROLLTOPSIDE'address; XMN_CURSOR_POSITION_VISIBLE : constant XTN_RESOURCE_STRING := CURSORPOSITIONVISIBLE'address; XMN_TO_POSITION_CALLBACK : constant XTN_RESOURCE_STRING := TOPOSITIONCALLBACK'address; XMN_COLUMNS : constant XTN_RESOURCE_STRING := COLUMNS'address; XMN_ROWS : constant XTN_RESOURCE_STRING := ROWS'address; XMN_SELECT_THRESHOLD : constant XTN_RESOURCE_STRING := SELECTTHRESHOLD'address; XMN_SELECTION_ARRAY_COUNT : constant XTN_RESOURCE_STRING := SELECTIONARRAYCOUNT'address; XMN_PENDING_DELETE : constant XTN_RESOURCE_STRING := PENDINGDELETE'address; XMN_EDIT_MODE : constant XTN_RESOURCE_STRING := EDITMODE'address; -- ************************************************************************ -- * VPaned Widget Resources -- ************************************************************************ -- -- Resources for Vertical Paned Window XMN_REFIGURE_MODE : constant XTN_RESOURCE_STRING := REFIGUREMODE'address; XMN_SEPARATOR_ON : constant XTN_RESOURCE_STRING := SEPARATORON'address; XMN_SASH_INDENT : constant XTN_RESOURCE_STRING := SASHINDENT'address; XMN_SASH_WIDTH : constant XTN_RESOURCE_STRING := SASHWIDTH'address; XMN_SASH_HEIGHT : constant XTN_RESOURCE_STRING := SASHHEIGHT'address; XMN_SASH_SHADOW_THICKNESS : constant XTN_RESOURCE_STRING := SASHSHADOWTHICKNESS'address; -- Constraint Resources for Vertical Paned Window XMN_ALLOW_RESIZE : constant XTN_RESOURCE_STRING := ALLOWRESIZE'address; XMN_SKIP_ADJUST : constant XTN_RESOURCE_STRING := SKIPADJUST'address; -- ************************************************************************ -- * DrawingArea defines -- ************************************************************************ XMN_INPUT_CALLBACK : constant XTN_RESOURCE_STRING := INPUTCALLBACK'address; -- ************************************************************************ -- * * -- * DIALOG defines.. BulletinBoard and things common to its subclasses * -- * CommandBox MessageBox Selection FileSelection * -- * * -- ************************************************************************ XMN_OK_CALLBACK : constant XTN_RESOURCE_STRING := OKCALLBACK'address; XMN_CANCEL_CALLBACK : constant XTN_RESOURCE_STRING := CANCELCALLBACK'address; XMN_APPLY_CALLBACK : constant XTN_RESOURCE_STRING := APPLYCALLBACK'address; XMN_NOMATCH_CALLBACK : constant XTN_RESOURCE_STRING := NOMATCHCALLBACK'address; XMN_COMMAND_ENTERED_CALLBACK : constant XTN_RESOURCE_STRING := COMMANDENTEREDCALLBACK'address; XMN_COMMAND_CHANGED_CALLBACK : constant XTN_RESOURCE_STRING := COMMANDCHANGEDCALLBACK'address; XMN_OK_LABEL_STRING : constant XTN_RESOURCE_STRING := OKLABELSTRING'address; XMN_CANCEL_LABEL_STRING : constant XTN_RESOURCE_STRING := CANCELLABELSTRING'address; XMN_HELP_LABEL_STRING : constant XTN_RESOURCE_STRING := HELPLABELSTRING'address; XMN_APPLY_LABEL_STRING : constant XTN_RESOURCE_STRING := APPLYLABELSTRING'address; XMN_SELECTION_LABEL_STRING : constant XTN_RESOURCE_STRING := SELECTIONLABELSTRING'address; XMN_LIST_LABEL_STRING : constant XTN_RESOURCE_STRING := LISTLABELSTRING'address; XMN_PROMPT_STRING : constant XTN_RESOURCE_STRING := PROMPTSTRING'address; XMN_DEFAULT_BUTTON : constant XTN_RESOURCE_STRING := DEFAULTBUTTON'address; XMN_CANCEL_BUTTON : constant XTN_RESOURCE_STRING := CANCELBUTTON'address; XMN_BUTTON_FONT_LIST : constant XTN_RESOURCE_STRING := BUTTONFONTLIST'address; XMN_LABEL_FONT_LIST : constant XTN_RESOURCE_STRING := LABELFONTLIST'address; XMN_TEXT_FONT_LIST : constant XTN_RESOURCE_STRING := TEXTFONTLIST'address; XMN_TEXT_TRANSLATIONS : constant XTN_RESOURCE_STRING := TEXTTRANSLATIONS'address; XMN_ALLOW_OVERLAP : constant XTN_RESOURCE_STRING := ALLOWOVERLAP'address; XMN_DEFAULT_POSITION : constant XTN_RESOURCE_STRING := DEFAULTPOSITION'address; XMN_AUTO_UNMANAGE : constant XTN_RESOURCE_STRING := AUTOUNMANAGE'address; XMN_DIALOG_TITLE : constant XTN_RESOURCE_STRING := DIALOGTITLE'address; XMN_NO_RESIZE : constant XTN_RESOURCE_STRING := NORESIZE'address; XMN_DIALOG_STYLE : constant XTN_RESOURCE_STRING := DIALOGSTYLE'address; -- ************************************************************************ -- * XmSelectionBox, XmFileSelectionBox and XmCommand - misc. stuff * -- ************************************************************************ XMN_MUST_MATCH : constant XTN_RESOURCE_STRING := MUSTMATCH'address; XMN_LIST_ITEMS : constant XTN_RESOURCE_STRING:= LISTITEMS'address; XMN_LIST_ITEM_COUNT : constant XTN_RESOURCE_STRING:= LISTITEMCOUNT'address; XMN_LIST_VISIBLE_ITEM_COUNT : constant XTN_RESOURCE_STRING:= LISTVISIBLEITEMCOUNT'address; XMN_HISTORY_ITEMS : constant XTN_RESOURCE_STRING:= HISTORYITEMS'address; XMN_HISTORY_ITEM_COUNT : constant XTN_RESOURCE_STRING:= HISTORYITEMCOUNT'address; XMN_HISTORY_VISIBLE_ITEM_COUNT : constant XTN_RESOURCE_STRING:= HISTORYVISIBLEITEMCOUNT'address; XMN_HISTORY_MAX_ITEMS : constant XTN_RESOURCE_STRING:= HISTORYMAXITEMS'address; XMN_TEXT_ACCELERATORS : constant XTN_RESOURCE_STRING:= TEXTACCELERATORS'address; XMN_TEXT_VALUE : constant XTN_RESOURCE_STRING:= TEXTVALUE'address; XMN_TEXT_STRING : constant XTN_RESOURCE_STRING:= TEXTSTRING'address; XMN_TEXT_COLUMNS : constant XTN_RESOURCE_STRING:= TEXTCOLUMNS'address; XMN_COMMAND : constant XTN_RESOURCE_STRING:= COMMAND'address; -- ************************************************************************ -- * XmMessageBox stuff not common to other dialogs * -- ************************************************************************ XMN_DEFAULT_BUTTON_TYPE : constant XTN_RESOURCE_STRING := DEFAULTBUTTONTYPE'address; XMN_MINIMIZE_BUTTONS : constant XTN_RESOURCE_STRING := MINIMIZEBUTTONS'address; XMN_MESSAGE_STRING : constant XTN_RESOURCE_STRING := MESSAGESTRING'address; XMN_MESSAGE_ALIGNMENT : constant XTN_RESOURCE_STRING := MESSAGEALIGNMENT'address; XMN_SYMBOL_PIXMAP : constant XTN_RESOURCE_STRING := SYMBOLPIXMAP'address; XMN_DIALOG_TYPE : constant XTN_RESOURCE_STRING := DIALOGTYPE'address; -- ************************************************************************ -- * Resource names used by XmScale -- ************************************************************************ XMN_SCALE_WIDTH : constant XTN_RESOURCE_STRING := SCALEWIDTH'address; XMN_SCALE_HEIGHT : constant XTN_RESOURCE_STRING := SCALEHEIGHT'address; XMN_DECIMAL_POINTS : constant XTN_RESOURCE_STRING := DECIMALPOINTS'address; XMN_SHOW_VALUE : constant XTN_RESOURCE_STRING := SHOWVALUE'address; XMN_TITLE_STRING : constant XTN_RESOURCE_STRING := TITLESTRING'address; -- ************************************************************************************* -- ************************************************************************************* -- * -- * DATATYPES AND VALUES THAT THE OSF MOTIF RESOURCES CAN TAKE -- * -- ************************************************************************************* -- ************************************************************************************* CLIPBOARD_FAIL : constant AFS_LARGE_INTEGER := 0; CLIPBOARD_SUCCESS : constant AFS_LARGE_INTEGER := 1; CLIPBOARD_TRUNCATE : constant AFS_LARGE_INTEGER := 2; CLIPBOARD_LOCKED : constant AFS_LARGE_INTEGER := 4; CLIPBOARD_BAD_FORMAT : constant AFS_LARGE_INTEGER := 5; CLIPBOARD_NO_DATA : constant AFS_LARGE_INTEGER := 6; XM_INITIAL : constant AFS_LARGE_INTEGER := 0; XM_ADDITION : constant AFS_LARGE_INTEGER := 1; XM_MODIFICATION : constant AFS_LARGE_INTEGER := 2; XM_UNSPECIFIED_PIXMAP : constant AFS_SMALL_INTEGER := 2; -- -- Values for XMN_STRING_DIRECTION -- XM_STRING_DIRECTION_L_TO_R : constant AFS_LARGE_INTEGER := 0; XM_STRING_DIRECTION_R_TO_L : constant AFS_LARGE_INTEGER := 1; XM_STRING_COMPONENT_UNKNOWN : constant AFS_LARGE_INTEGER := 0; XM_STRING_COMPONENT_CHARSET : constant AFS_LARGE_INTEGER := 1; XM_STRING_COMPONENT_TEXT : constant AFS_LARGE_INTEGER := 2; XM_STRING_COMPONENT_DIRECTION : constant AFS_LARGE_INTEGER := 3; XM_STRING_COMPONENT_SEPARATOR : constant AFS_LARGE_INTEGER := 4; -- 5-125 reserved XM_STRING_COMPONENT_END : constant AFS_LARGE_INTEGER := 126; -- no more comp in string XM_STRING_COMPOUND_STRING : constant AFS_LARGE_INTEGER := 127; -- tag for whole TCS XM_STRING_COMPONENT_USER_BEGIN : constant AFS_LARGE_INTEGER := 128; -- 128-255 are user tags XM_STRING_COMPONENT_USER_END : constant AFS_LARGE_INTEGER := 255; XM_STRING_DEFAULT_CHARSET : constant AFS_SMALL_INTEGER := -1; -- -- Vendor shell -- XM_EXPLICIT : constant AFS_LARGE_INTEGER := 0; XM_POINTER : constant AFS_LARGE_INTEGER := 1; -- -- Primitive resource values -- -- Size policy values XM_CHANGE_ALL : constant AFS_LARGE_INTEGER := 0; XM_CHANGE_NONE : constant AFS_LARGE_INTEGER := 1; XM_CHANGE_WIDTH : constant AFS_LARGE_INTEGER := 2; XM_CHANGE_HEIGHT : constant AFS_LARGE_INTEGER := 3; -- Unit type values XM_PIXELS : constant AFS_LARGE_INTEGER := 0; XM_100TH_MILLIMETERS : constant AFS_LARGE_INTEGER := 1; XM_1000TH_INCHES : constant AFS_LARGE_INTEGER := 2; XM_100TH_POINTS : constant AFS_LARGE_INTEGER := 3; XM_100TH_FONT_UNITS : constant AFS_LARGE_INTEGER := 4; -- -- Menu resource values -- XM_NO_ORIENTATION : constant AFS_LARGE_INTEGER := 0; XM_VERTICAL : constant AFS_LARGE_INTEGER := 1; XM_HORIZONTAL : constant AFS_LARGE_INTEGER := 2; XM_WORK_AREA : constant AFS_LARGE_INTEGER := 0; XM_MENU_BAR : constant AFS_LARGE_INTEGER := 1; XM_MENU_PULLDOWN : constant AFS_LARGE_INTEGER := 2; XM_MENU_POPUP : constant AFS_LARGE_INTEGER := 3; XM_MENU_OPTION : constant AFS_LARGE_INTEGER := 4; XM_NO_PACKING : constant AFS_LARGE_INTEGER := 0; XM_PACK_TIGHT : constant AFS_LARGE_INTEGER := 1; XM_PACK_COLUMN : constant AFS_LARGE_INTEGER := 2; XM_PACK_NONE : constant AFS_LARGE_INTEGER := 3; -- -- Label resource values -- XM_ALIGNMENT_BEGINNING : constant AFS_LARGE_INTEGER := 0; XM_ALIGNMENT_CENTER : constant AFS_LARGE_INTEGER := 1; XM_ALIGNMENT_END : constant AFS_LARGE_INTEGER := 2; -- -- Toggle Button resource values -- XM_N_OF_MANY : constant AFS_LARGE_INTEGER := 1; XM_ONE_OF_MANY : constant AFS_LARGE_INTEGER := 2; -- -- Form resource values -- XM_ATTACH_NONE : constant AFS_LARGE_INTEGER := 0; XM_ATTACH_FORM : constant AFS_LARGE_INTEGER := 1; XM_ATTACH_OPPOSITE_FORM : constant AFS_LARGE_INTEGER := 2; XM_ATTACH_WIDGET : constant AFS_LARGE_INTEGER := 3; XM_ATTACH_OPPOSITE_WIDGET : constant AFS_LARGE_INTEGER := 4; XM_ATTACH_POSITION : constant AFS_LARGE_INTEGER := 5; XM_ATTACH_SELF : constant AFS_LARGE_INTEGER := 6; XM_RESIZE_NONE : constant AFS_LARGE_INTEGER := 0; XM_RESIZE_GROW : constant AFS_LARGE_INTEGER := 1; XM_RESIZE_ANY : constant AFS_LARGE_INTEGER := 2; -- for BulletinBoard, DrawingArea -- -- Callback reasons -- XM_CR_NONE : constant AFS_LARGE_INTEGER := 0; XM_CR_HELP : constant AFS_LARGE_INTEGER := 1; XM_CR_VALUE_CHANGED : constant AFS_LARGE_INTEGER := 2; XM_CR_INCREMENT : constant AFS_LARGE_INTEGER := 3; XM_CR_DECREMENT : constant AFS_LARGE_INTEGER := 4; XM_CR_PAGE_INCREMENT : constant AFS_LARGE_INTEGER := 5; XM_CR_PAGE_DECREMENT : constant AFS_LARGE_INTEGER := 6; XM_CR_TO_TOP : constant AFS_LARGE_INTEGER := 7; XM_CR_TO_BOTTOM : constant AFS_LARGE_INTEGER := 8; XM_CR_DRAG : constant AFS_LARGE_INTEGER := 9; XM_CR_ACTIVATE : constant AFS_LARGE_INTEGER := 10; XM_CR_ARM : constant AFS_LARGE_INTEGER := 11; XM_CR_DISARM : constant AFS_LARGE_INTEGER := 12; XM_CR_MAP : constant AFS_LARGE_INTEGER := 16; XM_CR_UNMAP : constant AFS_LARGE_INTEGER := 17; XM_CR_FOCUS : constant AFS_LARGE_INTEGER := 18; XM_CR_LOSING_FOCUS : constant AFS_LARGE_INTEGER := 19; XM_CR_MODIFYING_TEXT_VALUE : constant AFS_LARGE_INTEGER := 20; XM_CR_MOVING_INSERT_CURSOR : constant AFS_LARGE_INTEGER := 21; XM_CR_EXECUTE : constant AFS_LARGE_INTEGER := 22; XM_CR_SINGLE_SELECT : constant AFS_LARGE_INTEGER := 23; XM_CR_MULTIPLE_SELECT : constant AFS_LARGE_INTEGER := 24; XM_CR_EXTENDED_SELECT : constant AFS_LARGE_INTEGER := 25; XM_CR_BROWSE_SELECT : constant AFS_LARGE_INTEGER := 26; XM_CR_DEFAULT_ACTION : constant AFS_LARGE_INTEGER := 27; XM_CR_CLIPBOARD_DATA_REQUEST : constant AFS_LARGE_INTEGER := 28; XM_CR_CLIPBOARD_DATA_DELETE : constant AFS_LARGE_INTEGER := 29; XM_CR_CASCADING : constant AFS_LARGE_INTEGER := 30; XM_CR_OK : constant AFS_LARGE_INTEGER := 31; XM_CR_CANCEL : constant AFS_LARGE_INTEGER := 32; XM_CR_APPLY : constant AFS_LARGE_INTEGER := 34; XM_CR_NO_MATCH : constant AFS_LARGE_INTEGER := 35; XM_CR_COMMAND_ENTERED : constant AFS_LARGE_INTEGER := 36; XM_CR_COMMAND_CHANGED : constant AFS_LARGE_INTEGER := 37; XM_CR_EXPOSE : constant AFS_LARGE_INTEGER := 38; XM_CR_RESIZE : constant AFS_LARGE_INTEGER := 39; XM_CR_INPUT : constant AFS_LARGE_INTEGER := 40; -- -- Draw Button resource values -- XM_SHADOW_IN : constant AFS_LARGE_INTEGER := 7; XM_SHADOW_OUT : constant AFS_LARGE_INTEGER := 8; -- -- Arrow resource values -- XM_ARROW_UP : constant AFS_LARGE_INTEGER := 0; XM_ARROW_DOWN : constant AFS_LARGE_INTEGER := 1; XM_ARROW_LEFT : constant AFS_LARGE_INTEGER := 2; XM_ARROW_RIGHT : constant AFS_LARGE_INTEGER := 3; -- -- Separator resource values -- XM_NO_LINE : constant AFS_LARGE_INTEGER := 0; XM_SINGLE_LINE : constant AFS_LARGE_INTEGER := 1; XM_DOUBLE_LINE : constant AFS_LARGE_INTEGER := 2; XM_SINGLE_DASHED_LINE : constant AFS_LARGE_INTEGER := 3; XM_DOUBLE_DASHED_LINE : constant AFS_LARGE_INTEGER := 4; XM_SHADOW_ETCHED_IN : constant AFS_LARGE_INTEGER := 5; XM_SHADOW_ETCHED_OUT : constant AFS_LARGE_INTEGER := 6; XM_PIXMAP : constant AFS_LARGE_INTEGER := 1; XM_STRING : constant AFS_LARGE_INTEGER := 2; -- -- Scrollbar resource values -- XM_MAX_ON_TOP : constant AFS_LARGE_INTEGER := 0; XM_MAX_ON_BOTTOM : constant AFS_LARGE_INTEGER := 1; XM_MAX_ON_LEFT : constant AFS_LARGE_INTEGER := 0; XM_MAX_ON_RIGHT : constant AFS_LARGE_INTEGER := 1; -- -- Selection type values -- XM_SINGLE_SELECT : constant AFS_LARGE_INTEGER := 0; XM_MULTIPLE_SELECT : constant AFS_LARGE_INTEGER := 1; XM_EXTENDED_SELECT : constant AFS_LARGE_INTEGER := 2; XM_BROWSE_SELECT : constant AFS_LARGE_INTEGER := 3; XM_STATIC : constant AFS_LARGE_INTEGER := 0; XM_DYNAMIC : constant AFS_LARGE_INTEGER := 1; -- -- Scrolled window resource values -- XM_VARIABLE : constant AFS_LARGE_INTEGER := 0; XM_CONSTANT : constant AFS_LARGE_INTEGER := 1; XM_RESIZE_IF_POSSIBLE : constant AFS_LARGE_INTEGER := 2; XM_AUTOMATIC : constant AFS_LARGE_INTEGER := 0; XM_APPLICATION_DEFINED : constant AFS_LARGE_INTEGER := 1; -- XM_STATIC : constant AFS_LARGE_INTEGER := 0; (Already defined by List) XM_AS_NEEDED : constant AFS_LARGE_INTEGER := 1; SW_TOP : constant AFS_LARGE_INTEGER := 1; SW_BOTTOM : constant AFS_LARGE_INTEGER := 0; SW_LEFT : constant AFS_LARGE_INTEGER := 2; SW_RIGHT : constant AFS_LARGE_INTEGER := 0; XM_TOP_LEFT : constant AFS_LARGE_INTEGER := SW_TOP + SW_LEFT; XM_BOTTOM_LEFT : constant AFS_LARGE_INTEGER := SW_BOTTOM + SW_LEFT; XM_TOP_RIGHT : constant AFS_LARGE_INTEGER := SW_TOP + SW_RIGHT; XM_BOTTOM_RIGHT : constant AFS_LARGE_INTEGER := SW_BOTTOM + SW_RIGHT; -- -- Text widget resource values -- XM_MULTI_LINE_EDIT : constant AFS_LARGE_INTEGER := 0; XM_SINGLE_LINE_EDIT : constant AFS_LARGE_INTEGER := 1; -- -- Dialog resource values. Bulletin Board and things common to its subclass -- * CommandBox MessageBox Selection FileSelection * -- XM_DIALOG_NONE : constant AFS_LARGE_INTEGER := 0; -- a valid default button type XM_DIALOG_APPLY_BUTTON : constant AFS_LARGE_INTEGER := 1; XM_DIALOG_CANCEL_BUTTON : constant AFS_LARGE_INTEGER := 2; XM_DIALOG_DEFAULT_BUTTON : constant AFS_LARGE_INTEGER := 3; XM_DIALOG_OK_BUTTON : constant AFS_LARGE_INTEGER := 4; XM_DIALOG_FILTER_LABEL : constant AFS_LARGE_INTEGER := 5; XM_DIALOG_FILTER_TEXT : constant AFS_LARGE_INTEGER := 6; XM_DIALOG_HELP_BUTTON : constant AFS_LARGE_INTEGER := 7; XM_DIALOG_LIST : constant AFS_LARGE_INTEGER := 8; XM_DIALOG_HISTORY_LIST : constant AFS_LARGE_INTEGER := XM_DIALOG_LIST; XM_DIALOG_LIST_LABEL : constant AFS_LARGE_INTEGER := 9 ; XM_DIALOG_MESSAGE_LABEL : constant AFS_LARGE_INTEGER := 10; XM_DIALOG_SELECTION_LABEL : constant AFS_LARGE_INTEGER := 11; XM_DIALOG_PROMPT_LABEL : constant AFS_LARGE_INTEGER := XM_DIALOG_SELECTION_LABEL; XM_DIALOG_SYMBOL_LABEL : constant AFS_LARGE_INTEGER := 12; XM_DIALOG_TEXT : constant AFS_LARGE_INTEGER := 13; XM_DIALOG_VALUE_TEXT : constant AFS_LARGE_INTEGER := XM_DIALOG_TEXT; XM_DIALOG_COMMAND_TEXT : constant AFS_LARGE_INTEGER := XM_DIALOG_TEXT; XM_DIALOG_SEPARATOR : constant AFS_LARGE_INTEGER := 14; XM_DIALOG_FILE_SELECTION : constant AFS_LARGE_INTEGER := 15; XM_DIALOG_WORK_AREA : constant AFS_LARGE_INTEGER := 0; XM_DIALOG_MODELESS : constant AFS_LARGE_INTEGER := 1; XM_DIALOG_APPLICATION_MODAL : constant AFS_LARGE_INTEGER := 2; XM_DIALOG_SYSTEM_MODAL : constant AFS_LARGE_INTEGER := 3; XM_DIALOG_PROMPT : constant AFS_LARGE_INTEGER := 7; XM_DIALOG_SELECTION : constant AFS_LARGE_INTEGER := 8; XM_DIALOG_COMMAND : constant AFS_LARGE_INTEGER := 9; -- XM_MESSAGE_BOX resource values -- XM_DIALOG_ERROR : constant AFS_LARGE_INTEGER := 1; XM_DIALOG_INFORMATION : constant AFS_LARGE_INTEGER := 2; XM_DIALOG_MESSAGE : constant AFS_LARGE_INTEGER := 3; XM_DIALOG_QUESTION : constant AFS_LARGE_INTEGER := 4; XM_DIALOG_WARNING : constant AFS_LARGE_INTEGER := 5; XM_DIALOG_WORKING : constant AFS_LARGE_INTEGER := 6; -- ************************************************************************************* -- ************************************************************************************* -- * -- * CONVENIENCE ROUTINES AND FUNCTIONS -- * -- ************************************************************************************* -- ************************************************************************************* -- ******************************************************** -- * -- * Clipboard routines -- * -- ******************************************************** -- CLIPBOARD BEGIN COPY -- -- Note: this routine calls XmClipboardStartCopy with all of the parameters -- of XmClipboardBeginCopy PLUS the time stamp. -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, -- -- -- -- Note : Pass the address of a variable of type AFS_LARGE_INTEGER for -- the ITEMID argument to this call. The function will place -- the value of the ITEMID at the given address. In other calls -- such as XM_CLIPBOARD_CANCEL_COPY, below, the variable itself -- is passed as ITEMID. -- function XM_CLIPBOARD_BEGIN_COPY( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; LABEL : XM_COMPOUND_STRING; WIDGET : XT.WIDGET; CALLBACK : SYSTEM.ADDRESS; ITEMID : SYSTEM.ADDRESS ) return AFS_LARGE_INTEGER; -- This integer represents a status code... see constants above -- begining with "CLIPBOARD_" -- -- XM_CLIPBOARD_CANCEL_COPY -- -- procedure XM_CLIPBOARD_CANCEL_COPY (DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; ITEMID : AFS_LARGE_INTEGER ); -- -- CLIPBOARD COPY -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, -- function XM_CLIPBOARD_COPY (DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; ITEMID : AFS_LARGE_INTEGER; FORMAT_NAME : SYSTEM.ADDRESS; BUFFER : SYSTEM.ADDRESS; LENGTH : AFS_C_UNSIGNED_LONG; PRIVATE_ID : AFS_LARGE_INTEGER; DATA_ID : SYSTEM.ADDRESS ) return AFS_LARGE_INTEGER; -- -- CLIPBOARD COPY BY NAME -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, -- function XM_CLIPBOARD_COPY_BY_NAME ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; DATA_ID : AFS_LARGE_INTEGER; BUFFER : SYSTEM.ADDRESS; LENGTH : AFS_C_UNSIGNED_LONG; PRIVATE_ID : AFS_LARGE_INTEGER ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_END_COPY -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, -- function XM_CLIPBOARD_END_COPY( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; ITEMID : AFS_LARGE_INTEGER ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_END_RETRIEVE -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, -- function XM_CLIPBOARD_END_RETRIEVE( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_INQUIRE_COUNT -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, CLIPBOARD_NO_DATA -- function XM_CLIPBOARD_INQUIRE_COUNT ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; COUNT : SYSTEM.ADDRESS; -- Pass an address of an AFS_LARGE_INTEGER MAX_FORMAT_NAME_LENGTH : SYSTEM.ADDRESS ) -- Pass an address of an AFS_LARGE_INTEGER return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_INQUIRE_FORMAT -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, -- CLIPBOARD_TRUNCATE, CLIPBOARD_NO_DATA -- function XM_CLIPBOARD_INQUIRE_FORMAT ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; INDEX : AFS_LARGE_INTEGER; FORMAT_NAME_BUFF : SYSTEM.ADDRESS; -- Pass an address of a STRING BUFFER_LEN : AFS_C_UNSIGNED_LONG; COPIED_LEN : SYSTEM.ADDRESS ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_INQUIRE_LENGTH -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, CLIPBOARD_NO_DATA -- function XM_CLIPBOARD_INQUIRE_LENGTH ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; FORMAT_NAME : SYSTEM.ADDRESS; -- Pass an address of a STRING LENGTH : SYSTEM.ADDRESS ) -- Pass an address of an AFS_C_UNSIGNED_LONG return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_INQUIRE_PENDING_ITEMS -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- function XM_CLIPBOARD_INQUIRE_PENDING_ITEMS ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; FORMAT_NAME : SYSTEM.ADDRESS; -- Address of a STRING ITEM_LIST : SYSTEM.ADDRESS; -- Address of a XM_CLIPBOARD_PENDING_LIST type variable COUNT : SYSTEM.ADDRESS) -- Address of an AFS_C_UNSIGNED_LONG return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_LOCK -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- function XM_CLIPBOARD_LOCK ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_REGISTER_FORMAT -- -- Possible return values: CLIPBOARD_BAD_FORMAT, CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- function XM_CLIPBOARD_REGISTER_FORMAT ( DISPLAY : XLIB.DISPLAY_POINTER; FORMAT_NAME : SYSTEM.ADDRESS; -- Pass an address of a STRING FORMAT_LENGTH : SYSTEM.ADDRESS ) -- Pass an address of an AFS_C_UNSIGNED_LONG return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_RETRIEVE -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED, -- CLIPBOARD_TRUNCATE, CLIPBOARD_NO_DATA -- function XM_CLIPBOARD_RETRIEVE ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; FORMAT_NAME : SYSTEM.ADDRESS; -- Address of a STRING BUFFER : SYSTEM.ADDRESS; -- Address of a STRING LENGTH : AFS_C_UNSIGNED_LONG; NUM_BYTES : SYSTEM.ADDRESS; -- Address of an AFS_C_UNSIGNED_LONG PRIVATE_ID : SYSTEM.ADDRESS ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_START_COPY -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- -- function XM_CLIPBOARD_START_COPY( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; CLIP_LABEL : XM_COMPOUND_STRING; TIMESTAMP : AFS_C_UNSIGNED_LONG; WIDGET : XT.WIDGET; CALLBACK : SYSTEM.ADDRESS; -- Address of a callback routine ITEMID : SYSTEM.ADDRESS )-- Address of an AFS_C_UNSIGNED_LONG return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_START_RETRIEVE -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- -- function XM_CLIPBOARD_START_RETRIEVE ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; TIMESTAMP : AFS_C_UNSIGNED_LONG ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_UNDO_COPY -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- -- function XM_CLIPBOARD_UNDO_COPY ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_UNLOCK -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- -- function XM_CLIPBOARD_UNLOCK ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; REMOVE_ALL_LOCKS : BOOLEAN ) return AFS_LARGE_INTEGER; -- -- XM_CLIPBOARD_WITHDRAW_FORMAT -- -- Possible return values: CLIPBOARD_SUCCESS, CLIPBOARD_LOCKED -- -- function XM_CLIPBOARD_WITHDRAW_FORMAT ( DISPLAY : XLIB.DISPLAY_POINTER; WINDOW : XLIB.WINDOW_ID; DATA_ID : AFS_LARGE_INTEGER ) return AFS_LARGE_INTEGER; -- ******************************************************** -- * -- * Extra -- * -- ******************************************************** -- -- CASCADE BUTTON/GADGET -- procedure XM_CASCADE_BUTTON_HIGHLIGHT ( BUTTON : WIDGET; HIGHLIGHT : BOOLEAN ); -- ******************************************************** -- * -- * List widget routines -- * -- ******************************************************** -- -- XM_LIST_ADD_ITEM -- -- procedure XM_LIST_ADD_ITEM( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING; POS : AFS_LARGE_INTEGER ); -- -- XM_LIST_ADD_ITEM_UNSELECTED -- procedure XM_LIST_ADD_ITEM_UNSELECTED( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING; POS : AFS_LARGE_INTEGER ); -- -- XM_LIST_DELETE_ITEM -- procedure XM_LIST_DELETE_ITEM( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING); -- -- XM_LIST_DELETE_POS -- procedure XM_LIST_DELETE_POS( WIDGET : XT.WIDGET; POS : AFS_LARGE_INTEGER); -- -- XM_LIST_DESELECT_ALL_ITEMS -- procedure XM_LIST_DESELECT_ALL_ITEMS( WIDGET : XT.WIDGET); -- -- XM_LIST_DESELECT_ITEM -- procedure XM_LIST_DESELECT_ITEM ( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING); -- -- XM_LIST_DESELECT_POS -- procedure XM_LIST_DESELECT_POS ( WIDGET : XT.WIDGET; POS : AFS_LARGE_INTEGER); -- -- XM_LIST_ITEM_EXISTS -- function XM_LIST_ITEM_EXISTS ( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING) return BOOLEAN; -- -- XM_LIST_SELECT_ITEM -- procedure XM_LIST_SELECT_ITEM ( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING; NOTIFY : BOOLEAN ); -- -- XM_LIST_SELECT_POS -- procedure XM_LIST_SELECT_POS ( WIDGET : XT.WIDGET; POSITION : AFS_LARGE_INTEGER; NOTIFY : BOOLEAN ); -- -- XM_LIST_SET_BOTTOM_ITEM -- procedure XM_LIST_SET_BOTTOM_ITEM( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING ); -- -- XM_LIST_SET_BOTTOM_POS -- procedure XM_LIST_SET_BOTTOM_POS ( WIDGET : XT.WIDGET; POSITION : AFS_LARGE_INTEGER ); -- -- XM_LIST_SET_HORIZ_POS -- procedure XM_LIST_SET_HORIZ_POS ( WIDGET : XT.WIDGET; POSITION : AFS_LARGE_INTEGER ); -- -- XM_LIST_SET_ITEM -- procedure XM_LIST_SET_ITEM ( WIDGET : XT.WIDGET; ITEM : XM_COMPOUND_STRING ); -- -- XM_LIST_SET_POS -- procedure XM_LIST_SET_POS ( WIDGET : XT.WIDGET; POSITION : AFS_LARGE_INTEGER ); -- ******************************************************** -- * -- * Main window routines -- * -- ******************************************************** -- -- XM_MAIN_WINDOW_SEP1 -- function XM_MAIN_WINDOW_SEP1 ( WIDGET : XT.WIDGET ) return XT.WIDGET; -- -- XM_MAIN_WINDOW_SEP2 -- function XM_MAIN_WINDOW_SEP2 ( WIDGET : XT.WIDGET ) return XT.WIDGET; -- -- XM_MAIN_WINDOW_SET_AREAS -- procedure XM_MAIN_WINDOW_SET_AREAS ( WIDGET : XT.WIDGET; MENU_BAR : XT.WIDGET; COMMAND_WINDOW : XT.WIDGET; HORIZONTAL_SCROLLBAR : XT.WIDGET; VERTICAL_SCROLLBAR : XT.WIDGET; WORK_REGIONS : XT.WIDGET ); -- ******************************************************** -- * -- * XM_MENU_POSITION -- * -- ******************************************************** procedure XM_MENU_POSITION( MENU : XT.WIDGET; EVENT : SYSTEM.ADDRESS ); -- ******************************************************** -- * -- * Message Box widget routines -- * -- ******************************************************** -- -- MESSAGE BOX GET CHILD -- function XM_MESSAGE_BOX_GET_CHILD( W : WIDGET; CHILD : AFS_LARGE_INTEGER) return WIDGET; -- ******************************************************** -- * -- * Option Menu routines for returning widget id's of -- * internally created widgets inside the option menu. -- * -- ******************************************************** -- -- XM_OPTION_BUTTON_GADGET -- function XM_OPTION_BUTTON_GADGET ( OPTION_MENU : XT.WIDGET ) return XT.WIDGET; -- -- XM_OPTION_LABEL_GADGET -- function XM_OPTION_LABEL_GADGET ( OPTION_MENU : XT.WIDGET ) return XT.WIDGET; -- ******************************************************** -- * -- * Scale widget routines -- * -- ******************************************************** -- -- XM_SCALE_GET_VALUE -- procedure XM_SCALE_GET_VALUE( WIDGET : XT.WIDGET; INT : SYSTEM.ADDRESS ); procedure XM_SCALE_GET_VALUE( WIDGET : XT.WIDGET; INT : AFS_LARGE_INTEGER ); -- -- XM_SCALE_SET_VALUE -- procedure XM_SCALE_SET_VALUE( WIDGET : XT.WIDGET; INT : AFS_LARGE_INTEGER ); -- ******************************************************** -- * -- * Scroll bar widget routines -- * -- ******************************************************** -- XM_SCROLL_BAR_GET_VALUES -- procedure XM_SCROLL_BAR_GET_VALUES( WIDGET : XT.WIDGET; VALUE_RETURN : SYSTEM.ADDRESS; SLIDER_SIZE_RETURN : SYSTEM.ADDRESS; INCREMENT_RETURN : SYSTEM.ADDRESS; PAGE_INCREMENT_RETURN : SYSTEM.ADDRESS ); procedure XM_SCROLL_BAR_GET_VALUES( WIDGET : XT.WIDGET; VALUE_RETURN : AFS_LARGE_INTEGER; SLIDER_SIZE_RETURN : AFS_LARGE_INTEGER; INCREMENT_RETURN : AFS_LARGE_INTEGER; PAGE_INCREMENT_RETURN : AFS_LARGE_INTEGER ); -- XM_SCROLL_BAR_SET_VALUES -- procedure XM_SCROLL_BAR_SET_VALUES( WIDGET : XT.WIDGET; VALUE : AFS_LARGE_INTEGER; SLIDER_SIZE : AFS_LARGE_INTEGER; INCREMENT : AFS_LARGE_INTEGER; PAGE_INCREMENT : AFS_LARGE_INTEGER; NOTIFY : BOOLEAN ); -- ******************************************************** -- * -- * Scrolled Window widget routines -- * -- ******************************************************** -- XM_SCROLLED_WINDOW_SET_AREAS -- procedure XM_SCROLLED_WINDOW_SET_AREAS( WIDGET : XT.WIDGET; HORIZONTAL_SCROLLBAR : XT.WIDGET; VERTICAL_SCROLLBAR : XT.WIDGET; WORK_REGION : XT.WIDGET); -- ******************************************************** -- * -- * Selection Box widget routines -- * -- ******************************************************** -- XM_SELECTION_BOX_GET_CHILD -- function XM_SELECTION_BOX_GET_CHILD( WIDGET : XT.WIDGET; CHILD : AFS_LARGE_INTEGER) return XT.WIDGET; -- ******************************************************** -- * -- * String related routines -- * -- ******************************************************** -- -- CONVERT STRING TO UNIT TYPE -- procedure XM_CVT_STRING_TO_UNIT_TYPE( ARGLIST : in ARG_LIST := NULL_ARG_LIST; FROM_VAL : in STRING; TO_VAL : out AFS_SMALL_INTEGER ); -- -- SET FONT UNIT -- procedure XM_SET_FONT_UNIT ( DISPLAY : XLIB.DISPLAY_POINTER; VALUE : AFS_LARGE_INTEGER ); -- ******************************************************** -- * -- * String Routines -- * -- ******************************************************** -- -- STRING BASELINE -- -- function XM_STRING_BASELINE( FONTLIST : XM_FONT_LIST; STRING : XM_COMPOUND_STRING ) return DIMENSION; -- -- STRING BYTE COMPARE -- -- function XM_STRING_BYTE_COMPARE( A : XM_COMPOUND_STRING; B : XM_COMPOUND_STRING ) return BOOLEAN; -- -- STRING CONCATENATE -- function XM_STRING_CONCAT ( STRING1 : in XM_COMPOUND_STRING; STRING2 : in XM_COMPOUND_STRING ) return XM_COMPOUND_STRING; -- -- STRING COMPARE -- function XM_STRING_COMPARE( A : XM_COMPOUND_STRING; B : XM_COMPOUND_STRING ) return BOOLEAN; -- -- STRING COPY -- function XM_STRING_COPY( STRING : XM_COMPOUND_STRING ) return XM_COMPOUND_STRING; -- -- STRING CREATE -- function XM_STRING_CREATE( TEXT : STRING; CHARSET : in AFS_SMALL_INTEGER := XM_STRING_DEFAULT_CHARSET ) return XM_COMPOUND_STRING; -- -- STRING CREATE FONT LIST -- function XM_STRING_CREATE_FONT_LIST( FONT : SYSTEM.ADDRESS; CHARSET : AFS_SMALL_INTEGER := XM_STRING_DEFAULT_CHARSET ) return XM_FONT_LIST; -- -- STRING CREATE LEFT TO RIGHT -- function XM_STRING_CREATE_L_TO_R( TEXT : SYSTEM.ADDRESS; CHARSET : AFS_SMALL_INTEGER := XM_STRING_DEFAULT_CHARSET ) return XM_COMPOUND_STRING; function XM_STRING_CREATE_L_TO_R( TEXT : in STRING; CHARSET : in AFS_SMALL_INTEGER := XM_STRING_DEFAULT_CHARSET ) return XM_COMPOUND_STRING; -- -- STRING DIRECTION CREATE -- function XM_STRING_DIRECTION_CREATE( DIRECTION : AFS_LARGE_INTEGER ) return XM_COMPOUND_STRING; -- -- STRING DRAW -- procedure XM_STRING_DRAW( D : SYSTEM.ADDRESS; W : XLIB.WINDOW_ID; FONTLIST : XM_FONT_LIST; STRING : XM_COMPOUND_STRING; GC : SYSTEM.ADDRESS; X : AFS_LARGE_INTEGER; Y : AFS_LARGE_INTEGER; WIDTH : DIMENSION; ALIGNMENT : AFS_LARGE_INTEGER; LAYOUT_DIRECTION : AFS_LARGE_INTEGER; CLIP : SYSTEM.ADDRESS ); -- -- STRING DRAW IMAGE -- procedure XM_STRING_DRAW_IMAGE( D : SYSTEM.ADDRESS; W : XLIB.WINDOW_ID; FONTLIST : XM_FONT_LIST; STRING : XM_COMPOUND_STRING; GC : SYSTEM.ADDRESS; X : AFS_LARGE_INTEGER; Y : AFS_LARGE_INTEGER; WIDTH : DIMENSION; ALIGNMENT : AFS_LARGE_INTEGER; LAYOUT_DIRECTION : AFS_LARGE_INTEGER; CLIP : SYSTEM.ADDRESS ); -- -- STRING DRAW UNDERLINE -- procedure XM_STRING_DRAW_UNDERLINE( D : SYSTEM.ADDRESS; W : XLIB.WINDOW_ID; FONTLIST : XM_FONT_LIST; STRING : XM_COMPOUND_STRING; GC : SYSTEM.ADDRESS; X : AFS_LARGE_INTEGER; Y : AFS_LARGE_INTEGER; WIDTH : DIMENSION; ALIGNMENT : AFS_LARGE_INTEGER; LAYOUT_DIRECTION : AFS_LARGE_INTEGER; CLIP : SYSTEM.ADDRESS; UNDERLINE : XM_COMPOUND_STRING ); -- -- STRING EMPTY -- -- function XM_STRING_EMPTY( STRING : XM_COMPOUND_STRING ) return BOOLEAN; -- -- STRING EXTENT -- -- procedure XM_STRING_EXTENT( FONTLIST : in XM_FONT_LIST; STRING : in XM_COMPOUND_STRING; WIDTH : out DIMENSION; HEIGHT : out DIMENSION ); -- -- STRING FREE -- procedure XM_STRING_FREE(STRING : XM_COMPOUND_STRING) ; -- -- STRING FREE CONTEXT -- procedure XM_STRING_FREE_CONTEXT ( CONTEXT : XM_STRING_CONTEXT ) ; -- -- STRING GET 'L TO R' -- procedure XM_STRING_GET_L_TO_R ( STR : in XM_COMPOUND_STRING; CHARSET : in AFS_SMALL_INTEGER; TEXT : in out STRING; SUCCESSFUL : in out BOOLEAN); -- -- STRING GET NEXT COMPONENT -- function XM_STRING_GET_NEXT_COMPONENT( CONTEXT : SYSTEM.ADDRESS; -- address of XM_STRING_CONTEXT TEXT : SYSTEM.ADDRESS; -- this is a pointer to a pointer CHARSET : SYSTEM.ADDRESS; -- address of XM_STRING_CHAR_SET DIRECTION : SYSTEM.ADDRESS; -- address of XM_STRING_DIRECTION UNKNOWN_TAGS : SYSTEM.ADDRESS; -- address of XM_STRING_COMPONENT_TYPE UNKNOWN_LENGTH : SYSTEM.ADDRESS; -- address of AFS_SMALL_INTEGER UNKNOWN_VALUE : SYSTEM.ADDRESS) -- this is a pointer to a pointer return XM_STRING_COMPONENT_TYPE; -- AFS_LARGE_INTEGER -- -- STRING GET NEXT SEGMENT -- procedure XM_STRING_GET_NEXT_SEGMENT (CONTEXT : XM_STRING_CONTEXT; TEXT : in out STRING; CHARSET : in out AFS_SMALL_INTEGER; DIRECTION : in out AFS_LARGE_INTEGER; SEPARATOR : in out BOOLEAN; SUCCESSFUL : in out BOOLEAN ); -- -- STRING HEIGHT -- -- function XM_STRING_HEIGHT( FONTLIST : XM_FONT_LIST; STRING : XM_COMPOUND_STRING ) return DIMENSION; -- -- STRING INITIALIZE CONTEXT -- function XM_STRING_INIT_CONTEXT( CONTEXT : XM_STRING_CONTEXT; STRING : XM_COMPOUND_STRING ) return BOOLEAN; -- -- STRING LEFT TO RIGHT CREATE -- function XM_STRING_L_TO_R_CREATE( TEXT : SYSTEM.ADDRESS; CHARSET : AFS_SMALL_INTEGER := XM_STRING_DEFAULT_CHARSET ) return XM_COMPOUND_STRING; function XM_STRING_L_TO_R_CREATE( TEXT : in STRING; CHARSET : in AFS_SMALL_INTEGER := XM_STRING_DEFAULT_CHARSET ) return XM_COMPOUND_STRING; -- -- STRING LENGTH -- -- function XM_STRING_LENGTH( STRING : XM_COMPOUND_STRING ) return AFS_LARGE_INTEGER; -- -- STRING LINE COUNT -- -- function XM_STRING_LINE_COUNT( STRING : XM_COMPOUND_STRING ) return AFS_LARGE_INTEGER; -- -- STRING N CONCAT -- function XM_STRING_N_CONCAT ( STRING1 : in XM_COMPOUND_STRING; STRING2 : in XM_COMPOUND_STRING; NUM_BYTES : in AFS_LARGE_INTEGER ) return XM_COMPOUND_STRING; -- -- STRING N COPY -- function XM_STRING_N_COPY( STRING1 : XM_COMPOUND_STRING; INT : AFS_LARGE_INTEGER ) return XM_COMPOUND_STRING; -- -- STRING PEEK NEXT COMPONENT -- function XM_STRING_PEEK_NEXT_COMPONENT( CONTEXT : SYSTEM.ADDRESS) -- address of XM_STRING_CONTEXT return XM_STRING_COMPONENT_TYPE; -- AFS_LARGE_INTEGER -- -- STRING SEGMENT CREATE -- function XM_STRING_SEGMENT_CREATE ( TEXT : in STRING; CHARSET : in AFS_SMALL_INTEGER := XM_STRING_DEFAULT_CHARSET; DIRECTION : in AFS_LARGE_INTEGER := XM_STRING_DIRECTION_L_TO_R; SEPARATOR : in BOOLEAN := FALSE ) return XM_COMPOUND_STRING; -- -- STRING SEPARATOR CREATE -- function XM_STRING_SEPARATOR_CREATE (SEPARATOR : BOOLEAN) return XM_COMPOUND_STRING; -- -- STRING WIDTH -- function XM_STRING_WIDTH( FONTLIST : XM_FONT_LIST; STRING : XM_COMPOUND_STRING ) return DIMENSION; -- ******************************************************** -- * -- * Font List Routines -- * -- ******************************************************** -- -- -- FONT LIST ADD -- procedure XM_FONT_LIST_ADD ( OLD : XM_FONT_LIST; FONT : XLIB.X_FONT_STRUCT_PTR; CHARSET : AFS_SMALL_INTEGER ); -- -- FONT LIST COPY -- function XM_FONT_LIST_COPY ( FONTLIST : XM_FONT_LIST ) return XM_FONT_LIST; -- -- FONT LIST CREATE -- function XM_FONT_LIST_CREATE ( FONT : in XLIB.X_FONT_STRUCT_PTR; CHARSET : in AFS_SMALL_INTEGER ) return XM_FONT_LIST; -- -- FONT LIST FREE -- procedure XM_FONT_LIST_FREE ( FONTLIST : XM_FONT_LIST ); -- CONVERT FONT LIST TO ADDRESS -- use for XT_SET_ARG ; look at font1.a in examples function XM_FONT_LIST_TO_ADDR( FONT_LIST : in XM_FONT_LIST ) return SYSTEM.ADDRESS; -- ******************************************************** -- * -- * Command Routines -- * -- ******************************************************** -- -- COMMAND APPEND VALUE -- procedure XM_COMMAND_APPEND_VALUE( W : WIDGET; VALUE : XM_COMPOUND_STRING ); -- -- COMMAND ERROR -- procedure XM_COMMAND_ERROR( W : WIDGET; ERROR : XM_COMPOUND_STRING ); -- -- COMMAND GET CHILD -- function XM_COMMAND_GET_CHILD( PARENT : WIDGET; CHILD : AFS_LARGE_INTEGER ) return WIDGET; -- -- COMMAND SET VALUE -- procedure XM_COMMAND_SET_VALUE( W : WIDGET; VALUE : XM_COMPOUND_STRING ); -- ******************************************************** -- * -- * File Selection Box convenience routines. -- * -- ******************************************************** -- -- FILE SELECTION BOX GET CHILD -- function XM_FILE_SELECTION_BOX_GET_CHILD( FS : WIDGET; WHICH : AFS_LARGE_INTEGER ) return WIDGET; -- -- ******************************************************** -- * -- * TEXT widget convenience routines. -- * -- ******************************************************** -- -- XM_TEXT_CLEAR_SELECTION -- procedure XM_TEXT_CLEAR_SELECTION( WIDGET : XT.WIDGET; TIME : AFS_C_UNSIGNED_LONG ); -- -- TEXT GET EDITABLE -- function XM_TEXT_GET_EDITABLE ( WIDGET : XT.WIDGET ) return BOOLEAN; -- -- TEXT GET INSERTION POSITION -- function XM_TEXT_GET_INSERTION_POSITION ( WIDGET : XT.WIDGET ) return AFS_LARGE_INTEGER; -- -- TEXT GET MAX LENGTH -- function XM_TEXT_GET_MAX_LENGTH ( WIDGET : XT.WIDGET ) return AFS_LARGE_INTEGER; -- -- TEXT GET SELECTION -- -- The address returned is a 'pointer to a string' whose memory was allocated -- by the C routine XmTextGetSelection which this routine calls. function XM_TEXT_GET_SELECTION ( WIDGET : XT.WIDGET ) return SYSTEM.ADDRESS; -- -- TEXT GET STRING -- function XM_TEXT_GET_STRING ( W : WIDGET ) return A_strings.A_STRING; function XM_TEXT_GET_STRING ( W : WIDGET ) return SYSTEM.ADDRESS; -- -- TEXT REPLACE -- procedure XM_TEXT_REPLACE ( WIDGET : XT.WIDGET; FROM_POS : AFS_LARGE_INTEGER; TO_POS : AFS_LARGE_INTEGER; VALUE : SYSTEM.ADDRESS ); -- -- TEXT SET EDITABLE -- procedure XM_TEXT_SET_EDITABLE ( WIDGET : XT.WIDGET; EDITABLE : BOOLEAN ); -- -- TEXT SET INSERTION POSITION -- procedure XM_TEXT_SET_INSERTION_POSITION ( WIDGET : XT.WIDGET; POSITION : AFS_LARGE_INTEGER ); -- -- TEXT SET MAX LENGTH -- procedure XM_TEXT_SET_MAX_LENGTH ( WIDGET : XT.WIDGET; MAX_LENGTH : AFS_LARGE_INTEGER ); -- -- TEXT SET SELECTION -- procedure XM_TEXT_SET_SELECTION ( WIDGET : XT.WIDGET; FIRST : AFS_LARGE_INTEGER; LAST : AFS_LARGE_INTEGER; TIME : AFS_C_UNSIGNED_LONG ); -- -- TEXT SET SOURCE -- procedure XM_TEXT_SET_SOURCE ( WIDGET : XT.WIDGET; SOURCE : SYSTEM.ADDRESS; TOP_POSITION : AFS_LARGE_INTEGER; CURSOR_POSITION : AFS_LARGE_INTEGER ); -- -- TEXT SET STRING -- procedure XM_TEXT_SET_STRING ( W : WIDGET; CHAR : SYSTEM.ADDRESS ) ; -- -- TEXT SHOW POSITION -- -- (Forces the text at location indicated by POSITION to be -- shown within the widget. If position < 0 no text is forced -- to be shown. ) -- procedure XM_TEXT_SHOW_POSITION ( WIDGET : XT.WIDGET; POSITION : AFS_LARGE_INTEGER ); -- ******************************************************** -- * -- * Toggle Button convenience routines. -- * -- ******************************************************** -- -- TOGGLE BUTTON GET STATE -- function XM_TOGGLE_BUTTON_GET_STATE ( W : WIDGET ) return BOOLEAN; -- -- TOGGLE BUTTON SET STATE -- procedure XM_TOGGLE_BUTTON_SET_STATE ( W : WIDGET; STATE : BOOLEAN; NOTIFY : BOOLEAN ); -- -- TOGGLE BUTTON GADGET GET STATE -- function XM_TOGGLE_BUTTON_GADGET_GET_STATE ( W : WIDGET ) return BOOLEAN; -- -- TOGGLE BUTTON GADGET SET STATE -- procedure XM_TOGGLE_BUTTON_GADGET_SET_STATE ( W : WIDGET; STATE : BOOLEAN; NOTIFY : BOOLEAN ); procedure XM_UPDATE_DISPLAY( W : XT.WIDGET ); procedure XM_ADD_TAB_GROUP( W : in WIDGET ); procedure XM_REMOVE_TAB_GROUP( W : in WIDGET ); -- ************************************************************************************* -- ************************************************************************************* -- * -- * pragma INTERFACE's for procedures and functions which map directly -- * to their 'C' counterparts. -- * -- ************************************************************************************* -- ************************************************************************************* -- pragma INTERFACE (C, XM_CLIPBOARD_BEGIN_COPY); pragma INTERFACE_NAME (XM_CLIPBOARD_BEGIN_COPY,"XmClipboardBeginCopy"); pragma INTERFACE(C, XM_CLIPBOARD_CANCEL_COPY); pragma INTERFACE_NAME(XM_CLIPBOARD_CANCEL_COPY,"XmClipboardCancelCopy"); pragma INTERFACE(C, XM_CLIPBOARD_COPY); pragma INTERFACE_NAME(XM_CLIPBOARD_COPY,"XmClipboardCopy"); pragma INTERFACE ( C, XM_CLIPBOARD_COPY_BY_NAME); pragma INTERFACE_NAME( XM_CLIPBOARD_COPY_BY_NAME, "XmClipboardCopyByName"); pragma INTERFACE(C, XM_CLIPBOARD_END_COPY); pragma INTERFACE_NAME(XM_CLIPBOARD_END_COPY,"XmClipboardEndCopy"); pragma INTERFACE(C, XM_CLIPBOARD_END_RETRIEVE); pragma INTERFACE_NAME(XM_CLIPBOARD_END_RETRIEVE,"XmClipboardEndRetrieve"); pragma INTERFACE(C, XM_CLIPBOARD_INQUIRE_COUNT); pragma INTERFACE_NAME(XM_CLIPBOARD_INQUIRE_COUNT,"XmClipboardInquireCount"); pragma INTERFACE(C, XM_CLIPBOARD_INQUIRE_FORMAT); pragma INTERFACE_NAME(XM_CLIPBOARD_INQUIRE_FORMAT,"XmClipboardInquireFormat"); pragma INTERFACE(C, XM_CLIPBOARD_INQUIRE_LENGTH); pragma INTERFACE_NAME(XM_CLIPBOARD_INQUIRE_LENGTH,"XmClipboardInquireLength"); pragma INTERFACE(C, XM_CLIPBOARD_INQUIRE_PENDING_ITEMS); pragma INTERFACE_NAME(XM_CLIPBOARD_INQUIRE_PENDING_ITEMS,"XmClipboardInquirePendingItems"); pragma INTERFACE(C, XM_CLIPBOARD_LOCK); pragma INTERFACE_NAME(XM_CLIPBOARD_LOCK,"XmClipboardLock"); pragma INTERFACE(C, XM_CLIPBOARD_REGISTER_FORMAT); pragma INTERFACE_NAME(XM_CLIPBOARD_REGISTER_FORMAT,"XmClipboardRegisterFormat"); pragma INTERFACE(C, XM_CLIPBOARD_RETRIEVE); pragma INTERFACE_NAME(XM_CLIPBOARD_RETRIEVE,"XmClipboardRetrieve"); pragma INTERFACE(C, XM_CLIPBOARD_START_COPY); pragma INTERFACE_NAME(XM_CLIPBOARD_START_COPY,"XmClipboardStartCopy"); pragma INTERFACE(C, XM_CLIPBOARD_START_RETRIEVE); pragma INTERFACE_NAME(XM_CLIPBOARD_START_RETRIEVE,"XmClipboardStartRetrieve"); pragma INTERFACE(C, XM_CLIPBOARD_UNDO_COPY); pragma INTERFACE_NAME(XM_CLIPBOARD_UNDO_COPY,"XmClipboardUndoCopy"); pragma INTERFACE(C, XM_CLIPBOARD_WITHDRAW_FORMAT); pragma INTERFACE_NAME(XM_CLIPBOARD_WITHDRAW_FORMAT,"XmClipboardWithdrawFormat"); pragma INTERFACE(C, XM_LIST_DELETE_ITEM); pragma INTERFACE_NAME(XM_LIST_DELETE_ITEM,"XmListDeleteItem"); pragma INTERFACE(C, XM_LIST_DELETE_POS); pragma INTERFACE_NAME(XM_LIST_DELETE_POS,"XmListDeletePos"); pragma INTERFACE(C, XM_LIST_DESELECT_ALL_ITEMS); pragma INTERFACE_NAME(XM_LIST_DESELECT_ALL_ITEMS,"XmListDeselectAllItems"); pragma INTERFACE(C, XM_LIST_DESELECT_ITEM); pragma INTERFACE_NAME(XM_LIST_DESELECT_ITEM,"XmListDeselectItem"); pragma INTERFACE(C, XM_LIST_DESELECT_POS); pragma INTERFACE_NAME(XM_LIST_DESELECT_POS,"XmListDeselectPos"); pragma INTERFACE(C, XM_LIST_SET_BOTTOM_ITEM); pragma INTERFACE_NAME(XM_LIST_SET_BOTTOM_ITEM,"XmListSetBottomItem"); pragma INTERFACE(C, XM_LIST_SET_BOTTOM_POS); pragma INTERFACE_NAME(XM_LIST_SET_BOTTOM_POS,"XmListSetBottomPos"); pragma INTERFACE(C, XM_LIST_SET_HORIZ_POS); pragma INTERFACE_NAME(XM_LIST_SET_HORIZ_POS,"XmListSetHorizPos"); pragma INTERFACE(C, XM_LIST_SET_ITEM); pragma INTERFACE_NAME(XM_LIST_SET_ITEM,"XmListSetItem"); pragma INTERFACE(C, XM_LIST_SET_POS); pragma INTERFACE_NAME(XM_LIST_SET_POS,"XmListSetPos"); pragma INTERFACE(C,XM_OPTION_BUTTON_GADGET ); pragma INTERFACE_NAME(XM_OPTION_BUTTON_GADGET,"XmOptionButtonGadget"); pragma INTERFACE(C,XM_OPTION_LABEL_GADGET ); pragma INTERFACE_NAME(XM_OPTION_LABEL_GADGET,"XmOptionLabelGadget"); pragma INTERFACE(C, XM_STRING_DIRECTION_CREATE); pragma INTERFACE_NAME (XM_STRING_DIRECTION_CREATE, "XmStringDirectionCreate"); -- this one has a C wrapper for Byte Types pragma INTERFACE (C, XM_STRING_DRAW); pragma INTERFACE_NAME(XM_STRING_DRAW,"XmStringDrawFk"); -- this one has a C wrapper for Byte Types pragma INTERFACE (C, XM_STRING_DRAW_IMAGE); pragma INTERFACE_NAME(XM_STRING_DRAW_IMAGE,"XmStringDrawImageFk"); -- this one has a C wrapper for Byte Types pragma INTERFACE (C, XM_STRING_DRAW_UNDERLINE); pragma INTERFACE_NAME(XM_STRING_DRAW_UNDERLINE,"XmStringDrawUnderlineFk"); -- this one has a C wrapper for Byte Types pragma INTERFACE (C, XM_STRING_GET_NEXT_COMPONENT); pragma INTERFACE_NAME(XM_STRING_GET_NEXT_COMPONENT,"XmStringGetNextComponentFk"); -- this one has a C wrapper for Byte Types pragma INTERFACE (C, XM_STRING_PEEK_NEXT_COMPONENT); pragma INTERFACE_NAME(XM_STRING_PEEK_NEXT_COMPONENT,"XmStringPeekNextComponentFk"); pragma INTERFACE (C, XM_STRING_N_COPY); pragma INTERFACE_NAME(XM_STRING_N_COPY,"XmStringNCopy"); pragma INTERFACE(C, XM_TEXT_CLEAR_SELECTION); pragma INTERFACE_NAME(XM_TEXT_CLEAR_SELECTION,"XmTextClearSelection"); pragma INTERFACE(C, XM_TEXT_GET_INSERTION_POSITION); pragma INTERFACE_NAME(XM_TEXT_GET_INSERTION_POSITION,"XmTextGetInsertionPosition"); pragma INTERFACE(C, XM_TEXT_GET_MAX_LENGTH); pragma INTERFACE_NAME(XM_TEXT_GET_MAX_LENGTH,"XmTextGetMaxLength"); pragma INTERFACE(C, XM_TEXT_GET_SELECTION); pragma INTERFACE_NAME(XM_TEXT_GET_SELECTION,"XmTextGetSelection"); pragma INTERFACE(C, XM_TEXT_REPLACE); pragma INTERFACE_NAME(XM_TEXT_REPLACE,"XmTextReplace"); pragma INTERFACE(C, XM_TEXT_SET_INSERTION_POSITION); pragma INTERFACE_NAME(XM_TEXT_SET_INSERTION_POSITION,"XmTextSetInsertionPosition"); pragma INTERFACE(C, XM_TEXT_SET_MAX_LENGTH); pragma INTERFACE_NAME(XM_TEXT_SET_MAX_LENGTH,"XmTextSetMaxLength"); pragma INTERFACE(C, XM_TEXT_SET_SELECTION); pragma INTERFACE_NAME(XM_TEXT_SET_SELECTION,"XmTextSetSelection"); pragma INTERFACE(C, XM_TEXT_SET_SOURCE); pragma INTERFACE_NAME(XM_TEXT_SET_SOURCE,"XmTextSetSource"); pragma INTERFACE(C, XM_TEXT_SHOW_POSITION); pragma INTERFACE_NAME(XM_TEXT_SHOW_POSITION, "XmTextShowPosition"); private type XM_STRING_CONTEXT is new SYSTEM.ADDRESS; NULL_STRING_CONTEXT : constant XM_STRING_CONTEXT := XM_STRING_CONTEXT(NULL_ADDRESS); type XM_FONT_LIST is new SYSTEM.ADDRESS; NULL_FONT_LIST : constant XM_FONT_LIST := XM_FONT_LIST(NULL_ADDRESS); end XM_WIDGET_SET;