-------------------------------------------------------------------------------------- -- 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. -------------------------------------------------------------------------------------- ---------------------------------------------------------------------- -- Package spec XT PRIVATE ---------------------------------------------------------------------- -- CHANGE HISTORY -- Ver. Developer Date Description -- ---- -------- ----- --------------------------------- -- 1.0 E.J.Jones(206)477-3566 12/91 Original version for Ada Motif Bindings -- -- ----------------------------------------------------------------------------- with UNCHECKED_CONVERSION, SYSTEM; package X_TOOLKIT_PRIVATE_OSF is -- -- The X_TOOLKIT_PRIVATE package is used just to store the string constants (as -- defined by the OSF version of the X toolkit ). It is to be used by the widget -- sets to incorporate the predefined classes (it is withed/used, by xw_s.a ). -- These are needed to make the Ada equivelence of the -- #define XtNresourceName "resourceName" -- in the C interface for the X toolkit. -- ----------------------------------------------------------------------------------- -- -- RESOURCES FOR INTRINSICS -- -- -- CORE -- ANCESTORSENSITIVE : constant STRING := "ancestorSensitive" & ASCII.NUL; X : constant STRING := "x" & ASCII.NUL; Y : constant STRING := "y" & ASCII.NUL; WIDTH : constant STRING := "width" & ASCII.NUL; HEIGHT : constant STRING := "height" & ASCII.NUL; DEPTH : constant STRING := "depth" & ASCII.NUL; BACKGROUND : constant STRING := "background" & ASCII.NUL; BACKGROUNDPIXMAP : constant STRING := "backgroundPixmap" & ASCII.NUL; BORDERCOLOR : constant STRING := "borderColor" & ASCII.NUL; BORDERPIXMAP : constant STRING := "borderPixmap" & ASCII.NUL; BORDERWIDTH : constant STRING := "borderWidth" & ASCII.NUL; SENSITIVE : constant STRING := "sensitive" & ASCII.NUL; MAPPEDWHENMANAGED : constant STRING := "mappedWhenManaged" & ASCII.NUL; DESTROYCALLBACK : constant STRING := "destroyCallback" & ASCII.NUL; TRANSLATIONS : constant STRING := "translations" & ASCII.NUL; -- 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 -- ICONNAME : constant STRING := "iconName" & ASCII.NUL; ICONPIXMAP : constant STRING := "iconPixmap" & ASCII.NUL; ICONWINDOW : constant STRING := "iconWindow" & ASCII.NUL; ICONMASK : constant STRING := "iconMask" & ASCII.NUL; WINDOWGROUP : constant STRING := "windowGroup" & ASCII.NUL; SAVEUNDER : constant STRING := "saveUnder" & ASCII.NUL; TRANSIENT : constant STRING := "transient" & ASCII.NUL; POPUPCALLBACK : constant STRING := "popupCallback" & ASCII.NUL; POPDOWNCALLBACK : constant STRING := "popdownCallback" & ASCII.NUL; OVERRIDEREDIRECT : constant STRING := "overrideRedirect" & ASCII.NUL; ALLOWSHELLRESIZE : constant STRING := "allowShellResize" & ASCII.NUL; CREATEPOPUPCHILDPROC : constant STRING := "createPopupChildProc" & ASCII.NUL; TITLE : constant STRING := "title" & ASCII.NUL; ICONX : constant STRING := "iconX" & ASCII.NUL; ICONY : constant STRING := "iconY" & ASCII.NUL; INPUT : constant STRING := "input" & ASCII.NUL; ICONIC : constant STRING := "iconic" & ASCII.NUL; INITIALSTATE : constant STRING := "initialState" & ASCII.NUL; GEOMETRY : constant STRING := "geometry" & ASCII.NUL; MINWIDTH : constant STRING := "minWidth" & ASCII.NUL; MINHEIGHT : constant STRING := "minHeight" & ASCII.NUL; MAXWIDTH : constant STRING := "maxWidth" & ASCII.NUL; MAXHEIGHT : constant STRING := "maxHeight" & ASCII.NUL; WIDTHINC : constant STRING := "widthInc" & ASCII.NUL; HEIGHTINC : constant STRING := "heightInc" & ASCII.NUL; MINASPECTX : constant STRING := "minAspectX" & ASCII.NUL; MINASPECTY : constant STRING := "minAspectY" & ASCII.NUL; MAXASPECTX : constant STRING := "maxAspectX" & ASCII.NUL; MAXASPECTY : constant STRING := "maxAspectY" & ASCII.NUL; WMTIMEOUT : constant STRING := "wmTimeout" & ASCII.NUL; WAITFORWM : constant STRING := "waitforwm" & ASCII.NUL; -- -- Vendor shell resources -- KEYBOARDFOCUSPOLICY : constant STRING := "keyboardFocusPolicy" & ASCII.NUL; FOCUSPOLICYCHANGED : constant STRING := "focusPolicyChanged" & ASCII.NUL; SHELLUNITTYPE : constant STRING := "shellUnitType" & ASCII.NUL; end X_TOOLKIT_PRIVATE_OSF;