[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | "OSF/Motif" is a trademark |
| Notice: | MOTIF kit note in 7.* |
| Moderator: | GOOEY::GRASS |
|
| Created: | Mon Aug 07 1989 |
| Last Modified: | Thu Jun 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 5973 |
| Total number of notes: | 24620 |
5955.0. "(LONG!) Hang in XtAppCreateShell()?" by TAV02::AMIT (Amit Margalit) Mon Apr 21 1997 03:27
Hello!
I have a customer who has an ADA application which tends to hang at the call
to XtAppCreateShell(). I'd appreciate if anyone could take a look. It seems
that Motif is disabling ASTs, and the process has a few ASTs waiting, but
Motif sometimes forgets to re-enable the ASTs.
I am attaching the source, SDA output and Motif-ADA bindings (in that order)
procedure MOTIF_INIT (
STATUS : out GENERAL_STATUS.STATUS_TYPE;
EVENT_FLAG : out OS_FLAGS.EVENT_FLAG_TYPE) is
-- ++
--
-- Procedure MOTIF_INIT
-- ================================
--
-- TITLE:
--
-- Does all initialization of motif compannents.
--
--
-- FUNCTIONAL DESCRIPTION:
--
-- The service calls to some services of motif that initialize the
-- widgets classes.
-- It create the toplevel shell widget & starts the MRM (Motif Resource
-- Manager). It also register the alternate input to motif this input
-- channel is used to take care of external events recieved from
-- PUM process or BE components
--
--
-- AUTHOR:
--
-- Ofer K.
--
--
-- MODIFICATION HISTORY:
--
-- {line}...
--
--
-- --
MOTIF_STATUS : CONDITION_HANDLING.COND_VALUE_TYPE;
TEMP_STATUS : GENERAL_STATUS.STATUS_TYPE;
TEMP_FLAG : OS_FLAGS.EVENT_FLAG_TYPE;
-- Hierarchy file name. To change file name,
-- change definition of following constant.
--
DEFAULT_MAIN_MENU : constant string := "PM_MENU_UID" & ascii.nul;
HIERARCHY_FILE_NAME: DBTYPES_TASHTIT.RMS_FILE_NAME_TYPE := ( others => ' ' );
HIERARCHY_FILE_LIST: MOTIF.ADDRESS_ARRAY (0..0) :=
(0 => HIERARCHY_FILE_NAME'ADDRESS);
SHELL_ARG_LIST: MOTIF.ARG_TYPE_ARRAY (0..2) :=
(0 =>
(NAME => MOTIF.XmNallowShellResize'ADDRESS,
VALUE => MOTIF.XtTrue),
1 =>
(NAME => MOTIF.XmNmwmDecorations'ADDRESS,
VALUE => 2#0001010#),
2 =>
(NAME => MOTIF.XmNmwmFunctions'ADDRESS,
VALUE => 2#000100#));
ARGC: MOTIF.CARDINAL_TYPE:= 0;
ARGV: MOTIF.ADDRESS_ARRAY (0..0);
CLASS: MOTIF.MRMTYPE_TYPE;
OPTIONS: SYSTEM.UNSIGNED_LONGWORD_ARRAY (0..0);
INPUT_ID : MOTIF.XTINPUTID_TYPE;
INPUT_DATA : INTEGER := 0;
READ_PROT_KEY : M_MEC_PROT_CHECK_I.PROT_KEY_TYPE :=
M_MEC_PROT_CHECK_I.KEY_INIT (
OBJECT_OPERATION => M_MEC_PROT_CHECK_IT.READ,
PACKAGE_NAME => "PM_APP_MMI",
ROUTINE_NAME => "MOTIF_INIT",
OPERATION => "Main Menu Get");
RETRIEVE_MENU_NAME : M_ORG_PROF_IT.PROFILE_ITEMS_KIND_LIST_TYPE (1..1) :=
( 1 => M_ORG_PROF_IT.MAIN_MENU_ID );
RETURNED_MENU_NAME : M_ORG_PROF_IT.PROFILE_ITEMS_ARRAY_TYPE(1..1);
MENU_NAME_LEN : integer;
MENU_NAME_PREFIX : constant string := "ENV$RUID:";
MENU_NAME_POSTFIX : constant string := ".UID";
function TO_INT is new UNCHECKED_CONVERSION (
SOURCE => SYSTEM.UNSIGNED_LONGWORD,
TARGET => INTEGER);
begin
-- Initialize the Motif Resource Manager
--
MOTIF.MrmInitialize;
-- Initialize Digital extension to motif.
--
MOTIF.DXmInitialize;
-- Initialize the X Toolkit.
--
MOTIF.XtToolkitInitialize;
-- Create the application context
--
MOTIF.XtCreateApplicationContext (APP_CONTEXT);
-- Open the display
--
MOTIF.XtOpenDisplay (
APP_CONTEXT => APP_CONTEXT,
DISPLAY_STRING => STRING'NULL_PARAMETER,
APPLICATION_NAME => "PM_MAIN"&ASCII.NUL,
APPLICATION_CLASS => "application"&ASCII.NUL,
OPTIONS => SYSTEM.UNSIGNED_LONGWORD_ARRAY'NULL_PARAMETER,
NUM_OPTIONS => 0,
ARGC => ARGC,
ARGV => MOTIF.ADDRESS_ARRAY'NULL_PARAMETER,
RESULT => DISPLAY);
X_SERVICES.DEFAULT_DISPLAY_SET (
DISPLAY => DISPLAY );
PUM_TERMINAL_WINDOW.LOCAL_DISPLAY_SET ( DISPLAY => DISPLAY );
-- Create the application shell. This call returns the ID of the
-- "top-level" widget. The application's "main" widget must be the
-- only child of this widget.
--
-- HERE !!!
MOTIF.XtAppCreateShell (
WIDGET => TOPLEVEL_WIDGET,
APPLICATION_NAME => STRING'NULL_PARAMETER,
APPLICATION_CLASS => STRING'NULL_PARAMETER,
WIDGET_CLASS => MOTIF.applicationShellWidgetClass,
DISPLAY => DISPLAY,
ARGS => SHELL_ARG_LIST,
NUM_ARGS => SHELL_ARG_LIST'LENGTH);
begin
--
-- Retrieve the menu from MNGT
RETURNED_MENU_NAME := M_ORG_PROF_I.PROFILE_ITEMS_RETRIEVE (
PROT_KEY => READ_PROT_KEY,
USER_ID =>
PM_OBJ_PROFILE_INFO.USER_ID_GET,
ORG_ENTITY_ID =>
PM_OBJ_PROFILE_INFO.USER_ID_GET,
RET_PROFILE_ITEMS_KIND =>
RETRIEVE_MENU_NAME );
MENU_NAME_LEN := GENERAL_STRING.REAL_LEN (
RETURNED_MENU_NAME(1).MAIN_MENU_ID );
HIERARCHY_FILE_NAME(1..MENU_NAME_LEN +
MENU_NAME_PREFIX'length +
MENU_NAME_POSTFIX'length + 1 ) :=
MENU_NAME_PREFIX &
GENERAL_STRING.TRIM(RETURNED_MENU_NAME(1).MAIN_MENU_ID) &
MENU_NAME_POSTFIX & ascii.nul;
exception
when others =>
GENERAL_STATUS.STATUS_LOG (
ROUTINE => "MOTIF_INIT",
STATUS => OSM_E_MAIN_MENU_RETRIEVE,
KIND => GENERAL_STATUS.STATUS_ACTIVE_LOG,
MESSAGE => "Fetch from MNGT failed");
HIERARCHY_FILE_NAME(DEFAULT_MAIN_MENU'range) := DEFAULT_MAIN_MENU;
end;
if not OS_FILES.FILE_EXIST ( FILE_TO_SEARCH => HIERARCHY_FILE_NAME ) then
if MENU_NAME_LEN > 0 then
GENERAL_STATUS.STATUS_LOG (
ROUTINE => "MOTIF_INIT",
STATUS => OSM_E_MAIN_MENU_RETRIEVE,
KIND => GENERAL_STATUS.STATUS_ACTIVE_LOG,
MESSAGE => "File fetched not exist");
end if;
HIERARCHY_FILE_NAME(DEFAULT_MAIN_MENU'range) := DEFAULT_MAIN_MENU;
end if;
-- Open the hierarchy file
--
MOTIF.MrmOpenHierarchy (
RESULT => MOTIF_STATUS, -- Status of operation
NUM_FILES => HIERARCHY_FILE_LIST'LENGTH, -- Number of files
FILE_NAMES_LIST => HIERARCHY_FILE_LIST, -- File names
ANCILLARY_STRUCTURES_LIST => MOTIF.ADDRESS_ARRAY'NULL_PARAMETER,
HIERARCHY_ID_RETURN => MRM_HIERARCHY); -- Opened hierarchy ID
TEMP_STATUS := GENERAL_STATUS.STATUS_TYPE (MOTIF_STATUS);
if GENERAL_STATUS.SUCCESS (TEMP_STATUS) then
-- if TEMP_STATUS /= MOTIF.MrmSuccess then
null;
end if;
CALLBACK_REGISTER (STATUS => TEMP_STATUS);
--
-- Allocate event flag that will indicate when an alternate input is
-- available instead of regular MOTIF event stream input.
--
OS_FLAGS.LOCAL_FLAG_ALLOC (
STATUS => TEMP_STATUS,
EVENT_FLAG => TEMP_FLAG);
MOTIF.XTAPPADDINPUT (
RESULT => INPUT_ID,
APP_CONTEXT => APP_CONTEXT,
SOURCE => TO_INT (OS_FLAGS.SYS_EVENT_GET (TEMP_FLAG) ),
CONDITION => SYSTEM.ADDRESS_ZERO,
PROC => PM_APP_OPERATIONS.EXTERNAL_INPUT'address,
CLIENT_DATA => INPUT_DATA'address);
OS_FLAGS.EVENT_FLAG_RESET (TEMP_FLAG);
EVENT_FLAG := TEMP_FLAG;
STATUS := TEMP_STATUS;
end MOTIF_INIT;
Here is the SDA output:
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 1
Table of Contents
-----------------
Process index: 019C Name: S02_ .... 2
Process index: 019C Name: S02_ .... 3
Call Frame Information .... 4
Call Frame Information .... 5
Call Frame Information .... 6
Call Frame Information .... 7
Call Frame Information .... 8
Call Frame Information .... 9
Call Frame Information .... 10
Call Frame Information .... 11
Call Frame Information .... 12
Call Frame Information .... 13
Call Frame Information .... 14
Call Frame Information .... 15
Call Frame Information .... 16
Call Frame Information .... 17
Call Frame Information .... 18
Call Frame Information .... 19
Call Frame Information .... 20
Call Frame Information .... 21
Call Frame Information .... 22
Call Frame Information .... 23
Call Frame Information .... 24
Call Frame Information .... 25
Call Frame Information .... 26
Call Frame Information .... 27
Call Frame Information .... 28
Call Frame Information .... 29
Call Frame Information .... 30
Call Frame Information .... 31
Call Frame Information .... 32
Call Frame Information .... 33
Call Frame Information .... 34
Call Frame Information .... 35
Call Frame Information .... 36
Call Frame Information .... 37
Call Frame Information .... 38
Call Frame Information .... 39
Call Frame Information .... 40
Call Frame Information .... 41
Call Frame Information .... 42
Call Frame Information .... 43
Call Frame Information .... 44
Call Frame Information .... 45
Call Frame Information .... 46
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 2
Process index: 019C Name: S02_PM_MAIN_040 Extended PID: 2021199C
Process status: 02040001 RES,PHDRES
Required capabilities: 0000000C QUORUM,RUN
PCB address 82239BC0 JIB address 8287E0C0
PHD address 8CB44000 Swapfile disk address 00000000
Master internal PID 0046019C Subprocess count 0
Internal PID 0046019C Creator internal PID 00000000
Extended PID 2021199C Creator extended PID 00000000
State LEF Termination mailbox 0000
Previous CPU Id 00000002 Current CPU Id 00000002
Previous ASNSEQ 0000000001B91FE0 Previous ASN 000000000000001C
Current priority 9 # of threads 0000000000000000
Initial process priority 4 Delete pending count 0
Base priority 4 AST's active NONE
UIC [02001,001304] AST's remaining 190
Mutex count 0 Buffered I/O count/limit 199/200
Waiting EF cluster 0 Direct I/O count/limit 200/200
Abs time of last event 1138AAFE BUFIO byte count/limit 95776/95776
Event flag wait mask FEFFFFFF # open files allowed left 195
Swapped copy of LEFC0 00000000 Timer entries allowed left 200
Swapped copy of LEFC1 00000000 Active page table count 0
Global cluster 2 pointer 00000000 Process WS page count 979
Global cluster 3 pointer 00000000 Global WS page count 588
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 3
Process index: 019C Name: S02_PM_MAIN_040 Extended PID: 2021199C
Process header
--------------
First free P0 address 0389E000 Accumulated CPU time 000002CA
Free PTEs between P0/P1 27965 CPU since last quantum 000E
First free P1 address 7EE1E000 Subprocess quota 10
P0 page table address 8CB54000 AST's enabled KES
P1 page table address 8CAA0000 ASN sequence # 0000000001B925E5
Free page file pages 48203 AST limit 200
Page fault cluster size 4 Process header index 0110
Page table cluster size 1 Backup address vector 00003000
Flags 00000086 WSL index save area 0000305C
Direct I/O count 431 PTs having locked WSLs 4
Buffered I/O count 2645 PTs having valid WSLs 9
Limit on CPU time 00000000 Active page tables 9
Maximum page file count 50000 Maximum active PTs 12
Total page faults 5081 Guaranteed fluid WS pages 32
File limit 200 Extra dynamic WS entries 469
Timer queue limit 200 Locked WSLE counts array C228
Current page file template 00000000 Valid WSLE counts array C2C0
Local event flag cluster 0 F0000081 Local event flag cluster 1 FC000000
Process page file assignments
-----------------------------
PROCIDX SYSIDX REFCNT
0 7 473 Current assignment
1 12 403
2 5 256
3 14 256
Remaining reserved pages 111 Total reserved pages 128
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 4
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 80093DC0 SYS$SYNCH_C
Return address on stack = FFFFFFFF 806CC358
Registers saved on stack
------------------------
7EE430F0 00000000 00000001 Saved R7
7EE430F8 00000000 037D8000 Saved R8
7EE43100 00000000 0213F5F8 Saved R13
7EE43108 00000000 7EE43110 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 5
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 806CBE08
Return address on stack = FFFFFFFF 8075BB44
Registers saved on stack
------------------------
7EE43140 00000000 01F7FA20 Saved R2
7EE43148 00000000 024F2410 Saved R3
7EE43150 00000000 0388EDE8 Saved R4
7EE43158 00000000 000007B8 Saved R5 BUG$_LICENSERR
7EE43160 00000000 024F29D0 Saved R6
7EE43168 00000000 000001D8 Saved R7
7EE43170 00000000 000005E0 Saved R8 BUG$_UNSUPRTCPU
7EE43178 00000000 00000001 Saved R9
7EE43180 00000000 0212EA69 Saved R10
7EE43188 00000000 037EB850 Saved R11
7EE43190 00000000 0213F5F8 Saved R12
7EE43198 00000000 0213F5F8 Saved R13
7EE431A0 00000000 037EB850 Saved R14
7EE431A8 00000000 00000000 Saved R15
7EE431B0 00000000 7EE431C0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 6
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 8075B800
Return address on stack = FFFFFFFF 806DABCC
Registers saved on stack
------------------------
7EE431D8 00000000 01F6F020 Saved R2
7EE431E0 00000000 024F2410 Saved R3
7EE431E8 00000000 000007B8 Saved R4 BUG$_LICENSERR
7EE431F0 00000000 7EE43298 Saved R5
7EE431F8 00000000 0388E808 Saved R6
7EE43200 00000000 0388E808 Saved R7
7EE43208 00000000 00000000 Saved R8
7EE43210 00000000 00000000 Saved R9
7EE43218 00000000 7EE43220 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 7
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 806DA928
Return address on stack = FFFFFFFF 806DD604
Registers saved on stack
------------------------
7EE43250 00000000 01F6F7D8 Saved R2
7EE43258 00000000 024F2410 Saved R3
7EE43260 00000000 0000FFFF Saved R4
7EE43268 00000000 037EB6F4 Saved R5
7EE43270 00000000 7EE43550 Saved R6
7EE43278 00000000 7EE43568 Saved R7
7EE43280 00000000 7EE43290 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 8
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 806DD5A8
Return address on stack = FFFFFFFF 806DCDBC
Registers saved on stack
------------------------
7EE432A8 00000000 01F6F8C0 Saved R2
7EE432B0 00000000 024F2410 Saved R3
7EE432B8 00000000 0000FFFF Saved R4
7EE432C0 00000000 7EE432D0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 9
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 806DCD60
Return address on stack = FFFFFFFF 80916CA0
Registers saved on stack
------------------------
7EE432E8 00000000 02117270 Saved R2
7EE432F0 00000000 024F2410 Saved R3
7EE432F8 00000000 7EE43568 Saved R4
7EE43300 00000000 037EB6F4 Saved R5
7EE43308 00000000 7EE43550 Saved R6
7EE43310 00000000 7EE43568 Saved R7
7EE43318 00000000 00000000 Saved R8
7EE43320 00000000 00000000 Saved R9
7EE43328 00000000 0212EA69 Saved R10
7EE43330 00000000 7EE43340 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 10
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 80916C00
Return address on stack = FFFFFFFF 80799280
Registers saved on stack
------------------------
7EE433B0 00000000 01FB6750 Saved R2
7EE433B8 00000000 024F2410 Saved R3
7EE433C0 00000000 02117270 Saved R4
7EE433C8 00000000 00000000 Saved R5
7EE433D0 00000000 7EE43550 Saved R6
7EE433D8 00000000 7EE43568 Saved R7
7EE433E0 00000000 7EE43420 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 11
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807991B8
Return address on stack = FFFFFFFF 80799818
Registers saved on stack
------------------------
7EE43438 00000000 01FB6960 Saved R2
7EE43440 00000000 024F2410 Saved R3
7EE43448 00000000 7EE43550 Saved R4
7EE43450 00000000 00000000 Saved R5
7EE43458 00000000 7EE43560 Saved R6
7EE43460 00000000 00000000 Saved R7
7EE43468 00000000 024F2410 Saved R8
7EE43470 00000000 037EB528 Saved R9
7EE43478 00000000 0212EA69 Saved R10
7EE43480 00000000 037EB850 Saved R11
7EE43488 00000000 0213F5F8 Saved R12
7EE43490 00000000 0213F5F8 Saved R13
7EE43498 00000000 037EB850 Saved R14
7EE434A0 00000000 00000000 Saved R15
7EE434A8 00000000 7EE434C0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 12
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 80799720
Return address on stack = FFFFFFFF 809173A8
Registers saved on stack
------------------------
7EE434E0 00000000 02117200 Saved R2
7EE434E8 00000000 7EE43544 Saved R3
7EE434F0 00000000 7EE43550 Saved R4
7EE434F8 00000000 7EE43558 Saved R5
7EE43500 00000000 7EE43520 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 13
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 80916F80
Return address on stack = FFFFFFFF 808E526C
Registers saved on stack
------------------------
7EE43578 00000000 02110360 Saved R2
7EE43580 00000000 037EA378 Saved R3
7EE43588 00000000 037EB318 Saved R4
7EE43590 00000000 000001AC Saved R5
7EE43598 00000000 000001AC Saved R6
7EE435A0 00000000 7EE43750 Saved R7
7EE435A8 00000000 7EE43BA8 Saved R8
7EE435B0 00000000 00000003 Saved R9
7EE435B8 00000000 00000000 Saved R10
7EE435C0 00000000 00000000 Saved R11
7EE435C8 00000000 00000000 Saved R12
7EE435D0 00000000 00000000 Saved R13
7EE435D8 00000000 037EA378 Saved R14
7EE435E0 00000000 02141400 Saved R15
7EE435E8 00000000 7EE43600 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 14
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 808E5128
Return address on stack = FFFFFFFF 807A05E0
Registers saved on stack
------------------------
7EE43620 00000000 037EA378 Saved R2
7EE43628 00000000 7EE43BA8 Saved R3
7EE43630 00000000 00000000 Saved R4
7EE43638 00000000 000001AC Saved R5
7EE43640 00000000 000001AC Saved R6
7EE43648 00000000 7EE43750 Saved R7
7EE43650 00000000 7EE43BA8 Saved R8
7EE43658 00000000 7EE43660 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 15
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A0AC0
Registers saved on stack
------------------------
7EE43678 00000000 01FB7D98 Saved R2
7EE43680 00000000 00000000 Saved R3
7EE43688 00000000 037EA330 Saved R15
7EE43690 00000000 7EE436A0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 16
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A06D8
Return address on stack = FFFFFFFF 807A1404
Registers saved on stack
------------------------
7EE43A78 00000000 01FB7E30 Saved R2
7EE43A80 00000000 024F2C30 Saved R3
7EE43A88 00000000 00000000 Saved R4
7EE43A90 00000000 00000000 Saved R5
7EE43A98 00000000 024F2C30 Saved R6
7EE43AA0 00000000 01FC83D0 Saved R7
7EE43AA8 00000000 00000000 Saved R8
7EE43AB0 00000000 037E9D07 Saved R9
7EE43AB8 00000000 00000000 Saved R10
7EE43AC0 00000000 00000000 Saved R11
7EE43AC8 00000000 00000000 Saved R12
7EE43AD0 00000000 00000000 Saved R13
7EE43AD8 00000000 037E9EC0 Saved R14
7EE43AE0 00000000 024EF190 Saved R15
7EE43AE8 00000000 7EE43B10 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 17
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A12B8
Return address on stack = FFFFFFFF 807A1480
Registers saved on stack
------------------------
7EE43B30 00000000 02110060 Saved R2
7EE43B38 00000000 024F2C30 Saved R3
7EE43B40 00000000 7EE446A8 Saved R4
7EE43B48 00000000 7EE43DB8 Saved R5
7EE43B50 00000000 037E9EC0 Saved R6
7EE43B58 00000000 024F2410 Saved R15
7EE43B60 00000000 7EE43B80 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 18
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A1458
Return address on stack = FFFFFFFF 808E64F8
Registers saved on stack
------------------------
7EE43B90 00000000 7EE43BA0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 19
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 808E6430
Return address on stack = FFFFFFFF 808E6590
Registers saved on stack
------------------------
7EE43BD8 00000000 02113360 Saved R2
7EE43BE0 00000000 01FC85B0 Saved R15
7EE43BE8 00000000 7EE43BF0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 20
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 808E6560
Return address on stack = FFFFFFFF 80902E50
Registers saved on stack
------------------------
7EE43C00 00000000 7EE43C10 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 21
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 80902E00
Return address on stack = FFFFFFFF 8090B500
Registers saved on stack
------------------------
7EE43C68 00000000 021153A8 Saved R2
7EE43C70 00000000 037E9EC0 Saved R3
7EE43C78 00000000 7EE446A8 Saved R4
7EE43C80 00000000 7EE43DB8 Saved R5
7EE43C88 00000000 037E9EC0 Saved R6
7EE43C90 00000000 01FC83D0 Saved R7
7EE43C98 00000000 00000000 Saved R8
7EE43CA0 00000000 037E9D07 Saved R9
7EE43CA8 00000000 7EE43CC0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 22
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 8090B288
Return address on stack = FFFFFFFF 8090B788
Registers saved on stack
------------------------
7EE43CD0 00000000 02115360 Saved R2
7EE43CD8 00000000 037E9EC0 Saved R3
7EE43CE0 00000000 021153A8 Saved R4
7EE43CE8 00000000 01FC83D0 Saved R5
7EE43CF0 00000000 00000148 Saved R6
7EE43CF8 00000000 7EE440E0 Saved R7
7EE43D00 00000000 7EE446A8 Saved R8
7EE43D08 00000000 00000003 Saved R9
7EE43D10 00000000 00000000 Saved R10
7EE43D18 00000000 7EE43D20 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 23
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 8090B6D0
Return address on stack = FFFFFFFF 80905778
Registers saved on stack
------------------------
7EE43D40 00000000 02113B48 Saved R2
7EE43D48 00000000 037E9EC0 Saved R3
7EE43D50 00000000 01FC8360 Saved R4
7EE43D58 00000000 7EE43D60 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 24
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 809056B0
Return address on stack = FFFFFFFF 807A05E0
Registers saved on stack
------------------------
7EE43D80 00000000 037E9EC0 Saved R2
7EE43D88 00000000 7EE446A8 Saved R3
7EE43D90 00000000 00000000 Saved R4
7EE43D98 00000000 00000148 Saved R5
7EE43DA0 00000000 00000148 Saved R6
7EE43DA8 00000000 7EE43DB0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 25
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43DC8 00000000 037E9EC0 Saved R2
7EE43DD0 00000000 7EE446A8 Saved R3
7EE43DD8 00000000 01FC86E0 Saved R15
7EE43DE0 00000000 7EE43DF0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 26
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43E08 00000000 037E9EC0 Saved R2
7EE43E10 00000000 7EE446A8 Saved R3
7EE43E18 00000000 01FC6A58 Saved R15
7EE43E20 00000000 7EE43E30 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 27
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43E48 00000000 037E9EC0 Saved R2
7EE43E50 00000000 7EE446A8 Saved R3
7EE43E58 00000000 01FC8A30 Saved R15
7EE43E60 00000000 7EE43E70 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 28
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43E88 00000000 037E9EC0 Saved R2
7EE43E90 00000000 7EE446A8 Saved R3
7EE43E98 00000000 01FC8430 Saved R15
7EE43EA0 00000000 7EE43EB0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 29
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43EC8 00000000 037E9EC0 Saved R2
7EE43ED0 00000000 7EE446A8 Saved R3
7EE43ED8 00000000 01FC8770 Saved R15
7EE43EE0 00000000 7EE43EF0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 30
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43F08 00000000 037E9EC0 Saved R2
7EE43F10 00000000 7EE446A8 Saved R3
7EE43F18 00000000 01FC8AB0 Saved R15
7EE43F20 00000000 7EE43F30 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 31
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43F48 00000000 037E9EC0 Saved R2
7EE43F50 00000000 7EE446A8 Saved R3
7EE43F58 00000000 01FC8970 Saved R15
7EE43F60 00000000 7EE43F70 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 32
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43F88 00000000 037E9EC0 Saved R2
7EE43F90 00000000 7EE446A8 Saved R3
7EE43F98 00000000 01FC8810 Saved R15
7EE43FA0 00000000 7EE43FB0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 33
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A05B4
Registers saved on stack
------------------------
7EE43FC8 00000000 037E9EC0 Saved R2
7EE43FD0 00000000 7EE446A8 Saved R3
7EE43FD8 00000000 01FC8360 Saved R15
7EE43FE0 00000000 7EE43FF0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 34
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A0558
Return address on stack = FFFFFFFF 807A0AC0
Registers saved on stack
------------------------
7EE44008 00000000 01FB7D98 Saved R2
7EE44010 00000000 00000000 Saved R3
7EE44018 00000000 037E9D98 Saved R15
7EE44020 00000000 7EE44030 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 35
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A06D8
Return address on stack = FFFFFFFF 807A1404
Registers saved on stack
------------------------
7EE44408 00000000 01FB7E30 Saved R2
7EE44410 00000000 024F2C30 Saved R3
7EE44418 00000000 00000000 Saved R4
7EE44420 00000000 00000000 Saved R5
7EE44428 00000000 024F2C30 Saved R6
7EE44430 00000000 7EE447C0 Saved R7
7EE44438 00000000 00000001 Saved R8
7EE44440 00000000 00000001 Saved R9
7EE44448 00000000 01A69120 Saved R10
7EE44450 00000000 00000060 Saved R11
7EE44458 00000000 7EE45AA8 Saved R12
7EE44460 00000000 000A3EC0 Saved R13
7EE44468 00000000 00000000 Saved R14
7EE44470 00000000 024EF190 Saved R15
7EE44478 00000000 7EE444A0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 36
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A12B8
Return address on stack = FFFFFFFF 807A1480
Registers saved on stack
------------------------
7EE444C0 00000000 0009B0F0 Saved R2
7EE444C8 00000000 040E0001 Saved R3
7EE444D0 00000000 01C00000 Saved R4
7EE444D8 00000000 0000000A Saved R5
7EE444E0 00000000 00000001 Saved R6
7EE444E8 00000000 7EEF7DA0 Saved R15
7EE444F0 00000000 7EE44510 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 37
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 807A1458
Return address on stack = 00000000 00A43D30
Registers saved on stack
------------------------
7EE44520 00000000 7EE44540 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 38
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 00A43930
Handler at 00000000 01A65D80, Data = 00000000 00000008
Return address on stack = 00000000 009BE5CC
Registers saved on stack
------------------------
7EE44FE0 00000000 00093F00 Saved R2
7EE44FE8 00000000 017F80C4 Saved R3
7EE44FF0 00000000 7EE45040 Saved R4
7EE44FF8 00000000 0001C618 Saved R5 REGISTER_QUEUE_OBJECT+00158
7EE45000 00000000 01AC2640 Saved R6
7EE45008 00000000 00000001 Saved R7
7EE45010 00000000 00000001 Saved R8
7EE45018 00000000 00000001 Saved R9
7EE45020 00000000 01A69120 Saved R10
7EE45028 00000000 00000060 Saved R11
7EE45030 00000000 7EE45AA8 Saved R12
7EE45038 00000000 7EE45040 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 39
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 009BE3A0
Handler at 00000000 01A65D80, Data = 00000000 00000008
Return address on stack = 00000000 001A0128
Registers saved on stack
------------------------
7EE457C8 00000000 00018AA0 Saved R2 INI$KFE_LOCK_NAME+00860
7EE457D0 00000000 0250A798 Saved R3
7EE457D8 00000000 01AC2618 Saved R4
7EE457E0 00000000 0001C618 Saved R5 REGISTER_QUEUE_OBJECT+00158
7EE457E8 00000000 01AC2640 Saved R6
7EE457F0 00000000 00000001 Saved R7
7EE457F8 00000000 00000001 Saved R8
7EE45800 00000000 00000001 Saved R9
7EE45808 00000000 01A69120 Saved R10
7EE45810 00000000 00000060 Saved R11
7EE45818 00000000 7EE45AA8 Saved R12
7EE45820 00000000 000A3EC0 Saved R13
7EE45828 00000000 00000000 Saved R14
7EE45830 00000000 7EEF7DA0 Saved R15
7EE45838 00000000 7EE45840 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 40
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 001A0104
Return address on stack = 00000000 00AAA030
Registers saved on stack
------------------------
7EE45850 00000000 7EE45870 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 41
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 00AAA2C0
Return address on stack = FFFFFFFF 804417F4
Registers saved on stack
------------------------
7EE458A8 00000000 0250A798 Saved R12
7EE458B0 00000000 01200170 Saved R13
7EE458B8 00000000 7EE458D0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 42
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 80446BDC
Return address on stack = 00000000 001A00E0
Registers saved on stack
------------------------
7EE458E0 00000000 000A3EC0 Saved R13
7EE458E8 00000000 7EE458F0 Saved R29
Result: 32-bit sign extended integer returned in register R0
Argument List:
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 43
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 001A0070
Return address on stack = 00000000 01AB6E18
Registers saved on stack
------------------------
7EE45900 00000000 01A69120 Saved R2
7EE45908 00000000 00000001 Saved R3
7EE45910 00000000 7EE45A00 Saved R4
7EE45918 00000000 7EE45970 Saved R5
7EE45920 00000000 7EE45930 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 44
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 01AB6DB8
Handler at 00000000 01165460, Data = 00000000 00000010
Return address on stack = 00000000 01AB6594
Registers saved on stack
------------------------
7EE45960 00000000 7EE45970 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 45
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 01AB6140
Return address on stack = 00000000 01AA14D0
Registers saved on stack
------------------------
7EE459A0 00000000 01A665C0 Saved R2 GET_LOC_C+00E38
7EE459A8 00000000 01AC20F8 Saved R3
7EE459B0 00000000 7FFBF818 Saved R4 MMG$IMGHDRBUF+00018
7EE459B8 00000000 7FFBF938 Saved R5 MMG$IMGHDRBUF+00138
7EE459C0 00000000 7FF9C9E0 Saved R6
7EE459C8 00000000 7FF9C9E0 Saved R7
7EE459D0 00000000 7FF9C1F8 Saved R8
7EE459D8 00000000 7FF9C400 Saved R9
7EE459E0 00000000 7FF9D228 Saved R10
7EE459E8 00000000 7FFBE3E0 Saved R11 CTL$AG_CLIDATA+00180
7EE459F0 00000000 7EE45AA8 Saved R12
7EE459F8 00000000 7EE45A00 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 46
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 01AA1450
Return address on stack = 00000000 001A005C
Registers saved on stack
------------------------
7EE45A28 00000000 7FFBF880 Saved R2 MMG$IMGHDRBUF+00080
7EE45A30 00000000 7EF43DD7 Saved R3
7EE45A38 00000000 7EE45A40 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 47
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 001A0000
Return address on stack = 00000000 00AAA030
Registers saved on stack
------------------------
7EE45A50 00000000 7EE45AA0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 48
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 00AAA190
Return address on stack = FFFFFFFF 9496E170 SYS$IMGSTA_C+000D0
Registers saved on stack
------------------------
7EE45AD8 00000000 00000000 Saved R12
7EE45AE0 FFFFFFFF 94971910 Saved R13 SYS$IMGSTA
7EE45AE8 00000000 7EE45B30 Saved R29
Result: 32-bit sign extended integer returned in register R0
Argument List:
00000000 00303089 in memory (64-bit integer)
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 49
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: FFFFFFFF 9496E0A0 SYS$IMGSTA_C
Handler at FFFFFFFF 94971900
Return address on stack = 00000000 7EF20160
Registers saved on stack
------------------------
7EE45B80 00000000 00000000 Saved R2
7EE45B88 00000000 7FF9C9E0 Saved R7
7EE45B90 00000000 7EEF8900 Saved R13
7EE45B98 00000000 7EE45BB0 Saved R29
OpenVMS (TM) Alpha Operating System, Version V6.2 -- System Dump Analysis
31-MAR-1997 12:03:35.78. Page 50
Call Frame Information
Stack Frame Procedure Descriptor
Flags: Base Register = FP, No Jacket, Native
Procedure Entry: 00000000 7EF1FFB8
Handler at 00000000 7EEF88F0
Return address on stack = 00000000 7EF1FFA4
Registers saved on stack
------------------------
7EE45BD0 00000000 00000001 Saved R4
7EE45BD8 00000000 7FFBF800 Saved R5 MMG$IMGHDRBUF
7EE45BE0 00000000 7EEF88E0 Saved R13
7EE45BE8 00000000 00000000 Saved R29
Just for safety, here are the motif bindings:
--
-- This the AXP version for MOTIF package
--******************************************************************************
**************************************
-- Created 14-OCT-1991 13:57:08 by VAX SDL V3.2-12 Source: 3-MAR-1991
17:54:55 GMF$:[GMF.DECMOTIF.SRC.LATEST.BINDI
--******************************************************************************
**************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with X_OLD;
package MOTIF is
-- renaming X to be X_OLD to maintain compatbility with old X/MOTIF binding.
package X renames X_OLD ;
-- module MOTIF IDENT V1.0
-- Declare types defined in other packages
--
subtype EVENT_TYPE is X.EVENT_TYPE;
subtype DISPLAY_TYPE is X.DISPLAY_TYPE;
subtype XrmValueList_TYPE is ADDRESS;
subtype TIME_TYPE is X.TIME_TYPE;
subtype ATOM_TYPE is X.ATOM_ID_TYPE;
subtype KEYSYM_TYPE is X.KEYSYM_ID_TYPE;
subtype REGION_TYPE is X.REGION_ID_TYPE;
subtype WINDOW_TYPE is X.WINDOW_ID_TYPE;
subtype XRMOPTIONDESCLIST_TYPE is ADDRESS;
type XRMDATABASE_TYPE is new UNSIGNED_LONGWORD;
subtype RESOURCELIST_TYPE is ADDRESS;
subtype GC_TYPE is X.GC_ID_TYPE;
subtype XSELECTIONREQUESTEVENT_TYPE is X.SEL_REQUEST_EVENT_TYPE;
subtype CURSOR_TYPE is X.CURSOR_ID_TYPE;
subtype XFONTPTR_TYPE is X.FONT_ID_TYPE;
type XRECTANGLE_TYPE is new UNSIGNED_LONGWORD;
subtype SCREEN_TYPE is X.SCREEN_TYPE;
type XGCVALUES_TYPE is array (NATURAL range <>) of GC_TYPE;
type ADDRESS_ARRAY is array (NATURAL range <>) of ADDRESS;
subtype PIXMAP_TYPE is X.PIXMAP_ID_TYPE;
subtype XBUTTONPRESSEDEVENT_TYPE is X.BUTTON_EVENT_TYPE;
subtype COLORMAP_TYPE is X.COLORMAP_ID_TYPE;
subtype PIXEL_RETURN_TYPE is UNSIGNED_LONGWORD;
subtype FONT_TYPE is X.FONT_ID_TYPE;
type XIMAGE_TYPE is new UNSIGNED_LONGWORD;
-- $XConsortium: Intrinsic.h,v 1.139 90/08/22 14:21:01 swick Exp $
--> typedef char *String;
subtype XTSTRING_TYPE is ADDRESS;
--> #define NULL 0
XTNULL : constant := 0;
--> #define FALSE 0
XTFALSE : constant := 0;
--> #define TRUE 1
XTTRUE : constant := 1;
subtype XRMVALUEPTR_TYPE is ADDRESS;
subtype XRMVALUE_TYPE is UNSIGNED_LONGWORD;
subtype KEYCODE_TYPE is UNSIGNED_LONGWORD;
subtype XGCVALUE_TYPE is UNSIGNED_LONGWORD;
type XRMVALUEPTR_TYPE_ARRAY is array (NATURAL range <>) of XRMVALUEPTR_TYPE;
type XRMVALUE_TYPE_ARRAY is array (NATURAL range <>) of XRMVALUE_TYPE;
type XGCVALUE_TYPE_ARRAY is array (NATURAL range <>) of XGCVALUE_TYPE;
type ATOM_TYPE_ARRAY is array (NATURAL range <>) of ATOM_TYPE;
--> #define XtNumber(arr) ((Cardinal) (sizeof(arr) / sizeof(arr[0])))
--> TBD
--> typedef struct _WidgetRec *Widget;
subtype WIDGET_TYPE is ADDRESS;
--> typedef Widget *WidgetList;
subtype WIDGETLIST_TYPE is ADDRESS;
type WIDGET_TYPE_ARRAY is array (NATURAL range <>) of WIDGET_TYPE;
--> typedef struct _WidgetClassRec *WidgetClass;
subtype WIDGETCLASS_TYPE is ADDRESS;
--> typedef struct _CompositeRec *CompositeWidget;
subtype COMPOSITEWIDGET_TYPE is ADDRESS;
--> typedef struct _XtActionsRec *XtActionList;
subtype XTACTIONLIST_TYPE is ADDRESS;
--> typedef struct _XtEventRec *XtEventTable;
subtype XTEVENTTABLE_TYPE is ADDRESS;
--> typedef struct _XtBoundAccActionRec *XtBoundAccActions;
subtype XTBOUNDACCACTIONS_TYPE is ADDRESS;
--> typedef struct _XtAppStruct *XtAppContext;
subtype XTAPPCONTEXT_TYPE is ADDRESS;
--> typedef unsigned long XtValueMask;
subtype XTVALUEMASK_TYPE is UNSIGNED_LONGWORD;
--> typedef unsigned long XtIntervalId;
subtype XTINTERVALID_TYPE is UNSIGNED_LONGWORD;
--> typedef unsigned long XtInputId;
subtype XTINPUTID_TYPE is UNSIGNED_LONGWORD;
--> typedef unsigned long XtWorkProcId;
subtype XTWORKPROCID_TYPE is UNSIGNED_LONGWORD;
--> typedef unsigned int XtGeometryMask;
subtype XTGEOMETRYMASK_TYPE is UNSIGNED_LONGWORD;
--> typedef unsigned long XtGCMask;
subtype XTGCMASK_TYPE is UNSIGNED_LONGWORD;
--> typedef unsigned long Pixel;
subtype PIXEL_TYPE is UNSIGNED_LONGWORD;
--> typedef int XtCacheType;
subtype XTCACHETYPE_TYPE is INTEGER;
--> #define XtCacheNone 0x001
XTCACHENONE : constant := 1;
--> #define XtCacheAll 0x002
XTCACHEALL : constant := 2;
--> #define XtCacheByDisplay 0x003
XTCACHEBYDISPLAY : constant := 3;
--> #define XtCacheRefCount 0x100
XTCACHEREFCOUNT : constant := 256;
--> typedef char Boolean;
subtype XTBOOLEAN_TYPE is SHORT_SHORT_INTEGER;
--> typedef long XtArgVal;
subtype XTARGVAL_TYPE is INTEGER;
--> typedef unsigned char XtEnum;
subtype XTENUM_TYPE is UNSIGNED_BYTE;
--> typedef unsigned int Cardinal;
subtype CARDINAL_TYPE is UNSIGNED_LONGWORD;
--> typedef unsigned short ShortCard;
subtype SHORTCARD_TYPE is UNSIGNED_WORD;
--> typedef unsigned short Dimension;
subtype DIMENSION_TYPE is UNSIGNED_WORD;
--> typedef short Position;
subtype POSITION_TYPE is SHORT_INTEGER;
--> typedef char* XtPointer;
subtype XTPOINTER_TYPE is ADDRESS;
--> typedef XtPointer Opaque;
subtype OPAQUE_TYPE is XTPOINTER_TYPE;
--> typedef struct _TranslationData *XtTranslations;
subtype XTTRANSLATIONS_TYPE is ADDRESS;
--> typedef struct _TranslationData *XtAccelerators;
subtype XTACCELERATORS_TYPE is ADDRESS;
--> typedef unsigned int Modifiers;
subtype MODIFIERS_TYPE is UNSIGNED_LONGWORD;
--> typedef void (*XtActionProc)();
subtype XTACTIONPROC_TYPE is ADDRESS;
--> typedef XtActionProc* XtBoundActions;
subtype XTBOUNDACTIONS_TYPE is ADDRESS;
--> typedef struct _XtActionsRec{
--> XtString string;
--> XtActionProc proc;
--> } XtActionsRec;
type XTACTIONSREC_TYPE is
record
STRNG : XTSTRING_TYPE;
PROC : XTACTIONPROC_TYPE;
end record;
for XTACTIONSREC_TYPE use
record
STRNG at 0 range 0 .. 31;
PROC at 4 range 0 .. 31;
end record;
for XTACTIONSREC_TYPE'SIZE use 64;
XTACTIONSREC_TYPE_INIT : constant XTACTIONSREC_TYPE :=
(STRNG => ADDRESS_ZERO,
PROC => ADDRESS_ZERO);
--> typedef enum {
--> address mode parameter representation */
--> ------------ ------------------------ */
--> XtAddress, /* address */
--> XtBaseOffset, /* offset */
--> XtImmediate, /* constant */
--> XtResourceString, /* resource name string */
--> XtResourceQuark, /* resource name quark */
--> XtWidgetBaseOffset, /* offset from ancestor */
--> XtProcedureArg /* procedure to invoke */
--> } XtAddressMode;
subtype XTADDRESSMODE_TYPE is UNSIGNED_LONGWORD;
XTADDRESS : constant := 0;
XTBASEOFFSET : constant := 1;
XTIMMEDIATE : constant := 2;
XTRESOURCESTRING : constant := 3;
XTWIDGETBASEOFFSET : constant := 4;
XTPROCEDUREARG : constant := 5;
--> typedef struct {
--> XtAddressMode address_mode;
--> XtPointer address_id;
--> Cardinal size;
--> } XtConvertArgRec, *XtConvertArgList;
type XTCONVERTARGREC_TYPE is
record
ADDRESS_MODE : XTADDRESSMODE_TYPE;
ADDRESS_ID : XTPOINTER_TYPE;
SIZE : CARDINAL_TYPE;
end record;
for XTCONVERTARGREC_TYPE use
record
ADDRESS_MODE at 0 range 0 .. 31;
ADDRESS_ID at 4 range 0 .. 31;
SIZE at 8 range 0 .. 31;
end record;
for XTCONVERTARGREC_TYPE'SIZE use 96;
XTCONVERTARGREC_TYPE_INIT : constant XTCONVERTARGREC_TYPE :=
(ADDRESS_MODE => 0,
ADDRESS_ID => ADDRESS_ZERO,
SIZE => 0);
subtype XTCONVERTARGLIST_TYPE is ADDRESS;
type XTCONVERTARGREC_TYPE_ARRAY is array (NATURAL range <>) of
XtConvertArgRec_TYPE;
--> typedef void (*XtConvertArgProc)();
subtype XTCONVERTARGPROC_TYPE is ADDRESS;
--> typedef struct {
--> XtGeometryMask request_mode;
--> Position x, y;
--> Dimension width, height, border_width;
--> Widget sibling;
--> int stack_mode; /* Above, Below, TopIf, BottomIf, Opposite, DontChange
*/
--> } XtWidgetGeometry;
type XTWIDGETGEOMETRY_TYPE is
record
REQUEST_MODE : XTGEOMETRYMASK_TYPE;
X : POSITION_TYPE;
Y : POSITION_TYPE;
WIDTH : DIMENSION_TYPE;
HEIGHT : DIMENSION_TYPE;
BORDER_WIDTH : DIMENSION_TYPE;
SIBLING : WIDGET_TYPE;
STACK_MODE : INTEGER;
end record;
for XTWIDGETGEOMETRY_TYPE use
record
REQUEST_MODE at 0 range 0 .. 31;
X at 4 range 0 .. 15;
Y at 6 range 0 .. 15;
WIDTH at 8 range 0 .. 15;
HEIGHT at 10 range 0 .. 15;
BORDER_WIDTH at 12 range 0 .. 15;
SIBLING at 16 range 0 .. 31;
STACK_MODE at 20 range 0 .. 31;
end record;
for XTWIDGETGEOMETRY_TYPE'SIZE use 192;
XTWIDGETGEOMETRY_TYPE_INIT : constant XTWIDGETGEOMETRY_TYPE :=
(REQUEST_MODE => 0,
X => 0,
Y => 0,
WIDTH => 0,
HEIGHT => 0,
BORDER_WIDTH => 0,
SIBLING => ADDRESS_ZERO,
STACK_MODE => 0);
--> #define XtCWQueryOnly (1 << 7)
XTCWQUERYONLY : constant := 128;
--> #define XtSMDontChange 5
XTSMDONTCHANGE : constant := 5;
--> typedef void (*XtConverter)(
--> #if NeedFunctionPrototypes
--> XrmValue* /* args */,
--> Cardinal* /* num_args */,
--> XrmValue* /* from */,
--> XrmValue* /* to */
--> #endif
--> );
subtype XTCONVERTER_TYPE is ADDRESS;
--> typedef Boolean (*XtTypeConverter)(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> XrmValue* /* args */,
--> Cardinal* /* num_args */,
--> XrmValue* /* from */,
--> XrmValue* /* to */,
--> XtPointer* /* converter_data */
--> #endif
--> );
subtype XTTYPECONVERTER_TYPE is ADDRESS;
--> typedef void (*XtDestructor)(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XrmValue* /* to */,
--> XtPointer /* converter_data */,
--> XrmValue* /* args */,
--> Cardinal* /* num_args */
--> #endif
--> );
subtype XTDESTRUCTOR_TYPE is ADDRESS;
--> typedef Opaque XtCacheRef;
subtype XTCACHEREF_TYPE is XTPOINTER_TYPE;
--> typedef Opaque XtActionHookId;
subtype XTACTIONHOOKID_TYPE is XTPOINTER_TYPE;
--> typedef void (*XtActionHookProc)(
--> #if NeedFunctionPrototypes
--> Widget /* w */,
--> XtPointer /* client_data */,
--> String /* action_name */,
--> XEvent* /* event */,
--> String* /* params */,
--> Cardinal* /* num_params */
--> #endif
--> );
subtype XTACTIONHOOKPROC_TYPE is ADDRESS;
--> typedef void (*XtKeyProc)(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> #if NeedWidePrototypes
--> /* KeyCode */ int /* keycode */,
--> #else
--> KeyCode /* keycode */,
--> #endif /* NeedWidePrototypes */
--> Modifiers /* modifiers */,
--> Modifiers* /* modifiers_return */,
--> KeySym* /* keysym_return */
--> #endif
--> );
subtype XTKEYPROC_TYPE is ADDRESS;
--> typedef void (*XtCaseProc)(
--> #if NeedFunctionPrototypes
--> Display* /* display */,
--> KeySym /* keysym */,
--> KeySym* /* lower_return */,
--> KeySym* /* upper_return */
--> #endif
--> );
subtype XTCASEPROC_TYPE is ADDRESS;
--> typedef void (*XtEventHandler)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */,
--> XEvent* /* event */,
--> Boolean* /* continue_to_dispatch */
--> #endif
--> );
subtype XTEVENTHANDLER_TYPE is ADDRESS;
--> typedef unsigned long EventMask;
subtype EVENTMASK_TYPE is UNSIGNED_LONGWORD;
--> typedef enum {XtListHead, XtListTail } XtListPosition;
subtype XTLISTPOSITION_TYPE is UNSIGNED_LONGWORD;
XTLISTHEAD : constant := 0;
XTLISTTAIL : constant := 1;
--> typedef unsigned long XtInputMask;
subtype XTINPUTMASK_TYPE is UNSIGNED_LONGWORD;
--> #define XtInputNoneMask 0L
XTINPUTNONEMASK : constant := 0;
--> #define XtInputReadMask (1L<<0)
XTINPUTREADMASK : constant := 1;
--> #define XtInputWriteMask (1L<<1)
XTINPUTWRITEMASK : constant := 2;
--> #define XtInputExceptMask (1L<<2)
XTINPUTEXCEPTMASK : constant := 4;
--> typedef void (*XtTimerCallbackProc)(
--> #if NeedFunctionPrototypes
--> XtPointer /* closure */,
--> XtIntervalId* /* id */
--> #endif
--> );
subtype XTTIMERCALLBACKPROC_TYPE is ADDRESS;
--> typedef void (*XtInputCallbackProc)(
--> #if NeedFunctionPrototypes
--> XtPointer /* closure */,
--> int* /* source */,
--> XtInputId* /* id */
--> #endif
--> );
subtype XTINPUTCALLBACKPROC_TYPE is ADDRESS;
--> typedef struct {
--> String name;
--> XtArgVal value;
--> } Arg, *ArgList;
type ARG_TYPE is
record
NAME : ADDRESS;
VALUE : XTARGVAL_TYPE;
end record;
for ARG_TYPE use
record
NAME at 0 range 0 .. 31;
VALUE at 4 range 0 .. 31;
end record;
for ARG_TYPE'SIZE use 64;
ARG_TYPE_INIT : constant ARG_TYPE :=
(NAME => ADDRESS_ZERO,
VALUE => 0);
subtype ARGLIST_TYPE is ADDRESS;
type ARG_TYPE_ARRAY is array (NATURAL range <>) of Arg_TYPE;
--> typedef XtPointer XtVarArgsList;
subtype XTVARARGSLIST_TYPE is XTPOINTER_TYPE;
--> typedef void (*XtCallbackProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */, /* data the application
registered */
--> XtPointer /* call_data */ /* callback specific data */
--> #endif
--> );
subtype XTCALLBACKPROC_TYPE is ADDRESS;
--> typedef struct _XtCallbackRec {
--> XtCallbackProc callback;
--> XtPointer closure;
--> } XtCallbackRec, *XtCallbackList;
type XTCALLBACKREC_TYPE is
record
CALLBACK : XTCALLBACKPROC_TYPE;
CLOSURE : XTPOINTER_TYPE;
end record;
for XTCALLBACKREC_TYPE use
record
CALLBACK at 0 range 0 .. 31;
CLOSURE at 4 range 0 .. 31;
end record;
for XTCALLBACKREC_TYPE'SIZE use 64;
XTCALLBACKREC_TYPE_INIT : constant XTCALLBACKREC_TYPE :=
(CALLBACK => ADDRESS_ZERO,
CLOSURE => ADDRESS_ZERO);
subtype XTCALLBACKLIST_TYPE is ADDRESS;
type XTCALLBACKREC_TYPE_ARRAY is array (NATURAL range <>) of
XTCALLBACKREC_TYPE;
--> typedef enum {
--> XtCallbackNoList,
--> XtCallbackHasNone,
--> XtCallbackHasSome
--> } XtCallbackStatus;
subtype XTCALLBACKSTATUS_TYPE is UNSIGNED_LONGWORD;
XTCALLBACKNOLIST : constant := 0;
XTCALLBACKHASNONE : constant := 1;
XTCALLBACKHASSOME : constant := 2;
--> typedef enum {
--> XtGeometryYes, /* Request accepted. */
--> XtGeometryNo, /* Request denied. */
--> XtGeometryAlmost, /* Request denied, but willing to take
replyBox. */
--> XtGeometryDone /* Request accepted and done. */
--> } XtGeometryResult;
subtype XTGEOMETRYRESULT_TYPE is UNSIGNED_LONGWORD;
XTGEOMETRYYES : constant := 0;
XTGEOMETRYNO : constant := 1;
XTGEOMETRYALMOST : constant := 2;
XTGEOMETRYDONE : constant := 3;
--> typedef enum {XtGrabNone, XtGrabNonexclusive, XtGrabExclusive} XtGrabKind;
subtype XTGRABKIND_TYPE is UNSIGNED_LONGWORD;
XTGRABNONE : constant := 0;
XTGRABNONEXCLUSIVE : constant := 1;
XTGRABEXCLUSIVE : constant := 2;
--> typedef struct {
--> Widget shell_widget;
--> Widget enable_widget;
--> } XtPopdownIDRec, *XtPopdownID;
type XTPOPDOWNIDREC_TYPE is
record
SHELL_WIDGET : WIDGET_TYPE;
ENABLE_WIDGET : WIDGET_TYPE;
end record;
for XTPOPDOWNIDREC_TYPE use
record
SHELL_WIDGET at 0 range 0 .. 31;
ENABLE_WIDGET at 4 range 0 .. 31;
end record;
for XTPOPDOWNIDREC_TYPE'SIZE use 64;
XTPOPDOWNIDREC_TYPE_INIT : constant XTPOPDOWNIDREC_TYPE :=
(SHELL_WIDGET => ADDRESS_ZERO,
ENABLE_WIDGET => ADDRESS_ZERO);
subtype XTPOPDOWNID_TYPE is ADDRESS;
--> typedef struct _XtResource {
--> String resource_name; /* Resource name */
--> String resource_class; /* Resource class */
--> String resource_type; /* Representation type desired */
--> Cardinal resource_size; /* Size in bytes of representation */
--> Cardinal resource_offset;/* Offset from base to put resource value */
--> String default_type; /* representation type of specified default */
--> XtPointer default_addr; /* Address of default resource
*/
--> } XtResource, *XtResourceList;
type XTRESOURCE_TYPE is
record
RESOURCE_NAME : XTSTRING_TYPE;
RESOURCE_CLASS : XTSTRING_TYPE;
RESOURCE_TYPE : XTSTRING_TYPE;
RESOURCE_SIZE : CARDINAL_TYPE;
RESOURCE_OFFSET : CARDINAL_TYPE;
DEFAULT_TYPE : XTSTRING_TYPE;
DEFAULT_ADDR : XTPOINTER_TYPE;
end record;
for XTRESOURCE_TYPE use
record
RESOURCE_NAME at 0 range 0 .. 31;
RESOURCE_CLASS at 4 range 0 .. 31;
RESOURCE_TYPE at 8 range 0 .. 31;
RESOURCE_SIZE at 12 range 0 .. 31;
RESOURCE_OFFSET at 16 range 0 .. 31;
DEFAULT_TYPE at 20 range 0 .. 31;
DEFAULT_ADDR at 24 range 0 .. 31;
end record;
for XTRESOURCE_TYPE'SIZE use 224;
XTRESOURCE_TYPE_INIT : constant XTRESOURCE_TYPE :=
(RESOURCE_NAME => ADDRESS_ZERO,
RESOURCE_CLASS => ADDRESS_ZERO,
RESOURCE_TYPE => ADDRESS_ZERO,
RESOURCE_SIZE => 0,
RESOURCE_OFFSET => 0,
DEFAULT_TYPE => ADDRESS_ZERO,
DEFAULT_ADDR => ADDRESS_ZERO);
subtype XTRESOURCELIST_TYPE is ADDRESS;
type XTRESOURCE_TYPE_ARRAY is array (NATURAL range <>) of XTRESOURCE_TYPE;
--> typedef void (*XtResourceDefaultProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> int /* offset */,
--> XrmValue* /* value */
--> #endif
--> );
subtype XTRESOURCEDEFAULTPROC_TYPE is ADDRESS;
--> typedef void (*XtErrorMsgHandler)(
--> #if NeedFunctionPrototypes
--> String /* name */,
--> String /* type */,
--> String /* class */,
--> String /* defaultp */,
--> String* /* params */,
--> Cardinal* /* num_params */
--> #endif
--> );
subtype XTERRORMSGHANDLER_TYPE is ADDRESS;
--> typedef void (*XtErrorHandler)(
--> #if NeedFunctionPrototypes
--> String /* msg */
--> #endif
--> );
subtype XTERRORHANDLER_TYPE is ADDRESS;
--> typedef Boolean (*XtWorkProc)(
--> #if NeedFunctionPrototypes
--> XtPointer /* closure */ /* data the application
registered */
--> #endif
--> );
subtype XTWORKPROC_TYPE is ADDRESS;
--> typedef struct {
--> char match;
--> String substitution;
--> } SubstitutionRec, *Substitution;
type SUBSTITUTIONREC_TYPE is
record
MATCH : SHORT_SHORT_INTEGER;
SUBSTITUTION : XTSTRING_TYPE;
end record;
for SUBSTITUTIONREC_TYPE use
record
MATCH at 0 range 0 .. 7;
SUBSTITUTION at 4 range 0 .. 31;
end record;
for SUBSTITUTIONREC_TYPE'SIZE use 64;
SUBSTITUTIONREC_TYPE_INIT : constant SUBSTITUTIONREC_TYPE :=
(MATCH => 0,
SUBSTITUTION => ADDRESS_ZERO);
subtype SUBSTITUTION_TYPE is ADDRESS;
type SUBSTITUTION_TYPE_ARRAY is array (NATURAL range <>) of
SUBSTITUTION_TYPE;
--> typedef Boolean (*XtFilePredicate)( /* String filename */ );
subtype XTFILEPREDICATE_TYPE is ADDRESS;
--> typedef XtPointer XtRequestId;
subtype XTREQUESTID_TYPE is XTPOINTER_TYPE;
--> typedef Boolean (*XtConvertSelectionProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom* /* selection */,
--> Atom* /* target */,
--> Atom* /* type_return */,
--> XtPointer* /* value_return */,
--> unsigned long* /* length_return */,
--> int* /* format_return */
--> #endif
--> );
subtype XTCONVERTSELECTIONPROC_TYPE is ADDRESS;
--> typedef void (*XtLoseSelectionProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom* /* selection */
--> #endif
--> );
subtype XTLOSESELECTIONPROC_TYPE is ADDRESS;
--> typedef void (*XtSelectionDoneProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom* /* selection */,
--> Atom* /* target */
--> #endif
--> );
subtype XTSELECTIONDONEPROC_TYPE is ADDRESS;
--> typedef void (*XtSelectionCallbackProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */,
--> Atom* /* selection */,
--> Atom* /* type */,
--> XtPointer /* value */,
--> unsigned long* /* length */,
--> int* /* format */
--> #endif
--> );
subtype XTSELECTIONCALLBACKPROC_TYPE is ADDRESS;
--> typedef void (*XtLoseSelectionIncrProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom* /* selection */,
--> XtPointer /* client_data */
--> #endif
--> );
subtype XTLOSESELECTIONINCRPROC_TYPE is ADDRESS;
--> typedef void (*XtSelectionDoneIncrProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom* /* selection */,
--> Atom* /* target */,
--> XtRequestId* /* receiver_id */,
--> XtPointer /* client_data */
--> #endif
--> );
subtype XTSELECTIONDONEINCRPROC_TYPE is ADDRESS;
--> typedef Boolean (*XtConvertSelectionIncrProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom* /* selection */,
--> Atom* /* target */,
--> Atom* /* type */,
--> XtPointer* /* value */,
--> unsigned long* /* length */,
--> int* /* format */,
--> unsigned long* /* max_length */,
--> XtPointer /* client_data */,
--> XtRequestId* /* receiver_id */
--> #endif
--> );
subtype XTCONVERTSELECTIONINCRPROC_TYPE is ADDRESS;
--> typedef void (*XtCancelConvertSelectionProc)(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom* /* selection */,
--> Atom* /* target */,
--> XtRequestId* /* receiver_id */,
--> XtPointer /* client_data */
--> #endif
--> );
subtype XTCANCELCONVERTSELECTIONPROC_TYPE is ADDRESS;
--**************************************************************
--
-- Exported Interfaces
--
--**************************************************************
--> extern Boolean XtConvertAndStore(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* from_type */,
--> XrmValuePtr /* from */,
--> CONST String /* to_type */,
--> XrmValuePtr /* to_in_out */
--> #endif
--> );
procedure XTCONVERTANDSTORE (
RESULT : out BOOLEAN; --
return value
OBJECT : in WIDGET_TYPE;
FROM_TYPE : in STRING;
FROM : in XRMVALUEPTR_TYPE;
TO_TYPE : in STRING;
TO_IN_OUT : in XRMVALUEPTR_TYPE);
pragma INTERFACE (EXTERNAL, XTCONVERTANDSTORE);
pragma IMPORT_VALUED_PROCEDURE (XTCONVERTANDSTORE, "XtConvertAndStore",
(BOOLEAN, WIDGET_TYPE, STRING, XRMVALUEPTR_TYPE, STRING,
XRMVALUEPTR_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern Boolean XtCallConverter(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> XtTypeConverter /* converter */,
--> XrmValuePtr /* args */,
--> Cardinal /* num_args */,
--> XrmValuePtr /* from */,
--> XrmValuePtr /* to_return */,
--> XtCacheRef* /* cache_ref_return */
--> #endif
--> );
procedure XTCALLCONVERTER (
RESULT : out BOOLEAN; --
return value
DISPLAY : in DISPLAY_TYPE;
CONVERTER : in XTTYPECONVERTER_TYPE;
ARGS : in XRMVALUEPTR_TYPE;
NUM_ARGS : in CARDINAL_TYPE;
FROM : in XRMVALUEPTR_TYPE;
TO_IN_OUT : in XRMVALUEPTR_TYPE;
CACHE_REF_RETURN : out XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLCONVERTER);
pragma IMPORT_VALUED_PROCEDURE (XTCALLCONVERTER, "XtCallConverter",
(BOOLEAN, DISPLAY_TYPE, XTTYPECONVERTER_TYPE, XRMVALUEPTR_TYPE,
CARDINAL_TYPE, XRMVALUEPTR_TYPE, XRMVALUEPTR_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE));
--> extern Boolean XtDispatchEvent(
--> #if NeedFunctionPrototypes
--> XEvent* /* event */
--> #endif
--> );
procedure XTDISPATCHEVENT (
RESULT : out BOOLEAN; --
return value
EVENT : in EVENT_TYPE);
pragma INTERFACE (EXTERNAL, XTDISPATCHEVENT);
pragma IMPORT_VALUED_PROCEDURE (XTDISPATCHEVENT, "XtDispatchEvent",
(BOOLEAN, EVENT_TYPE),
(VALUE, REFERENCE));
--> extern Boolean XtCallAcceptFocus(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Time* /* t */
--> #endif
--> );
procedure XTCALLACCEPTFOCUS (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLACCEPTFOCUS);
pragma IMPORT_VALUED_PROCEDURE (XTCALLACCEPTFOCUS, "XtCallAcceptFocus",
(BOOLEAN, WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE, REFERENCE));
--> extern Boolean XtPeekEvent(
--> #if NeedFunctionPrototypes
--> XEvent* /* event */
--> #endif
--> );
procedure XTPEEKEVENT (
RESULT : out BOOLEAN; --
return value
EVENT_RETURN : in EVENT_TYPE);
pragma INTERFACE (EXTERNAL, XTPEEKEVENT);
pragma IMPORT_VALUED_PROCEDURE (XTPEEKEVENT, "XtPeekEvent",
(BOOLEAN, EVENT_TYPE),
(VALUE, REFERENCE));
--> extern Boolean XtAppPeekEvent(
--> #if NeedFunctionPrototypes
--> XtAppContext /* appContext */,
--> XEvent* /* event */
--> #endif
--> );
procedure XTAPPPEEKEVENT (
RESULT : out BOOLEAN; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
EVENT_RETURN : in EVENT_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPPEEKEVENT);
pragma IMPORT_VALUED_PROCEDURE (XTAPPPEEKEVENT, "XtAppPeekEvent",
(BOOLEAN, XTAPPCONTEXT_TYPE, EVENT_TYPE),
(VALUE, VALUE, REFERENCE));
--> extern Boolean XtIsSubclass(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> WidgetClass /* widgetClass */
--> #endif
--> );
procedure XTISSUBCLASS (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE;
WIDGET_CLASS : in WIDGETCLASS_TYPE);
pragma INTERFACE (EXTERNAL, XTISSUBCLASS);
pragma IMPORT_VALUED_PROCEDURE (XTISSUBCLASS, "XtIsSubclass",
(BOOLEAN, WIDGET_TYPE, WIDGETCLASS_TYPE),
(VALUE, VALUE, VALUE));
--> extern Boolean XtIsObject(
--> #if NeedFunctionPrototypes
--> Widget /* object */
--> #endif
--> );
procedure XTISOBJECT (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTISOBJECT);
pragma IMPORT_VALUED_PROCEDURE (XTISOBJECT, "XtIsObject",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Boolean _XtCheckSubclassFlag( /* implementation-private */
--> #if NeedFunctionPrototypes
--> Widget /* object */,
--> #if NeedWidePrototypes
--> /* XtEnum */ int /* type_flag */
--> #else
--> XtEnum /* type_flag */
--> #endif /* NeedWidePrototypes */
--> #endif
--> );
procedure XTCHECKSUBCLASSFLAG (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE;
TYPE_FLAG : in XTENUM_TYPE);
pragma INTERFACE (EXTERNAL, XTCHECKSUBCLASSFLAG);
pragma IMPORT_VALUED_PROCEDURE (XTCHECKSUBCLASSFLAG, "_XtCheckSubclassFlag",
(BOOLEAN, WIDGET_TYPE, XTENUM_TYPE),
(VALUE, VALUE, VALUE));
--> extern Boolean _XtIsSubclassOf( /* implementation-private */
--> #if NeedFunctionPrototypes
--> Widget /* object */,
--> WidgetClass /* widget_class */,
--> WidgetClass /* flag_class */,
--> #if NeedWidePrototypes
--> /* XtEnum */ int /* type_flag */
--> #else
--> XtEnum /* type_flag */
--> #endif /* NeedWidePrototypes */
--> #endif
--> );
procedure XTISSUBCLASSOF (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
FLAG_CLASS : in WIDGETCLASS_TYPE;
TYPE_FLAG : in XTENUM_TYPE);
pragma INTERFACE (EXTERNAL, XTISSUBCLASSOF);
pragma IMPORT_VALUED_PROCEDURE (XTISSUBCLASSOF, "_XtIsSubclassOf",
(BOOLEAN, WIDGET_TYPE, WIDGETCLASS_TYPE, WIDGETCLASS_TYPE, XTENUM_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern Boolean XtIsManaged(
--> #if NeedFunctionPrototypes
--> Widget /* rectobj */
--> #endif
--> );
procedure XTISMANAGED (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTISMANAGED);
pragma IMPORT_VALUED_PROCEDURE (XTISMANAGED, "XtIsManaged",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Boolean XtIsRealized(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTISREALIZED (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTISREALIZED);
pragma IMPORT_VALUED_PROCEDURE (XTISREALIZED, "XtIsRealized",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Boolean XtIsSensitive(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTISSENSITIVE (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTISSENSITIVE);
pragma IMPORT_VALUED_PROCEDURE (XTISSENSITIVE, "XtIsSensitive",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Boolean XtOwnSelection(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> Time /* time */,
--> XtConvertSelectionProc /* convert */,
--> XtLoseSelectionProc /* lose */,
--> XtSelectionDoneProc /* done */
--> #endif
--> );
procedure XTOWNSELECTION (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
TIME : in TIME_TYPE;
CONVERT_PROC : in XTCONVERTSELECTIONPROC_TYPE;
LOSE_SELECTION : in XTLOSESELECTIONPROC_TYPE;
DONE_PROC : in XTSELECTIONDONEPROC_TYPE);
pragma INTERFACE (EXTERNAL, XTOWNSELECTION);
pragma IMPORT_VALUED_PROCEDURE (XTOWNSELECTION, "XtOwnSelection",
(BOOLEAN, WIDGET_TYPE, ATOM_TYPE, TIME_TYPE,
XTCONVERTSELECTIONPROC_TYPE, XTLOSESELECTIONPROC_TYPE,
XTSELECTIONDONEPROC_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern Boolean XtOwnSelectionIncremental(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> Time /* time */,
--> XtConvertSelectionIncrProc /* convert_callback */,
--> XtLoseSelectionIncrProc /* lose_callback */,
--> XtSelectionDoneIncrProc /* done_callback */,
--> XtCancelConvertSelectionProc /* cancel_callback */,
--> XtPointer /* client_data */
--> #endif
--> );
procedure XTOWNSELECTIONINCREMENTAL (
RESULT : out BOOLEAN; --
return value
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
TIME : in TIME_TYPE;
CONVERT_CALLBACK : in XTCONVERTSELECTIONINCRPROC_TYPE;
LOSE_CALLBACK : in XTLOSESELECTIONINCRPROC_TYPE;
DONE_CALLBACK : in XTSELECTIONDONEINCRPROC_TYPE;
CANCEL_CALLBACK : in XTCANCELCONVERTSELECTIONPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTOWNSELECTIONINCREMENTAL);
pragma IMPORT_VALUED_PROCEDURE (XTOWNSELECTIONINCREMENTAL,
"XtOwnSelectionIncremental",
(BOOLEAN, WIDGET_TYPE, ATOM_TYPE, TIME_TYPE,
XTCONVERTSELECTIONINCRPROC_TYPE, XTLOSESELECTIONINCRPROC_TYPE,
XTSELECTIONDONEINCRPROC_TYPE, XTCANCELCONVERTSELECTIONPROC_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern XtGeometryResult XtMakeResizeRequest(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> #if NeedWidePrototypes
--> /* Dimension */ int /* width */,
--> /* Dimension */ int /* height */,
--> #else
--> Dimension /* width */,
--> Dimension /* height */,
--> #endif /* NeedWidePrototypes */
--> Dimension* /* replyWidth */,
--> Dimension* /* replyHeight */
--> #endif
--> );
procedure XTMAKERESIZEREQUEST (
STATUS : out XTGEOMETRYRESULT_TYPE; --
return value
W : in WIDGET_TYPE;
WIDTH : in DIMENSION_TYPE;
HEIGHT : in DIMENSION_TYPE;
WIDTH_RETURN : out DIMENSION_TYPE;
HEIGHT_RETURN : out DIMENSION_TYPE);
pragma INTERFACE (EXTERNAL, XTMAKERESIZEREQUEST);
pragma IMPORT_VALUED_PROCEDURE (XTMAKERESIZEREQUEST, "XtMakeResizeRequest",
(XTGEOMETRYRESULT_TYPE, WIDGET_TYPE, DIMENSION_TYPE, DIMENSION_TYPE,
DIMENSION_TYPE, DIMENSION_TYPE),
(VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void XtTranslateCoords(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> #if NeedWidePrototypes
--> /* Position */ int /* x */,
--> /* Position */ int /* y */,
--> #else
--> Position /* x */,
--> Position /* y */,
--> #endif /* NeedWidePrototypes */
--> Position* /* rootx_return */,
--> Position* /* rooty_return */
--> #endif
--> );
procedure XTTRANSLATECOORDS (
W : in WIDGET_TYPE;
X : in POSITION_TYPE;
Y : in POSITION_TYPE;
ROOTX_RETURN : out POSITION_TYPE;
ROOTY_RETURN : out POSITION_TYPE);
pragma INTERFACE (EXTERNAL, XTTRANSLATECOORDS);
pragma IMPORT_PROCEDURE (XTTRANSLATECOORDS, "XtTranslateCoords",
(WIDGET_TYPE, POSITION_TYPE, POSITION_TYPE, POSITION_TYPE,
POSITION_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> extern KeySym* XtGetKeysymTable(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> KeyCode* /* min_keycode_return */,
--> int* /* keysyms_per_keycode_return */
--> #endif
--> );
procedure XTGETKEYSYMTABLE (
RESULT : out KEYSYM_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE;
MIN_KEYCODE_RETURN : out KEYCODE_TYPE;
KEYSYMS_PER_KEYCODE_RETURN : out INTEGER);
pragma INTERFACE (EXTERNAL, XTGETKEYSYMTABLE);
pragma IMPORT_VALUED_PROCEDURE (XTGETKEYSYMTABLE, "XtGetKeysymTable",
(KEYSYM_TYPE, DISPLAY_TYPE, KEYCODE_TYPE, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void XtKeysymToKeycodeList(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> KeySym /* keysym */,
--> KeyCode** /* keycodes_return */,
--> Cardinal* /* keycount_return */
--> #endif
--> );
procedure XTKEYSYMTOKEYCODELIST (
DISPLAY : in DISPLAY_TYPE;
KEYSYM : in KEYSYM_TYPE;
KEYCODES_RETURN : out ADDRESS;
KEYCOUNT_RETURN : out CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTKEYSYMTOKEYCODELIST);
pragma IMPORT_PROCEDURE (XTKEYSYMTOKEYCODELIST, "XtKeysymToKeycodeList",
(DISPLAY_TYPE, KEYSYM_TYPE, ADDRESS, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
-- %%% Caution: don't declare any functions past this point that
-- return one of the following types or take a pointer to one of
-- the following types.
--
-- #if NeedWidePrototypes
-- #define Boolean int
-- #define Dimension int
-- #define KeyCode int
-- #define Position int
-- #define XtEnum int
-- #endif /* NeedWidePrototypes */
--> extern void XtStringConversionWarning(
--> #if NeedFunctionPrototypes
--> CONST String /* from */, /* String attempted to convert. */
--> CONST String /* toType */ /* Type attempted to convert it to. */
--> #endif
--> );
procedure XTSTRINGCONVERSIONWARNING (
FROM : in STRING;
TOTYPE : in STRING);
pragma INTERFACE (EXTERNAL, XTSTRINGCONVERSIONWARNING);
pragma IMPORT_PROCEDURE (XTSTRINGCONVERSIONWARNING,
"XtStringConversionWarning",
(STRING, STRING),
(REFERENCE, REFERENCE));
-- #ifdef VMS
-- #define XtDisplayStringConversionWarning XtDisplayStringConvWarning
-- #endif /* VMS */
--> extern void XtDisplayStringConversionWarning(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> CONST String /* from */, /* String attempted to convert. */
--> CONST String /* toType */ /* Type attempted to convert it to. */
--> #endif
--> );
procedure XTDISPLAYSTRINGCONVWARNING (
DISPLAY : in DISPLAY_TYPE;
FROM_VALUE : in STRING;
TOTYPE : in STRING);
pragma INTERFACE (EXTERNAL, XTDISPLAYSTRINGCONVWARNING);
pragma IMPORT_PROCEDURE (XTDISPLAYSTRINGCONVWARNING,
"XtDisplayStringConvWarning",
(DISPLAY_TYPE, STRING, STRING),
(VALUE, REFERENCE, REFERENCE));
--> externalref XtConvertArgRec colorConvertArgs[];
--> ITEM colorConvertArgs XtConvertArgRec DIMENSION *; {Pascal SDL bug}
COLORCONVERTARGS : ADDRESS;
--> externalref XtConvertArgRec screenConvertArg[];
--> ITEM screenConvertArg XtConvertArgRec DIMENSION *; {Pascal SDL bug}
SCREENCONVERTARG : ADDRESS;
--> extern void XtAppAddConverter( /* obsolete */
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> CONST String /* from_type */,
--> CONST String /* to_type */,
--> XtConverter /* converter */,
--> XtConvertArgList /* convert_args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTAPPADDCONVERTER (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
FROM_TYPE : in STRING;
TO_TYPE : in STRING;
CONVERTER : in XTCONVERTER_TYPE;
CONVERT_ARGS : in XTCONVERTARGREC_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPADDCONVERTER);
pragma IMPORT_PROCEDURE (XTAPPADDCONVERTER, "XtAppAddConverter",
(XTAPPCONTEXT_TYPE, STRING, STRING, XTCONVERTER_TYPE,
XTCONVERTARGREC_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern void XtAddConverter( /* obsolete */
--> #if NeedFunctionPrototypes
--> CONST String /* from_type */,
--> CONST String /* to_type */,
--> XtConverter /* converter */,
--> XtConvertArgList /* convert_args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTADDCONVERTER (
FROM_TYPE : in STRING;
TO_TYPE : in STRING;
CONVERTER : in XTCONVERTER_TYPE;
CONVERT_ARGS : in XTCONVERTARGREC_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTADDCONVERTER);
pragma IMPORT_PROCEDURE (XTADDCONVERTER, "XtAddConverter",
(STRING, STRING, XTCONVERTER_TYPE, XTCONVERTARGREC_TYPE_ARRAY,
CARDINAL_TYPE),
(REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern void XtSetTypeConverter(
--> #if NeedFunctionPrototypes
--> CONST String /* from_type */,
--> CONST String /* to_type */,
--> XtTypeConverter /* converter */,
--> XtConvertArgList /* convert_args */,
--> Cardinal /* num_args */,
--> XtCacheType /* cache_type */,
--> XtDestructor /* destructor */
--> #endif
--> );
procedure XTSETTYPECONVERTER (
FROM_TYPE : in STRING;
TO_TYPE : in STRING;
CONVERTER : in XTTYPECONVERTER_TYPE;
CONVERT_ARGS : in XTCONVERTARGREC_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE;
CACHE_TYPE : in XTCACHETYPE_TYPE;
DESTRUCTOR : in XTDESTRUCTOR_TYPE);
pragma INTERFACE (EXTERNAL, XTSETTYPECONVERTER);
pragma IMPORT_PROCEDURE (XTSETTYPECONVERTER, "XtSetTypeConverter",
(STRING, STRING, XTTYPECONVERTER_TYPE, XTCONVERTARGREC_TYPE_ARRAY,
CARDINAL_TYPE, XTCACHETYPE_TYPE, XTDESTRUCTOR_TYPE),
(REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE, VALUE));
--> extern void XtAppSetTypeConverter(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app_context */,
--> CONST String /* from_type */,
--> CONST String /* to_type */,
--> XtTypeConverter /* converter */,
--> XtConvertArgList /* convert_args */,
--> Cardinal /* num_args */,
--> XtCacheType /* cache_type */,
--> XtDestructor /* destructor */
--> #endif
--> );
procedure XTAPPSETTYPECONVERTER (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
FROM_TYPE : in STRING;
TO_TYPE : in STRING;
CONVERTER : in XTTYPECONVERTER_TYPE;
CONVERT_ARGS : in XTCONVERTARGREC_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE;
CACHE_TYPE : in XTCACHETYPE_TYPE;
DESTRUCTOR : in XTDESTRUCTOR_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPSETTYPECONVERTER);
pragma IMPORT_PROCEDURE (XTAPPSETTYPECONVERTER, "XtAppSetTypeConverter",
(XTAPPCONTEXT_TYPE, STRING, STRING, XTTYPECONVERTER_TYPE,
XTCONVERTARGREC_TYPE_ARRAY, CARDINAL_TYPE,
XTCACHETYPE_TYPE, XTDESTRUCTOR_TYPE),
(VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE, VALUE));
--> extern void XtConvert(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* from_type */,
--> XrmValuePtr /* from */,
--> CONST String /* to_type */,
--> XrmValuePtr /* to_return */
--> #endif
--> );
procedure XTCONVERT (
W : in WIDGET_TYPE;
FROM_TYPE : in STRING;
FROM : in XRMVALUEPTR_TYPE;
TO_TYPE : in STRING;
TO_RETURN : in XRMVALUEPTR_TYPE);
pragma INTERFACE (EXTERNAL, XTCONVERT);
pragma IMPORT_PROCEDURE (XTCONVERT, "XtConvert",
(WIDGET_TYPE, STRING, XRMVALUEPTR_TYPE, STRING, XRMVALUEPTR_TYPE),
(VALUE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern void XtDirectConvert(
--> #if NeedFunctionPrototypes
--> XtConverter /* converter */,
--> XrmValuePtr /* args */,
--> Cardinal /* num_args */,
--> XrmValuePtr /* from */,
--> XrmValuePtr /* to_return */
--> #endif
--> );
procedure XTDIRECTCONVERT (
CONVERTER : in XTCONVERTER_TYPE;
ARGS : in XRMVALUEPTR_TYPE;
NUM_ARGS : in CARDINAL_TYPE;
FROM : in XRMVALUEPTR_TYPE;
TO_RETURN : in XRMVALUEPTR_TYPE);
pragma INTERFACE (EXTERNAL, XTDIRECTCONVERT);
pragma IMPORT_PROCEDURE (XTDIRECTCONVERT, "XtDirectConvert",
(XTCONVERTER_TYPE, XRMVALUEPTR_TYPE, CARDINAL_TYPE, XRMVALUEPTR_TYPE,
XRMVALUEPTR_TYPE),
(VALUE, REFERENCE, VALUE, VALUE, VALUE));
--***************************************************************
--
-- Translation Management
--
--***************************************************************
--> extern XtTranslations XtParseTranslationTable(
--> #if NeedFunctionPrototypes
--> CONST String /* source */
--> #endif
--> );
procedure XTPARSETRANSLATIONTABLE (
RESULT : out XTTRANSLATIONS_TYPE; --
return value
TABLE : in STRING);
pragma INTERFACE (EXTERNAL, XTPARSETRANSLATIONTABLE);
pragma IMPORT_VALUED_PROCEDURE (XTPARSETRANSLATIONTABLE,
"XtParseTranslationTable",
(XTTRANSLATIONS_TYPE, STRING),
(VALUE, REFERENCE));
--> extern XtAccelerators XtParseAcceleratorTable(
--> #if NeedFunctionPrototypes
--> CONST String /* source */
--> #endif
--> );
procedure XTPARSEACCELERATORTABLE (
RESULT : out XTACCELERATORS_TYPE; --
return value
SOURCE : in STRING);
pragma INTERFACE (EXTERNAL, XTPARSEACCELERATORTABLE);
pragma IMPORT_VALUED_PROCEDURE (XTPARSEACCELERATORTABLE,
"XtParseAcceleratorTable",
(XTACCELERATORS_TYPE, STRING),
(VALUE, REFERENCE));
--> extern void XtOverrideTranslations(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtTranslations /* new */
--> #endif
--> );
procedure XTOVERRIDETRANSLATIONS (
W : in WIDGET_TYPE;
TRANSLATIONS : in XTTRANSLATIONS_TYPE);
pragma INTERFACE (EXTERNAL, XTOVERRIDETRANSLATIONS);
pragma IMPORT_PROCEDURE (XTOVERRIDETRANSLATIONS, "XtOverrideTranslations",
(WIDGET_TYPE, XTTRANSLATIONS_TYPE),
(VALUE, VALUE));
--> extern void XtAugmentTranslations(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtTranslations /* new */
--> #endif
--> );
procedure XTAUGMENTTRANSLATIONS (
W : in WIDGET_TYPE;
TRANSLATIONS : in XTTRANSLATIONS_TYPE);
pragma INTERFACE (EXTERNAL, XTAUGMENTTRANSLATIONS);
pragma IMPORT_PROCEDURE (XTAUGMENTTRANSLATIONS, "XtAugmentTranslations",
(WIDGET_TYPE, XTTRANSLATIONS_TYPE),
(VALUE, VALUE));
--> extern void XtInstallAccelerators(
--> #if NeedFunctionPrototypes
--> Widget /* destination */,
--> Widget /* source */
--> #endif
--> );
procedure XTINSTALLACCELERATORS (
DESTINATION : in WIDGET_TYPE;
SOURCE : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTINSTALLACCELERATORS);
pragma IMPORT_PROCEDURE (XTINSTALLACCELERATORS, "XtInstallAccelerators",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XtInstallAllAccelerators(
--> #if NeedFunctionPrototypes
--> Widget /* destination */,
--> Widget /* source */
--> #endif
--> );
procedure XTINSTALLALLACCELERATORS (
DESTINATION : in WIDGET_TYPE;
SOURCE : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTINSTALLALLACCELERATORS);
pragma IMPORT_PROCEDURE (XTINSTALLALLACCELERATORS,
"XtInstallAllAccelerators",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XtUninstallTranslations(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTUNINSTALLTRANSLATIONS (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTUNINSTALLTRANSLATIONS);
pragma IMPORT_PROCEDURE (XTUNINSTALLTRANSLATIONS, "XtUninstallTranslations",
(WIDGET_TYPE),
(VALUE));
--> extern void XtAppAddActions(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtActionList /* actions */,
--> Cardinal /* num_actions */
--> #endif
--> );
procedure XTAPPADDACTIONS (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
ACTIONS : in XTACTIONLIST_TYPE;
NUM_ACTIONS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPADDACTIONS);
pragma IMPORT_PROCEDURE (XTAPPADDACTIONS, "XtAppAddActions",
(XTAPPCONTEXT_TYPE, XTACTIONLIST_TYPE, CARDINAL_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtAddActions(
--> #if NeedFunctionPrototypes
--> XtActionList /* actions */,
--> Cardinal /* num_actions */
--> #endif
--> );
procedure XTADDACTIONS (
ACTION : in XTACTIONLIST_TYPE;
NUM_ACTIONS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTADDACTIONS);
pragma IMPORT_PROCEDURE (XTADDACTIONS, "XtAddActions",
(XTACTIONLIST_TYPE, CARDINAL_TYPE),
(VALUE, VALUE));
--> extern XtActionHookId XtAppAddActionHook(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtActionHookProc /* proc */,
--> XtPointer /* client_data */
--> #endif
--> );
procedure XTAPPADDACTIONHOOK (
RESULT : out XTPOINTER_TYPE; --
return value
APP : in XTAPPCONTEXT_TYPE;
PROC : in XTACTIONHOOKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPADDACTIONHOOK);
pragma IMPORT_VALUED_PROCEDURE (XTAPPADDACTIONHOOK, "XtAppAddActionHook",
(XTPOINTER_TYPE, XTAPPCONTEXT_TYPE, XTACTIONHOOKPROC_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern void XtRemoveActionHook(
--> #if NeedFunctionPrototypes
--> XtActionHookId /* id */
--> #endif
--> );
procedure XTREMOVEACTIONHOOK (
ID : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVEACTIONHOOK);
pragma IMPORT_PROCEDURE (XTREMOVEACTIONHOOK, "XtRemoveActionHook",
(XTPOINTER_TYPE),
(VALUE));
--> extern void XtCallActionProc(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* action */,
--> XEvent* /* event */,
--> String* /* params */,
--> Cardinal /* num_params */
--> #endif
--> );
procedure XTCALLACTIONPROC (
WIDGET : in WIDGET_TYPE;
ACTION : in STRING;
EVENT : in EVENT_TYPE;
PARAMS : in XTSTRING_TYPE;
NUM_PARAMS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLACTIONPROC);
pragma IMPORT_PROCEDURE (XTCALLACTIONPROC, "XtCallActionProc",
(WIDGET_TYPE, STRING, EVENT_TYPE, XTSTRING_TYPE, CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE));
--> extern void XtRegisterGrabAction(
--> #if NeedFunctionPrototypes
--> XtActionProc /* action_proc */,
--> Boolean /* owner_events */,
--> unsigned int /* event_mask */,
--> int /* pointer_mode */,
--> int /* keyboard_mode */
--> #endif
--> );
procedure XTREGISTERGRABACTION (
ACTION_PROC : in XTACTIONPROC_TYPE;
OWNER_EVENTS : in BOOLEAN;
EVENT_MASK : in UNSIGNED_LONGWORD;
POINTER_MODE : in INTEGER;
KEYBOARD_MODE : in INTEGER);
pragma INTERFACE (EXTERNAL, XTREGISTERGRABACTION);
pragma IMPORT_PROCEDURE (XTREGISTERGRABACTION, "XtRegisterGrabAction",
(XTACTIONPROC_TYPE, BOOLEAN, UNSIGNED_LONGWORD, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtSetMultiClickTime(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> int /* milliseconds */
--> #endif
--> );
procedure XTSETMULTICLICKTIME (
DISPLAY : in DISPLAY_TYPE;
TIME : in INTEGER);
pragma INTERFACE (EXTERNAL, XTSETMULTICLICKTIME);
pragma IMPORT_PROCEDURE (XTSETMULTICLICKTIME, "XtSetMultiClickTime",
(DISPLAY_TYPE, INTEGER),
(VALUE, VALUE));
--> extern int XtGetMultiClickTime(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */
--> #endif
--> );
procedure XTGETMULTICLICKTIME (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XTGETMULTICLICKTIME);
pragma IMPORT_VALUED_PROCEDURE (XTGETMULTICLICKTIME, "XtGetMultiClickTime",
(INTEGER, DISPLAY_TYPE),
(VALUE, VALUE));
--> extern KeySym XtGetActionKeysym(
--> #if NeedFunctionPrototypes
--> XEvent* /* event */,
--> Modifiers* /* modifiers_return */
--> #endif
--> );
procedure XTGETACTIONKEYSYM (
RESULT : out KEYSYM_TYPE; --
return value
EVENT : in EVENT_TYPE;
MODIFIERS_RETURN : out MODIFIERS_TYPE);
pragma INTERFACE (EXTERNAL, XTGETACTIONKEYSYM);
pragma IMPORT_VALUED_PROCEDURE (XTGETACTIONKEYSYM, "XtGetActionKeysym",
(KEYSYM_TYPE, EVENT_TYPE, MODIFIERS_TYPE),
(VALUE, REFERENCE, REFERENCE));
--**************************************************************
--
-- Keycode and Keysym procedures for translation management
--
--**************************************************************
--> extern void XtTranslateKeycode(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> KeyCode /* keycode */,
--> Modifiers /* modifiers */,
--> Modifiers* /* modifiers_return */,
--> KeySym* /* keysym_return */
--> #endif
--> );
procedure XTTRANSLATEKEYCODE (
DISPLAY : in DISPLAY_TYPE;
KEYCODE : in KEYCODE_TYPE;
MODIFIERS : in MODIFIERS_TYPE;
MODIFIERS_RETURN : out MODIFIERS_TYPE;
KEYSYM_RETURN : out KEYSYM_TYPE);
pragma INTERFACE (EXTERNAL, XTTRANSLATEKEYCODE);
pragma IMPORT_PROCEDURE (XTTRANSLATEKEYCODE, "XtTranslateKeycode",
(DISPLAY_TYPE, KEYCODE_TYPE, MODIFIERS_TYPE, MODIFIERS_TYPE,
KEYSYM_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void XtTranslateKey(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> KeyCode /* keycode */,
--> Modifiers /* modifiers */,
--> Modifiers* /* modifiers_return */,
--> KeySym* /* keysym_return */
--> #endif
--> );
procedure XTTRANSLATEKEY (
DISPLAY : in DISPLAY_TYPE;
KEYCODE : in KEYCODE_TYPE;
MODIFIERS : in MODIFIERS_TYPE;
MODIFIERS_RETURN : out MODIFIERS_TYPE;
KEYSYM_RETURN : out KEYSYM_TYPE);
pragma INTERFACE (EXTERNAL, XTTRANSLATEKEY);
pragma IMPORT_PROCEDURE (XTTRANSLATEKEY, "XtTranslateKey",
(DISPLAY_TYPE, KEYCODE_TYPE, MODIFIERS_TYPE, MODIFIERS_TYPE,
KEYSYM_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void XtSetKeyTranslator(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> XtKeyProc /* proc */
--> #endif
--> );
procedure XTSETKEYTRANSLATOR (
DISPLAY : in DISPLAY_TYPE;
PROC : in XTKEYPROC_TYPE);
pragma INTERFACE (EXTERNAL, XTSETKEYTRANSLATOR);
pragma IMPORT_PROCEDURE (XTSETKEYTRANSLATOR, "XtSetKeyTranslator",
(DISPLAY_TYPE, XTKEYPROC_TYPE),
(VALUE, VALUE));
--> extern void XtRegisterCaseConverter(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> XtCaseProc /* proc */,
--> KeySym /* start */,
--> KeySym /* stop */
--> #endif
--> );
procedure XTREGISTERCASECONVERTER (
DISPLAY : in DISPLAY_TYPE;
PROC : in XTCASEPROC_TYPE;
START : in KEYSYM_TYPE;
STOP : in KEYSYM_TYPE);
pragma INTERFACE (EXTERNAL, XTREGISTERCASECONVERTER);
pragma IMPORT_PROCEDURE (XTREGISTERCASECONVERTER, "XtRegisterCaseConverter",
(DISPLAY_TYPE, XTCASEPROC_TYPE, KEYSYM_TYPE, KEYSYM_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern void XtConvertCase(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> KeySym /* keysym */,
--> KeySym* /* lower_return */,
--> KeySym* /* upper_return */
--> #endif
--> );
procedure XTCONVERTCASE (
DISPLAY : in DISPLAY_TYPE;
KEYSYM : in KEYSYM_TYPE;
LOWER_RETURN : out KEYSYM_TYPE;
UPPER_RETURN : out KEYSYM_TYPE);
pragma INTERFACE (EXTERNAL, XTCONVERTCASE);
pragma IMPORT_PROCEDURE (XTCONVERTCASE, "XtConvertCase",
(DISPLAY_TYPE, KEYSYM_TYPE, KEYSYM_TYPE, KEYSYM_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--***************************************************************
--
-- Event Management
--
--***************************************************************
-- #define XtAllEvents ((EventMask) -1L)
XTALLEVENTS : constant := -1;
--> extern void XtInsertEventHandler(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> EventMask /* eventMask */,
--> Boolean /* nonmaskable */,
--> XtEventHandler /* proc */,
--> XtPointer /* closure */,
--> XtListPosition /* position */
--> #endif
--> );
procedure XTINSERTEVENTHANDLER (
W : in WIDGET_TYPE;
EVENTMASK : in EVENTMASK_TYPE;
NONMASKABLE : in BOOLEAN;
PROC : in XTEVENTHANDLER_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
POSITION : in XTLISTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XTINSERTEVENTHANDLER);
pragma IMPORT_PROCEDURE (XTINSERTEVENTHANDLER, "XtInsertEventHandler",
(WIDGET_TYPE, EVENTMASK_TYPE, BOOLEAN, XTEVENTHANDLER_TYPE,
XTPOINTER_TYPE, XTLISTPOSITION_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtInsertRawEventHandler(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> EventMask /* eventMask */,
--> Boolean /* nonmaskable */,
--> XtEventHandler /* proc */,
--> XtPointer /* closure */,
--> XtListPosition /* position */
--> #endif
--> );
procedure XTINSERTRAWEVENTHANDLER (
W : in WIDGET_TYPE;
EVENTMASK : in EVENTMASK_TYPE;
NONMASKABLE : in BOOLEAN;
PROC : in XTEVENTHANDLER_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
POSITION : in XTLISTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XTINSERTRAWEVENTHANDLER);
pragma IMPORT_PROCEDURE (XTINSERTRAWEVENTHANDLER, "XtInsertRawEventHandler",
(WIDGET_TYPE, EVENTMASK_TYPE, BOOLEAN, XTEVENTHANDLER_TYPE,
XTPOINTER_TYPE, XTLISTPOSITION_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtAddEventHandler(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> EventMask /* eventMask */,
--> Boolean /* nonmaskable */,
--> XtEventHandler /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTADDEVENTHANDLER (
W : in WIDGET_TYPE;
EVENT_MASK : in EVENTMASK_TYPE;
NONMASKABLE : in BOOLEAN;
PROC : in XTEVENTHANDLER_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTADDEVENTHANDLER);
pragma IMPORT_PROCEDURE (XTADDEVENTHANDLER, "XtAddEventHandler",
(WIDGET_TYPE, EVENTMASK_TYPE, BOOLEAN, XTEVENTHANDLER_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtRemoveEventHandler(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> EventMask /* eventMask */,
--> Boolean /* nonmaskable */,
--> XtEventHandler /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTREMOVEEVENTHANDLER (
W : in WIDGET_TYPE;
EVENT_MASK : in EVENTMASK_TYPE;
NONMASKABLE : in BOOLEAN;
PROC : in XTEVENTHANDLER_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVEEVENTHANDLER);
pragma IMPORT_PROCEDURE (XTREMOVEEVENTHANDLER, "XtRemoveEventHandler",
(WIDGET_TYPE, EVENTMASK_TYPE, BOOLEAN, XTEVENTHANDLER_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtAddRawEventHandler(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> EventMask /* eventMask */,
--> Boolean /* nonmaskable */,
--> XtEventHandler /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTADDRAWEVENTHANDLER (
W : in WIDGET_TYPE;
EVENT_MASK : in EVENTMASK_TYPE;
NONMASKABLE : in BOOLEAN;
CLIENT_PROC : in XTEVENTHANDLER_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTADDRAWEVENTHANDLER);
pragma IMPORT_PROCEDURE (XTADDRAWEVENTHANDLER, "XtAddRawEventHandler",
(WIDGET_TYPE, EVENTMASK_TYPE, BOOLEAN, XTEVENTHANDLER_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtRemoveRawEventHandler(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> EventMask /* eventMask */,
--> Boolean /* nonmaskable */,
--> XtEventHandler /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTREMOVERAWEVENTHANDLER (
W : in WIDGET_TYPE;
EVENT_MASK : in EVENTMASK_TYPE;
NONMASKABLE : in BOOLEAN;
PROC : in XTEVENTHANDLER_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVERAWEVENTHANDLER);
pragma IMPORT_PROCEDURE (XTREMOVERAWEVENTHANDLER, "XtRemoveRawEventHandler",
(WIDGET_TYPE, EVENTMASK_TYPE, BOOLEAN, XTEVENTHANDLER_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern EventMask XtBuildEventMask(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTBUILDEVENTMASK (
RESULT : out EVENTMASK_TYPE; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTBUILDEVENTMASK);
pragma IMPORT_VALUED_PROCEDURE (XTBUILDEVENTMASK, "XtBuildEventMask",
(EVENTMASK_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XtAddGrab(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Boolean /* exclusive */,
--> Boolean /* spring_loaded */
--> #endif
--> );
procedure XTADDGRAB (
W : in WIDGET_TYPE;
EXCLUSIVE : in BOOLEAN;
SPRING_LOADED : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XTADDGRAB);
pragma IMPORT_PROCEDURE (XTADDGRAB, "XtAddGrab",
(WIDGET_TYPE, BOOLEAN, BOOLEAN),
(VALUE, VALUE, VALUE));
--> extern void XtRemoveGrab(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTREMOVEGRAB (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVEGRAB);
pragma IMPORT_PROCEDURE (XTREMOVEGRAB, "XtRemoveGrab",
(WIDGET_TYPE),
(VALUE));
--> extern void XtProcessEvent(
--> #if NeedFunctionPrototypes
--> XtInputMask /* mask */
--> #endif
--> );
procedure XTPROCESSEVENT (
MASK : in XTINPUTMASK_TYPE);
pragma INTERFACE (EXTERNAL, XTPROCESSEVENT);
pragma IMPORT_PROCEDURE (XTPROCESSEVENT, "XtProcessEvent",
(XTINPUTMASK_TYPE),
(VALUE));
--> extern void XtAppProcessEvent(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtInputMask /* mask */
--> #endif
--> );
procedure XTAPPPROCESSEVENT (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
MASK : in XTINPUTMASK_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPPROCESSEVENT);
pragma IMPORT_PROCEDURE (XTAPPPROCESSEVENT, "XtAppProcessEvent",
(XTAPPCONTEXT_TYPE, XTINPUTMASK_TYPE),
(VALUE, VALUE));
--> extern void XtMainLoop(
--> #if NeedFunctionPrototypes
--> void
--> #endif
--> );
procedure XTMAINLOOP;
pragma INTERFACE (EXTERNAL, XTMAINLOOP);
pragma IMPORT_PROCEDURE (XTMAINLOOP, "XtMainLoop");
--> extern void XtAppMainLoop(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */
--> #endif
--> );
procedure XTAPPMAINLOOP (
APP_CONTEXT : in XTAPPCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPMAINLOOP);
pragma IMPORT_PROCEDURE (XTAPPMAINLOOP, "XtAppMainLoop",
(XTAPPCONTEXT_TYPE),
(VALUE));
--> extern void XtAddExposureToRegion(
--> #if NeedFunctionPrototypes
--> XEvent* /* event */,
--> Region /* region */
--> #endif
--> );
procedure XTADDEXPOSURETOREGION (
EVENT : in EVENT_TYPE;
REGION : in REGION_TYPE);
pragma INTERFACE (EXTERNAL, XTADDEXPOSURETOREGION);
pragma IMPORT_PROCEDURE (XTADDEXPOSURETOREGION, "XtAddExposureToRegion",
(EVENT_TYPE, REGION_TYPE),
(REFERENCE, VALUE));
--> extern void XtSetKeyboardFocus(
--> #if NeedFunctionPrototypes
--> Widget /* subtree */,
--> Widget /* descendent */
--> #endif
--> );
procedure XTSETKEYBOARDFOCUS (
SUBTREE : in WIDGET_TYPE;
DESCENDANT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTSETKEYBOARDFOCUS);
pragma IMPORT_PROCEDURE (XTSETKEYBOARDFOCUS, "XtSetKeyboardFocus",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Time XtLastTimestampProcessed(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */
--> #endif
--> );
procedure XTLASTTIMESTAMPPROCESSED (
RESULT : out TIME_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XTLASTTIMESTAMPPROCESSED);
pragma IMPORT_VALUED_PROCEDURE (XTLASTTIMESTAMPPROCESSED,
"XtLastTimestampProcessed",
(TIME_TYPE, DISPLAY_TYPE),
(VALUE, VALUE));
--***************************************************************
--
-- Event Gathering Routines
--
--***************************************************************
--> extern XtIntervalId XtAddTimeOut(
--> #if NeedFunctionPrototypes
--> unsigned long /* interval */,
--> XtTimerCallbackProc /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTADDTIMEOUT (
RESULT : out XTINTERVALID_TYPE; --
return value
INTERVAL : in UNSIGNED_LONGWORD;
PROC : in XTTIMERCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTADDTIMEOUT);
pragma IMPORT_VALUED_PROCEDURE (XTADDTIMEOUT, "XtAddTimeOut",
(XTINTERVALID_TYPE, UNSIGNED_LONGWORD, XTTIMERCALLBACKPROC_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern XtIntervalId XtAppAddTimeOut(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> unsigned long /* interval */,
--> XtTimerCallbackProc /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTAPPADDTIMEOUT (
RESULT : out XTINTERVALID_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
INTERVAL : in UNSIGNED_LONGWORD;
PROC : in XTTIMERCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPADDTIMEOUT);
pragma IMPORT_VALUED_PROCEDURE (XTAPPADDTIMEOUT, "XtAppAddTimeOut",
(XTINTERVALID_TYPE, XTAPPCONTEXT_TYPE, UNSIGNED_LONGWORD,
XTTIMERCALLBACKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtRemoveTimeOut(
--> #if NeedFunctionPrototypes
--> XtIntervalId /* timer */
--> #endif
--> );
procedure XTREMOVETIMEOUT (
TIMER : in XTINTERVALID_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVETIMEOUT);
pragma IMPORT_PROCEDURE (XTREMOVETIMEOUT, "XtRemoveTimeOut",
(XTINTERVALID_TYPE),
(VALUE));
--> extern XtInputId XtAddInput(
--> #if NeedFunctionPrototypes
--> int /* source */,
--> XtPointer /* condition */,
--> XtInputCallbackProc /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTADDINPUT (
RESULT : out XTINPUTID_TYPE; --
return value
SOURCE : in INTEGER;
CONDITION : in XTPOINTER_TYPE;
PROC : in XTINPUTCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTADDINPUT);
pragma IMPORT_VALUED_PROCEDURE (XTADDINPUT, "XtAddInput",
(XTINPUTID_TYPE, INTEGER, XTPOINTER_TYPE, XTINPUTCALLBACKPROC_TYPE,
XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern XtInputId XtAppAddInput(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> int /* source */,
--> XtPointer /* condition */,
--> XtInputCallbackProc /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTAPPADDINPUT (
RESULT : out XTINPUTID_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
SOURCE : in INTEGER;
CONDITION : in XTPOINTER_TYPE;
PROC : in XTINPUTCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPADDINPUT);
pragma IMPORT_VALUED_PROCEDURE (XTAPPADDINPUT, "XtAppAddInput",
(XTINPUTID_TYPE, XTAPPCONTEXT_TYPE, INTEGER, XTPOINTER_TYPE,
XTINPUTCALLBACKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtRemoveInput(
--> #if NeedFunctionPrototypes
--> XtInputId /* id */
--> #endif
--> );
procedure XTREMOVEINPUT (
ID : in XTINPUTID_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVEINPUT);
pragma IMPORT_PROCEDURE (XTREMOVEINPUT, "XtRemoveInput",
(XTINPUTID_TYPE),
(VALUE));
--> extern void XtNextEvent(
--> #if NeedFunctionPrototypes
--> XEvent* /* event */
--> #endif
--> );
procedure XTNEXTEVENT (
EVENT_RETURN : out EVENT_TYPE);
pragma INTERFACE (EXTERNAL, XTNEXTEVENT);
pragma IMPORT_PROCEDURE (XTNEXTEVENT, "XtNextEvent",
(EVENT_TYPE),
(REFERENCE));
--> extern void XtAppNextEvent(
--> #if NeedFunctionPrototypes
--> XtAppContext /* appContext */,
--> XEvent* /* event */
--> #endif
--> );
procedure XTAPPNEXTEVENT (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
EVENT_RETURN : out EVENT_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPNEXTEVENT);
pragma IMPORT_PROCEDURE (XTAPPNEXTEVENT, "XtAppNextEvent",
(XTAPPCONTEXT_TYPE, EVENT_TYPE),
(VALUE, REFERENCE));
-- #define XtIMXEvent 1
XTIMXEVENT : constant := 1;
-- #define XtIMTimer 2
XTIMTIMER : constant := 2;
-- #define XtIMAlternateInput 4
XTIMALTERNATEINPUT : constant := 4;
-- #define XtIMAll (XtIMXEvent | XtIMTimer | XtIMAlternateInput)
XTIMALL : constant := 7;
--> extern XtInputMask XtPending(
--> #if NeedFunctionPrototypes
--> void
--> #endif
--> );
procedure XTPENDING (
RESULT : out XTINPUTMASK_TYPE); --
return value
pragma INTERFACE (EXTERNAL, XTPENDING);
pragma IMPORT_VALUED_PROCEDURE (XTPENDING, "XtPending",
(XTINPUTMASK_TYPE),
(VALUE));
--> extern XtInputMask XtAppPending(
--> #if NeedFunctionPrototypes
--> XtAppContext /* appContext */
--> #endif
--> );
procedure XTAPPPENDING (
RESULT : out XTINPUTMASK_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPPENDING);
pragma IMPORT_VALUED_PROCEDURE (XTAPPPENDING, "XtAppPending",
(XTINPUTMASK_TYPE, XTAPPCONTEXT_TYPE),
(VALUE, VALUE));
--***************************************************************
--
-- Random utility routines
--
--***************************************************************
-- #define XtIsRectObj(object) (_XtCheckSubclassFlag(object, (XtEnum)0x10))
-- #define XtIsWidget(object) (_XtCheckSubclassFlag(object, (XtEnum)0x08))
-- #define XtIsComposite(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x02))
-- #define XtIsConstraint(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x20))
-- #define XtIsShell(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x40))
-- #define XtIsOverrideShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)overrideShellWidgetClass, \
-- (WidgetClass)shellWidgetClass, (XtEnum)0x40))
-- #define XtIsWMShell(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x04))
-- #define XtIsVendorShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)vendorShellWidgetClass, \
-- (WidgetClass)wmShellWidgetClass, (XtEnum)0x04))
-- #define XtIsTransientShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)transientShellWidgetClass, \
-- (WidgetClass)wmShellWidgetClass, (XtEnum)0x04))
-- #define XtIsTopLevelShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)topLevelShellWidgetClass, \
-- (WidgetClass)wmShellWidgetClass, (XtEnum)0x04))
-- #define XtIsApplicationShell(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x80))
-- #ifdef notdef
-- /* These are the MIT assignments for fast subclass bits */
-- #define XtIsRectObj(object) (_XtCheckSubclassFlag(object, (XtEnum)0x02))
-- #define XtIsWidget(object) (_XtCheckSubclassFlag(object, (XtEnum)0x04))
-- #define XtIsComposite(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x08))
-- #define XtIsConstraint(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x10))
-- #define XtIsShell(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x20))
-- #define XtIsOverrideShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)overrideShellWidgetClass, \
-- (WidgetClass)shellWidgetClass, (XtEnum)0x20))
-- #define XtIsWMShell(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x40))
-- #define XtIsVendorShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)vendorShellWidgetClass, \
-- (WidgetClass)wmShellWidgetClass, (XtEnum)0x40))
-- #define XtIsTransientShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)transientShellWidgetClass, \
-- (WidgetClass)wmShellWidgetClass, (XtEnum)0x40))
-- #define XtIsTopLevelShell(widget) (_XtCheckSubclassFlag(wid, (XtEnum)0x80))
-- #define XtIsApplicationShell(widget) \
-- (_XtIsSubclassOf(wid, (WidgetClass)applicationShellWidgetClass, \
-- (WidgetClass)topLevelShellWidgetClass, (XtEnum)0x80))
-- #endif
--> extern void XtRealizeWidget(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTREALIZEWIDGET (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTREALIZEWIDGET);
pragma IMPORT_PROCEDURE (XTREALIZEWIDGET, "XtRealizeWidget",
(WIDGET_TYPE),
(VALUE));
--> void XtUnrealizeWidget(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTUNREALIZEWIDGET (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTUNREALIZEWIDGET);
pragma IMPORT_PROCEDURE (XTUNREALIZEWIDGET, "XtUnrealizeWidget",
(WIDGET_TYPE),
(VALUE));
--> extern void XtDestroyWidget(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTDESTROYWIDGET (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTDESTROYWIDGET);
pragma IMPORT_PROCEDURE (XTDESTROYWIDGET, "XtDestroyWidget",
(WIDGET_TYPE),
(VALUE));
--> extern void XtSetSensitive(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Boolean /* sensitive */
--> #endif
--> );
procedure XTSETSENSITIVE (
W : in WIDGET_TYPE;
SENSITIVE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XTSETSENSITIVE);
pragma IMPORT_PROCEDURE (XTSETSENSITIVE, "XtSetSensitive",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern void XtSetMappedWhenManaged(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Boolean /* mappedWhenManaged */
--> #endif
--> );
procedure XTSETMAPPEDWHENMANAGED (
W : in WIDGET_TYPE;
MAPPED_WHEN_MANAGED : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XTSETMAPPEDWHENMANAGED);
pragma IMPORT_PROCEDURE (XTSETMAPPEDWHENMANAGED, "XtSetMappedWhenManaged",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern Widget XtNameToWidget(
--> #if NeedFunctionPrototypes
--> Widget /* root */,
--> CONST String /* name */
--> #endif
--> );
procedure XTNAMETOWIDGET (
WIDGET : out WIDGET_TYPE; --
return value
REFERENCE : in WIDGET_TYPE;
NAMES : in STRING);
pragma INTERFACE (EXTERNAL, XTNAMETOWIDGET);
pragma IMPORT_VALUED_PROCEDURE (XTNAMETOWIDGET, "XtNameToWidget",
(WIDGET_TYPE, WIDGET_TYPE, STRING),
(VALUE, VALUE, REFERENCE));
--> extern Widget XtWindowToWidget(
--> #if NeedFunctionPrototypes
--> Display* /* display */,
--> Window /* window */
--> #endif
--> );
procedure XTWINDOWTOWIDGET (
WIDGET : out WIDGET_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE);
pragma INTERFACE (EXTERNAL, XTWINDOWTOWIDGET);
pragma IMPORT_VALUED_PROCEDURE (XTWINDOWTOWIDGET, "XtWindowToWidget",
(WIDGET_TYPE, DISPLAY_TYPE, WINDOW_TYPE),
(VALUE, VALUE, VALUE));
--**************************************************************
--
-- Arg lists
--
--**************************************************************
--> #define XtSetArg(arg, n, d) \
--> ((void)( (arg).name = (n), (arg).value = (XtArgVal)(d) ))
-- TBD
--> extern ArgList XtMergeArgLists(
--> #if NeedFunctionPrototypes
--> ArgList /* args1 */,
--> Cardinal /* num_args1 */,
--> ArgList /* args2 */,
--> Cardinal /* num_args2 */
--> #endif
--> );
procedure XTMERGEARGLISTS (
RESULT : out ARGLIST_TYPE; --
return value
ARGS1 : in ARG_TYPE_ARRAY;
NUM_ARGS1 : in CARDINAL_TYPE;
ARGS2 : in ARG_TYPE_ARRAY;
NUM_ARGS2 : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTMERGEARGLISTS);
pragma IMPORT_VALUED_PROCEDURE (XTMERGEARGLISTS, "XtMergeArgLists",
(ARGLIST_TYPE, ARG_TYPE_ARRAY, CARDINAL_TYPE, ARG_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE, REFERENCE, VALUE));
--**************************************************************
--
-- Vararg lists
--
--**************************************************************
-- #define XtVaNestedList "XtVaNestedList"
XTVANESTEDLIST : constant STRING := "XtVaNestedList"&ASCII.NUL;
-- #define XtVaTypedArg "XtVaTypedArg"
XTVATYPEDARG : constant STRING := "XtVaTypedArg"&ASCII.NUL;
--> extern XtVarArgsList XtVaCreateArgsList(
--> #if NeedVarargsPrototypes
--> XtPointer /*unused*/, ...
--> #endif
--> );
procedure XTVACREATEARGSLIST (
RESULT : out XTPOINTER_TYPE; --
return value
UNUSED : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTVACREATEARGSLIST);
pragma IMPORT_VALUED_PROCEDURE (XTVACREATEARGSLIST, "XtVaCreateArgsList",
(XTPOINTER_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE));
--***********************************************************
--
-- Information routines
--
--***********************************************************
--> extern Display *XtDisplay(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTDISPLAY (
RESULT : out DISPLAY_TYPE; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTDISPLAY);
pragma IMPORT_VALUED_PROCEDURE (XTDISPLAY, "XtDisplay",
(DISPLAY_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Display *XtDisplayOfObject(
--> #if NeedFunctionPrototypes
--> Widget /* object */
--> #endif
--> );
procedure XTDISPLAYOFOBJECT (
RESULT : out DISPLAY_TYPE; --
return value
OBJECT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTDISPLAYOFOBJECT);
pragma IMPORT_VALUED_PROCEDURE (XTDISPLAYOFOBJECT, "XtDisplayOfObject",
(DISPLAY_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Screen *XtScreen(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTSCREEN (
RESULT : out ADDRESS; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTSCREEN);
pragma IMPORT_VALUED_PROCEDURE (XTSCREEN, "XtScreen",
(ADDRESS, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Screen *XtScreenOfObject(
--> #if NeedFunctionPrototypes
--> Widget /* object */
--> #endif
--> );
procedure XTSCREENOFOBJECT (
RESULT : out ADDRESS; --
return value
OBJECT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTSCREENOFOBJECT);
pragma IMPORT_VALUED_PROCEDURE (XTSCREENOFOBJECT, "XtScreenOfObject",
(ADDRESS, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Window XtWindow(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTWINDOW (
RESULT : out WINDOW_TYPE; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTWINDOW);
pragma IMPORT_VALUED_PROCEDURE (XTWINDOW, "XtWindow",
(WINDOW_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Window XtWindowOfObject(
--> #if NeedFunctionPrototypes
--> Widget /* object */
--> #endif
--> );
procedure XTWINDOWOFOBJECT (
RESULT : out WINDOW_TYPE; --
return value
OBJECT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTWINDOWOFOBJECT);
pragma IMPORT_VALUED_PROCEDURE (XTWINDOWOFOBJECT, "XtWindowOfObject",
(WINDOW_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern String XtName(
--> #if NeedFunctionPrototypes
--> Widget /* object */
--> #endif
--> );
procedure XTNAME (
RESULT : out XTSTRING_TYPE; --
return value
OBJECT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTNAME);
pragma IMPORT_VALUED_PROCEDURE (XTNAME, "XtName",
(XTSTRING_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern WidgetClass XtSuperclass(
--> #if NeedFunctionPrototypes
--> Widget /* object */
--> #endif
--> );
procedure XTSUPERCLASS (
RESULT : out WIDGETCLASS_TYPE; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTSUPERCLASS);
pragma IMPORT_VALUED_PROCEDURE (XTSUPERCLASS, "XtSuperclass",
(WIDGETCLASS_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern WidgetClass XtClass(
--> #if NeedFunctionPrototypes
--> Widget /* object */
--> #endif
--> );
procedure XTCLASS (
RESULT : out WIDGETCLASS_TYPE; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTCLASS);
pragma IMPORT_VALUED_PROCEDURE (XTCLASS, "XtClass",
(WIDGETCLASS_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget XtParent(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTPARENT (
RESULT : out WIDGET_TYPE; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTPARENT);
pragma IMPORT_VALUED_PROCEDURE (XTPARENT, "XtParent",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> #define XtMapWidget(widget) XMapWindow(XtDisplay(widget), XtWindow(widget))
procedure XTMAPWIDGET (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTMAPWIDGET);
pragma IMPORT_PROCEDURE (XTMAPWIDGET, "XtMapWidget",
(WIDGET_TYPE),
(VALUE));
--> #define XtUnmapWidget(widget) \
--> XUnmapWindow(XtDisplay(widget), XtWindow(widget))
procedure XTUNMAPWIDGET (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTUNMAPWIDGET);
pragma IMPORT_PROCEDURE (XTUNMAPWIDGET, "XtUnmapWidget",
(WIDGET_TYPE),
(VALUE));
--> extern void XtAddCallback(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* callback_name */,
--> XtCallbackProc /* callback */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTADDCALLBACK (
W : in WIDGET_TYPE;
CALLBACK_NAME : in STRING;
CALLBACK : in XTCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTADDCALLBACK);
pragma IMPORT_PROCEDURE (XTADDCALLBACK, "XtAddCallback",
(WIDGET_TYPE, STRING, XTCALLBACKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, REFERENCE, VALUE, VALUE));
--> extern void XtRemoveCallback(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* callback_name */,
--> XtCallbackProc /* callback */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTREMOVECALLBACK (
W : in WIDGET_TYPE;
CALLBACK_NAME : in STRING;
CALLBACK : in XTCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVECALLBACK);
pragma IMPORT_PROCEDURE (XTREMOVECALLBACK, "XtRemoveCallback",
(WIDGET_TYPE, STRING, XTCALLBACKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, REFERENCE, VALUE, VALUE));
--> extern void XtAddCallbacks(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* callback_name */,
--> XtCallbackList /* callbacks */
--> #endif
--> );
procedure XTADDCALLBACKS (
W : in WIDGET_TYPE;
CALLBACK_NAME : in STRING;
NEWCALLBACKS : in XTCALLBACKREC_TYPE_ARRAY);
pragma INTERFACE (EXTERNAL, XTADDCALLBACKS);
pragma IMPORT_PROCEDURE (XTADDCALLBACKS, "XtAddCallbacks",
(WIDGET_TYPE, STRING, XTCALLBACKREC_TYPE_ARRAY),
(VALUE, REFERENCE, REFERENCE));
--> extern void XtRemoveCallbacks(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* callback_name */,
--> XtCallbackList /* callbacks */
--> #endif
--> );
procedure XTREMOVECALLBACKS (
W : in WIDGET_TYPE;
CALLBACK_NAME : in STRING;
CALLBACKS : in XTCALLBACKREC_TYPE_ARRAY);
pragma INTERFACE (EXTERNAL, XTREMOVECALLBACKS);
pragma IMPORT_PROCEDURE (XTREMOVECALLBACKS, "XtRemoveCallbacks",
(WIDGET_TYPE, STRING, XTCALLBACKREC_TYPE_ARRAY),
(VALUE, REFERENCE, REFERENCE));
--> extern void XtRemoveAllCallbacks(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* callback_name */
--> #endif
--> );
procedure XTREMOVEALLCALLBACKS (
W : in WIDGET_TYPE;
CALLBACK_NAME : in STRING);
pragma INTERFACE (EXTERNAL, XTREMOVEALLCALLBACKS);
pragma IMPORT_PROCEDURE (XTREMOVEALLCALLBACKS, "XtRemoveAllCallbacks",
(WIDGET_TYPE, STRING),
(VALUE, REFERENCE));
--> extern void XtCallCallbacks(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* callback_name */,
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLCALLBACKS (
W : in WIDGET_TYPE;
CALLBACK_NAME : in STRING;
CALLDATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLCALLBACKS);
pragma IMPORT_PROCEDURE (XTCALLCALLBACKS, "XtCallCallbacks",
(WIDGET_TYPE, STRING, XTPOINTER_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern void XtCallCallbackList(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtCallbackList /* callbacks */,
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLCALLBACKLIST (
W : in WIDGET_TYPE;
CALLBACKS : in XTCALLBACKREC_TYPE_ARRAY;
CALL_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLCALLBACKLIST);
pragma IMPORT_PROCEDURE (XTCALLCALLBACKLIST, "XtCallCallbackList",
(WIDGET_TYPE, XTCALLBACKREC_TYPE_ARRAY, XTPOINTER_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern XtCallbackStatus XtHasCallbacks(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> CONST String /* callback_name */
--> #endif
--> );
procedure XTHASCALLBACKS (
CALLBACK_STATUS : out XTCALLBACKSTATUS_TYPE; --
return value
W : in WIDGET_TYPE;
CALLBACK_NAME : in STRING);
pragma INTERFACE (EXTERNAL, XTHASCALLBACKS);
pragma IMPORT_VALUED_PROCEDURE (XTHASCALLBACKS, "XtHasCallbacks",
(XTCALLBACKSTATUS_TYPE, WIDGET_TYPE, STRING),
(VALUE, VALUE, REFERENCE));
--***************************************************************
--
-- Geometry Management
--
--***************************************************************
--> extern XtGeometryResult XtMakeGeometryRequest(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtWidgetGeometry* /* request */,
--> XtWidgetGeometry* /* reply_return */
--> #endif
--> );
procedure XTMAKEGEOMETRYREQUEST (
STATUS : out XTGEOMETRYRESULT_TYPE; --
return value
W : in WIDGET_TYPE;
REQUEST : in XTWIDGETGEOMETRY_TYPE;
REPLY_RETURN : out XTWIDGETGEOMETRY_TYPE);
pragma INTERFACE (EXTERNAL, XTMAKEGEOMETRYREQUEST);
pragma IMPORT_VALUED_PROCEDURE (XTMAKEGEOMETRYREQUEST,
"XtMakeGeometryRequest",
(XTGEOMETRYRESULT_TYPE, WIDGET_TYPE, XTWIDGETGEOMETRY_TYPE,
XTWIDGETGEOMETRY_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XtGeometryResult XtQueryGeometry(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtWidgetGeometry* /* intended */,
--> XtWidgetGeometry* /* reply_return */
--> #endif
--> );
procedure XTQUERYGEOMETRY (
STATUS : out XTGEOMETRYRESULT_TYPE; --
return value
W : in WIDGET_TYPE;
INTENDED : in XTWIDGETGEOMETRY_TYPE;
PREFERRED_RETURN : out XTWIDGETGEOMETRY_TYPE);
pragma INTERFACE (EXTERNAL, XTQUERYGEOMETRY);
pragma IMPORT_VALUED_PROCEDURE (XTQUERYGEOMETRY, "XtQueryGeometry",
(XTGEOMETRYRESULT_TYPE, WIDGET_TYPE, XTWIDGETGEOMETRY_TYPE,
XTWIDGETGEOMETRY_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern Widget XtCreatePopupShell(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> WidgetClass /* widgetClass */,
--> Widget /* parent */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTCREATEPOPUPSHELL (
WIDGET : out WIDGET_TYPE; --
return value
NAME : in STRING;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
PARENT : in WIDGET_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTCREATEPOPUPSHELL);
pragma IMPORT_VALUED_PROCEDURE (XTCREATEPOPUPSHELL, "XtCreatePopupShell",
(WIDGET_TYPE, STRING, WIDGETCLASS_TYPE, WIDGET_TYPE, ARG_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE));
--> extern Widget XtVaCreatePopupShell(
--> #if NeedVarargsPrototypes
--> CONST String /* name */,
--> WidgetClass /* widgetClass */,
--> Widget /* parent */,
--> ...
--> #endif
--> );
procedure XTVACREATEPOPUPSHELL (
RESULT : out WIDGET_TYPE; --
return value
NAME : in STRING;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
PARENT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTVACREATEPOPUPSHELL);
pragma IMPORT_VALUED_PROCEDURE (XTVACREATEPOPUPSHELL, "XtVaCreatePopupShell",
(WIDGET_TYPE, STRING, WIDGETCLASS_TYPE, WIDGET_TYPE),
(VALUE, REFERENCE, VALUE, VALUE));
--> extern void XtPopup(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtGrabKind /* grab_kind */
--> #endif
--> );
procedure XTPOPUP (
POPUP_SHELL : in WIDGET_TYPE;
GRAB_KIND : in XTGRABKIND_TYPE);
pragma INTERFACE (EXTERNAL, XTPOPUP);
pragma IMPORT_PROCEDURE (XTPOPUP, "XtPopup",
(WIDGET_TYPE, XTGRABKIND_TYPE),
(VALUE, VALUE));
--> extern void XtPopupSpringLoaded(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTPOPUPSPRINGLOADED (
POPUP_SHELL : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTPOPUPSPRINGLOADED);
pragma IMPORT_PROCEDURE (XTPOPUPSPRINGLOADED, "XtPopupSpringLoaded",
(WIDGET_TYPE),
(VALUE));
--> extern void XtCallbackNone(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */,
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLBACKNONE (
W : in WIDGET_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
CALL_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLBACKNONE);
pragma IMPORT_PROCEDURE (XTCALLBACKNONE, "XtCallbackNone",
(WIDGET_TYPE, XTPOINTER_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtCallbackNonexclusive(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */,
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLBACKNONEXCLUSIVE (
W : in WIDGET_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
CALLBACK_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLBACKNONEXCLUSIVE);
pragma IMPORT_PROCEDURE (XTCALLBACKNONEXCLUSIVE, "XtCallbackNonexclusive",
(WIDGET_TYPE, XTPOINTER_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtCallbackExclusive(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */,
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLBACKEXCLUSIVE (
W : in WIDGET_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
CALL_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLBACKEXCLUSIVE);
pragma IMPORT_PROCEDURE (XTCALLBACKEXCLUSIVE, "XtCallbackExclusive",
(WIDGET_TYPE, XTPOINTER_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtPopdown(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTPOPDOWN (
POPUP_SHELL : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTPOPDOWN);
pragma IMPORT_PROCEDURE (XTPOPDOWN, "XtPopdown",
(WIDGET_TYPE),
(VALUE));
--> extern void XtCallbackPopdown(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */,
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLBACKPOPDOWN (
W : in WIDGET_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
CALL_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLBACKPOPDOWN);
pragma IMPORT_PROCEDURE (XTCALLBACKPOPDOWN, "XtCallbackPopdown",
(WIDGET_TYPE, XTPOINTER_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtMenuPopupAction(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XEvent* /* event */,
--> String* /* params */,
--> Cardinal* /* num_params */
--> #endif
--> );
-->
--> ENTRY XtMenuPopupAction
--> PARAMETER (
--> Widget IN VALUE NAMED w,
--> ANY IN NAMED event TYPENAME EVENT,
--> XtString DIMENSION * IN NAMED params,
--> Cardinal IN OUT NAMED num_params)
--> RETURNS VOID;
--> Undocumented
--> extern Widget XtCreateWidget(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> WidgetClass /* widget_class */,
--> Widget /* parent */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTCREATEWIDGET (
WIDGET : out WIDGET_TYPE; --
return value
NAME : in STRING;
OBJECT_CLASS : in WIDGETCLASS_TYPE;
PARENT : in WIDGET_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTCREATEWIDGET);
pragma IMPORT_VALUED_PROCEDURE (XTCREATEWIDGET, "XtCreateWidget",
(WIDGET_TYPE, STRING, WIDGETCLASS_TYPE, WIDGET_TYPE, ARG_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE));
--> extern Widget XtCreateManagedWidget(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> WidgetClass /* widget_class */,
--> Widget /* parent */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTCREATEMANAGEDWIDGET (
WIDGET : out WIDGET_TYPE; --
return value
NAME : in STRING;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
PARENT : in WIDGET_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTCREATEMANAGEDWIDGET);
pragma IMPORT_VALUED_PROCEDURE (XTCREATEMANAGEDWIDGET,
"XtCreateManagedWidget",
(WIDGET_TYPE, STRING, WIDGETCLASS_TYPE, WIDGET_TYPE, ARG_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE));
--> extern Widget XtVaCreateWidget(
--> #if NeedVarargsPrototypes
--> CONST String /* name */,
--> WidgetClass /* widget_class */,
--> Widget /* parent */,
--> ...
--> #endif
--> );
procedure XTVACREATEWIDGET (
RESULT : out WIDGET_TYPE; --
return value
NAME : in STRING;
OBJECT_CLASS : in WIDGETCLASS_TYPE;
PARENT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTVACREATEWIDGET);
pragma IMPORT_VALUED_PROCEDURE (XTVACREATEWIDGET, "XtVaCreateWidget",
(WIDGET_TYPE, STRING, WIDGETCLASS_TYPE, WIDGET_TYPE),
(VALUE, REFERENCE, VALUE, VALUE));
--> extern Widget XtVaCreateManagedWidget(
--> #if NeedVarargsPrototypes
--> CONST String /* name */,
--> WidgetClass /* widget_class */,
--> Widget /* parent */,
--> ...
--> #endif
--> );
procedure XTVACREATEMANAGEDWIDGET (
RESULT : out WIDGET_TYPE; --
return value
NAME : in STRING;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
PARENT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTVACREATEMANAGEDWIDGET);
pragma IMPORT_VALUED_PROCEDURE (XTVACREATEMANAGEDWIDGET,
"XtVaCreateManagedWidget",
(WIDGET_TYPE, STRING, WIDGETCLASS_TYPE, WIDGET_TYPE),
(VALUE, REFERENCE, VALUE, VALUE));
--> extern Widget XtCreateApplicationShell(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> WidgetClass /* widget_class */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTCREATEAPPLICATIONSHELL (
WIDGET : out WIDGET_TYPE; --
return value
NAME : in STRING;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTCREATEAPPLICATIONSHELL);
pragma IMPORT_VALUED_PROCEDURE (XTCREATEAPPLICATIONSHELL,
"XtCreateApplicationShell",
(WIDGET_TYPE, STRING, WIDGETCLASS_TYPE, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern Widget XtAppCreateShell(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> CONST String /* class */,
--> WidgetClass /* widget_class */,
--> Display* /* display */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTAPPCREATESHELL (
WIDGET : out WIDGET_TYPE; --
return value
APPLICATION_NAME : in STRING;
APPLICATION_CLASS : in STRING;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
DISPLAY : in DISPLAY_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPCREATESHELL);
pragma IMPORT_VALUED_PROCEDURE (XTAPPCREATESHELL, "XtAppCreateShell",
(WIDGET_TYPE, STRING, STRING, WIDGETCLASS_TYPE, DISPLAY_TYPE,
ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE));
--> extern Widget XtVaAppCreateShell(
--> #if NeedVarargsPrototypes
--> CONST String /* name */,
--> CONST String /* class */,
--> WidgetClass /* widget_class */,
--> Display* /* display */,
--> ...
--> #endif
--> );
procedure XTVAAPPCREATESHELL (
RESULT : out WIDGET_TYPE; --
return value
APPLICATION_NAME : in STRING;
APPLICATION_CLASS : in STRING;
WIDGET_CLASS : in WIDGETCLASS_TYPE;
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XTVAAPPCREATESHELL);
pragma IMPORT_VALUED_PROCEDURE (XTVAAPPCREATESHELL, "XtVaAppCreateShell",
(WIDGET_TYPE, STRING, STRING, WIDGETCLASS_TYPE, DISPLAY_TYPE),
(VALUE, REFERENCE, REFERENCE, VALUE, VALUE));
--***************************************************************
--
-- Toolkit initialization
--
--***************************************************************
--> extern void XtToolkitInitialize(
--> #if NeedFunctionPrototypes
--> void
--> #endif
--> );
procedure XTTOOLKITINITIALIZE;
pragma INTERFACE (EXTERNAL, XTTOOLKITINITIALIZE);
pragma IMPORT_PROCEDURE (XTTOOLKITINITIALIZE, "XtToolkitInitialize");
--> extern void XtDisplayInitialize(
--> #if NeedFunctionPrototypes
--> XtAppContext /* appContext */,
--> Display* /* dpy */,
--> CONST String /* name */,
--> CONST String /* class */,
--> XrmOptionDescRec* /* options */,
--> Cardinal /* num_options */,
--> Cardinal* /* argc */,
--> char** /* argv */
--> #endif
--> );
procedure XTDISPLAYINITIALIZE (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
DISPLAY : in DISPLAY_TYPE;
APPLICATION_NAME : in STRING;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGS : in out CARDINAL_TYPE;
NUM_ARGS : in out ADDRESS_ARRAY);
procedure XTDISPLAYINITIALIZE (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
DISPLAY : in DISPLAY_TYPE;
APPLICATION_NAME : in STRING;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGS : in out CARDINAL_TYPE;
NUM_ARGS : in ADDRESS := ADDRESS_ZERO);
-- To omit optional NUM_ARGS argument
pragma INTERFACE (EXTERNAL, XTDISPLAYINITIALIZE);
pragma IMPORT_PROCEDURE (XTDISPLAYINITIALIZE, "XtDisplayInitialize",
(XTAPPCONTEXT_TYPE, DISPLAY_TYPE, STRING, STRING,
UNSIGNED_LONGWORD_ARRAY, CARDINAL_TYPE, CARDINAL_TYPE,
ADDRESS_ARRAY),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE,
REFERENCE));
pragma IMPORT_PROCEDURE (XTDISPLAYINITIALIZE, "XtDisplayInitialize",
(XTAPPCONTEXT_TYPE, DISPLAY_TYPE, STRING, STRING,
UNSIGNED_LONGWORD_ARRAY, CARDINAL_TYPE, CARDINAL_TYPE, ADDRESS),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE,
VALUE));
--> extern Widget XtAppInitialize(
--> #if NeedFunctionPrototypes
--> XtAppContext* /* app_context_return */,
--> CONST String /* application_class */,
--> XrmOptionDescList /* options */,
--> Cardinal /* num_options */,
--> Cardinal* /* argc_in_out */,
--> String* /* argv_in_out */,
--> CONST String* /* fallback_resources */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTAPPINITIALIZE (
APP_CONTEXT_RETURN : out XTAPPCONTEXT_TYPE;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGC_IN_OUT : out CARDINAL_TYPE;
ARGV_IN_OUT : in out XTSTRING_TYPE;
FALLBACK_RESOURCES : in XTSTRING_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
procedure XTAPPINITIALIZE (
RESULT : out WIDGET_TYPE; --
return value
APP_CONTEXT_RETURN : out XTAPPCONTEXT_TYPE;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGC_IN_OUT : out CARDINAL_TYPE;
ARGV_IN_OUT : in out XTSTRING_TYPE;
FALLBACK_RESOURCES : in XTSTRING_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPINITIALIZE);
pragma IMPORT_PROCEDURE (XTAPPINITIALIZE, "XtAppInitialize",
(XTAPPCONTEXT_TYPE, STRING, UNSIGNED_LONGWORD_ARRAY, CARDINAL_TYPE,
CARDINAL_TYPE, XTSTRING_TYPE, XTSTRING_TYPE,
ARG_TYPE_ARRAY, CARDINAL_TYPE),
(REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE,
REFERENCE, REFERENCE, VALUE));
pragma IMPORT_VALUED_PROCEDURE (XTAPPINITIALIZE, "XtAppInitialize",
(WIDGET_TYPE, XTAPPCONTEXT_TYPE, STRING, UNSIGNED_LONGWORD_ARRAY,
CARDINAL_TYPE, CARDINAL_TYPE, XTSTRING_TYPE, XTSTRING_TYPE,
ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE,
REFERENCE, REFERENCE, VALUE));
--> extern Widget XtVaAppInitialize(
--> #if NeedVarargsPrototypes
--> XtAppContext* /* app_context_return */,
--> CONST String /* application_class */,
--> XrmOptionDescList /* options */,
--> Cardinal /* num_options */,
--> Cardinal* /* argc_in_out */,
--> String* /* argv_in_out */,
--> CONST String* /* fallback_resources */,
--> ...
--> #endif
--> );
procedure XTVAAPPINITIALIZE (
RESULT : out WIDGET_TYPE; --
return value
APP_CONTEXT_RETURN : out XTAPPCONTEXT_TYPE;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGC_IN_OUT : out CARDINAL_TYPE;
ARGV_IN_OUT : in out XTSTRING_TYPE;
FALLBACK_RESOURCES : in XTSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XTVAAPPINITIALIZE);
pragma IMPORT_VALUED_PROCEDURE (XTVAAPPINITIALIZE, "XtVaAppInitialize",
(WIDGET_TYPE, XTAPPCONTEXT_TYPE, STRING, UNSIGNED_LONGWORD,
CARDINAL_TYPE, CARDINAL_TYPE, XTSTRING_TYPE,
XTSTRING_TYPE),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE,
REFERENCE));
--> extern Widget XtInitialize(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> CONST String /* class */,
--> XrmOptionDescRec* /* options */,
--> Cardinal /* num_options */,
--> Cardinal* /* argc */,
--> char** /* argv */
--> #endif
--> );
procedure XTINITIALIZE (
WIDGET : out WIDGET_TYPE; --
return value
SHELL_NAME : in STRING;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGC : in out CARDINAL_TYPE;
ARGV : in out ADDRESS_ARRAY);
procedure XTINITIALIZE (
WIDGET : out WIDGET_TYPE; --
return value
SHELL_NAME : in STRING;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGC : in out CARDINAL_TYPE;
ARGV : in ADDRESS := ADDRESS_ZERO);
-- To omit optional ARGV argument
pragma INTERFACE (EXTERNAL, XTINITIALIZE);
pragma IMPORT_VALUED_PROCEDURE (XTINITIALIZE, "XtInitialize",
(WIDGET_TYPE, STRING, STRING, UNSIGNED_LONGWORD_ARRAY, CARDINAL_TYPE,
CARDINAL_TYPE, ADDRESS_ARRAY),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE));
pragma IMPORT_VALUED_PROCEDURE (XTINITIALIZE, "XtInitialize",
(WIDGET_TYPE, STRING, STRING, UNSIGNED_LONGWORD_ARRAY, CARDINAL_TYPE,
CARDINAL_TYPE, ADDRESS),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern Display *XtOpenDisplay(
--> #if NeedFunctionPrototypes
--> XtAppContext /* appContext */,
--> CONST String /* displayName */,
--> CONST String /* applName */,
--> CONST String /* className */,
--> XrmOptionDescRec* /* urlist */,
--> Cardinal /* num_urs */,
--> Cardinal* /* argc */,
--> char** /* argv */
--> #endif
--> );
procedure XTOPENDISPLAY (
RESULT : out DISPLAY_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
DISPLAY_STRING : in STRING;
APPLICATION_NAME : in STRING;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGC : in out CARDINAL_TYPE;
ARGV : in out ADDRESS_ARRAY);
procedure XTOPENDISPLAY (
RESULT : out DISPLAY_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
DISPLAY_STRING : in STRING;
APPLICATION_NAME : in STRING;
APPLICATION_CLASS : in STRING;
OPTIONS : in UNSIGNED_LONGWORD_ARRAY;
NUM_OPTIONS : in CARDINAL_TYPE;
ARGC : in out CARDINAL_TYPE;
ARGV : in ADDRESS := ADDRESS_ZERO);
-- To omit optional ARGV argument
pragma INTERFACE (EXTERNAL, XTOPENDISPLAY);
pragma IMPORT_VALUED_PROCEDURE (XTOPENDISPLAY, "XtOpenDisplay",
(DISPLAY_TYPE, XTAPPCONTEXT_TYPE, STRING, STRING, STRING,
UNSIGNED_LONGWORD_ARRAY, CARDINAL_TYPE, CARDINAL_TYPE,
ADDRESS_ARRAY),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE,
REFERENCE, REFERENCE));
pragma IMPORT_VALUED_PROCEDURE (XTOPENDISPLAY, "XtOpenDisplay",
(DISPLAY_TYPE, XTAPPCONTEXT_TYPE, STRING, STRING, STRING,
UNSIGNED_LONGWORD_ARRAY, CARDINAL_TYPE, CARDINAL_TYPE,
ADDRESS),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE,
REFERENCE, VALUE));
--> extern XtAppContext XtCreateApplicationContext(
--> #if NeedFunctionPrototypes
--> void
--> #endif
--> );
procedure XTCREATEAPPLICATIONCONTEXT (
RESULT : out XTAPPCONTEXT_TYPE); --
return value
pragma INTERFACE (EXTERNAL, XTCREATEAPPLICATIONCONTEXT);
pragma IMPORT_VALUED_PROCEDURE (XTCREATEAPPLICATIONCONTEXT,
"XtCreateApplicationContext",
(XTAPPCONTEXT_TYPE),
(VALUE));
--> extern void XtAppSetFallbackResources(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app_context */,
--> CONST String* /* specification_list */
--> #endif
--> );
procedure XTAPPSETFALLBACKRESOURCES (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
SPECIFICATION_LIST : in XTSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPSETFALLBACKRESOURCES);
pragma IMPORT_PROCEDURE (XTAPPSETFALLBACKRESOURCES,
"XtAppSetFallbackResources",
(XTAPPCONTEXT_TYPE, XTSTRING_TYPE),
(VALUE, REFERENCE));
--> extern void XtDestroyApplicationContext(
--> #if NeedFunctionPrototypes
--> XtAppContext /* appContext */
--> #endif
--> );
procedure XTDESTROYAPPLICATIONCONTEXT (
APP_CONTEXT : in XTAPPCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XTDESTROYAPPLICATIONCONTEXT);
pragma IMPORT_PROCEDURE (XTDESTROYAPPLICATIONCONTEXT,
"XtDestroyApplicationContext",
(XTAPPCONTEXT_TYPE),
(VALUE));
--> extern void XtInitializeWidgetClass(
--> #if NeedFunctionPrototypes
--> WidgetClass /* widget_class */
--> #endif
--> );
procedure XTINITIALIZEWIDGETCLASS (
OBJECT_CLASS : in WIDGETCLASS_TYPE);
pragma INTERFACE (EXTERNAL, XTINITIALIZEWIDGETCLASS);
pragma IMPORT_PROCEDURE (XTINITIALIZEWIDGETCLASS, "XtInitializeWidgetClass",
(WIDGETCLASS_TYPE),
(VALUE));
--> extern XtAppContext XtWidgetToApplicationContext(
--> #if NeedFunctionPrototypes
--> Widget /* widget */
--> #endif
--> );
procedure XTWIDGETTOAPPLICATIONCONTEXT (
STATUS : out XTAPPCONTEXT_TYPE; --
return value
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTWIDGETTOAPPLICATIONCONTEXT);
pragma IMPORT_VALUED_PROCEDURE (XTWIDGETTOAPPLICATIONCONTEXT,
"XtWidgetToApplicationContext",
(XTAPPCONTEXT_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern XtAppContext XtDisplayToApplicationContext(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */
--> #endif
--> );
procedure XTDISPLAYTOAPPLICATIONCONTEXT (
STATUS : out XTAPPCONTEXT_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XTDISPLAYTOAPPLICATIONCONTEXT);
pragma IMPORT_VALUED_PROCEDURE (XTDISPLAYTOAPPLICATIONCONTEXT,
"XtDisplayToApplicationContext",
(XTAPPCONTEXT_TYPE, DISPLAY_TYPE),
(VALUE, VALUE));
--> extern XrmDatabase XtDatabase(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */
--> #endif
--> );
procedure XTDATABASE (
RESULT : out XRMDATABASE_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XTDATABASE);
pragma IMPORT_VALUED_PROCEDURE (XTDATABASE, "XtDatabase",
(XRMDATABASE_TYPE, DISPLAY_TYPE),
(VALUE, VALUE));
--> extern void XtCloseDisplay(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */
--> #endif
--> );
procedure XTCLOSEDISPLAY (
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XTCLOSEDISPLAY);
pragma IMPORT_PROCEDURE (XTCLOSEDISPLAY, "XtCloseDisplay",
(DISPLAY_TYPE),
(VALUE));
--> extern void XtCopyFromParent(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> int /* offset */,
--> XrmValue* /* value */
--> #endif
--> );
procedure XTCOPYFROMPARENT (
W : in WIDGET_TYPE;
OFFSET : in INTEGER;
XRM_VALUE : in XRMVALUE_TYPE);
pragma INTERFACE (EXTERNAL, XTCOPYFROMPARENT);
pragma IMPORT_PROCEDURE (XTCOPYFROMPARENT, "XtCopyFromParent",
(WIDGET_TYPE, INTEGER, XRMVALUE_TYPE),
(VALUE, VALUE, REFERENCE));
--> extern void XtCopyDefaultDepth(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> int /* offset */,
--> XrmValue* /* value */
--> #endif
--> );
procedure XTCOPYDEFAULTDEPTH (
W : in WIDGET_TYPE;
OFFSET : in INTEGER;
XRM_VALUE : in XRMVALUE_TYPE);
pragma INTERFACE (EXTERNAL, XTCOPYDEFAULTDEPTH);
pragma IMPORT_PROCEDURE (XTCOPYDEFAULTDEPTH, "XtCopyDefaultDepth",
(WIDGET_TYPE, INTEGER, XRMVALUE_TYPE),
(VALUE, VALUE, REFERENCE));
--> extern void XtCopyDefaultColormap(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> int /* offset */,
--> XrmValue* /* value */
--> #endif
--> );
procedure XTCOPYDEFAULTCOLORMAP (
W : in WIDGET_TYPE;
OFFSET : in INTEGER;
XRM_VALUE : in XRMVALUE_TYPE);
pragma INTERFACE (EXTERNAL, XTCOPYDEFAULTCOLORMAP);
pragma IMPORT_PROCEDURE (XTCOPYDEFAULTCOLORMAP, "XtCopyDefaultColormap",
(WIDGET_TYPE, INTEGER, XRMVALUE_TYPE),
(VALUE, VALUE, REFERENCE));
--> extern void XtCopyAncestorSensitive(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> int /* offset */,
--> XrmValue* /* value */
--> #endif
--> );
procedure XTCOPYANCESTORSENSITIVE (
W : in WIDGET_TYPE;
OFFSET : in INTEGER;
XRM_VALUE : in XRMVALUE_TYPE);
pragma INTERFACE (EXTERNAL, XTCOPYANCESTORSENSITIVE);
pragma IMPORT_PROCEDURE (XTCOPYANCESTORSENSITIVE, "XtCopyAncestorSensitive",
(WIDGET_TYPE, INTEGER, XRMVALUE_TYPE),
(VALUE, VALUE, REFERENCE));
--> extern void XtCopyScreen(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> int /* offset */,
--> XrmValue* /* value */
--> #endif
--> );
procedure XTCOPYSCREEN (
W : in WIDGET_TYPE;
OFFSET : in INTEGER;
XRM_VALUE : in XRMVALUE_TYPE);
pragma INTERFACE (EXTERNAL, XTCOPYSCREEN);
pragma IMPORT_PROCEDURE (XTCOPYSCREEN, "XtCopyScreen",
(WIDGET_TYPE, INTEGER, XRMVALUE_TYPE),
(VALUE, VALUE, REFERENCE));
--> extern void XrmCompileResourceList(
--> #if NeedFunctionPrototypes
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */
--> #endif
--> );
procedure XRMCOMPILERESOURCELIST (
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XRMCOMPILERESOURCELIST);
pragma IMPORT_PROCEDURE (XRMCOMPILERESOURCELIST, "XrmCompileResourceList",
(XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE),
(REFERENCE, VALUE));
--> extern void XtGetApplicationResources(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* base */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTGETAPPLICATIONRESOURCES (
W : in WIDGET_TYPE;
BASE : in XTPOINTER_TYPE;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTGETAPPLICATIONRESOURCES);
pragma IMPORT_PROCEDURE (XTGETAPPLICATIONRESOURCES,
"XtGetApplicationResources",
(WIDGET_TYPE, XTPOINTER_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE,
ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern void XtVaGetApplicationResources(
--> #if NeedVarargsPrototypes
--> Widget /* widget */,
--> XtPointer /* base */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ...
--> #endif
--> );
procedure XTVAGETAPPLICATIONRESOURCES (
W : in WIDGET_TYPE;
BASE : in XTPOINTER_TYPE;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTVAGETAPPLICATIONRESOURCES);
pragma IMPORT_PROCEDURE (XTVAGETAPPLICATIONRESOURCES,
"XtVaGetApplicationResources",
(WIDGET_TYPE, XTPOINTER_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, VALUE));
--> extern void XtGetSubresources(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* base */,
--> CONST String /* name */,
--> CONST String /* class */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTGETSUBRESOURCES (
W : in WIDGET_TYPE;
BASE : in XTPOINTER_TYPE;
NAME : in STRING;
CLASS : in STRING;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTGETSUBRESOURCES);
pragma IMPORT_PROCEDURE (XTGETSUBRESOURCES, "XtGetSubresources",
(WIDGET_TYPE, XTPOINTER_TYPE, STRING, STRING, XTRESOURCE_TYPE_ARRAY,
CARDINAL_TYPE, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE,
VALUE));
--> extern void XtVaGetSubresources(
--> #if NeedVarargsPrototypes
--> Widget /* widget */,
--> XtPointer /* base */,
--> CONST String /* name */,
--> CONST String /* class */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ...
--> #endif
--> );
procedure XTVAGETSUBRESOURCES (
W : in WIDGET_TYPE;
BASE : in XTPOINTER_TYPE;
NAME : in STRING;
CLASS : in STRING;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTVAGETSUBRESOURCES);
pragma IMPORT_PROCEDURE (XTVAGETSUBRESOURCES, "XtVaGetSubresources",
(WIDGET_TYPE, XTPOINTER_TYPE, STRING, STRING, XTRESOURCE_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE));
--> extern void XtSetValues(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTSETVALUES (
OBJECT : in WIDGET_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTSETVALUES);
pragma IMPORT_PROCEDURE (XTSETVALUES, "XtSetValues",
(WIDGET_TYPE, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern void XtVaSetValues(
--> #if NeedVarargsPrototypes
--> Widget /* widget */,
--> ...
--> #endif
--> );
procedure XTVASETVALUES (
OBJECT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTVASETVALUES);
pragma IMPORT_PROCEDURE (XTVASETVALUES, "XtVaSetValues",
(WIDGET_TYPE),
(VALUE));
--> extern void XtGetValues(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTGETVALUES (
OBJECT : in WIDGET_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTGETVALUES);
pragma IMPORT_PROCEDURE (XTGETVALUES, "XtGetValues",
(WIDGET_TYPE, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern void XtVaGetValues(
--> #if NeedVarargsPrototypes
--> Widget /* widget */,
--> ...
--> #endif
--> );
procedure XTVAGETVALUES (
OBJECT : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTVAGETVALUES);
pragma IMPORT_PROCEDURE (XTVAGETVALUES, "XtVaGetValues",
(WIDGET_TYPE),
(VALUE));
--> extern void XtSetSubvalues(
--> #if NeedFunctionPrototypes
--> XtPointer /* base */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTSETSUBVALUES (
BASE : in XTPOINTER_TYPE;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTSETSUBVALUES);
pragma IMPORT_PROCEDURE (XTSETSUBVALUES, "XtSetSubvalues",
(XTPOINTER_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE, ARG_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern void XtVaSetSubvalues(
--> #if NeedVarargsPrototypes
--> XtPointer /* base */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ...
--> #endif
--> );
procedure XTVASETSUBVALUES (
BASE : in XTPOINTER_TYPE;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTVASETSUBVALUES);
pragma IMPORT_PROCEDURE (XTVASETSUBVALUES, "XtVaSetSubvalues",
(XTPOINTER_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern void XtGetSubvalues(
--> #if NeedFunctionPrototypes
--> XtPointer /* base */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ArgList /* args */,
--> Cardinal /* num_args */
--> #endif
--> );
procedure XTGETSUBVALUES (
BASE : in XTPOINTER_TYPE;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTGETSUBVALUES);
pragma IMPORT_PROCEDURE (XTGETSUBVALUES, "XtGetSubvalues",
(XTPOINTER_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE, ARG_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE, REFERENCE, VALUE));
--> extern void XtVaGetSubvalues(
--> #if NeedVarargsPrototypes
--> XtPointer /* base */,
--> XtResourceList /* resources */,
--> Cardinal /* num_resources */,
--> ...
--> #endif
--> );
procedure XTVAGETSUBVALUES (
BASE : in XTPOINTER_TYPE;
RESOURCES : in XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTVAGETSUBVALUES);
pragma IMPORT_PROCEDURE (XTVAGETSUBVALUES, "XtVaGetSubvalues",
(XTPOINTER_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern void XtGetResourceList(
--> #if NeedFunctionPrototypes
--> WidgetClass /* widget_class */,
--> XtResourceList* /* resources_return */,
--> Cardinal* /* num_resources_return */
--> #endif
--> );
procedure XTGETRESOURCELIST (
CLASS : in WIDGETCLASS_TYPE;
RESOURCES_RETURN : out XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES_RETURN : out CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTGETRESOURCELIST);
pragma IMPORT_PROCEDURE (XTGETRESOURCELIST, "XtGetResourceList",
(WIDGETCLASS_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE));
--> extern void XtGetConstraintResourceList(
--> #if NeedFunctionPrototypes
--> WidgetClass /* widget_class */,
--> XtResourceList* /* resources_return */,
--> Cardinal* /* num_resources_return */
--> #endif
--> );
procedure XTGETCONSTRAINTRESOURCELIST (
CLASS : in WIDGETCLASS_TYPE;
RESOURCES_RETURN : out XTRESOURCE_TYPE_ARRAY;
NUM_RESOURCES_RETURN : out CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTGETCONSTRAINTRESOURCELIST);
pragma IMPORT_PROCEDURE (XTGETCONSTRAINTRESOURCELIST,
"XtGetConstraintResourceList",
(WIDGETCLASS_TYPE, XTRESOURCE_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE));
--> #define XtUnspecifiedPixmap ((Pixmap)2)
XTUNSPECIFIEDPIXMAP : constant := 2;
--> #define XtUnspecifiedShellInt (-1)
XTUNSPECIFIEDSHELLINT : constant := -1;
--> #define XtUnspecifiedWindow ((Window)2)
XTUNSPECIFIEDWINDOW : constant := 2;
--> #define XtUnspecifiedWindowGroup ((Window)3)
XTUNSPECIFIEDWINDOWGROUP : constant := 3;
--> #define XtDefaultForeground "XtDefaultForeground"
XTDEFAULTFOREGROUND : constant STRING :=
"XtDefaultForeground"&ASCII.NUL;
--> #define XtDefaultBackground "XtDefaultBackground"
XTDEFAULTBACKGROUND : constant STRING :=
"XtDefaultBackground"&ASCII.NUL;
--> #define XtDefaultFont "XtDefaultFont"
XTDEFAULTFONT : constant STRING := "XtDefaultFont"&ASCII.NUL;
-- #if defined(CRAY) || defined(__arm)
-- #ifdef CRAY2
--
-- #define XtOffset(p_type,field) \
-- (sizeof(int)*((unsigned int)&(((p_type)NULL)->field)))
--
-- #else /* !CRAY2 */
--
-- #define XtOffset(p_type,field) ((unsigned int)&(((p_type)NULL)->field))
--
-- #endif /* !CRAY2 */
-- #else /* ! (CRAY || __arm) */
--
-- #define XtOffset(p_type,field) \
-- ((Cardinal) (((char *) (&(((p_type)NULL)->field))) - ((char *) NULL)))
--
-- #endif /* !CRAY */
--
-- #define XtOffsetOf(s_type,field) XtOffset(s_type*,field)
--
-- #ifdef notdef
-- /* this doesn't work on picky compilers */
-- #define XtOffset(p_type,field) ((unsigned int)&(((p_type)NULL)->field))
-- #endif
--***********************************************************
--
-- Error Handling
--
--***********************************************************
--> extern XtErrorMsgHandler XtAppSetErrorMsgHandler(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtErrorMsgHandler /* handler */
--> #endif
--> );
procedure XTAPPSETERRORMSGHANDLER (
RESULT : out XTERRORMSGHANDLER_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
MSG_HANDLER : in XTERRORMSGHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPSETERRORMSGHANDLER);
pragma IMPORT_VALUED_PROCEDURE (XTAPPSETERRORMSGHANDLER,
"XtAppSetErrorMsgHandler",
(XTERRORMSGHANDLER_TYPE, XTAPPCONTEXT_TYPE, XTERRORMSGHANDLER_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtSetErrorMsgHandler(
--> #if NeedFunctionPrototypes
--> XtErrorMsgHandler /* handler */
--> #endif
--> );
procedure XTSETERRORMSGHANDLER (
MSG_HANDLER : in XTERRORMSGHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTSETERRORMSGHANDLER);
pragma IMPORT_PROCEDURE (XTSETERRORMSGHANDLER, "XtSetErrorMsgHandler",
(XTERRORMSGHANDLER_TYPE),
(VALUE));
--> extern XtErrorMsgHandler XtAppSetWarningMsgHandler(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtErrorMsgHandler /* handler */
--> #endif
--> );
procedure XTAPPSETWARNINGMSGHANDLER (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
MSG_HANDLER : in XTERRORMSGHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPSETWARNINGMSGHANDLER);
pragma IMPORT_PROCEDURE (XTAPPSETWARNINGMSGHANDLER,
"XtAppSetWarningMsgHandler",
(XTAPPCONTEXT_TYPE, XTERRORMSGHANDLER_TYPE),
(VALUE, VALUE));
--> extern void XtSetWarningMsgHandler(
--> #if NeedFunctionPrototypes
--> XtErrorMsgHandler /* handler */
--> #endif
--> );
procedure XTSETWARNINGMSGHANDLER (
MSG_HANDLER : in XTERRORMSGHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTSETWARNINGMSGHANDLER);
pragma IMPORT_PROCEDURE (XTSETWARNINGMSGHANDLER, "XtSetWarningMsgHandler",
(XTERRORMSGHANDLER_TYPE),
(VALUE));
--> extern void XtAppErrorMsg(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> CONST String /* name */,
--> CONST String /* type */,
--> CONST String /* class */,
--> CONST String /* defaultp */,
--> String* /* params */,
--> Cardinal* /* num_params */
--> #endif
--> );
procedure XTAPPERRORMSG (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
NAME : in STRING;
TYP : in STRING;
CLASS : in STRING;
DEFAULT : in STRING;
PARAMS : in XTSTRING_TYPE;
NUM_PARAMS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPERRORMSG);
pragma IMPORT_PROCEDURE (XTAPPERRORMSG, "XtAppErrorMsg",
(XTAPPCONTEXT_TYPE, STRING, STRING, STRING, STRING, XTSTRING_TYPE,
CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE,
REFERENCE));
--> extern void XtErrorMsg(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> CONST String /* type */,
--> CONST String /* class */,
--> CONST String /* defaultp */,
--> String* /* params */,
--> Cardinal* /* num_params */
--> #endif
--> );
procedure XTERRORMSG (
NAME : in STRING;
TYP : in STRING;
CLASS : in STRING;
DEFAULT : in STRING;
PARAMS : in XTSTRING_TYPE;
NUM_PARAMS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTERRORMSG);
pragma IMPORT_PROCEDURE (XTERRORMSG, "XtErrorMsg",
(STRING, STRING, STRING, STRING, XTSTRING_TYPE, CARDINAL_TYPE),
(REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
--> extern void XtAppWarningMsg(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> CONST String /* name */,
--> CONST String /* type */,
--> CONST String /* class */,
--> CONST String /* defaultp */,
--> String* /* params */,
--> Cardinal* /* num_params */
--> #endif
--> );
procedure XTAPPWARNINGMSG (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
NAME : in STRING;
TYP : in STRING;
CLASS : in STRING;
DEFAULT : in STRING;
PARAMS : in XTSTRING_TYPE;
NUM_PARAMS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPWARNINGMSG);
pragma IMPORT_PROCEDURE (XTAPPWARNINGMSG, "XtAppWarningMsg",
(XTAPPCONTEXT_TYPE, STRING, STRING, STRING, STRING, XTSTRING_TYPE,
CARDINAL_TYPE),
(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE,
REFERENCE));
--> extern void XtWarningMsg(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> CONST String /* type */,
--> CONST String /* class */,
--> CONST String /* defaultp */,
--> String* /* params */,
--> Cardinal* /* num_params */
--> #endif
--> );
procedure XTWARNINGMSG (
NAME : in STRING;
TYP : in STRING;
CLASS : in STRING;
DEFAULT : in STRING;
PARAMS : in XTSTRING_TYPE;
NUM_PARAMS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTWARNINGMSG);
pragma IMPORT_PROCEDURE (XTWARNINGMSG, "XtWarningMsg",
(STRING, STRING, STRING, STRING, XTSTRING_TYPE, CARDINAL_TYPE),
(REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
--> extern XtErrorHandler XtAppSetErrorHandler(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtErrorHandler /* handler */
--> #endif
--> );
procedure XTAPPSETERRORHANDLER (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
HANDLER : in XTERRORHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPSETERRORHANDLER);
pragma IMPORT_PROCEDURE (XTAPPSETERRORHANDLER, "XtAppSetErrorHandler",
(XTAPPCONTEXT_TYPE, XTERRORHANDLER_TYPE),
(VALUE, VALUE));
--> extern void XtSetErrorHandler(
--> #if NeedFunctionPrototypes
--> XtErrorHandler /* handler */
--> #endif
--> );
procedure XTSETERRORHANDLER (
HANDLER : in XTERRORHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTSETERRORHANDLER);
pragma IMPORT_PROCEDURE (XTSETERRORHANDLER, "XtSetErrorHandler",
(XTERRORHANDLER_TYPE),
(VALUE));
--> extern XtErrorHandler XtAppSetWarningHandler(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtErrorHandler /* handler */
--> #endif
--> );
procedure XTAPPSETWARNINGHANDLER (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
HANDLER : in XTERRORHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPSETWARNINGHANDLER);
pragma IMPORT_PROCEDURE (XTAPPSETWARNINGHANDLER, "XtAppSetWarningHandler",
(XTAPPCONTEXT_TYPE, XTERRORHANDLER_TYPE),
(VALUE, VALUE));
--> extern void XtSetWarningHandler(
--> #if NeedFunctionPrototypes
--> XtErrorHandler /* handler */
--> #endif
--> );
procedure XTSETWARNINGHANDLER (
HANDLER : in XTERRORHANDLER_TYPE);
pragma INTERFACE (EXTERNAL, XTSETWARNINGHANDLER);
pragma IMPORT_PROCEDURE (XTSETWARNINGHANDLER, "XtSetWarningHandler",
(XTERRORHANDLER_TYPE),
(VALUE));
--> extern void XtAppError(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> CONST String /* message */
--> #endif
--> );
procedure XTAPPERROR (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
MESSAGE : in STRING);
pragma INTERFACE (EXTERNAL, XTAPPERROR);
pragma IMPORT_PROCEDURE (XTAPPERROR, "XtAppError",
(XTAPPCONTEXT_TYPE, STRING),
(VALUE, REFERENCE));
--> extern void XtError(
--> #if NeedFunctionPrototypes
--> CONST String /* message */
--> #endif
--> );
procedure XTERROR (
MESSAGE : in STRING);
pragma INTERFACE (EXTERNAL, XTERROR);
pragma IMPORT_PROCEDURE (XTERROR, "XtError",
(STRING),
(REFERENCE));
--> extern void XtAppWarning(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> CONST String /* message */
--> #endif
--> );
procedure XTAPPWARNING (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
MESSAGE : in STRING);
pragma INTERFACE (EXTERNAL, XTAPPWARNING);
pragma IMPORT_PROCEDURE (XTAPPWARNING, "XtAppWarning",
(XTAPPCONTEXT_TYPE, STRING),
(VALUE, REFERENCE));
--> extern void XtWarning(
--> #if NeedFunctionPrototypes
--> CONST String /* message */
--> #endif
--> );
procedure XTWARNING (
MESSAGE : in STRING);
pragma INTERFACE (EXTERNAL, XTWARNING);
pragma IMPORT_PROCEDURE (XTWARNING, "XtWarning",
(STRING),
(REFERENCE));
--> extern XrmDatabase *XtAppGetErrorDatabase(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */
--> #endif
--> );
procedure XTAPPGETERRORDATABASE (
RESULT : out XRMDATABASE_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPGETERRORDATABASE);
pragma IMPORT_VALUED_PROCEDURE (XTAPPGETERRORDATABASE,
"XtAppGetErrorDatabase",
(XRMDATABASE_TYPE, XTAPPCONTEXT_TYPE),
(VALUE, VALUE));
--> extern XrmDatabase *XtGetErrorDatabase(
--> #if NeedFunctionPrototypes
--> void
--> #endif
--> );
procedure XTGETERRORDATABASE (
RESULT : out XRMDATABASE_TYPE); --
return value
pragma INTERFACE (EXTERNAL, XTGETERRORDATABASE);
pragma IMPORT_VALUED_PROCEDURE (XTGETERRORDATABASE, "XtGetErrorDatabase",
(XRMDATABASE_TYPE),
(VALUE));
--> extern void XtAppGetErrorDatabaseText(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> CONST String /* name */,
--> CONST String /* type */,
--> CONST String /* class */,
--> CONST String /* defaultp */,
--> String /* buffer */,
--> int /* nbytes */,
--> XrmDatabase /* database */
--> #endif
--> );
procedure XTAPPGETERRORDATABASETEXT (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
NAME : in STRING;
TYP : in STRING;
CLASS : in STRING;
DEFAULT : in STRING;
BUFFER_RETURN : in STRING;
NBYTES : in INTEGER;
DATABASE : in XRMDATABASE_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPGETERRORDATABASETEXT);
pragma IMPORT_PROCEDURE (XTAPPGETERRORDATABASETEXT,
"XtAppGetErrorDatabaseText",
(XTAPPCONTEXT_TYPE, STRING, STRING, STRING, STRING, STRING, INTEGER,
XRMDATABASE_TYPE),
(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE,
VALUE));
--> extern void XtGetErrorDatabaseText(
--> #if NeedFunctionPrototypes
--> CONST String /* name */,
--> CONST String /* type */,
--> CONST String /* class */,
--> CONST String /* defaultp */,
--> String /* buffer */,
--> int /* nbytes */
--> #endif
--> );
procedure XTGETERRORDATABASETEXT (
NAME : in STRING;
TYP : in STRING;
CLASS : in STRING;
DEFAULT : in STRING;
BUFFER_RETURN : in STRING;
NBYTES : in INTEGER);
pragma INTERFACE (EXTERNAL, XTGETERRORDATABASETEXT);
pragma IMPORT_PROCEDURE (XTGETERRORDATABASETEXT, "XtGetErrorDatabaseText",
(STRING, STRING, STRING, STRING, STRING, INTEGER),
(REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE));
--***************************************************************
--
-- Memory Management
--
--***************************************************************
-- #define XtNew(type) ((type *) XtMalloc((unsigned) sizeof(type)))
-- #define XtNewString(str) \
-- ((str) != NULL ? (strcpy(XtMalloc((unsigned)strlen(str) + 1), str)) : NULL)
--> extern char *XtMalloc(
--> #if NeedFunctionPrototypes
--> Cardinal /* size */
--> #endif
--> );
procedure XTMALLOC (
RESULT : out ADDRESS; --
return value
SIZE : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTMALLOC);
pragma IMPORT_VALUED_PROCEDURE (XTMALLOC, "XtMalloc",
(ADDRESS, CARDINAL_TYPE),
(VALUE, VALUE));
--> extern char *XtCalloc(
--> #if NeedFunctionPrototypes
--> Cardinal /* num */,
--> Cardinal /* size */
--> #endif
--> );
procedure XTCALLOC (
RESULT : out ADDRESS; --
return value
NUM : in CARDINAL_TYPE;
SIZE : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLOC);
pragma IMPORT_VALUED_PROCEDURE (XTCALLOC, "XtCalloc",
(ADDRESS, CARDINAL_TYPE, CARDINAL_TYPE),
(VALUE, VALUE, VALUE));
--> extern char *XtRealloc(
--> #if NeedFunctionPrototypes
--> char* /* ptr */,
--> Cardinal /* num */
--> #endif
--> );
procedure XTREALLOC (
RESULT : out ADDRESS; --
return value
PTR : in ADDRESS;
NUM : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTREALLOC);
pragma IMPORT_VALUED_PROCEDURE (XTREALLOC, "XtRealloc",
(ADDRESS, ADDRESS, CARDINAL_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtFree(
--> #if NeedFunctionPrototypes
--> char* /* ptr */
--> #endif
--> );
procedure XTFREE (
PTR : in ADDRESS);
pragma INTERFACE (EXTERNAL, XTFREE);
pragma IMPORT_PROCEDURE (XTFREE, "XtFree",
(ADDRESS),
(VALUE));
--************************************************************
--
-- Work procs
--
--************************************************************
--> extern XtWorkProcId XtAddWorkProc(
--> #if NeedFunctionPrototypes
--> XtWorkProc /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTADDWORKPROC (
RESULT : out XTWORKPROCID_TYPE; --
return value
PROC : in XTWORKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTADDWORKPROC);
pragma IMPORT_VALUED_PROCEDURE (XTADDWORKPROC, "XtAddWorkProc",
(XTWORKPROCID_TYPE, XTWORKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
--> extern XtWorkProcId XtAppAddWorkProc(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> XtWorkProc /* proc */,
--> XtPointer /* closure */
--> #endif
--> );
procedure XTAPPADDWORKPROC (
RESULT : out XTWORKPROC_TYPE; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
PROC : in XTWORKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPADDWORKPROC);
pragma IMPORT_VALUED_PROCEDURE (XTAPPADDWORKPROC, "XtAppAddWorkProc",
(XTWORKPROC_TYPE, XTAPPCONTEXT_TYPE, XTWORKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern void XtRemoveWorkProc(
--> #if NeedFunctionPrototypes
--> XtWorkProcId /* id */
--> #endif
--> );
procedure XTREMOVEWORKPROC (
ID : in XTWORKPROCID_TYPE);
pragma INTERFACE (EXTERNAL, XTREMOVEWORKPROC);
pragma IMPORT_PROCEDURE (XTREMOVEWORKPROC, "XtRemoveWorkProc",
(XTWORKPROCID_TYPE),
(VALUE));
--***************************************************************
--
-- Graphic Context Management
--***************************************************************
--> extern GC XtGetGC(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtGCMask /* valueMask */,
--> XGCValues* /* values */
--> #endif
--> );
procedure XTGETGC (
RESULT : out GC_TYPE; --
return value
OBJECT : in WIDGET_TYPE;
VALUE_MASK : in XTGCMASK_TYPE;
VALUES : in XGCVALUE_TYPE);
pragma INTERFACE (EXTERNAL, XTGETGC);
pragma IMPORT_VALUED_PROCEDURE (XTGETGC, "XtGetGC",
(GC_TYPE, WIDGET_TYPE, XTGCMASK_TYPE, XGCVALUE_TYPE),
(VALUE, VALUE, VALUE, REFERENCE));
--> extern void XtDestroyGC(
--> #if NeedFunctionPrototypes
--> GC /* gc */
--> #endif
--> );
procedure XTDESTROYGC (
W : in WIDGET_TYPE;
GC : in GC_TYPE);
pragma INTERFACE (EXTERNAL, XTDESTROYGC);
pragma IMPORT_PROCEDURE (XTDESTROYGC, "XtDestroyGC",
(WIDGET_TYPE, GC_TYPE),
(VALUE, VALUE));
--> extern void XtReleaseGC(
--> #if NeedFunctionPrototypes
--> Widget /* object */,
--> GC /* gc */
--> #endif
--> );
procedure XTRELEASEGC (
OBJECT : in WIDGET_TYPE;
GC : in GC_TYPE);
pragma INTERFACE (EXTERNAL, XTRELEASEGC);
pragma IMPORT_PROCEDURE (XTRELEASEGC, "XtReleaseGC",
(WIDGET_TYPE, GC_TYPE),
(VALUE, VALUE));
--> extern void XtReleaseCacheRef(
--> #if NeedFunctionPrototypes
--> XtCacheRef* /* cache_ref */
--> #endif
--> );
--> ENTRY XtReleaseCacheRef
--> PARAMETER (
--> XtCacheRef IN NAMED cache_ref )
--> RETURNS VOID;
--> Undocumented
--> extern void XtAppReleaseCacheRefs(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app_context */
--> XtCacheRef* /* cache_ref */
--> #endif
--> );
procedure XTAPPRELEASECACHEREFS (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
CACHE_REF : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPRELEASECACHEREFS);
pragma IMPORT_PROCEDURE (XTAPPRELEASECACHEREFS, "XtAppReleaseCacheRefs",
(XTAPPCONTEXT_TYPE, XTPOINTER_TYPE),
(VALUE, REFERENCE));
--> extern void XtCallbackReleaseCacheRef(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */, /* XtCacheRef */
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLBACKRELEASECACHEREF (
OBJECT : in WIDGET_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
CALL_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLBACKRELEASECACHEREF);
pragma IMPORT_PROCEDURE (XTCALLBACKRELEASECACHEREF,
"XtCallbackReleaseCacheRef",
(WIDGET_TYPE, XTPOINTER_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtCallbackReleaseCacheRefList(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> XtPointer /* closure */, /* XtCacheRef* */
--> XtPointer /* call_data */
--> #endif
--> );
procedure XTCALLBACKRELEASECACHEREFLIST (
OBJECT : in WIDGET_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
CALL_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTCALLBACKRELEASECACHEREFLIST);
pragma IMPORT_PROCEDURE (XTCALLBACKRELEASECACHEREFLIST,
"XtCallbackReleaseCacheRefList",
(WIDGET_TYPE, XTPOINTER_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtSetWMColormapWindows(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Widget* /* list */,
--> Cardinal /* count */
--> #endif
--> );
procedure XTSETWMCOLORMAPWINDOWS (
WIDGET : in WIDGET_TYPE;
WIDGET_LIST : in WIDGET_TYPE;
COUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTSETWMCOLORMAPWINDOWS);
pragma IMPORT_PROCEDURE (XTSETWMCOLORMAPWINDOWS, "XtSetWMColormapWindows",
(WIDGET_TYPE, WIDGET_TYPE, CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern String XtFindFile(
--> #if NeedFunctionPrototypes
--> CONST String /* path */,
--> Substitution /* substitutions */,
--> Cardinal /* num_substitutions */,
--> XtFilePredicate /* predicate */
--> #endif
--> );
procedure XTFINDFILE (
RESULT : out XTSTRING_TYPE; --
return value
PATH : in STRING;
SUBSTITUTIONS : in SUBSTITUTION_TYPE;
NUM_SUBSTITUTIONS : in CARDINAL_TYPE;
PREDICATE : in XTFILEPREDICATE_TYPE);
pragma INTERFACE (EXTERNAL, XTFINDFILE);
pragma IMPORT_VALUED_PROCEDURE (XTFINDFILE, "XtFindFile",
(XTSTRING_TYPE, STRING, SUBSTITUTION_TYPE, CARDINAL_TYPE,
XTFILEPREDICATE_TYPE),
(VALUE, REFERENCE, REFERENCE, VALUE, VALUE));
--> extern String XtResolvePathname(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> CONST String /* type */,
--> CONST String /* filename */,
--> CONST String /* suffix */,
--> CONST String /* path */,
--> Substitution /* substitutions */,
--> Cardinal /* num_substitutions */,
--> XtFilePredicate /* predicate */
--> #endif
--> );
procedure XTRESOLVEPATHNAME (
RESULT : out XTSTRING_TYPE; --
return value
DPY : in DISPLAY_TYPE;
TYP : in STRING;
FILENAME : in STRING;
SUFFIX : in STRING;
PATH : in STRING;
SUBSTITUTIONS : in SUBSTITUTION_TYPE;
NUM_SUBSTITUTIONS : in CARDINAL_TYPE;
PREDICATE : in XTFILEPREDICATE_TYPE);
pragma INTERFACE (EXTERNAL, XTRESOLVEPATHNAME);
pragma IMPORT_VALUED_PROCEDURE (XTRESOLVEPATHNAME, "XtResolvePathname",
(XTSTRING_TYPE, DISPLAY_TYPE, STRING, STRING, STRING, STRING,
SUBSTITUTION_TYPE, CARDINAL_TYPE, XTFILEPREDICATE_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE,
VALUE, VALUE));
--***************************************************************
--
-- Selections
--***************************************************************
--> #define XT_CONVERT_FAIL (Atom)0x80000001
XT_CONVERT_FAIL : constant := -2147483647;
--> extern void XtDisownSelection(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> Time /* time */
--> #endif
--> );
procedure XTDISOWNSELECTION (
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTDISOWNSELECTION);
pragma IMPORT_PROCEDURE (XTDISOWNSELECTION, "XtDisownSelection",
(WIDGET_TYPE, ATOM_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XtGetSelectionValue(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> Atom /* target */,
--> XtSelectionCallbackProc /* callback */,
--> XtPointer /* closure */,
--> Time /* time */
--> #endif
--> );
procedure XTGETSELECTIONVALUE (
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
TARGET : in ATOM_TYPE;
CALLBACK : in XTSELECTIONCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTGETSELECTIONVALUE);
pragma IMPORT_PROCEDURE (XTGETSELECTIONVALUE, "XtGetSelectionValue",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, XTSELECTIONCALLBACKPROC_TYPE,
XTPOINTER_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtGetSelectionValues(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> Atom* /* targets */,
--> int /* count */,
--> XtSelectionCallbackProc /* callback */,
--> XtPointer* /* closures */,
--> Time /* time */
--> #endif
--> );
procedure XTGETSELECTIONVALUES (
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
TARGETS : in ATOM_TYPE;
COUNT : in INTEGER;
CALLBACK : in XTSELECTIONCALLBACKPROC_TYPE;
CLIENT_DATAS : in XTPOINTER_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTGETSELECTIONVALUES);
pragma IMPORT_PROCEDURE (XTGETSELECTIONVALUES, "XtGetSelectionValues",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, INTEGER,
XTSELECTIONCALLBACKPROC_TYPE, XTPOINTER_TYPE, TIME_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE));
--> extern void XtAppSetSelectionTimeout(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */,
--> unsigned long /* timeout */
--> #endif
--> );
procedure XTAPPSETSELECTIONTIMEOUT (
APP_CONTEXT : in XTAPPCONTEXT_TYPE;
TIMEOUT : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, XTAPPSETSELECTIONTIMEOUT);
pragma IMPORT_PROCEDURE (XTAPPSETSELECTIONTIMEOUT,
"XtAppSetSelectionTimeout",
(XTAPPCONTEXT_TYPE, UNSIGNED_LONGWORD),
(VALUE, VALUE));
--> extern void XtSetSelectionTimeout(
--> #if NeedFunctionPrototypes
--> unsigned long /* timeout */
--> #endif
--> );
procedure XTSETSELECTIONTIMEOUT (
TIMEOUT : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, XTSETSELECTIONTIMEOUT);
pragma IMPORT_PROCEDURE (XTSETSELECTIONTIMEOUT, "XtSetSelectionTimeout",
(UNSIGNED_LONGWORD),
(VALUE));
--> extern unsigned int XtAppGetSelectionTimeout(
--> #if NeedFunctionPrototypes
--> XtAppContext /* app */
--> #endif
--> );
procedure XTAPPGETSELECTIONTIMEOUT (
RESULT : out UNSIGNED_LONGWORD; --
return value
APP_CONTEXT : in XTAPPCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XTAPPGETSELECTIONTIMEOUT);
pragma IMPORT_VALUED_PROCEDURE (XTAPPGETSELECTIONTIMEOUT,
"XtAppGetSelectionTimeout",
(UNSIGNED_LONGWORD, XTAPPCONTEXT_TYPE),
(VALUE, VALUE));
--> extern unsigned int XtGetSelectionTimeout(
--> #if NeedFunctionPrototypes
--> void
--> #endif
--> );
procedure XTGETSELECTIONTIMEOUT (
RESULT : out UNSIGNED_LONGWORD); --
return value
pragma INTERFACE (EXTERNAL, XTGETSELECTIONTIMEOUT);
pragma IMPORT_VALUED_PROCEDURE (XTGETSELECTIONTIMEOUT,
"XtGetSelectionTimeout",
(UNSIGNED_LONGWORD),
(VALUE));
--> extern XSelectionRequestEvent *XtGetSelectionRequest(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> XtRequestId /* request_id */
--> #endif
--> );
procedure XTGETSELECTIONREQUEST (
RESULT : out ADDRESS; --
return value
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
REQUEST_ID : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XTGETSELECTIONREQUEST);
pragma IMPORT_VALUED_PROCEDURE (XTGETSELECTIONREQUEST,
"XtGetSelectionRequest",
(ADDRESS, WIDGET_TYPE, ATOM_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern void XtGetSelectionValueIncremental(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> Atom /* target */,
--> XtSelectionCallbackProc /* selection_callback */,
--> XtPointer /* client_data */,
--> Time /* time */
--> #endif
--> );
procedure XTGETSELECTIONVALUEINCREMENTAL (
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
TARGET : in ATOM_TYPE;
SELECTION_CALLBACK : in XTSELECTIONCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTGETSELECTIONVALUEINCREMENTAL);
pragma IMPORT_PROCEDURE (XTGETSELECTIONVALUEINCREMENTAL,
"XtGetSelectionValueIncremental",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, XTSELECTIONCALLBACKPROC_TYPE,
XTPOINTER_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtGetSelectionValuesIncremental(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Atom /* selection */,
--> Atom* /* targets */,
--> int /* count */,
--> XtSelectionCallbackProc /* callback */,
--> XtPointer* /* client_data */,
--> Time /* time */
--> #endif
--> );
procedure XTGETSELECTIONVALUESINCREMENTAL (
W : in WIDGET_TYPE;
SELECTION : in ATOM_TYPE;
TARGETS : in ATOM_TYPE;
COUNT : in INTEGER;
SELECTION_CALLBACK : in XTSELECTIONCALLBACKPROC_TYPE;
CLIENT_DATA : in XTPOINTER_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTGETSELECTIONVALUESINCREMENTAL);
pragma IMPORT_PROCEDURE (XTGETSELECTIONVALUESINCREMENTAL,
"XtGetSelectionValuesIncremental",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, INTEGER,
XTSELECTIONCALLBACKPROC_TYPE, XTPOINTER_TYPE, TIME_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE));
--> extern void XtGrabKey(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> KeyCode /* keycode */,
--> Modifiers /* mods */,
--> Boolean /* owner_events */,
--> int /* pointer_mode */,
--> int /* keyboard_mode */
--> #endif
--> );
procedure XTGRABKEY (
WIDGET : in WIDGET_TYPE;
KEYCODE : in KEYCODE_TYPE;
MODIFIERS : in MODIFIERS_TYPE;
OWNER_EVENTS : in BOOLEAN;
POINTER_MODE : in INTEGER;
KEYBOARD_MODE : in INTEGER);
pragma INTERFACE (EXTERNAL, XTGRABKEY);
pragma IMPORT_PROCEDURE (XTGRABKEY, "XtGrabKey",
(WIDGET_TYPE, KEYCODE_TYPE, MODIFIERS_TYPE, BOOLEAN, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtUngrabKey(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> KeyCode /* keycode */,
--> Modifiers /* mods */
--> #endif
--> );
procedure XTUNGRABKEY (
WIDGET : in WIDGET_TYPE;
KEYCODE : in KEYCODE_TYPE;
MODIFIERS : in MODIFIERS_TYPE);
pragma INTERFACE (EXTERNAL, XTUNGRABKEY);
pragma IMPORT_PROCEDURE (XTUNGRABKEY, "XtUngrabKey",
(WIDGET_TYPE, KEYCODE_TYPE, MODIFIERS_TYPE),
(VALUE, VALUE, VALUE));
--> extern int XtGrabKeyboard(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Boolean /* owner_events */,
--> int /* pointer_mode */,
--> int /* keyboard_mode */,
--> Time /* time */
--> #endif
--> );
procedure XTGRABKEYBOARD (
WIDGET : in WIDGET_TYPE;
OWNER_EVENTS : in BOOLEAN;
POINTER_MODE : in INTEGER;
KEYBOARD_MODE : in INTEGER;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTGRABKEYBOARD);
pragma IMPORT_PROCEDURE (XTGRABKEYBOARD, "XtGrabKeyboard",
(WIDGET_TYPE, BOOLEAN, INTEGER, INTEGER, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtUngrabKeyboard(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Time /* time */
--> #endif
--> );
procedure XTUNGRABKEYBOARD (
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTUNGRABKEYBOARD);
pragma IMPORT_PROCEDURE (XTUNGRABKEYBOARD, "XtUngrabKeyboard",
(WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE));
--> extern void XtGrabButton(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> int /* button */,
--> Modifiers /* mods */,
--> Boolean /* owner_events */,
--> unsigned int /* event_mask */,
--> int /* pointer_mode */,
--> int /* keyboard_mode */,
--> Window /* confine_to */,
--> Cursor /* cursor */
--> #endif
--> );
procedure XTGRABBUTTON (
WIDGET : in WIDGET_TYPE;
BUTTON : in INTEGER;
MODIFIERS : in MODIFIERS_TYPE;
OWNER_EVENTS : in BOOLEAN;
EVENT_MASK : in UNSIGNED_LONGWORD;
POINTER_MODE : in INTEGER;
KEYBOARD_MODE : in INTEGER;
CONFINE_TO : in WINDOW_TYPE;
CURSOR : in CURSOR_TYPE);
pragma INTERFACE (EXTERNAL, XTGRABBUTTON);
pragma IMPORT_PROCEDURE (XTGRABBUTTON, "XtGrabButton",
(WIDGET_TYPE, INTEGER, MODIFIERS_TYPE, BOOLEAN, UNSIGNED_LONGWORD,
INTEGER, INTEGER, WINDOW_TYPE, CURSOR_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtUngrabButton(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> unsigned int /* button */,
--> Modifiers /* modifiers */
--> #endif
--> );
procedure XTUNGRABBUTTON (
WIDGET : in WIDGET_TYPE;
BUTTON : in INTEGER;
MODIFIERS : in MODIFIERS_TYPE);
pragma INTERFACE (EXTERNAL, XTUNGRABBUTTON);
pragma IMPORT_PROCEDURE (XTUNGRABBUTTON, "XtUngrabButton",
(WIDGET_TYPE, INTEGER, MODIFIERS_TYPE),
(VALUE, VALUE, VALUE));
--> extern int XtGrabPointer(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Boolean /* owner_events */,
--> unsigned int /* event_mask */,
--> int /* pointer_mode */,
--> int /* keyboard_mode */,
--> Window /* confine_to */,
--> Cursor /* cursor */,
--> Time /* time */
--> #endif
--> );
procedure XTGRABPOINTER (
WIDGET : in WIDGET_TYPE;
OWNER_EVENTS : in BOOLEAN;
EVENT_MASK : in UNSIGNED_LONGWORD;
POINTER_MODE : in INTEGER;
KEYBOARD_MODE : in INTEGER;
CONFINE_TO : in WINDOW_TYPE;
CURSOR : in CURSOR_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTGRABPOINTER);
pragma IMPORT_PROCEDURE (XTGRABPOINTER, "XtGrabPointer",
(WIDGET_TYPE, BOOLEAN, UNSIGNED_LONGWORD, INTEGER, INTEGER, WINDOW_TYPE,
CURSOR_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XtUngrabPointer(
--> #if NeedFunctionPrototypes
--> Widget /* widget */,
--> Time /* time */
--> #endif
--> );
procedure XTUNGRABPOINTER (
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XTUNGRABPOINTER);
pragma IMPORT_PROCEDURE (XTUNGRABPOINTER, "XtUngrabPointer",
(WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE));
--> extern void XtGetApplicationNameAndClass(
--> #if NeedFunctionPrototypes
--> Display* /* dpy */,
--> String* /* name_return */,
--> String* /* class_return */
--> #endif
--> );
procedure XTGETAPPLICATIONNAMEANDCLASS (
DISPLAY : in DISPLAY_TYPE;
NAME_RETURN : out XTSTRING_TYPE;
CLASS_RETURN : out XTSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XTGETAPPLICATIONNAMEANDCLASS);
pragma IMPORT_PROCEDURE (XTGETAPPLICATIONNAMEANDCLASS,
"XtGetApplicationNameAndClass",
(DISPLAY_TYPE, XTSTRING_TYPE, XTSTRING_TYPE),
(VALUE, REFERENCE, REFERENCE));
-- End of Intrinsic.h
-- $XConsortium: Core.h,v 1.10 89/12/12 19:30:32 swick Exp $
--> typedef struct _WidgetClassRec *CoreWidgetClass;
--> typedef struct _WidgetRec *CoreWidget;
subtype COREWIDGET_TYPE is ADDRESS;
--> externalref WidgetClass coreWidgetClass;
COREWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (COREWIDGETCLASS,"coreWidgetClass");
--> externalref WidgetClass widgetClass;
--> ITEM widgetClass WidgetClass GLOBAL;
-- End of Core.h
-- $XConsortium: Composite.h,v 1.10 89/12/12 20:08:44 swick Exp $ */
--> typedef struct _CompositeClassRec *CompositeWidgetClass;
--> extern void XtManageChildren(
--> #if NeedFunctionPrototypes
--> WidgetList /* children */,
--> Cardinal /* num_children */
--> #endif /* NeedFunctionPrototypes */
--> );
procedure XTMANAGECHILDREN (
CHILDREN : in WIDGET_TYPE;
NUM_CHILDREN : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTMANAGECHILDREN);
pragma IMPORT_PROCEDURE (XTMANAGECHILDREN, "XtManageChildren",
(WIDGET_TYPE, CARDINAL_TYPE),
(REFERENCE, VALUE));
--> extern void XtManageChild(
--> #if NeedFunctionPrototypes
--> Widget /* child */
--> #endif /* NeedFunctionPrototypes */
--> );
procedure XTMANAGECHILD (
CHILD : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTMANAGECHILD);
pragma IMPORT_PROCEDURE (XTMANAGECHILD, "XtManageChild",
(WIDGET_TYPE),
(VALUE));
--> extern void XtUnmanageChildren(
--> #if NeedFunctionPrototypes
--> WidgetList /* children */,
--> Cardinal /* num_children */
--> #endif /* NeedFunctionPrototypes */
--> );
procedure XTUNMANAGECHILDREN (
CHILDREN : in WIDGET_TYPE;
NUM_CHILDREN : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XTUNMANAGECHILDREN);
pragma IMPORT_PROCEDURE (XTUNMANAGECHILDREN, "XtUnmanageChildren",
(WIDGET_TYPE, CARDINAL_TYPE),
(REFERENCE, VALUE));
--> extern void XtUnmanageChild(
--> #if NeedFunctionPrototypes
--> Widget /* child */
--> #endif /* NeedFunctionPrototypes */
--> );
procedure XTUNMANAGECHILD (
CHILD : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XTUNMANAGECHILD);
pragma IMPORT_PROCEDURE (XTUNMANAGECHILD, "XtUnmanageChild",
(WIDGET_TYPE),
(VALUE));
--> externalref WidgetClass compositeWidgetClass;
COMPOSITEWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (COMPOSITEWIDGETCLASS,"compositeWidgetClass");
-- End of Composite.h
-- $XConsortium: Constraint.h,v 1.9 89/06/16 18:08:57 jim Exp $ */
--> typedef struct _ConstraintClassRec *ConstraintWidgetClass;
--> externalref WidgetClass constraintWidgetClass;
CONSTRAINTWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (CONSTRAINTWIDGETCLASS,"constraintWidgetClass");
-- End of Constraint.h
-- $XConsortium: Object.h,v 1.8 89/09/11 17:39:25 swick Exp $
--> typedef struct _ObjectRec *Object;
subtype OBJECT_TYPE is ADDRESS;
--> typedef struct _ObjectClassRec *ObjectClass;
--> externalref WidgetClass objectClass;
OBJECTCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (OBJECTCLASS,"objectClass");
-- End of Object.h
-- $XConsortium: RectObj.h,v 1.8 89/09/11 17:39:45 swick Exp $
--> typedef struct _RectObjRec *RectObj;
subtype RECTOBJ_TYPE is ADDRESS;
--> typedef struct _RectObjClassRec *RectObjClass;
--> externalref WidgetClass rectObjClass;
RECTOBJCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (RECTOBJCLASS,"rectObjClass");
-- End of RectObj.h
-- $Header: Selection.h,v 7.6 88/09/22 14:51:07 asente Exp $
--> typedef void (*XtCancelSelectionCallbackProc)();
subtype XTCANCELSELECTIONCALLBACKPROC_TYPE is ADDRESS;
--> typedef XtSelectionCallbackProc XtSelectionIncrCallbackProc;
subtype XTSELECTIONINCRCALLBACKPROC_TYPE is XTSELECTIONCALLBACKPROC_TYPE;
-- End of Selection.h
-- $XConsortium: Shell.h,v 1.21 89/12/13 08:57:08 swick Exp $
--> #define XtNiconName X$GBLS(iconName)
XTNICONNAME : constant STRING := "iconName"&ASCII.NUL;
--> #define XtCIconName X$GBLS(IconName)
XTCICONNAME : constant STRING := "IconName"&ASCII.NUL;
--> #define XtNiconPixmap X$GBLS(iconPixmap)
XTNICONPIXMAP : constant STRING := "iconPixmap"&ASCII.NUL;
--> #define XtCIconPixmap X$GBLS(IconPixmap)
XTCICONPIXMAP : constant STRING := "IconPixmap"&ASCII.NUL;
--> #define XtNiconWindow X$GBLS(iconWindow)
XTNICONWINDOW : constant STRING := "iconWindow"&ASCII.NUL;
--> #define XtCIconWindow X$GBLS(IconWindow)
XTCICONWINDOW : constant STRING := "IconWindow"&ASCII.NUL;
--> #define XtNiconMask X$GBLS(iconMask)
XTNICONMASK : constant STRING := "iconMask"&ASCII.NUL;
--> #define XtCIconMask X$GBLS(IconMask)
XTCICONMASK : constant STRING := "IconMask"&ASCII.NUL;
--> #define XtNwindowGroup X$GBLS(windowGroup)
XTNWINDOWGROUP : constant STRING := "windowGroup"&ASCII.NUL;
--> #define XtCWindowGroup X$GBLS(WindowGroup)
XTCWINDOWGROUP : constant STRING := "WindowGroup"&ASCII.NUL;
--> #define XtNvisual X$GBLS(visual)
XTNVISUAL : constant STRING := "visual"&ASCII.NUL;
--> #define XtCVisual X$GBLS(Visual)
XTCVISUAL : constant STRING := "Visual"&ASCII.NUL;
--> #define XtNtitleEncoding X$GBLS(titleEncoding)
XTNTITLEENCODING : constant STRING := "titleEncoding"&ASCII.NUL;
--> #define XtCTitleEncoding X$GBLS(TitleEncoding)
XTCTITLEENCODING : constant STRING := "TitleEncoding"&ASCII.NUL;
--> #define XtNsaveUnder X$GBLS(saveUnder)
XTNSAVEUNDER : constant STRING := "saveUnder"&ASCII.NUL;
--> #define XtCSaveUnder X$GBLS(SaveUnder)
XTCSAVEUNDER : constant STRING := "SaveUnder"&ASCII.NUL;
--> #define XtNtransient X$GBLS(transient)
XTNTRANSIENT : constant STRING := "transient"&ASCII.NUL;
--> #define XtCTransient X$GBLS(Transient)
XTCTRANSIENT : constant STRING := "Transient"&ASCII.NUL;
--> #define XtNoverrideRedirect X$GBLS(overrideRedirect)
XTNOVERRIDEREDIRECT : constant STRING :=
"overrideRedirect"&ASCII.NUL;
--> #define XtCOverrideRedirect X$GBLS(OverrideRedirect)
XTCOVERRIDEREDIRECT : constant STRING :=
"OverrideRedirect"&ASCII.NUL;
--> #define XtNtransientFor X$GBLS(transientFor)
XTNTRANSIENTFOR : constant STRING := "transientFor"&ASCII.NUL;
--> #define XtCTransientFor X$GBLS(TransientFor)
XTCTRANSIENTFOR : constant STRING := "TransientFor"&ASCII.NUL;
--> #define XtNiconNameEncoding X$GBLS(iconNameEncoding)
XTNICONNAMEENCODING : constant STRING :=
"iconNameEncoding"&ASCII.NUL;
--> #define XtCIconNameEncoding X$GBLS(IconNameEncoding)
XTCICONNAMEENCODING : constant STRING :=
"IconNameEncoding"&ASCII.NUL;
--> #define XtNallowShellResize X$GBLS(allowShellResize)
XTNALLOWSHELLRESIZE : constant STRING :=
"allowShellResize"&ASCII.NUL;
--> #define XtCAllowShellResize X$GBLS(AllowShellResize)
XTCALLOWSHELLRESIZE : constant STRING :=
"AllowShellResize"&ASCII.NUL;
--> #define XtNcreatePopupChildProc X$GBLS(createPopupChildProc)
XTNCREATEPOPUPCHILDPROC : constant STRING :=
"createPopupChildProc"&ASCII.NUL;
--> #define XtCCreatePopupChildProc X$GBLS(CreatePopupChildProc)
XTCCREATEPOPUPCHILDPROC : constant STRING :=
"CreatePopupChildProc"&ASCII.NUL;
--> #define XtNtitle X$GBLS(title)
XTNTITLE : constant STRING := "title"&ASCII.NUL;
--> #define XtCTitle X$GBLS(Title)
XTCTITLE : constant STRING := "Title"&ASCII.NUL;
--> #define XtRAtom X$GBLS(Atom)
XTRATOM : constant STRING := "Atom"&ASCII.NUL;
--> #define XtNargc X$GBLS(argc)
XTNARGC : constant STRING := "argc"&ASCII.NUL;
--> #define XtCArgc X$GBLS(Argc)
XTCARGC : constant STRING := "Argc"&ASCII.NUL;
--> #define XtNargv X$GBLS(argv)
XTNARGV : constant STRING := "argv"&ASCII.NUL;
--> #define XtCArgv X$GBLS(Argv)
XTCARGV : constant STRING := "Argv"&ASCII.NUL;
--> #define XtNiconX X$GBLS(iconX)
XTNICONX : constant STRING := "iconX"&ASCII.NUL;
--> #define XtCIconX X$GBLS(IconX)
XTCICONX : constant STRING := "IconX"&ASCII.NUL;
--> #define XtNiconY X$GBLS(iconY)
XTNICONY : constant STRING := "iconY"&ASCII.NUL;
--> #define XtCIconY X$GBLS(IconY)
XTCICONY : constant STRING := "IconY"&ASCII.NUL;
--> #define XtNinput X$GBLS(input)
XTNINPUT : constant STRING := "input"&ASCII.NUL;
--> #define XtCInput X$GBLS(Input)
XTCINPUT : constant STRING := "Input"&ASCII.NUL;
--> #define XtNiconic X$GBLS(iconic)
XTNICONIC : constant STRING := "iconic"&ASCII.NUL;
--> #define XtCIconic X$GBLS(Iconic)
XTCICONIC : constant STRING := "Iconic"&ASCII.NUL;
--> #define XtNinitialState X$GBLS(initialState)
XTNINITIALSTATE : constant STRING := "initialState"&ASCII.NUL;
--> #define XtCInitialState X$GBLS(InitialState)
XTCINITIALSTATE : constant STRING := "InitialState"&ASCII.NUL;
--> #define XtNgeometry X$GBLS(geometry)
XTNGEOMETRY : constant STRING := "geometry"&ASCII.NUL;
--> #define XtCGeometry X$GBLS(Geometry)
XTCGEOMETRY : constant STRING := "Geometry"&ASCII.NUL;
--> #define XtNbaseWidth X$GBLS(baseWidth)
XTNBASEWIDTH : constant STRING := "baseWidth"&ASCII.NUL;
--> #define XtCBaseWidth X$GBLS(BaseWidth)
XTCBASEWIDTH : constant STRING := "BaseWidth"&ASCII.NUL;
--> #define XtNbaseHeight X$GBLS(baseHeight)
XTNBASEHEIGHT : constant STRING := "baseHeight"&ASCII.NUL;
--> #define XtCBaseHeight X$GBLS(BaseHeight)
XTCBASEHEIGHT : constant STRING := "BaseHeight"&ASCII.NUL;
--> #define XtNwinGravity X$GBLS(winGravity)
XTNWINGRAVITY : constant STRING := "winGravity"&ASCII.NUL;
--> #define XtCWinGravity X$GBLS(WinGravity)
XTCWINGRAVITY : constant STRING := "WinGravity"&ASCII.NUL;
--> #define XtNminWidth X$GBLS(minWidth)
XTNMINWIDTH : constant STRING := "minWidth"&ASCII.NUL;
--> #define XtCMinWidth X$GBLS(MinWidth)
XTCMINWIDTH : constant STRING := "MinWidth"&ASCII.NUL;
--> #define XtNminHeight X$GBLS(minHeight)
XTNMINHEIGHT : constant STRING := "minHeight"&ASCII.NUL;
--> #define XtCMinHeight X$GBLS(MinHeight)
XTCMINHEIGHT : constant STRING := "MinHeight"&ASCII.NUL;
--> #define XtNmaxWidth X$GBLS(maxWidth)
XTNMAXWIDTH : constant STRING := "maxWidth"&ASCII.NUL;
--> #define XtCMaxWidth X$GBLS(MaxWidth)
XTCMAXWIDTH : constant STRING := "MaxWidth"&ASCII.NUL;
--> #define XtNmaxHeight X$GBLS(maxHeight)
XTNMAXHEIGHT : constant STRING := "maxHeight"&ASCII.NUL;
--> #define XtCMaxHeight X$GBLS(MaxHeight)
XTCMAXHEIGHT : constant STRING := "MaxHeight"&ASCII.NUL;
--> #define XtNwidthInc X$GBLS(widthInc)
XTNWIDTHINC : constant STRING := "widthInc"&ASCII.NUL;
--> #define XtCWidthInc X$GBLS(WidthInc)
XTCWIDTHINC : constant STRING := "WidthInc"&ASCII.NUL;
--> #define XtNheightInc X$GBLS(heightInc)
XTNHEIGHTINC : constant STRING := "heightInc"&ASCII.NUL;
--> #define XtCHeightInc X$GBLS(HeightInc)
XTCHEIGHTINC : constant STRING := "HeightInc"&ASCII.NUL;
--> #define XtNminAspectY X$GBLS(minAspectY)
XTNMINASPECTY : constant STRING := "minAspectY"&ASCII.NUL;
--> #define XtCMinAspectY X$GBLS(MinAspectY)
XTCMINASPECTY : constant STRING := "MinAspectY"&ASCII.NUL;
--> #define XtNmaxAspectY X$GBLS(maxAspectY)
XTNMAXASPECTY : constant STRING := "maxAspectY"&ASCII.NUL;
--> #define XtCMaxAspectY X$GBLS(MaxAspectY)
XTCMAXASPECTY : constant STRING := "MaxAspectY"&ASCII.NUL;
--> #define XtNminAspectX X$GBLS(minAspectX)
XTNMINASPECTX : constant STRING := "minAspectX"&ASCII.NUL;
--> #define XtCMinAspectX X$GBLS(MinAspectX)
XTCMINASPECTX : constant STRING := "MinAspectX"&ASCII.NUL;
--> #define XtNmaxAspectX X$GBLS(maxAspectX)
XTNMAXASPECTX : constant STRING := "maxAspectX"&ASCII.NUL;
--> #define XtCMaxAspectX X$GBLS(MaxAspectX)
XTCMAXASPECTX : constant STRING := "MaxAspectX"&ASCII.NUL;
--> #define XtNwmTimeout X$GBLS(wmTimeout)
XTNWMTIMEOUT : constant STRING := "wmTimeout"&ASCII.NUL;
--> #define XtCWmTimeout X$GBLS(WmTimeout)
XTCWMTIMEOUT : constant STRING := "WmTimeout"&ASCII.NUL;
--> #define XtNwaitForWm X$GBLS(waitforwm)
XTNWAITFORWM : constant STRING := "waitforwm"&ASCII.NUL;
--> #define XtCWaitForWm X$GBLS(Waitforwm)
XTCWAITFORWM : constant STRING := "Waitforwm"&ASCII.NUL;
-- Class record constants
--> typedef struct _ShellClassRec *ShellWidgetClass;
--> typedef struct _OverrideShellClassRec *OverrideShellWidgetClass;
--> typedef struct _WMShellClassRec *WMShellWidgetClass;
--> typedef struct _TransientShellClassRec *TransientShellWidgetClass;
--> typedef struct _TopLevelShellClassRec *TopLevelShellWidgetClass;
--> typedef struct _ApplicationShellClassRec *ApplicationShellWidgetClass;
--> externalref WidgetClass shellWidgetClass;
SHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (SHELLWIDGETCLASS,"shellWidgetClass");
--> externalref WidgetClass overrideShellWidgetClass;
OVERRIDESHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (OVERRIDESHELLWIDGETCLASS,"overrideShellWidgetClass");
--> externalref WidgetClass wmShellWidgetClass;
WMSHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (WMSHELLWIDGETCLASS,"wmShellWidgetClass");
--> externalref WidgetClass transientShellWidgetClass;
TRANSIENTSHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (TRANSIENTSHELLWIDGETCLASS,"transientShellWidgetClass");
--> externalref WidgetClass topLevelShellWidgetClass;
TOPLEVELSHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (TOPLEVELSHELLWIDGETCLASS,"topLevelShellWidgetClass");
--> externalref WidgetClass applicationShellWidgetClass;
APPLICATIONSHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT
(APPLICATIONSHELLWIDGETCLASS,"applicationShellWidgetClass");
-- End of Shell.h
-- $XConsortium: StringDefs.h,v 1.49 89/12/12 19:24:02 swick Exp $
-- Resource names */
--> #define XtNaccelerators X$GBLS(accelerators)
XTNACCELERATORS : constant STRING := "accelerators"&ASCII.NUL;
--> #define XtNallowHoriz "allowHoriz"
XTNALLOWHORIZ : constant STRING := "allowHoriz"&ASCII.NUL;
--> #define XtNallowVert "allowVert"
XTNALLOWVERT : constant STRING := "allowVert"&ASCII.NUL;
--> #define XtNancestorSensitive X$GBLS(ancestorSensitive)
XTNANCESTORSENSITIVE : constant STRING :=
"ancestorSensitive"&ASCII.NUL;
--> #define XtNbackground X$GBLS(background)
XTNBACKGROUND : constant STRING := "background"&ASCII.NUL;
--> #define XtNbackgroundPixmap X$GBLS(backgroundPixmap)
XTNBACKGROUNDPIXMAP : constant STRING :=
"backgroundPixmap"&ASCII.NUL;
--> #define XtNbitmap X$GBLS(bitmap)
XTNBITMAP : constant STRING := "bitmap"&ASCII.NUL;
--> #define XtNborderColor X$GBLS(borderColor)
XTNBORDERCOLOR : constant STRING := "borderColor"&ASCII.NUL;
--> #define XtNborder X$GBLS(borderColor)
XTNBORDER : constant STRING := "borderColor"&ASCII.NUL;
--> #define XtNborderPixmap X$GBLS(borderPixmap)
XTNBORDERPIXMAP : constant STRING := "borderPixmap"&ASCII.NUL;
--> #define XtNborderWidth X$GBLS(borderWidth)
XTNBORDERWIDTH : constant STRING := "borderWidth"&ASCII.NUL;
--> #define XtNcallback X$GBLS(callback)
XTNCALLBACK : constant STRING := "callback"&ASCII.NUL;
--> #define XtNchildren X$GBLS(children)
XTNCHILDREN : constant STRING := "children"&ASCII.NUL;
--> #define XtNcolormap X$GBLS(colormap)
XTNCOLORMAP : constant STRING := "colormap"&ASCII.NUL;
--> #define XtNdepth X$GBLS(depth)
XTNDEPTH : constant STRING := "depth"&ASCII.NUL;
--> #define XtNdestroyCallback X$GBLS(destroyCallback)
XTNDESTROYCALLBACK : constant STRING := "destroyCallback"&ASCII.NUL;
--> #define XtNeditType X$GBLS(editType)
XTNEDITTYPE : constant STRING := "editType"&ASCII.NUL;
--> #define XtNfile X$GBLS(file)
XTNFILE : constant STRING := "file"&ASCII.NUL;
--> #define XtNfont X$GBLS(font)
XTNFONT : constant STRING := "font"&ASCII.NUL;
--> #define XtNforceBars X$GBLS(forceBars)
XTNFORCEBARS : constant STRING := "forceBars"&ASCII.NUL;
--> #define XtNforeground X$GBLS(foreground)
XTNFOREGROUND : constant STRING := "foreground"&ASCII.NUL;
--> #define XtNfunction X$GBLS(function)
XTNFUNCTION : constant STRING := "function"&ASCII.NUL;
--> #define XtNheight X$GBLS(height)
XTNHEIGHT : constant STRING := "height"&ASCII.NUL;
--> #define XtNhighlight X$GBLS(highlight)
XTNHIGHLIGHT : constant STRING := "highlight"&ASCII.NUL;
--> #define XtNhSpace "hSpace"
XTNHSPACE : constant STRING := "hSpace"&ASCII.NUL;
--> #define XtNindex X$GBLS(index)
XTNINDEX : constant STRING := "index"&ASCII.NUL;
--> #define XtNinitialResourcesPersistent X$GBLS(initialResourcesPersistent)
XTNINITIALRESOURCESPERSISTENT : constant STRING :=
"initialResourcesPersistent"&ASCII.NUL;
--> #define XtNinnerHeight X$GBLS(innerHeight)
XTNINNERHEIGHT : constant STRING := "innerHeight"&ASCII.NUL;
--> #define XtNinnerWidth X$GBLS(innerWidth)
XTNINNERWIDTH : constant STRING := "innerWidth"&ASCII.NUL;
--> #define XtNinnerWindow X$GBLS(innerWindow)
XTNINNERWINDOW : constant STRING := "innerWindow"&ASCII.NUL;
--> #define XtNinsertPosition X$GBLS(insertPosition)
XTNINSERTPOSITION : constant STRING := "insertPosition"&ASCII.NUL;
--> #define XtNinternalHeight X$GBLS(internalHeight)
XTNINTERNALHEIGHT : constant STRING := "internalHeight"&ASCII.NUL;
--> #define XtNinternalWidth X$GBLS(internalWidth)
XTNINTERNALWIDTH : constant STRING := "internalWidth"&ASCII.NUL;
--> #define XtNjumpProc X$GBLS(jumpProc)
XTNJUMPPROC : constant STRING := "jumpProc"&ASCII.NUL;
--> #define XtNjustify X$GBLS(justify)
XTNJUSTIFY : constant STRING := "justify"&ASCII.NUL;
--> #define XtNknobHeight "knobHeight"
XTNKNOBHEIGHT : constant STRING := "knobHeight"&ASCII.NUL;
--> #define XtNknobIndent "knobIndent"
XTNKNOBINDENT : constant STRING := "knobIndent"&ASCII.NUL;
--> #define XtNknobPixel "knobPixel"
XTNKNOBPIXEL : constant STRING := "knobPixel"&ASCII.NUL;
--> #define XtNknobWidth "knobWidth"
XTNKNOBWIDTH : constant STRING := "knobWidth"&ASCII.NUL;
--> #define XtNlabel X$GBLS(label)
XTNLABEL : constant STRING := "label"&ASCII.NUL;
--> #define XtNlength X$GBLS(length)
XTNLENGTH : constant STRING := "length"&ASCII.NUL;
--> #define XtNlowerRight X$GBLS(lowerRight)
XTNLOWERRIGHT : constant STRING := "lowerRight"&ASCII.NUL;
--> #define XtNmappedWhenManaged X$GBLS(mappedWhenManaged)
XTNMAPPEDWHENMANAGED : constant STRING :=
"mappedWhenManaged"&ASCII.NUL;
--> #define XtNmenuEntry X$GBLS(menuEntry)
XTNMENUENTRY : constant STRING := "menuEntry"&ASCII.NUL;
--> #define XtNname X$GBLS(name)
XTNNAME : constant STRING := "name"&ASCII.NUL;
--> #define XtNnotify X$GBLS(notify)
XTNNOTIFY : constant STRING := "notify"&ASCII.NUL;
--> #define XtNnumChildren X$GBLS(numChildren)
XTNNUMCHILDREN : constant STRING := "numChildren"&ASCII.NUL;
--> #define XtNorientation X$GBLS(orientation)
XTNORIENTATION : constant STRING := "orientation"&ASCII.NUL;
--> #define XtNparameter X$GBLS(parameter)
XTNPARAMETER : constant STRING := "parameter"&ASCII.NUL;
--> #define XtNpixmap X$GBLS(pixmap)
XTNPIXMAP : constant STRING := "pixmap"&ASCII.NUL;
--> #define XtNpopupCallback X$GBLS(popupCallback)
XTNPOPUPCALLBACK : constant STRING := "popupCallback"&ASCII.NUL;
--> #define XtNpopdownCallback X$GBLS(popdownCallback)
XTNPOPDOWNCALLBACK : constant STRING := "popdownCallback"&ASCII.NUL;
--> #define XtNresize X$GBLS(resize)
XTNRESIZE : constant STRING := "resize"&ASCII.NUL;
--> #define XtNreverseVideo X$GBLS(reverseVideo)
XTNREVERSEVIDEO : constant STRING := "reverseVideo"&ASCII.NUL;
--> #define XtNscreen X$GBLS(screen)
XTNSCREEN : constant STRING := "screen"&ASCII.NUL;
--> #define XtNscrollProc X$GBLS(scrollProc)
XTNSCROLLPROC : constant STRING := "scrollProc"&ASCII.NUL;
--> #define XtNscrollDCursor X$GBLS(scrollDCursor)
XTNSCROLLDCURSOR : constant STRING := "scrollDCursor"&ASCII.NUL;
--> #define XtNscrollHCursor X$GBLS(scrollHCursor)
XTNSCROLLHCURSOR : constant STRING := "scrollHCursor"&ASCII.NUL;
--> #define XtNscrollLCursor X$GBLS(scrollLCursor)
XTNSCROLLLCURSOR : constant STRING := "scrollLCursor"&ASCII.NUL;
--> #define XtNscrollRCursor X$GBLS(scrollRCursor)
XTNSCROLLRCURSOR : constant STRING := "scrollRCursor"&ASCII.NUL;
--> #define XtNscrollUCursor X$GBLS(scrollUCursor)
XTNSCROLLUCURSOR : constant STRING := "scrollUCursor"&ASCII.NUL;
--> #define XtNscrollVCursor X$GBLS(scrollVCursor)
XTNSCROLLVCURSOR : constant STRING := "scrollVCursor"&ASCII.NUL;
--> #define XtNselection X$GBLS(selection)
XTNSELECTION : constant STRING := "selection"&ASCII.NUL;
--> #define XtNselectionArray X$GBLS(selectionArray)
XTNSELECTIONARRAY : constant STRING := "selectionArray"&ASCII.NUL;
--> #define XtNsensitive X$GBLS(sensitive)
XTNSENSITIVE : constant STRING := "sensitive"&ASCII.NUL;
--> #define XtNshown X$GBLS(shown)
XTNSHOWN : constant STRING := "shown"&ASCII.NUL;
--> #define XtNspace X$GBLS(space)
XTNSPACE : constant STRING := "space"&ASCII.NUL;
--> #define XtNstring X$GBLS(string)
XTNSTRING : constant STRING := "string"&ASCII.NUL;
--> #define XtNtextOptions X$GBLS(textOptions)
XTNTEXTOPTIONS : constant STRING := "textOptions"&ASCII.NUL;
--> #define XtNtextSink X$GBLS(textSink)
XTNTEXTSINK : constant STRING := "textSink"&ASCII.NUL;
--> #define XtNtextSource X$GBLS(textSource)
XTNTEXTSOURCE : constant STRING := "textSource"&ASCII.NUL;
--> #define XtNthickness X$GBLS(thickness)
XTNTHICKNESS : constant STRING := "thickness"&ASCII.NUL;
--> #define XtNthumb X$GBLS(thumb)
XTNTHUMB : constant STRING := "thumb"&ASCII.NUL;
--> #define XtNthumbProc X$GBLS(thumbProc)
XTNTHUMBPROC : constant STRING := "thumbProc"&ASCII.NUL;
--> #define XtNtop X$GBLS(top)
XTNTOP : constant STRING := "top"&ASCII.NUL;
--> #define XtNtranslations X$GBLS(translations)
XTNTRANSLATIONS : constant STRING := "translations"&ASCII.NUL;
--> #define XtNunrealizeCallback "unrealizeCallback"
XTNUNREALIZECALLBACK : constant STRING :=
"nrealizeCallback"&ASCII.NUL;
--> #define XtNupdate X$GBLS(update)
XTNUPDATE : constant STRING := "update"&ASCII.NUL;
--> #define XtNuseBottom X$GBLS(useBottom)
XTNUSEBOTTOM : constant STRING := "useBottom"&ASCII.NUL;
--> #define XtNuseRight X$GBLS(useRight)
XTNUSERIGHT : constant STRING := "useRight"&ASCII.NUL;
--> #define XtNvalue X$GBLS(value)
XTNVALUE : constant STRING := "value"&ASCII.NUL;
--> #define XtNvSpace "vSpace"
XTNVSPACE : constant STRING := "vSpace"&ASCII.NUL;
--> #define XtNwidth X$GBLS(width)
XTNWIDTH : constant STRING := "width"&ASCII.NUL;
--> #define XtNwindow X$GBLS(window)
XTNWINDOW : constant STRING := "window"&ASCII.NUL;
--> #define XtNx X$GBLS(x)
XTNX : constant STRING := "x"&ASCII.NUL;
--> #define XtNy X$GBLS(y)
XTNY : constant STRING := "y"&ASCII.NUL;
-- Class types
--> #define XtCAccelerators X$GBLS(Accelerators)
XTCACCELERATORS : constant STRING := "Accelerators"&ASCII.NUL;
--> #define XtCBackground X$GBLS(Background)
XTCBACKGROUND : constant STRING := "Background"&ASCII.NUL;
--> #define XtCBitmap X$GBLS(Bitmap)
XTCBITMAP : constant STRING := "Bitmap"&ASCII.NUL;
--> #define XtCBoolean X$GBLS(Boolean)
XTCBOOLEAN : constant STRING := "Boolean"&ASCII.NUL;
--> #define XtCBorderColor X$GBLS(BorderColor)
XTCBORDERCOLOR : constant STRING := "BorderColor"&ASCII.NUL;
--> #define XtCBorderWidth X$GBLS(BorderWidth)
XTCBORDERWIDTH : constant STRING := "BorderWidth"&ASCII.NUL;
--> #define XtCCallback X$GBLS(Callback)
XTCCALLBACK : constant STRING := "Callback"&ASCII.NUL;
--> #define XtCColormap X$GBLS(Colormap)
XTCCOLORMAP : constant STRING := "Colormap"&ASCII.NUL;
--> #define XtCColor X$GBLS(Color)
XTCCOLOR : constant STRING := "Color"&ASCII.NUL;
--> #define XtCCursor X$GBLS(Cursor)
XTCCURSOR : constant STRING := "Cursor"&ASCII.NUL;
--> #define XtCDepth X$GBLS(Depth)
XTCDEPTH : constant STRING := "Depth"&ASCII.NUL;
--> #define XtCEditType X$GBLS(EditType)
XTCEDITTYPE : constant STRING := "EditType"&ASCII.NUL;
--> #define XtCEventBindings X$GBLS(EventBindings)
XTCEVENTBINDINGS : constant STRING := "EventBindings"&ASCII.NUL;
--> #define XtCFile X$GBLS(File)
XTCFILE : constant STRING := "File"&ASCII.NUL;
--> #define XtCFont X$GBLS(Font)
XTCFONT : constant STRING := "Font"&ASCII.NUL;
--> #define XtCForeground X$GBLS(Foreground)
XTCFOREGROUND : constant STRING := "Foreground"&ASCII.NUL;
--> #define XtCFraction X$GBLS(Fraction)
XTCFRACTION : constant STRING := "Fraction"&ASCII.NUL;
--> #define XtCFunction X$GBLS(Function)
XTCFUNCTION : constant STRING := "Function"&ASCII.NUL;
--> #define XtCHeight X$GBLS(Height)
XTCHEIGHT : constant STRING := "Height"&ASCII.NUL;
--> #define XtCHSpace X$GBLS(HSpace)
XTCHSPACE : constant STRING := "HSpace"&ASCII.NUL;
--> #define XtCIndex X$GBLS(Index)
XTCINDEX : constant STRING := "Index"&ASCII.NUL;
--> #define XtCInitialResourcesPersistent X$GBLS(InitialResourcesPersistent)
XTCINITIALRESOURCESPERSISTENT : constant STRING :=
"InitialResourcesPersistent"&ASCII.NUL;
--> #define XtCInsertPosition X$GBLS(InsertPosition)
XTCINSERTPOSITION : constant STRING := "InsertPosition"&ASCII.NUL;
--> #define XtCInterval X$GBLS(Interval)
XTCINTERVAL : constant STRING := "Interval"&ASCII.NUL;
--> #define XtCJustify X$GBLS(Justify)
XTCJUSTIFY : constant STRING := "Justify"&ASCII.NUL;
--> #define XtCKnobIndent "KnobIndent"
XTCKNOBINDENT : constant STRING := "KnobIndent"&ASCII.NUL;
--> #define XtCKnobPixel "KnobPixel"
XTCKNOBPIXEL : constant STRING := "KnobPixel"&ASCII.NUL;
--> #define XtCLabel X$GBLS(Label)
XTCLABEL : constant STRING := "Label"&ASCII.NUL;
--> #define XtCLength X$GBLS(Length)
XTCLENGTH : constant STRING := "Length"&ASCII.NUL;
--> #define XtCMappedWhenManaged X$GBLS(MappedWhenManaged)
XTCMAPPEDWHENMANAGED : constant STRING :=
"MappedWhenManaged"&ASCII.NUL;
--> #define XtCMargin X$GBLS(Margin)
XTCMARGIN : constant STRING := "Margin"&ASCII.NUL;
--> #define XtCMenuEntry X$GBLS(MenuEntry)
XTCMENUENTRY : constant STRING := "MenuEntry"&ASCII.NUL;
--> #define XtCNotify X$GBLS(Notify)
XTCNOTIFY : constant STRING := "Notify"&ASCII.NUL;
--> #define XtCOrientation X$GBLS(Orientation)
XTCORIENTATION : constant STRING := "Orientation"&ASCII.NUL;
--> #define XtCParameter X$GBLS(Parameter)
XTCPARAMETER : constant STRING := "Parameter"&ASCII.NUL;
--> #define XtCPixmap X$GBLS(Pixmap)
XTCPIXMAP : constant STRING := "Pixmap"&ASCII.NUL;
--> #define XtCPosition X$GBLS(Position)
XTCPOSITION : constant STRING := "Position"&ASCII.NUL;
--> #define XtCReadOnly X$GBLS(ReadOnly)
XTCREADONLY : constant STRING := "ReadOnly"&ASCII.NUL;
--> #define XtCResize X$GBLS(Resize)
XTCRESIZE : constant STRING := "Resize"&ASCII.NUL;
--> #define XtCReverseVideo X$GBLS(ReverseVideo)
XTCREVERSEVIDEO : constant STRING := "ReverseVideo"&ASCII.NUL;
--> #define XtCScreen X$GBLS(Screen)
XTCSCREEN : constant STRING := "Screen"&ASCII.NUL;
--> #define XtCScrollProc X$GBLS(ScrollProc)
XTCSCROLLPROC : constant STRING := "ScrollProc"&ASCII.NUL;
--> #define XtCScrollDCursor X$GBLS(ScrollDCursor)
XTCSCROLLDCURSOR : constant STRING := "ScrollDCursor"&ASCII.NUL;
--> #define XtCScrollHCursor X$GBLS(ScrollHCursor)
XTCSCROLLHCURSOR : constant STRING := "ScrollHCursor"&ASCII.NUL;
--> #define XtCScrollLCursor X$GBLS(ScrollLCursor)
XTCSCROLLLCURSOR : constant STRING := "ScrollLCursor"&ASCII.NUL;
--> #define XtCScrollRCursor X$GBLS(ScrollRCursor)
XTCSCROLLRCURSOR : constant STRING := "ScrollRCursor"&ASCII.NUL;
--> #define XtCScrollUCursor X$GBLS(ScrollUCursor)
XTCSCROLLUCURSOR : constant STRING := "ScrollUCursor"&ASCII.NUL;
--> #define XtCScrollVCursor X$GBLS(ScrollVCursor)
XTCSCROLLVCURSOR : constant STRING := "ScrollVCursor"&ASCII.NUL;
--> #define XtCSelection X$GBLS(Selection)
XTCSELECTION : constant STRING := "Selection"&ASCII.NUL;
--> #define XtCSensitive X$GBLS(Sensitive)
XTCSENSITIVE : constant STRING := "Sensitive"&ASCII.NUL;
--> #define XtCSelectionArray X$GBLS(SelectionArray)
XTCSELECTIONARRAY : constant STRING := "SelectionArray"&ASCII.NUL;
--> #define XtCSpace X$GBLS(Space)
XTCSPACE : constant STRING := "Space"&ASCII.NUL;
--> #define XtCString X$GBLS(String)
XTCSTRING : constant STRING := "String"&ASCII.NUL;
--> #define XtCTextOptions X$GBLS(TextOptions)
XTCTEXTOPTIONS : constant STRING := "TextOptions"&ASCII.NUL;
--> #define XtCTextPosition X$GBLS(TextPosition)
XTCTEXTPOSITION : constant STRING := "TextPosition"&ASCII.NUL;
--> #define XtCTextSink X$GBLS(TextSink)
XTCTEXTSINK : constant STRING := "TextSink"&ASCII.NUL;
--> #define XtCTextSource X$GBLS(TextSource)
XTCTEXTSOURCE : constant STRING := "TextSource"&ASCII.NUL;
--> #define XtCThickness X$GBLS(Thickness)
XTCTHICKNESS : constant STRING := "Thickness"&ASCII.NUL;
--> #define XtCThumb X$GBLS(Thumb)
XTCTHUMB : constant STRING := "Thumb"&ASCII.NUL;
--> #define XtCTranslations X$GBLS(Translations)
XTCTRANSLATIONS : constant STRING := "Translations"&ASCII.NUL;
--> #define XtCValue X$GBLS(Value)
XTCVALUE : constant STRING := "Value"&ASCII.NUL;
--> #define XtCVSpace X$GBLS(VSpace)
XTCVSPACE : constant STRING := "VSpace"&ASCII.NUL;
--> #define XtCWidth X$GBLS(Width)
XTCWIDTH : constant STRING := "Width"&ASCII.NUL;
--> #define XtCWindow X$GBLS(Window)
XTCWINDOW : constant STRING := "Window"&ASCII.NUL;
--> #define XtCX X$GBLS(X)
XTCX : constant STRING := "X"&ASCII.NUL;
--> #define XtCY X$GBLS(Y)
XTCY : constant STRING := "Y"&ASCII.NUL;
-- Representation types
--> #define XtRAcceleratorTable X$GBLS(AcceleratorTable)
XTRACCELERATORTABLE : constant STRING :=
"AcceleratorTable"&ASCII.NUL;
--> #define XtRBitmap X$GBLS(Bitmap)
XTRBITMAP : constant STRING := "Bitmap"&ASCII.NUL;
--> #define XtRBool X$GBLS(Bool)
XTRBOOL : constant STRING := "Bool"&ASCII.NUL;
--> #define XtRBoolean X$GBLS(Boolean)
XTRBOOLEAN : constant STRING := "Boolean"&ASCII.NUL;
--> #define XtRCallback X$GBLS(Callback)
XTRCALLBACK : constant STRING := "Callback"&ASCII.NUL;
--> #define XtRCallProc X$GBLS(CallProc)
XTRCALLPROC : constant STRING := "CallProc"&ASCII.NUL;
--> #define XtRCardinal X$GBLS(Cardinal)
XTRCARDINAL : constant STRING := "Cardinal"&ASCII.NUL;
--> #define XtRColor X$GBLS(Color)
XTRCOLOR : constant STRING := "Color"&ASCII.NUL;
--> #define XtRColormap X$GBLS(Colormap)
XTRCOLORMAP : constant STRING := "Colormap"&ASCII.NUL;
--> #define XtRCursor X$GBLS(Cursor)
XTRCURSOR : constant STRING := "Cursor"&ASCII.NUL;
--> #define XtRDimension X$GBLS(Dimension)
XTRDIMENSION : constant STRING := "Dimension"&ASCII.NUL;
--> #define XtRDisplay X$GBLS(Display)
XTRDISPLAY : constant STRING := "Display"&ASCII.NUL;
--> #define XtREditMode X$GBLS(EditMode)
XTREDITMODE : constant STRING := "EditMode"&ASCII.NUL;
--> #define XtREnum "Enum"
XTRENUM : constant STRING := "Enum"&ASCII.NUL;
--> #define XtRFile X$GBLS(File)
XTRFILE : constant STRING := "File"&ASCII.NUL;
--> #define XtRFloat "Float"
XTRFLOAT : constant STRING := "Float"&ASCII.NUL;
--> #define XtRFont X$GBLS(Font)
XTRFONT : constant STRING := "Font"&ASCII.NUL;
--> #define XtRFontStruct X$GBLS(FontStruct)
XTRFONTSTRUCT : constant STRING := "FontStruct"&ASCII.NUL;
--> #define XtRFunction X$GBLS(Function)
XTRFUNCTION : constant STRING := "Function"&ASCII.NUL;
--> #define XtRGeometry X$GBLS(Geometry)
XTRGEOMETRY : constant STRING := "Geometry"&ASCII.NUL;
--> #define XtRImmediate X$GBLS(Immediate)
XTRIMMEDIATE : constant STRING := "Immediate"&ASCII.NUL;
--> #define XtRInitialState X$GBLS(InitialState)
XTRINITIALSTATE : constant STRING := "InitialState"&ASCII.NUL;
--> #define XtRInt X$GBLS(Int)
XTRINT : constant STRING := "Int"&ASCII.NUL;
--> #define XtRJustify X$GBLS(Justify)
XTRJUSTIFY : constant STRING := "Justify"&ASCII.NUL;
--> #define XtRLongBoolean XtRBool
XTRLONGBOOLEAN : constant STRING := "Bool"&ASCII.NUL;
--> #define XtROrientation X$GBLS(Orientation)
XTRORIENTATION : constant STRING := "Orientation"&ASCII.NUL;
--> #define XtRPixel X$GBLS(Pixel)
XTRPIXEL : constant STRING := "Pixel"&ASCII.NUL;
--> #define XtRPixmap X$GBLS(Pixmap)
XTRPIXMAP : constant STRING := "Pixmap"&ASCII.NUL;
--> #define XtRPointer X$GBLS(Pointer)
XTRPOINTER : constant STRING := "Pointer"&ASCII.NUL;
--> #define XtRPosition X$GBLS(Position)
XTRPOSITION : constant STRING := "Position"&ASCII.NUL;
--> #define XtRScreen X$GBLS(Screen)
XTRSCREEN : constant STRING := "Screen"&ASCII.NUL;
--> #define XtRShort X$GBLS(Short)
XTRSHORT : constant STRING := "Short"&ASCII.NUL;
--> #define XtRString X$GBLS(String)
XTRSTRING : constant STRING := "String"&ASCII.NUL;
--> #define XtRStringArray X$GBLS(StringArray)
XTRSTRINGARRAY : constant STRING := "StringArray"&ASCII.NUL;
--> #define XtRStringTable X$GBLS(StringTable)
XTRSTRINGTABLE : constant STRING := "StringTable"&ASCII.NUL;
--> #define XtRUnsignedChar X$GBLS(UnsignedChar)
XTRUNSIGNEDCHAR : constant STRING := "UnsignedChar"&ASCII.NUL;
--> #define XtRTranslationTable X$GBLS(TranslationTable)
XTRTRANSLATIONTABLE : constant STRING :=
"TranslationTable"&ASCII.NUL;
--> #define XtRVisual X$GBLS(Visual)
XTRVISUAL : constant STRING := "Visual"&ASCII.NUL;
--> #define XtRWidget X$GBLS(Widget)
XTRWIDGET : constant STRING := "Widget"&ASCII.NUL;
--> #define XtRWidgetClass X$GBLS(WidgetClass)
XTRWIDGETCLASS : constant STRING := "WidgetClass"&ASCII.NUL;
--> #define XtRWidgetList X$GBLS(WidgetList)
XTRWIDGETLIST : constant STRING := "WidgetList"&ASCII.NUL;
--> #define XtRWindow X$GBLS(Window)
XTRWINDOW : constant STRING := "Window"&ASCII.NUL;
-- Boolean enumeration constants
--> #define XtEoff "off"
XTEOFF : constant STRING := "off"&ASCII.NUL;
--> #define XtEfalse "false"
XTEFALSE : constant STRING := "false"&ASCII.NUL;
--> #define XtEno "no"
XTENO : constant STRING := "no"&ASCII.NUL;
--> #define XtEon "on"
XTEON : constant STRING := "on"&ASCII.NUL;
--> #define XtEtrue "true"
XTETRUE : constant STRING := "true"&ASCII.NUL;
--> #define XtEyes "yes"
XTEYES : constant STRING := "yes"&ASCII.NUL;
-- Orientation enumeration constants
--> #define XtEvertical "vertical"
XTEVERTICAL : constant STRING := "vertical"&ASCII.NUL;
--> #define XtEhorizontal "horizontal"
XTEHORIZONTAL : constant STRING := "horizontal"&ASCII.NUL;
-- text edit enumeration constants
--> #define XtEtextRead "read"
XTETEXTREAD : constant STRING := "read"&ASCII.NUL;
--> #define XtEtextAppend "append"
XTETEXTAPPEND : constant STRING := "append"&ASCII.NUL;
--> #define XtEtextEdit "edit"
XTETEXTEDIT : constant STRING := "edit"&ASCII.NUL;
-- color enumeration constants
--> #define XtExtdefaultbackground "xtdefaultbackground"
XTEXTDEFAULTBACKGROUND : constant STRING :=
"xtdefaultbackground"&ASCII.NUL;
--> #define XtExtdefaultforeground "xtdefaultforeground"
XTEXTDEFAULTFOREGROUND : constant STRING :=
"xtdefaultforeground"&ASCII.NUL;
-- font constant
--> #define XtExtdefaultfont "xtdefaultfont"
XTEXTDEFAULTFONT : constant STRING := "xtdefaultfont"&ASCII.NUL;
-- End of StringDefs.h
-- $XConsortium: Vendor.h,v 1.8 89/12/14 14:55:30 swick Exp $
--> #define XtNiconifyPixmap "iconifyPixmap"
XTNICONIFYPIXMAP : constant STRING := "iconifyPixmap"&ASCII.NUL;
--> #define XtCIconifyPixmap "IconifyPixmap"
XTCICONIFYPIXMAP : constant STRING := "IconifyPixmap"&ASCII.NUL;
--> #define XtNiconBoxX "iconBoxX"
XTNICONBOXX : constant STRING := "iconBoxX"&ASCII.NUL;
--> #define XtCIconBoxX "IconBoxX"
XTCICONBOXX : constant STRING := "IconBoxX"&ASCII.NUL;
--> #define XtNiconBoxY "iconBoxY"
XTNICONBOXY : constant STRING := "iconBoxY"&ASCII.NUL;
--> #define XtCIconBoxY "IconBoxY"
XTCICONBOXY : constant STRING := "IconBoxY"&ASCII.NUL;
--> #define XtNtiled "tiled"
XTNTILED : constant STRING := "tiled"&ASCII.NUL;
--> #define XtCTiled "Tiled"
XTCTILED : constant STRING := "Tiled"&ASCII.NUL;
--> #define XtNsticky "sticky"
XTNSTICKY : constant STRING := "sticky"&ASCII.NUL;
--> #define XtCSticky "Sticky"
XTCSTICKY : constant STRING := "Sticky"&ASCII.NUL;
--> #define XtNnoIconify "noIconify"
XTNNOICONIFY : constant STRING := "noIconify"&ASCII.NUL;
--> #define XtCNoIconify "NoIconify"
XTCNOICONIFY : constant STRING := "NoIconify"&ASCII.NUL;
--> #define XtNnoLower "noLower"
XTNNOLOWER : constant STRING := "noLower"&ASCII.NUL;
--> #define XtCNoLower "NoLower"
XTCNOLOWER : constant STRING := "NoLower"&ASCII.NUL;
--> #define XtNnoResize "noResize"
XTNNORESIZE : constant STRING := "noResize"&ASCII.NUL;
--> #define XtCNoResize "NoResize"
XTCNORESIZE : constant STRING := "NoResize"&ASCII.NUL;
--> #define XtNiconBox "iconBox"
XTNICONBOX : constant STRING := "iconBox"&ASCII.NUL;
--> #define XtCIconBox "IconBox"
XTCICONBOX : constant STRING := "IconBox"&ASCII.NUL;
-- Copyright notice resources -- now obsolete
--> #define XtNcopyright "copyright"
XTNCOPYRIGHT : constant STRING := "copyright"&ASCII.NUL;
--> #define XtCCopyright "Copyright"
XTCCOPYRIGHT : constant STRING := "Copyright"&ASCII.NUL;
--> #define XtNcopyrightNotice "copyrightNotice"
XTNCOPYRIGHTNOTICE : constant STRING := "copyrightNotice"&ASCII.NUL;
--> #define XtCCopyrightNotice "CopyrightNotice"
XTCCOPYRIGHTNOTICE : constant STRING := "CopyrightNotice"&ASCII.NUL;
--> #define XtNcopyrightMessage "copyrightMessage"
XTNCOPYRIGHTMESSAGE : constant STRING :=
"copyrightMessage"&ASCII.NUL;
--> #define XtCCopyrightMessage "CopyrightMessage"
XTCCOPYRIGHTMESSAGE : constant STRING :=
"CopyrightMessage"&ASCII.NUL;
--> #define XtNcopyrightFont "copyrightFont"
XTNCOPYRIGHTFONT : constant STRING := "copyrightFont"&ASCII.NUL;
--> #define XtNcopyrightForeground "copyrightForeground"
XTNCOPYRIGHTFOREGROUND : constant STRING :=
"copyrightForeground"&ASCII.NUL;
--> #define XtNcopyrightBackground "copyrightBackground"
XTNCOPYRIGHTBACKGROUND : constant STRING :=
"copyrightBackground"&ASCII.NUL;
--> #define XtNcopyrightBorderColor "copyrightBorderColor"
XTNCOPYRIGHTBORDERCOLOR : constant STRING :=
"copyrightBorderColor"&ASCII.NUL;
--> #define XtNcopyrightBorderWidth "copyrightBorderWidth"
XTNCOPYRIGHTBORDERWIDTH : constant STRING :=
"copyrightBorderWidth"&ASCII.NUL;
--> #define XtCCopyrightBorderWidth "CopyrightBorderWidth"
XTCCOPYRIGHTBORDERWIDTH : constant STRING :=
"CopyrightBorderWidth"&ASCII.NUL;
--> #define XtNcopyrightMinTime "copyrightMinTime"
XTNCOPYRIGHTMINTIME : constant STRING :=
"copyrightMinTime"&ASCII.NUL;
--> #define XtCCopyrightMinTime "copyrightMinTime"
XTCCOPYRIGHTMINTIME : constant STRING :=
"copyrightMinTime"&ASCII.NUL;
--> #define XtNcopyrightMaxTime "copyrightMaxTime"
XTNCOPYRIGHTMAXTIME : constant STRING :=
"copyrightMaxTime"&ASCII.NUL;
--> #define XtCCopyrightMaxTime "copyrightMaxTime"
XTCCOPYRIGHTMAXTIME : constant STRING :=
"copyrightMaxTime"&ASCII.NUL;
-- These can only be gotten, not set
--> #define XtNdecWmValueMask "decWmValueMask"
XTNDECWMVALUEMASK : constant STRING := "decWmValueMask"&ASCII.NUL;
--> #define XtCDecWmValueMask "DecWmValueMask"
XTCDECWMVALUEMASK : constant STRING := "DecWmValueMask"&ASCII.NUL;
--> #define XtNtitleFont "titleFont"
XTNTITLEFONT : constant STRING := "titleFont"&ASCII.NUL;
--> #define XtCTitleFont "TitleFont"
XTCTITLEFONT : constant STRING := "TitleFont"&ASCII.NUL;
--> #define XtNiconFont "iconFont"
XTNICONFONT : constant STRING := "iconFont"&ASCII.NUL;
--> #define XtCIconFont "IconFont"
XTCICONFONT : constant STRING := "IconFont"&ASCII.NUL;
--> #define XtNborderWidth "borderWidth"
--> Already declared in Shell.h
--> #define XtCBorderWidth "BorderWidth"
--> Already declared in Shell.h
--> #define XtNtitleHeight "titleHeight"
XTNTITLEHEIGHT : constant STRING := "titleHeight"&ASCII.NUL;
--> #define XtCTitleHeight "TitleHeight"
XTCTITLEHEIGHT : constant STRING := "TitleHeight"&ASCII.NUL;
--> #define XtNnonTitleWidth "nonTitleWidth"
XTNNONTITLEWIDTH : constant STRING := "nonTitleWidth"&ASCII.NUL;
--> #define XtCNonTitleWidth "NonTitleWidth"
XTCNONTITLEWIDTH : constant STRING := "NonTitleWidth"&ASCII.NUL;
--> #define XtNiconNameWidth "iconNameWidth"
XTNICONNAMEWIDTH : constant STRING := "iconNameWidth"&ASCII.NUL;
--> #define XtCIconNameWidth "IconNameWidth"
XTCICONNAMEWIDTH : constant STRING := "IconNameWidth"&ASCII.NUL;
--> #define XtNiconifyWidth "iconifyWidth"
XTNICONIFYWIDTH : constant STRING := "iconifyWidth"&ASCII.NUL;
--> #define XtCIconifyWidth "IconifyWidth"
XTCICONIFYWIDTH : constant STRING := "IconifyWidth"&ASCII.NUL;
--> #define XtNiconifyHeight "iconifyHeight"
XTNICONIFYHEIGHT : constant STRING := "iconifyHeight"&ASCII.NUL;
--> #define XtCIconifyHeight "IconifyHeight"
XTCICONIFYHEIGHT : constant STRING := "IconifyHeight"&ASCII.NUL;
--> #define XtNiconState "iconState"
XTNICONSTATE : constant STRING := "iconState"&ASCII.NUL;
--> #define XtCIconState "IconState"
XTCICONSTATE : constant STRING := "IconState"&ASCII.NUL;
--> #define DECWmIconifyPixmapMask (1L<<0)
DECWMICONIFYPIXMAPMASK : constant := 1;
--> #define DECWmIconBoxXMask (1L<<1)
DECWMICONBOXXMASK : constant := 2;
--> #define DECWmIconBoxYMask (1L<<2)
DECWMICONBOXYMASK : constant := 4;
--> #define DECWmTiledMask (1L<<3)
DECWMTILEDMASK : constant := 8;
--> #define DECWmStickyMask (1L<<4)
DECWMSTICKYMASK : constant := 16;
--> #define DECWmNoIconifyButtonMask (1L<<5)
DECWMNOICONIFYBUTTONMASK : constant := 32;
--> #define DECWmNoLowerButtonMask (1L<<6)
DECWMNOLOWERBUTTONMASK : constant := 64;
--> #define DECWmNoResizeButtonMask (1L<<7)
DECWMNORESIZEBUTTONMASK : constant := 128;
-- exported functions
-- Class record constants
--> typedef struct _VendorShellRec *VendorShellWidget;
subtype VENDORSHELLWIDGET_TYPE is ADDRESS;
--> typedef struct _VendorShellClassRec *VendorShellWidgetClass;
--> externalref WidgetClass vendorShellWidgetClass;
VENDORSHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (VENDORSHELLWIDGETCLASS,"vendorShellWidgetClass");
-- End of Vendor.h
-- I18n.h
--> typedef struct {
--> char * locale;
--> Boolean use_mrm_hierarchy;
--> Opaque mrm_hierarchy_id;
--> Opaque widget_class;
--> } I18nContextRec, *I18nContext;
type I18NCONTEXTREC_TYPE is
record
LOCALE : ADDRESS;
USE_MRM_HIERARCHY : BOOLEAN;
MRM_HIERARCHY_ID : XTPOINTER_TYPE;
WIDGET_CLASS : XTPOINTER_TYPE;
end record;
for I18NCONTEXTREC_TYPE use
record
LOCALE at 0 range 0 .. 31;
USE_MRM_HIERARCHY at 4 range 0 .. 7;
MRM_HIERARCHY_ID at 5 range 0 .. 31;
WIDGET_CLASS at 9 range 0 .. 31;
end record;
for I18NCONTEXTREC_TYPE'SIZE use 104;
I18NCONTEXTREC_TYPE_INIT : constant I18NCONTEXTREC_TYPE :=
(LOCALE => ADDRESS_ZERO,
USE_MRM_HIERARCHY => FALSE,
MRM_HIERARCHY_ID => ADDRESS_ZERO,
WIDGET_CLASS => ADDRESS_ZERO);
subtype I18NCONTEXT_TYPE is ADDRESS;
--> MODULE XMINCLUDES IDENT "V1.0";
--> INCLUDE "xtincludes.sdl";
-- OSF/Motif: @(#)Xm.h 3.58 90/08/13
--> #define XmUNSPECIFIED_PIXMAP 2
XMUNSPECIFIED_PIXMAP : constant := 2;
-- define charset constants
--> #define XmSTRING_ISO8859_1 "ISO8859-1"
XMSTRING_ISO8859_1 : constant STRING := "ISO8859-1"&ASCII.NUL;
--> #define XmSTRING_OS_CHARSET "ISO8859-1"
XMSTRING_OS_CHARSET : constant STRING := "ISO8859-1"&ASCII.NUL;
--> #define XmFALLBACK_CHARSET "ISO8859-1"
XMFALLBACK_CHARSET : constant STRING := "ISO8859-1"&ASCII.NUL;
--******
--
-- XmString structure defines. These must be here (at the start of the file)
-- becaused they are used later on.
--
--*****
--> #define XmSTRING_DIRECTION_L_TO_R 0
XMSTRING_DIRECTION_L_TO_R : constant := 0;
--> #define XmSTRING_DIRECTION_R_TO_L 1
XMSTRING_DIRECTION_R_TO_L : constant := 1;
--> #define XmSTRING_DIRECTION_DEFAULT 255
XMSTRING_DIRECTION_DEFAULT : constant := 255;
--> typedef char * XmString; /* opaque to outside */
subtype XMSTRING_TYPE is ADDRESS;
--> typedef XmString * XmStringTable; /* opaque to outside */
subtype XMSTRINGTABLE_TYPE is ADDRESS;
--> typedef char * XmStringCharSet; /* Null term string */
subtype XMSTRINGCHARSET_TYPE is ADDRESS;
--> typedef unsigned char XmStringComponentType; /* component tags */
subtype XMSTRINGCOMPONENTTYPE_TYPE is UNSIGNED_BYTE;
--> typedef unsigned char XmStringDirection;
subtype XMSTRINGDIRECTION_TYPE is UNSIGNED_BYTE;
--> typedef struct _XmFontListRec *XmFontList; /* opaque to outside
*/
subtype XMFONTLIST_TYPE is ADDRESS;
--> typedef struct __XmStringContextRec *_XmStringContext; /* opaque to outside
*/
--> typedef struct __XmStringRec *_XmString; /* opaque to outside
*/
--> typedef struct _XmtStringContextRec *XmStringContext; /* opaque to outside
*/
subtype XMSTRINGCONTEXT_TYPE is ADDRESS;
--> typedef struct _XmFontListContextRec *XmFontContext; /* opaque to outside
*/
subtype XMFONTCONTEXT_TYPE is ADDRESS;
--> #define XmSTRING_COMPONENT_UNKNOWN 0
XMSTRING_COMPONENT_UNKNOWN : constant := 0;
--> #define XmSTRING_COMPONENT_CHARSET 1
XMSTRING_COMPONENT_CHARSET : constant := 1;
--> #define XmSTRING_COMPONENT_TEXT 2
XMSTRING_COMPONENT_TEXT : constant := 2;
--> #define XmSTRING_COMPONENT_DIRECTION 3
XMSTRING_COMPONENT_DIRECTION : constant := 3;
--> #define XmSTRING_COMPONENT_SEPARATOR 4 /* 5-125 reserved */
XMSTRING_COMPONENT_SEPARATOR : constant := 4;
--> #define XmSTRING_COMPONENT_END 126 /* no more comp in
string */
XMSTRING_COMPONENT_END : constant := 126;
--> #define XmSTRING_COMPONENT_USER_BEGIN 128 /* 128-255 are user tags
*/
XMSTRING_COMPONENT_USER_BEGIN : constant := 128;
--> #define XmSTRING_COMPONENT_USER_END 255
XMSTRING_COMPONENT_USER_END : constant := 255;
--> #define XmSTRING_DEFAULT_CHARSET ""
XMSTRING_DEFAULT_CHARSET : constant STRING := ""&ASCII.NUL;
--*************************************************************
-- Resource names
-- Taken from StringDefs, with Xt replaced by Xm.
--*************************************************************
--> #define XmNaccelerator X$GBLS(accelerator)
XMNACCELERATOR : constant STRING := "accelerator"&ASCII.NUL;
--> #define XmNaccelerators X$GBLS(accelerators)
XMNACCELERATORS : constant STRING := "accelerators"&ASCII.NUL;
--> #define XmNacceleratorText X$GBLS(acceleratorText)
XMNACCELERATORTEXT : constant STRING := "acceleratorText"&ASCII.NUL;
--> #define XmNadjustLast X$GBLS(adjustLast)
XMNADJUSTLAST : constant STRING := "adjustLast"&ASCII.NUL;
--> #define XmNadjustMargin X$GBLS(adjustMargin)
XMNADJUSTMARGIN : constant STRING := "adjustMargin"&ASCII.NUL;
--> #define XmNalignment X$GBLS(alignment)
XMNALIGNMENT : constant STRING := "alignment"&ASCII.NUL;
--> #define XmNancestorSensitive X$GBLS(ancestorSensitive)
XMNANCESTORSENSITIVE : constant STRING :=
"ancestorSensitive"&ASCII.NUL;
--> #define XmNarmCallback X$GBLS(armCallback)
XMNARMCALLBACK : constant STRING := "armCallback"&ASCII.NUL;
--> #define XmNbackground X$GBLS(background)
XMNBACKGROUND : constant STRING := "background"&ASCII.NUL;
--> #define XmNbackgroundPixmap X$GBLS(backgroundPixmap)
XMNBACKGROUNDPIXMAP : constant STRING :=
"backgroundPixmap"&ASCII.NUL;
--> #define XmNbitmap X$GBLS(bitmap)
XMNBITMAP : constant STRING := "bitmap"&ASCII.NUL;
--> #define XmNborderColor X$GBLS(borderColor)
XMNBORDERCOLOR : constant STRING := "borderColor"&ASCII.NUL;
--> #define XmNborder X$GBLS(borderColor)
XMNBORDER : constant STRING := "borderColor"&ASCII.NUL;
--> #define XmNborderPixmap X$GBLS(borderPixmap)
XMNBORDERPIXMAP : constant STRING := "borderPixmap"&ASCII.NUL;
--> #define XmNborderWidth X$GBLS(borderWidth)
XMNBORDERWIDTH : constant STRING := "borderWidth"&ASCII.NUL;
--> #define XmNbuttonAccelerators X$GBLS(buttonAccelerators)
XMNBUTTONACCELERATORS : constant STRING :=
"buttonAccelerators"&ASCII.NUL;
--> #define XmNbuttonAcceleratorText X$GBLS(buttonAcceleratorText)
XMNBUTTONACCELERATORTEXT : constant STRING :=
"buttonAcceleratorText"&ASCII.NUL;
--> #define XmNbuttonCount X$GBLS(buttonCount)
XMNBUTTONCOUNT : constant STRING := "buttonCount"&ASCII.NUL;
--> #define XmNbuttonMnemonicCharSets X$GBLS(buttonMnemonicCharSets)
XMNBUTTONMNEMONICCHARSETS : constant STRING :=
"buttonMnemonicCharSets"&ASCII.NUL;
--> #define XmNbuttonMnemonics X$GBLS(buttonMnemonics)
XMNBUTTONMNEMONICS : constant STRING := "buttonMnemonics"&ASCII.NUL;
--> #define XmNbuttons X$GBLS(buttons)
XMNBUTTONS : constant STRING := "buttons"&ASCII.NUL;
--> #define XmNbuttonSet X$GBLS(buttonSet)
XMNBUTTONSET : constant STRING := "buttonSet"&ASCII.NUL;
--> #define XmNbuttonType X$GBLS(buttonType)
XMNBUTTONTYPE : constant STRING := "buttonType"&ASCII.NUL;
--> #define XmNcascadePixmap X$GBLS(cascadePixmap)
XMNCASCADEPIXMAP : constant STRING := "cascadePixmap"&ASCII.NUL;
--> #define XmNcascadingCallback X$GBLS(cascadingCallback)
XMNCASCADINGCALLBACK : constant STRING :=
"cascadingCallback"&ASCII.NUL;
--> #define XmNchildren X$GBLS(children)
XMNCHILDREN : constant STRING := "children"&ASCII.NUL;
--> #define XmNcolormap X$GBLS(colormap)
XMNCOLORMAP : constant STRING := "colormap"&ASCII.NUL;
--> #define XmNcommandWindowLocation X$GBLS(commandWindowLocation)
XMNCOMMANDWINDOWLOCATION : constant STRING :=
"commandWindowLocation"&ASCII.NUL;
--> #define XmNdefaultFontList X$GBLS(defaultFontList)
XMNDEFAULTFONTLIST : constant STRING := "defaultFontList"&ASCII.NUL;
--> #define XmNdepth X$GBLS(depth)
XMNDEPTH : constant STRING := "depth"&ASCII.NUL;
--> #define XmNdestroyCallback X$GBLS(destroyCallback)
XMNDESTROYCALLBACK : constant STRING := "destroyCallback"&ASCII.NUL;
--> #define XmNdisarmCallback X$GBLS(disarmCallback)
XMNDISARMCALLBACK : constant STRING := "disarmCallback"&ASCII.NUL;
--> #define XmNeditType X$GBLS(editType)
XMNEDITTYPE : constant STRING := "editType"&ASCII.NUL;
--> #define XmNentryAlignment X$GBLS(entryAlignment)
XMNENTRYALIGNMENT : constant STRING := "entryAlignment"&ASCII.NUL;
--> #define XmNentryBorder X$GBLS(entryBorder)
XMNENTRYBORDER : constant STRING := "entryBorder"&ASCII.NUL;
--> #define XmNentryClass X$GBLS(entryClass)
XMNENTRYCLASS : constant STRING := "entryClass"&ASCII.NUL;
--> #define XmNentryCallback X$GBLS(entryCallback)
XMNENTRYCALLBACK : constant STRING := "entryCallback"&ASCII.NUL;
--> #define XmNexposeCallback X$GBLS(exposeCallback)
XMNEXPOSECALLBACK : constant STRING := "exposeCallback"&ASCII.NUL;
--> #define XmNfile X$GBLS(file)
XMNFILE : constant STRING := "file"&ASCII.NUL;
--> #define XmNfillOnSelect X$GBLS(fillOnSelect)
XMNFILLONSELECT : constant STRING := "fillOnSelect"&ASCII.NUL;
--> #define XmNfilterLabelString X$GBLS(filterLabelString)
XMNFILTERLABELSTRING : constant STRING :=
"filterLabelString"&ASCII.NUL;
--> #define XmNfont X$GBLS(font)
XMNFONT : constant STRING := "font"&ASCII.NUL;
--> #define XmNfontList X$GBLS(fontList)
XMNFONTLIST : constant STRING := "fontList"&ASCII.NUL;
--> #define XmNforceBars X$GBLS(forceBars)
XMNFORCEBARS : constant STRING := "forceBars"&ASCII.NUL;
--> #define XmNforeground X$GBLS(foreground)
XMNFOREGROUND : constant STRING := "foreground"&ASCII.NUL;
--> #define XmNfunction X$GBLS(function)
XMNFUNCTION : constant STRING := "function"&ASCII.NUL;
--> #define XmNheight X$GBLS(height)
XMNHEIGHT : constant STRING := "height"&ASCII.NUL;
--> #define XmNhighlight X$GBLS(highlight)
XMNHIGHLIGHT : constant STRING := "highlight"&ASCII.NUL;
--> #define XmNindex X$GBLS(index)
XMNINDEX : constant STRING := "index"&ASCII.NUL;
--> #define XmNindicatorOn X$GBLS(indicatorOn)
XMNINDICATORON : constant STRING := "indicatorOn"&ASCII.NUL;
--> #define XmNindicatorSize X$GBLS(indicatorSize)
XMNINDICATORSIZE : constant STRING := "indicatorSize"&ASCII.NUL;
--> #define XmNindicatorType X$GBLS(indicatorType)
XMNINDICATORTYPE : constant STRING := "indicatorType"&ASCII.NUL;
--> #define XmNinitialResourcesPersistent X$GBLS(initialResourcesPersistent)
XMNINITIALRESOURCESPERSISTENT : constant STRING :=
"initialResourcesPersistent"&ASCII.NUL;
--> #define XmNinnerHeight X$GBLS(innerHeight)
XMNINNERHEIGHT : constant STRING := "innerHeight"&ASCII.NUL;
--> #define XmNinnerWidth X$GBLS(innerWidth)
XMNINNERWIDTH : constant STRING := "innerWidth"&ASCII.NUL;
--> #define XmNinnerWindow X$GBLS(innerWindow)
XMNINNERWINDOW : constant STRING := "innerWindow"&ASCII.NUL;
--> #define XmNinsertPosition X$GBLS(insertPosition)
XMNINSERTPOSITION : constant STRING := "insertPosition"&ASCII.NUL;
--> #define XmNinternalHeight X$GBLS(internalHeight)
XMNINTERNALHEIGHT : constant STRING := "internalHeight"&ASCII.NUL;
--> #define XmNinternalWidth X$GBLS(internalWidth)
XMNINTERNALWIDTH : constant STRING := "internalWidth"&ASCII.NUL;
--> #define XmNisAligned X$GBLS(isAligned)
XMNISALIGNED : constant STRING := "isAligned"&ASCII.NUL;
--> #define XmNisHomogeneous X$GBLS(isHomogeneous)
XMNISHOMOGENEOUS : constant STRING := "isHomogeneous"&ASCII.NUL;
--> #define XmNjumpProc X$GBLS(jumpProc)
XMNJUMPPROC : constant STRING := "jumpProc"&ASCII.NUL;
--> #define XmNjustify X$GBLS(justify)
XMNJUSTIFY : constant STRING := "justify"&ASCII.NUL;
--> #define XmNlabelInsensitivePixmap X$GBLS(labelInsensitivePixmap)
XMNLABELINSENSITIVEPIXMAP : constant STRING :=
"labelInsensitivePixmap"&ASCII.NUL;
--> #define XmNlabelPixmap X$GBLS(labelPixmap)
XMNLABELPIXMAP : constant STRING := "labelPixmap"&ASCII.NUL;
--> #define XmNlabelString X$GBLS(labelString)
XMNLABELSTRING : constant STRING := "labelString"&ASCII.NUL;
--> #define XmNlabelType X$GBLS(labelType)
XMNLABELTYPE : constant STRING := "labelType"&ASCII.NUL;
--> #define XmNlength X$GBLS(length)
XMNLENGTH : constant STRING := "length"&ASCII.NUL;
--> #define XmNlistUpdated X$GBLS(listUpdated)
XMNLISTUPDATED : constant STRING := "listUpdated"&ASCII.NUL;
--> #define XmNlowerRight X$GBLS(lowerRight)
XMNLOWERRIGHT : constant STRING := "lowerRight"&ASCII.NUL;
--> #define XmNmapCallback X$GBLS(mapCallback)
XMNMAPCALLBACK : constant STRING := "mapCallback"&ASCII.NUL;
--> #define XmNmappedWhenManaged X$GBLS(mappedWhenManaged)
XMNMAPPEDWHENMANAGED : constant STRING :=
"mappedWhenManaged"&ASCII.NUL;
--> #define XmNmappingDelay X$GBLS(mappingDelay)
XMNMAPPINGDELAY : constant STRING := "mappingDelay"&ASCII.NUL;
--> #define XmNmarginHeight X$GBLS(marginHeight)
XMNMARGINHEIGHT : constant STRING := "marginHeight"&ASCII.NUL;
--> #define XmNmarginTop X$GBLS(marginTop)
XMNMARGINTOP : constant STRING := "marginTop"&ASCII.NUL;
--> #define XmNmarginBottom X$GBLS(marginBottom)
XMNMARGINBOTTOM : constant STRING := "marginBottom"&ASCII.NUL;
--> #define XmNmarginWidth X$GBLS(marginWidth)
XMNMARGINWIDTH : constant STRING := "marginWidth"&ASCII.NUL;
--> #define XmNmarginRight X$GBLS(marginRight)
XMNMARGINRIGHT : constant STRING := "marginRight"&ASCII.NUL;
--> #define XmNmarginLeft X$GBLS(marginLeft)
XMNMARGINLEFT : constant STRING := "marginLeft"&ASCII.NUL;
--> #define XmNmenuAccelerator X$GBLS(menuAccelerator)
XMNMENUACCELERATOR : constant STRING := "menuAccelerator"&ASCII.NUL;
--> #define XmNmenuCursor X$GBLS(menuCursor)
XMNMENUCURSOR : constant STRING := "menuCursor"&ASCII.NUL;
--> #define XmNmenuEntry X$GBLS(menuEntry)
XMNMENUENTRY : constant STRING := "menuEntry"&ASCII.NUL;
--> #define XmNmenuHelpWidget X$GBLS(menuHelpWidget)
XMNMENUHELPWIDGET : constant STRING := "menuHelpWidget"&ASCII.NUL;
--> #define XmNmenuHistory X$GBLS(menuHistory)
XMNMENUHISTORY : constant STRING := "menuHistory"&ASCII.NUL;
--> #define XmNmenuPost X$GBLS(menuPost)
XMNMENUPOST : constant STRING := "menuPost"&ASCII.NUL;
--> #define XmNmnemonic X$GBLS(mnemonic)
XMNMNEMONIC : constant STRING := "mnemonic"&ASCII.NUL;
--> #define XmNmnemonicCharSet X$GBLS(mnemonicCharSet)
XMNMNEMONICCHARSET : constant STRING := "mnemonicCharSet"&ASCII.NUL;
--> #define XmNname X$GBLS(name)
XMNNAME : constant STRING := "name"&ASCII.NUL;
--> #define XmNnavigationType X$GBLS(navigationType)
XMNNAVIGATIONTYPE : constant STRING := "navigationType"&ASCII.NUL;
--> #define XmNnotify X$GBLS(notify)
XMNNOTIFY : constant STRING := "notify"&ASCII.NUL;
--> #define XmNnumChildren X$GBLS(numChildren)
XMNNUMCHILDREN : constant STRING := "numChildren"&ASCII.NUL;
--> #define XmNnumColumns X$GBLS(numColumns)
XMNNUMCOLUMNS : constant STRING := "numColumns"&ASCII.NUL;
--> #define XmNoptionLabel X$GBLS(optionLabel)
XMNOPTIONLABEL : constant STRING := "optionLabel"&ASCII.NUL;
--> #define XmNoptionMnemonic X$GBLS(optionMnemonic)
XMNOPTIONMNEMONIC : constant STRING := "optionMnemonic"&ASCII.NUL;
--> #define XmNorientation X$GBLS(orientation)
XMNORIENTATION : constant STRING := "orientation"&ASCII.NUL;
--> #define XmNpacking X$GBLS(packing)
XMNPACKING : constant STRING := "packing"&ASCII.NUL;
--> #define XmNparameter X$GBLS(parameter)
XMNPARAMETER : constant STRING := "parameter"&ASCII.NUL;
--> #define XmNpopdownCallback X$GBLS(popdownCallback)
XMNPOPDOWNCALLBACK : constant STRING := "popdownCallback"&ASCII.NUL;
--> #define XmNpopupCallback X$GBLS(popupCallback)
XMNPOPUPCALLBACK : constant STRING := "popupCallback"&ASCII.NUL;
--> #define XmNpopupEnabled X$GBLS(popupEnabled)
XMNPOPUPENABLED : constant STRING := "popupEnabled"&ASCII.NUL;
--> #define XmNpostFromButton X$GBLS(postFromButton)
XMNPOSTFROMBUTTON : constant STRING := "postFromButton"&ASCII.NUL;
--> #define XmNpostFromCount X$GBLS(postFromCount)
XMNPOSTFROMCOUNT : constant STRING := "postFromCount"&ASCII.NUL;
--> #define XmNpostFromList X$GBLS(postFromList)
XMNPOSTFROMLIST : constant STRING := "postFromList"&ASCII.NUL;
--> #define XmNradioAlwaysOne X$GBLS(radioAlwaysOne)
XMNRADIOALWAYSONE : constant STRING := "radioAlwaysOne"&ASCII.NUL;
--> #define XmNradioBehavior X$GBLS(radioBehavior)
XMNRADIOBEHAVIOR : constant STRING := "radioBehavior"&ASCII.NUL;
--> #define XmNrecomputeSize X$GBLS(recomputeSize)
XMNRECOMPUTESIZE : constant STRING := "recomputeSize"&ASCII.NUL;
--> #define XmNresize X$GBLS(resize)
XMNRESIZE : constant STRING := "resize"&ASCII.NUL;
--> #define XmNresizeCallback X$GBLS(resizeCallback)
XMNRESIZECALLBACK : constant STRING := "resizeCallback"&ASCII.NUL;
--> #define XmNreverseVideo X$GBLS(reverseVideo)
XMNREVERSEVIDEO : constant STRING := "reverseVideo"&ASCII.NUL;
--> #define XmNrowColumnType X$GBLS(rowColumnType)
XMNROWCOLUMNTYPE : constant STRING := "rowColumnType"&ASCII.NUL;
--> #define XmNscaleMultiple X$GBLS(scaleMultiple)
XMNSCALEMULTIPLE : constant STRING := "scaleMultiple"&ASCII.NUL;
--> #define XmNscreen X$GBLS(screen)
XMNSCREEN : constant STRING := "screen"&ASCII.NUL;
--> #define XmNscrollProc X$GBLS(scrollProc)
XMNSCROLLPROC : constant STRING := "scrollProc"&ASCII.NUL;
--> #define XmNscrollDCursor X$GBLS(scrollDCursor)
XMNSCROLLDCURSOR : constant STRING := "scrollDCursor"&ASCII.NUL;
--> #define XmNscrollHCursor X$GBLS(scrollHCursor)
XMNSCROLLHCURSOR : constant STRING := "scrollHCursor"&ASCII.NUL;
--> #define XmNscrollLCursor X$GBLS(scrollLCursor)
XMNSCROLLLCURSOR : constant STRING := "scrollLCursor"&ASCII.NUL;
--> #define XmNscrollRCursor X$GBLS(scrollRCursor)
XMNSCROLLRCURSOR : constant STRING := "scrollRCursor"&ASCII.NUL;
--> #define XmNscrollUCursor X$GBLS(scrollUCursor)
XMNSCROLLUCURSOR : constant STRING := "scrollUCursor"&ASCII.NUL;
--> #define XmNscrollVCursor X$GBLS(scrollVCursor)
XMNSCROLLVCURSOR : constant STRING := "scrollVCursor"&ASCII.NUL;
--> #define XmNselectColor X$GBLS(selectColor)
XMNSELECTCOLOR : constant STRING := "selectColor"&ASCII.NUL;
--> #define XmNselection X$GBLS(selection)
XMNSELECTION : constant STRING := "selection"&ASCII.NUL;
--> #define XmNselectionArray X$GBLS(selectionArray)
XMNSELECTIONARRAY : constant STRING := "selectionArray"&ASCII.NUL;
--> #define XmNselectInsensitivePixmap X$GBLS(selectInsensitivePixmap)
XMNSELECTINSENSITIVEPIXMAP : constant STRING :=
"selectInsensitivePixmap"&ASCII.NUL;
--> #define XmNselectPixmap X$GBLS(selectPixmap)
XMNSELECTPIXMAP : constant STRING := "selectPixmap"&ASCII.NUL;
--> #define XmNsensitive X$GBLS(sensitive)
XMNSENSITIVE : constant STRING := "sensitive"&ASCII.NUL;
--> #define XmNset X$GBLS(set)
XMNSET : constant STRING := "set"&ASCII.NUL;
--> #define XmNshadow X$GBLS(shadow)
XMNSHADOW : constant STRING := "shadow"&ASCII.NUL;
--> #define XmNshown X$GBLS(shown)
XMNSHOWN : constant STRING := "shown"&ASCII.NUL;
--> #define XmNsimpleCallback X$GBLS(simpleCallback)
XMNSIMPLECALLBACK : constant STRING := "simpleCallback"&ASCII.NUL;
--> #define XmNspace X$GBLS(space)
XMNSPACE : constant STRING := "space"&ASCII.NUL;
--> #define XmNspacing X$GBLS(spacing)
XMNSPACING : constant STRING := "spacing"&ASCII.NUL;
--> #define XmNstring X$GBLS(string)
XMNSTRING : constant STRING := "string"&ASCII.NUL;
--> #define XmNstringDirection X$GBLS(stringDirection)
XMNSTRINGDIRECTION : constant STRING := "stringDirection"&ASCII.NUL;
--> #define XmNsubMenuId X$GBLS(subMenuId)
XMNSUBMENUID : constant STRING := "subMenuId"&ASCII.NUL;
--> #define XmNtextOptions X$GBLS(textOptions)
XMNTEXTOPTIONS : constant STRING := "textOptions"&ASCII.NUL;
--> #define XmNtextSink X$GBLS(textSink)
XMNTEXTSINK : constant STRING := "textSink"&ASCII.NUL;
--> #define XmNtextSource X$GBLS(textSource)
XMNTEXTSOURCE : constant STRING := "textSource"&ASCII.NUL;
--> #define XmNthickness X$GBLS(thickness)
XMNTHICKNESS : constant STRING := "thickness"&ASCII.NUL;
--> #define XmNthumb X$GBLS(thumb)
XMNTHUMB : constant STRING := "thumb"&ASCII.NUL;
--> #define XmNthumbProc X$GBLS(thumbProc)
XMNTHUMBPROC : constant STRING := "thumbProc"&ASCII.NUL;
--> #define XmNtop X$GBLS(top)
XMNTOP : constant STRING := "top"&ASCII.NUL;
--> #define XmNtranslations X$GBLS(translations)
XMNTRANSLATIONS : constant STRING := "translations"&ASCII.NUL;
--> #define XmNtraversalType X$GBLS(traversalType)
XMNTRAVERSALTYPE : constant STRING := "traversalType"&ASCII.NUL;
--> #define XmNtroughColor X$GBLS(troughColor)
XMNTROUGHCOLOR : constant STRING := "troughColor"&ASCII.NUL;
--> #define XmNunmapCallback X$GBLS(unmapCallback)
XMNUNMAPCALLBACK : constant STRING := "unmapCallback"&ASCII.NUL;
--> #define XmNunselectPixmap X$GBLS(unselectPixmap)
XMNUNSELECTPIXMAP : constant STRING := "unselectPixmap"&ASCII.NUL;
--> #define XmNupdate X$GBLS(update)
XMNUPDATE : constant STRING := "update"&ASCII.NUL;
--> #define XmNuseBottom X$GBLS(useBottom)
XMNUSEBOTTOM : constant STRING := "useBottom"&ASCII.NUL;
--> #define XmNuseRight X$GBLS(useRight)
XMNUSERIGHT : constant STRING := "useRight"&ASCII.NUL;
--> #define XmNvalue X$GBLS(value)
XMNVALUE : constant STRING := "value"&ASCII.NUL;
--> #define XmNvisibleWhenOff X$GBLS(visibleWhenOff)
XMNVISIBLEWHENOFF : constant STRING := "visibleWhenOff"&ASCII.NUL;
--> #define XmNwhichButton X$GBLS(whichButton)
XMNWHICHBUTTON : constant STRING := "whichButton"&ASCII.NUL;
--> #define XmNwidth X$GBLS(width)
XMNWIDTH : constant STRING := "width"&ASCII.NUL;
--> #define XmNwindow X$GBLS(window)
XMNWINDOW : constant STRING := "window"&ASCII.NUL;
--> #define XmNx X$GBLS(x)
XMNX : constant STRING := "x"&ASCII.NUL;
--> #define XmNy X$GBLS(y)
XMNY : constant STRING := "y"&ASCII.NUL;
-- Class types
--> #define XmCAccelerator X$GBLD(Accelerator)
XMCACCELERATOR : constant STRING := "Accelerator"&ASCII.NUL;
--> #define XmCAccelerators X$GBLS(Accelerators)
XMCACCELERATORS : constant STRING := "Accelerators"&ASCII.NUL;
--> #define XmCAcceleratorText X$GBLS(AcceleratorText)
XMCACCELERATORTEXT : constant STRING := "AcceleratorText"&ASCII.NUL;
--> #define XmCAdjustLast X$GBLS(AdjustLast)
XMCADJUSTLAST : constant STRING := "AdjustLast"&ASCII.NUL;
--> #define XmCAdjustMargin X$GBLS(AdjustMargin)
XMCADJUSTMARGIN : constant STRING := "AdjustMargin"&ASCII.NUL;
--> #define XmCAlignment X$GBLS(Alignment)
XMCALIGNMENT : constant STRING := "Alignment"&ASCII.NUL;
--> #define XmCArmCallback X$GBLS(ArmCallback)
XMCARMCALLBACK : constant STRING := "ArmCallback"&ASCII.NUL;
--> #define XmCBackground X$GBLS(Background)
XMCBACKGROUND : constant STRING := "Background"&ASCII.NUL;
--> #define XmCBitmap X$GBLS(Bitmap)
XMCBITMAP : constant STRING := "Bitmap"&ASCII.NUL;
--> #define XmCBoolean X$GBLS(Boolean)
XMCBOOLEAN : constant STRING := "Boolean"&ASCII.NUL;
--> #define XmCBorderColor X$GBLS(BorderColor)
XMCBORDERCOLOR : constant STRING := "BorderColor"&ASCII.NUL;
--> #define XmCBorderWidth X$GBLS(BorderWidth)
XMCBORDERWIDTH : constant STRING := "BorderWidth"&ASCII.NUL;
--> #define XmCButtonAccelerators X$GBLS(ButtonAccelerators)
XMCBUTTONACCELERATORS : constant STRING :=
"ButtonAccelerators"&ASCII.NUL;
--> #define XmCButtonAcceleratorText X$GBLS(ButtonAcceleratorText)
XMCBUTTONACCELERATORTEXT : constant STRING :=
"ButtonAcceleratorText"&ASCII.NUL;
--> #define XmCButtonCount X$GBLS(ButtonCount)
XMCBUTTONCOUNT : constant STRING := "ButtonCount"&ASCII.NUL;
--> #define XmCButtonMnemonicCharSets X$GBLS(ButtonMnemonicCharSets)
XMCBUTTONMNEMONICCHARSETS : constant STRING :=
"ButtonMnemonicCharSets"&ASCII.NUL;
--> #define XmCButtonMnemonics X$GBLS(ButtonMnemonics)
XMCBUTTONMNEMONICS : constant STRING := "ButtonMnemonics"&ASCII.NUL;
--> #define XmCButtons X$GBLS(Buttons)
XMCBUTTONS : constant STRING := "Buttons"&ASCII.NUL;
--> #define XmCButtonSet X$GBLS(ButtonSet)
XMCBUTTONSET : constant STRING := "ButtonSet"&ASCII.NUL;
--> #define XmCButtonType X$GBLS(ButtonType)
XMCBUTTONTYPE : constant STRING := "ButtonType"&ASCII.NUL;
--> #define XmCCallback X$GBLS(Callback)
XMCCALLBACK : constant STRING := "Callback"&ASCII.NUL;
--> #define XmCChildren X$GBLS(Children)
XMCCHILDREN : constant STRING := "Children"&ASCII.NUL;
--> #define XmCColormap X$GBLS(Colormap)
XMCCOLORMAP : constant STRING := "Colormap"&ASCII.NUL;
--> #define XmCColor X$GBLS(Color)
XMCCOLOR : constant STRING := "Color"&ASCII.NUL;
--> #define XmCCommandWindowLocation X$GBLS(CommandWindowLocation)
XMCCOMMANDWINDOWLOCATION : constant STRING :=
"CommandWindowLocation"&ASCII.NUL;
--> #define XmCCursor X$GBLS(Cursor)
XMCCURSOR : constant STRING := "Cursor"&ASCII.NUL;
--> #define XmCDefaultFontList X$GBLS(DefaultFontList)
XMCDEFAULTFONTLIST : constant STRING := "DefaultFontList"&ASCII.NUL;
--> #define XmCDepth X$GBLS(Depth)
XMCDEPTH : constant STRING := "Depth"&ASCII.NUL;
--> #define XmCDimension X$GBLS(Dimension)
XMCDIMENSION : constant STRING := "Dimension"&ASCII.NUL;
--> #define XmCDisarmCallback X$GBLS(DisarmCallback)
XMCDISARMCALLBACK : constant STRING := "DisarmCallback"&ASCII.NUL;
--> #define XmCEditType X$GBLS(EditType)
XMCEDITTYPE : constant STRING := "EditType"&ASCII.NUL;
--> #define XmCEntryBorder X$GBLS(EntryBorder)
XMCENTRYBORDER : constant STRING := "EntryBorder"&ASCII.NUL;
--> #define XmCEntryClass X$GBLS(EntryClass)
XMCENTRYCLASS : constant STRING := "EntryClass"&ASCII.NUL;
--> #define XmCEventBindings X$GBLS(EventBindings)
XMCEVENTBINDINGS : constant STRING := "EventBindings"&ASCII.NUL;
--> #define XmCExposeCallback X$GBLS(ExposeCallback)
XMCEXPOSECALLBACK : constant STRING := "ExposeCallback"&ASCII.NUL;
--> #define XmCFile X$GBLS(File)
XMCFILE : constant STRING := "File"&ASCII.NUL;
--> #define XmCFillOnSelect X$GBLS(FillOnSelect)
XMCFILLONSELECT : constant STRING := "FillOnSelect"&ASCII.NUL;
--> #define XmCFilterLabelString X$GBLS(FilterLabelString)
XMCFILTERLABELSTRING : constant STRING :=
"FilterLabelString"&ASCII.NUL;
--> #define XmCFont X$GBLS(Font)
XMCFONT : constant STRING := "Font"&ASCII.NUL;
--> #define XmCFontList X$GBLS(FontList)
XMCFONTLIST : constant STRING := "FontList"&ASCII.NUL;
--> #define XmCForeground X$GBLS(Foreground)
XMCFOREGROUND : constant STRING := "Foreground"&ASCII.NUL;
--> #define XmCFraction X$GBLS(Fraction)
XMCFRACTION : constant STRING := "Fraction"&ASCII.NUL;
--> #define XmCFunction X$GBLS(Function)
XMCFUNCTION : constant STRING := "Function"&ASCII.NUL;
--> #define XmCHeight X$GBLS(Height)
XMCHEIGHT : constant STRING := "Height"&ASCII.NUL;
--> #define XmCHSpace X$GBLS(HSpace)
XMCHSPACE : constant STRING := "HSpace"&ASCII.NUL;
--> #define XmCIndex X$GBLS(Index)
XMCINDEX : constant STRING := "Index"&ASCII.NUL;
--> #define XmCIndicatorOn X$GBLS(IndicatorOn)
XMCINDICATORON : constant STRING := "IndicatorOn"&ASCII.NUL;
--> #define XmCIndicatorSize X$GBLS(IndicatorSize)
XMCINDICATORSIZE : constant STRING := "IndicatorSize"&ASCII.NUL;
--> #define XmCIndicatorType X$GBLS(IndicatorType)
XMCINDICATORTYPE : constant STRING := "IndicatorType"&ASCII.NUL;
--> #define XmCInitialResourcesPersistent X$GBLS(InitialResourcesPersistent)
XMCINITIALRESOURCESPERSISTENT : constant STRING :=
"InitialResourcesPersistent"&ASCII.NUL;
--> #define XmCInsertPosition X$GBLS(InsertPosition)
XMCINSERTPOSITION : constant STRING := "InsertPosition"&ASCII.NUL;
--> #define XmCInterval X$GBLS(Interval)
XMCINTERVAL : constant STRING := "Interval"&ASCII.NUL;
--> #define XmCIsAligned X$GBLS(IsAligned)
XMCISALIGNED : constant STRING := "IsAligned"&ASCII.NUL;
--> #define XmCIsHomogeneous X$GBLS(IsHomogeneous)
XMCISHOMOGENEOUS : constant STRING := "IsHomogeneous"&ASCII.NUL;
--> #define XmCJustify X$GBLS(Justify)
XMCJUSTIFY : constant STRING := "Justify"&ASCII.NUL;
--> #define XmCLabel X$GBLS(Label)
XMCLABEL : constant STRING := "Label"&ASCII.NUL;
--> #define XmCLabelInsensitivePixmap X$GBLS(LabelInsensitivePixmap)
XMCLABELINSENSITIVEPIXMAP : constant STRING :=
"LabelInsensitivePixmap"&ASCII.NUL;
--> #define XmCLabelPixmap X$GBLS(LabelPixmap)
XMCLABELPIXMAP : constant STRING := "LabelPixmap"&ASCII.NUL;
--> #define XmCLabelString X$GBLS(LabelString)
XMCLABELSTRING : constant STRING := "LabelString"&ASCII.NUL;
--> #define XmCLabelType X$GBLS(LabelType)
XMCLABELTYPE : constant STRING := "LabelType"&ASCII.NUL;
--> #define XmCLength X$GBLS(Length)
XMCLENGTH : constant STRING := "Length"&ASCII.NUL;
--> #define XmCListUpdated X$GBLS(ListUpdated)
XMCLISTUPDATED : constant STRING := "ListUpdated"&ASCII.NUL;
--> #define XmCMappedWhenManaged X$GBLS(MappedWhenManaged)
XMCMAPPEDWHENMANAGED : constant STRING :=
"MappedWhenManaged"&ASCII.NUL;
--> #define XmCMappingDelay X$GBLS(MappingDelay)
XMCMAPPINGDELAY : constant STRING := "MappingDelay"&ASCII.NUL;
--> #define XmCMargin X$GBLS(Margin)
XMCMARGIN : constant STRING := "Margin"&ASCII.NUL;
--> #define XmCMarginHeight X$GBLS(MarginHeight)
XMCMARGINHEIGHT : constant STRING := "MarginHeight"&ASCII.NUL;
--> #define XmCMarginWidth X$GBLS(MarginWidth)
XMCMARGINWIDTH : constant STRING := "MarginWidth"&ASCII.NUL;
--> #define XmCMarginLeft X$GBLS(MarginLeft)
XMCMARGINLEFT : constant STRING := "MarginLeft"&ASCII.NUL;
--> #define XmCMarginRight X$GBLS(MarginRight)
XMCMARGINRIGHT : constant STRING := "MarginRight"&ASCII.NUL;
--> #define XmCMarginTop X$GBLS(MarginTop)
XMCMARGINTOP : constant STRING := "MarginTop"&ASCII.NUL;
--> #define XmCMarginBottom X$GBLS(MarginBottom)
XMCMARGINBOTTOM : constant STRING := "MarginBottom"&ASCII.NUL;
--> #define XmCMenuEntry X$GBLS(MenuEntry)
XMCMENUENTRY : constant STRING := "MenuEntry"&ASCII.NUL;
--> #define XmCMenuPost X$GBLS(MenuPost)
XMCMENUPOST : constant STRING := "MenuPost"&ASCII.NUL;
--> #define XmCMenuWidget X$GBLS(MenuWidget)
XMCMENUWIDGET : constant STRING := "MenuWidget"&ASCII.NUL;
--> #define XmCMnemonic X$GBLS(Mnemonic)
XMCMNEMONIC : constant STRING := "Mnemonic"&ASCII.NUL;
--> #define XmCMnemonicCharSet X$GBLS(MnemonicCharSet)
XMCMNEMONICCHARSET : constant STRING := "MnemonicCharSet"&ASCII.NUL;
--> #define XmCNavigationType X$GBLS(NavigationType)
XMCNAVIGATIONTYPE : constant STRING := "NavigationType"&ASCII.NUL;
--> #define XmCNotify X$GBLS(Notify)
XMCNOTIFY : constant STRING := "Notify"&ASCII.NUL;
--> #define XmCNumChildren X$GBLS(NumChildren)
XMCNUMCHILDREN : constant STRING := "NumChildren"&ASCII.NUL;
--> #define XmCNumColumns X$GBLS(NumColumns)
XMCNUMCOLUMNS : constant STRING := "NumColumns"&ASCII.NUL;
--> #define XmCOptionLabel X$GBLS(OptionLabel)
XMCOPTIONLABEL : constant STRING := "OptionLabel"&ASCII.NUL;
--> #define XmCOptionMnemonic X$GBLS(OptionMnemonic)
XMCOPTIONMNEMONIC : constant STRING := "OptionMnemonic"&ASCII.NUL;
--> #define XmCOrientation X$GBLS(Orientation)
XMCORIENTATION : constant STRING := "Orientation"&ASCII.NUL;
--> #define XmCPacking X$GBLS(Packing)
XMCPACKING : constant STRING := "Packing"&ASCII.NUL;
--> #define XmCParameter X$GBLS(Parameter)
XMCPARAMETER : constant STRING := "Parameter"&ASCII.NUL;
--> #define XmCPixmap X$GBLS(Pixmap)
XMCPIXMAP : constant STRING := "Pixmap"&ASCII.NUL;
--> #define XmCPopupEnabled X$GBLS(PopupEnabled)
XMCPOPUPENABLED : constant STRING := "PopupEnabled"&ASCII.NUL;
--> #define XmCPosition X$GBLS(Position)
XMCPOSITION : constant STRING := "Position"&ASCII.NUL;
--> #define XmCPostFromButton X$GBLS(PostFromButton)
XMCPOSTFROMBUTTON : constant STRING := "PostFromButton"&ASCII.NUL;
--> #define XmCPostFromCount X$GBLS(PostFromCount)
XMCPOSTFROMCOUNT : constant STRING := "PostFromCount"&ASCII.NUL;
--> #define XmCPostFromList X$GBLS(PostFromList)
XMCPOSTFROMLIST : constant STRING := "PostFromList"&ASCII.NUL;
--> #define XmCRadioAlwaysOne X$GBLS(RadioAlwaysOne)
XMCRADIOALWAYSONE : constant STRING := "RadioAlwaysOne"&ASCII.NUL;
--> #define XmCRadioBehavior X$GBLS(RadioBehavior)
XMCRADIOBEHAVIOR : constant STRING := "RadioBehavior"&ASCII.NUL;
--> #define XmCRecomputeSize X$GBLS(RecomputeSize)
XMCRECOMPUTESIZE : constant STRING := "RecomputeSize"&ASCII.NUL;
--> #define XmCResize X$GBLS(Resize)
XMCRESIZE : constant STRING := "Resize"&ASCII.NUL;
--> #define XmCResizeCallback X$GBLS(ResizeCallback)
XMCRESIZECALLBACK : constant STRING := "ResizeCallback"&ASCII.NUL;
--> #define XmCReverseVideo X$GBLS(ReverseVideo)
XMCREVERSEVIDEO : constant STRING := "ReverseVideo"&ASCII.NUL;
--> #define XmCRowColumnType X$GBLS(RowColumnType)
XMCROWCOLUMNTYPE : constant STRING := "RowColumnType"&ASCII.NUL;
--> #define XmCScaleMultiple X$GBLS(ScaleMultiple)
XMCSCALEMULTIPLE : constant STRING := "ScaleMultiple"&ASCII.NUL;
--> #define XmCScreen X$GBLS(Screen)
XMCSCREEN : constant STRING := "Screen"&ASCII.NUL;
--> #define XmCScrollProc X$GBLS(ScrollProc)
XMCSCROLLPROC : constant STRING := "ScrollProc"&ASCII.NUL;
--> #define XmCScrollDCursor X$GBLS(ScrollDCursor)
XMCSCROLLDCURSOR : constant STRING := "ScrollDCursor"&ASCII.NUL;
--> #define XmCScrollHCursor X$GBLS(ScrollHCursor)
XMCSCROLLHCURSOR : constant STRING := "ScrollHCursor"&ASCII.NUL;
--> #define XmCScrollLCursor X$GBLS(ScrollLCursor)
XMCSCROLLLCURSOR : constant STRING := "ScrollLCursor"&ASCII.NUL;
--> #define XmCScrollRCursor X$GBLS(ScrollRCursor)
XMCSCROLLRCURSOR : constant STRING := "ScrollRCursor"&ASCII.NUL;
--> #define XmCScrollUCursor X$GBLS(ScrollUCursor)
XMCSCROLLUCURSOR : constant STRING := "ScrollUCursor"&ASCII.NUL;
--> #define XmCScrollVCursor X$GBLS(ScrollVCursor)
XMCSCROLLVCURSOR : constant STRING := "ScrollVCursor"&ASCII.NUL;
--> #define XmCSelectColor X$GBLS(SelectColor)
XMCSELECTCOLOR : constant STRING := "SelectColor"&ASCII.NUL;
--> #define XmCSelection X$GBLS(Selection)
XMCSELECTION : constant STRING := "Selection"&ASCII.NUL;
--> #define XmCSensitive X$GBLS(Sensitive)
XMCSENSITIVE : constant STRING := "Sensitive"&ASCII.NUL;
--> #define XmCSelectionArray X$GBLS(SelectionArray)
XMCSELECTIONARRAY : constant STRING := "SelectionArray"&ASCII.NUL;
--> #define XmCSelectInsensitivePixmap X$GBLS(SelectInsensitivePixmap)
XMCSELECTINSENSITIVEPIXMAP : constant STRING :=
"SelectInsensitivePixmap"&ASCII.NUL;
--> #define XmCSelectPixmap X$GBLS(SelectPixmap)
XMCSELECTPIXMAP : constant STRING := "SelectPixmap"&ASCII.NUL;
--> #define XmCSet X$GBLS(Set)
XMCSET : constant STRING := "Set"&ASCII.NUL;
--> #define XmCSimpleCheckBox X$GBLS(SimpleCheckBox)
XMCSIMPLECHECKBOX : constant STRING := "SimpleCheckBox"&ASCII.NUL;
--> #define XmCSimpleMenuBar X$GBLS(SimpleMenuBar)
XMCSIMPLEMENUBAR : constant STRING := "SimpleMenuBar"&ASCII.NUL;
--> #define XmCSimplePopupMenu X$GBLS(SimplePopupMenu)
XMCSIMPLEPOPUPMENU : constant STRING := "SimplePopupMenu"&ASCII.NUL;
--> #define XmCSimplePulldownMenu X$GBLS(SimplePulldownMenu)
XMCSIMPLEPULLDOWNMENU : constant STRING :=
"SimplePulldownMenu"&ASCII.NUL;
--> #define XmCSimpleOptionMenu X$GBLS(SimpleOptionMenu)
XMCSIMPLEOPTIONMENU : constant STRING :=
"SimpleOptionMenu"&ASCII.NUL;
--> #define XmCSimpleRadioBox X$GBLS(SimpleRadioBox)
XMCSIMPLERADIOBOX : constant STRING := "SimpleRadioBox"&ASCII.NUL;
--> #define XmCSpace X$GBLS(Space)
XMCSPACE : constant STRING := "Space"&ASCII.NUL;
--> #define XmCSpacing X$GBLS(Spacing)
XMCSPACING : constant STRING := "Spacing"&ASCII.NUL;
--> #define XmCString X$GBLS(String)
XMCSTRING : constant STRING := "String"&ASCII.NUL;
--> #define XmCStringDirection X$GBLS(StringDirection)
XMCSTRINGDIRECTION : constant STRING := "StringDirection"&ASCII.NUL;
--> #define XmCTextOptions X$GBLS(TextOptions)
XMCTEXTOPTIONS : constant STRING := "TextOptions"&ASCII.NUL;
--> #define XmCTextPosition X$GBLS(TextPosition)
XMCTEXTPOSITION : constant STRING := "TextPosition"&ASCII.NUL;
--> #define XmCTextSink X$GBLS(TextSink)
XMCTEXTSINK : constant STRING := "TextSink"&ASCII.NUL;
--> #define XmCTextSource X$GBLS(TextSource)
XMCTEXTSOURCE : constant STRING := "TextSource"&ASCII.NUL;
--> #define XmCThickness X$GBLS(Thickness)
XMCTHICKNESS : constant STRING := "Thickness"&ASCII.NUL;
--> #define XmCThumb X$GBLS(Thumb)
XMCTHUMB : constant STRING := "Thumb"&ASCII.NUL;
--> #define XmCTroughColor X$GBLS(TroughColor)
XMCTROUGHCOLOR : constant STRING := "TroughColor"&ASCII.NUL;
--> #define XmCTranslations X$GBLS(Translations)
XMCTRANSLATIONS : constant STRING := "Translations"&ASCII.NUL;
--> #define XmCTraversalType X$GBLS(TraversalType)
XMCTRAVERSALTYPE : constant STRING := "TraversalType"&ASCII.NUL;
--> #define XmCUnselectPixmap X$GBLS(UnselectPixmap)
XMCUNSELECTPIXMAP : constant STRING := "UnselectPixmap"&ASCII.NUL;
--> #define XmCValue X$GBLS(Value)
XMCVALUE : constant STRING := "Value"&ASCII.NUL;
--> #define XmCValueChangedCallback X$GBLS(ValueChangedCallback)
XMCVALUECHANGEDCALLBACK : constant STRING :=
"ValueChangedCallback"&ASCII.NUL;
--> #define XmCVisibleWhenOff X$GBLS(VisibleWhenOff)
XMCVISIBLEWHENOFF : constant STRING := "VisibleWhenOff"&ASCII.NUL;
--> #define XmCVSpace X$GBLS(VSpace)
XMCVSPACE : constant STRING := "VSpace"&ASCII.NUL;
--> #define XmCWhichButton X$GBLS(WhichButton)
XMCWHICHBUTTON : constant STRING := "WhichButton"&ASCII.NUL;
--> #define XmCWidth X$GBLS(Width)
XMCWIDTH : constant STRING := "Width"&ASCII.NUL;
--> #define XmCWindow X$GBLS(Window)
XMCWINDOW : constant STRING := "Window"&ASCII.NUL;
--> #define XmCXmString X$GBLS(XmString)
XMCXMSTRING : constant STRING := "XmString"&ASCII.NUL;
--> #define XmCX X$GBLS(X)
XMCX : constant STRING := "X"&ASCII.NUL;
--> #define XmCY X$GBLS(Y)
XMCY : constant STRING := "Y"&ASCII.NUL;
-- Representation types
--> #define XmRAcceleratorTable X$GBLS(AcceleratorTable)
XMRACCELERATORTABLE : constant STRING :=
"AcceleratorTable"&ASCII.NUL;
--> #define XmRAlignment X$GBLS(Alignment)
--> #define XmRAlignment X$GBLS(XmAlignment) /* Compatibility
with XUI */
XMRALIGNMENT : constant STRING := "XmAlignment"&ASCII.NUL;
--> #define XmRXmBackgroundPixmap X$GBLS(XmBackgroundPixmap)
XMRXMBACKGROUNDPIXMAP : constant STRING :=
"XmBackgroundPixmap"&ASCII.NUL;
--> #define XmRBool X$GBLS(Bool)
XMRBOOL : constant STRING := "Bool"&ASCII.NUL;
--> #define XmRBoolean X$GBLS(Boolean)
XMRBOOLEAN : constant STRING := "Boolean"&ASCII.NUL;
--> #define XmRButtonType X$GBLS(ButtonType)
XMRBUTTONTYPE : constant STRING := "ButtonType"&ASCII.NUL;
--> #define XmRCallback X$GBLS(Callback)
XMRCALLBACK : constant STRING := "Callback"&ASCII.NUL;
--> #define XmRCallbackProc "CallbackProc"
XMRCALLBACKPROC : constant STRING := "CallbackProc"&ASCII.NUL;
--> #define XmRCallProc X$GBLS(CallProc)
XMRCALLPROC : constant STRING := "CallProc"&ASCII.NUL;
--> #define XmRChar X$GBLS(Char)
XMRCHAR : constant STRING := "Char"&ASCII.NUL;
--> #define XmRCharSetTable X$GBLS(CharSetTable)
XMRCHARSETTABLE : constant STRING := "CharSetTable"&ASCII.NUL;
--> #define XmRColor X$GBLS(Color)
XMRCOLOR : constant STRING := "Color"&ASCII.NUL;
--> #define XmRCommandWindowLocation X$GBLS(CommandWindowLocation)
XMRCOMMANDWINDOWLOCATION : constant STRING :=
"CommandWindowLocation"&ASCII.NUL;
--> #define XmRCompoundText X$GBLS(CompoundText)
XMRCOMPOUNDTEXT : constant STRING := "CompoundText"&ASCII.NUL;
--> #define XmRCursor X$GBLS(Cursor)
XMRCURSOR : constant STRING := "Cursor"&ASCII.NUL;
--> #define XmRDimension X$GBLS(Dimension)
XMRDIMENSION : constant STRING := "Dimension"&ASCII.NUL;
--> #define XmRDisplay X$GBLS(Display)
XMRDISPLAY : constant STRING := "Display"&ASCII.NUL;
--> #define XmREditMode X$GBLS(EditMode)
XMREDITMODE : constant STRING := "EditMode"&ASCII.NUL;
--> #define XmRFile X$GBLS(File)
XMRFILE : constant STRING := "File"&ASCII.NUL;
--> #define XmRFont X$GBLS(Font)
XMRFONT : constant STRING := "Font"&ASCII.NUL;
--> #define XmRFontList X$GBLS(FontList)
--> #define XmRFontList X$GBLS(XmFontList) /* Compatibility with XUI */
XMRFONTLIST : constant STRING := "XmFontList"&ASCII.NUL;
--> #define XmRFontStruct X$GBLS(FontStruct)
XMRFONTSTRUCT : constant STRING := "FontStruct"&ASCII.NUL;
--> #define XmRFunction X$GBLS(Function)
XMRFUNCTION : constant STRING := "Function"&ASCII.NUL;
--> #define XmRGeometry X$GBLS(Geometry)
XMRGEOMETRY : constant STRING := "Geometry"&ASCII.NUL;
--> #define XmRHorizontalDimension X$GBLS(HorizontalDimension)
XMRHORIZONTALDIMENSION : constant STRING :=
"HorizontalDimension"&ASCII.NUL;
--> #define XmRHorizontalPosition X$GBLS(HorizontalPosition)
XMRHORIZONTALPOSITION : constant STRING :=
"HorizontalPosition"&ASCII.NUL;
--> #define XmRImmediate X$GBLS(Immediate)
XMRIMMEDIATE : constant STRING := "Immediate"&ASCII.NUL;
--> #define XmRIndicatorType X$GBLS(IndicatorType)
XMRINDICATORTYPE : constant STRING := "IndicatorType"&ASCII.NUL;
--> #define XmRInt X$GBLS(Int)
XMRINT : constant STRING := "Int"&ASCII.NUL;
--> #define XmRJustify X$GBLS(Justify)
XMRJUSTIFY : constant STRING := "Justify"&ASCII.NUL;
--> #define XmRKeySym X$GBLS(KeySym)
XMRKEYSYM : constant STRING := "KeySym"&ASCII.NUL;
--> #define XmRKeySymTable X$GBLS(KeySymTable)
XMRKEYSYMTABLE : constant STRING := "KeySymTable"&ASCII.NUL;
--> #define XmRLabelType X$GBLS(LabelType)
--> #define XmRLabelType X$GBLS(XmLabelType) /* Compatibility
with XUI */
XMRLABELTYPE : constant STRING := "XmLabelType"&ASCII.NUL;
--> #define XmRLongBoolean XmRBool /* Compatibility */
XMRLONGBOOLEAN : constant STRING := "Bool"&ASCII.NUL;
--> #define XmRMenuWidget X$GBLS(MenuWidget);
XMRMENUWIDGET : constant STRING := "MenuWidget"&ASCII.NUL;
--> #define XmRMnemonic X$GBLS(Mnemonic)
XMRMNEMONIC : constant STRING := "Mnemonic"&ASCII.NUL;
--> #define XmRNavigationType X$GBLS(NavigationType)
XMRNAVIGATIONTYPE : constant STRING := "NavigationType"&ASCII.NUL;
--> #define XmROrientation X$GBLS(Orientation)
--> #define XmROrientation X$GBLS(XmOrientation) /* Compatibility
with XUI */
XMRORIENTATION : constant STRING := "XmOrientation"&ASCII.NUL;
--> #define XmRPacking X$GBLS(Packing)
XMRPACKING : constant STRING := "Packing"&ASCII.NUL;
--> #define XmRPixel X$GBLS(Pixel)
XMRPIXEL : constant STRING := "Pixel"&ASCII.NUL;
--> #define XmRPixmap X$GBLS(Pixmap)
--> #define XmRPixmap X$GBLS(XmPixmap) /* Compatibility with
XUI */
XMRPIXMAP : constant STRING := "XmPixmap"&ASCII.NUL;
--> #define XmRGadgetPixmap X$GBLS(GadgetPixmap)
XMRGADGETPIXMAP : constant STRING := "GadgetPixmap"&ASCII.NUL;
--> #define XmRPointer X$GBLS(Pointer)
XMRPOINTER : constant STRING := "Pointer"&ASCII.NUL;
--> #define XmRPosition X$GBLS(Position)
XMRPOSITION : constant STRING := "Position"&ASCII.NUL;
--> #define XmRProc X$GBLS(Proc)
XMRPROC : constant STRING := "Proc"&ASCII.NUL;
--> #define XmRRowColumnType X$GBLS(RowColumnType)
XMRROWCOLUMNTYPE : constant STRING := "RowColumnType"&ASCII.NUL;
--> #define XmRShort X$GBLS(Short)
XMRSHORT : constant STRING := "Short"&ASCII.NUL;
--> #define XmRString X$GBLS(String)
XMRSTRING : constant STRING := "String"&ASCII.NUL;
--> #define XmRStringDirection X$GBLS(StringDirection)
XMRSTRINGDIRECTION : constant STRING := "StringDirection"&ASCII.NUL;
--> #define XmRStringTable X$GBLS(StringTable)
XMRSTRINGTABLE : constant STRING := "StringTable"&ASCII.NUL;
--> #define XmRTextPosition X$GBLS(TextPosition)
XMRTEXTPOSITION : constant STRING := "TextPosition"&ASCII.NUL;
--> #define XmRUnsignedChar X$GBLS(UnsignedChar)
XMRUNSIGNEDCHAR : constant STRING := "UnsignedChar"&ASCII.NUL;
--> #define XmRVerticalDimension X$GBLS(VerticalDimension)
XMRVERTICALDIMENSION : constant STRING :=
"VerticalDimension"&ASCII.NUL;
--> #define XmRVerticalPosition X$GBLS(VerticalPosition)
XMRVERTICALPOSITION : constant STRING :=
"VerticalPosition"&ASCII.NUL;
--> #define XmRTranslationTable X$GBLS(TranslationTable)
XMRTRANSLATIONTABLE : constant STRING :=
"TranslationTable"&ASCII.NUL;
--> #define XmRTraversalType X$GBLS(TraversalType)
XMRTRAVERSALTYPE : constant STRING := "TraversalType"&ASCII.NUL;
--> #define XmRWhichButton X$GBLS(WhichButton)
XMRWHICHBUTTON : constant STRING := "WhichButton"&ASCII.NUL;
--> #define XmRWidget X$GBLS(Widget)
XMRWIDGET : constant STRING := "Widget"&ASCII.NUL;
--> #define XmRWidgetList X$GBLS(WidgetList)
XMRWIDGETLIST : constant STRING := "WidgetList"&ASCII.NUL;
--> #define XmRWidgetClass X$GBLS(WidgetClass)
XMRWIDGETCLASS : constant STRING := "WidgetClass"&ASCII.NUL;
--> #define XmRWindow X$GBLS(Window)
XMRWINDOW : constant STRING := "Window"&ASCII.NUL;
--> #define XmRXmString X$GBLS(XmString)
XMRXMSTRING : constant STRING := "XmString"&ASCII.NUL;
--> #define XmRXmStringTable X$GBLS(XmStringTable)
XMRXMSTRINGTABLE : constant STRING := "XmStringTable"&ASCII.NUL;
--> #define XmRStringCharSet X$GBLS(XmStringCharSet)
XMRSTRINGCHARSET : constant STRING := "XmStringCharSet"&ASCII.NUL;
--*************************************************************
-- Resource names
-- Taken from Shell.h, Xt replaced by Xm
--*************************************************************
--> #define XmNiconName X$GBLS(iconName)
XMNICONNAME : constant STRING := "iconName"&ASCII.NUL;
--> #define XmCIconName X$GBLS(IconName)
XMCICONNAME : constant STRING := "IconName"&ASCII.NUL;
--> #define XmNiconPixmap X$GBLS(iconPixmap)
XMNICONPIXMAP : constant STRING := "iconPixmap"&ASCII.NUL;
--> #define XmCIconPixmap X$GBLS(IconPixmap)
XMCICONPIXMAP : constant STRING := "IconPixmap"&ASCII.NUL;
--> #define XmNiconWindow X$GBLS(iconWindow)
XMNICONWINDOW : constant STRING := "iconWindow"&ASCII.NUL;
--> #define XmCIconWindow X$GBLS(IconWindow)
XMCICONWINDOW : constant STRING := "IconWindow"&ASCII.NUL;
--> #define XmNiconMask X$GBLS(iconMask)
XMNICONMASK : constant STRING := "iconMask"&ASCII.NUL;
--> #define XmCIconMask X$GBLS(IconMask)
XMCICONMASK : constant STRING := "IconMask"&ASCII.NUL;
--> #define XmNwindowGroup X$GBLS(windowGroup)
XMNWINDOWGROUP : constant STRING := "windowGroup"&ASCII.NUL;
--> #define XmCWindowGroup X$GBLS(WindowGroup)
XMCWINDOWGROUP : constant STRING := "WindowGroup"&ASCII.NUL;
--> #define XmNsaveUnder X$GBLS(saveUnder)
XMNSAVEUNDER : constant STRING := "saveUnder"&ASCII.NUL;
--> #define XmCSaveUnder X$GBLS(SaveUnder)
XMCSAVEUNDER : constant STRING := "SaveUnder"&ASCII.NUL;
--> #define XmNtransient X$GBLS(transient)
XMNTRANSIENT : constant STRING := "transient"&ASCII.NUL;
--> #define XmCTransient X$GBLS(Transient)
XMCTRANSIENT : constant STRING := "Transient"&ASCII.NUL;
--> #define XmNoverrideRedirect X$GBLS(overrideRedirect)
XMNOVERRIDEREDIRECT : constant STRING :=
"overrideRedirect"&ASCII.NUL;
--> #define XmCOverrideRedirect X$GBLS(OverrideRedirect)
XMCOVERRIDEREDIRECT : constant STRING :=
"OverrideRedirect"&ASCII.NUL;
--> #define XmNallowShellResize X$GBLS(allowShellResize)
XMNALLOWSHELLRESIZE : constant STRING :=
"allowShellResize"&ASCII.NUL;
--> #define XmCAllowShellResize X$GBLS(AllowShellResize)
XMCALLOWSHELLRESIZE : constant STRING :=
"AllowShellResize"&ASCII.NUL;
--> #define XmNcreatePopupChildProc X$GBLS(createPopupChildProc)
XMNCREATEPOPUPCHILDPROC : constant STRING :=
"createPopupChildProc"&ASCII.NUL;
--> #define XmCCreatePopupChildProc X$GBLS(CreatePopupChildProc)
XMCCREATEPOPUPCHILDPROC : constant STRING :=
"CreatePopupChildProc"&ASCII.NUL;
--> #define XmNtitle X$GBLS(title)
XMNTITLE : constant STRING := "title"&ASCII.NUL;
--> #define XmCTitle X$GBLS(Title)
XMCTITLE : constant STRING := "Title"&ASCII.NUL;
--
-- The following are only used at creation and can not be changed via
-- SetValues.
--
--> #define XmNargc X$GBLS(argc)
XMNARGC : constant STRING := "argc"&ASCII.NUL;
--> #define XmCArgc X$GBLS(Argc)
XMCARGC : constant STRING := "Argc"&ASCII.NUL;
--> #define XmNargv X$GBLS(argv)
XMNARGV : constant STRING := "argv"&ASCII.NUL;
--> #define XmCArgv X$GBLS(Argv)
XMCARGV : constant STRING := "Argv"&ASCII.NUL;
--> #define XmNiconX X$GBLS(iconX)
XMNICONX : constant STRING := "iconX"&ASCII.NUL;
--> #define XmCIconX X$GBLS(IconX)
XMCICONX : constant STRING := "IconX"&ASCII.NUL;
--> #define XmNiconY X$GBLS(iconY)
XMNICONY : constant STRING := "iconY"&ASCII.NUL;
--> #define XmCIconY X$GBLS(IconY)
XMCICONY : constant STRING := "IconY"&ASCII.NUL;
--> #define XmNinput X$GBLS(input)
XMNINPUT : constant STRING := "input"&ASCII.NUL;
--> #define XmCInput X$GBLS(Input)
XMCINPUT : constant STRING := "Input"&ASCII.NUL;
--> #define XmNiconic X$GBLS(iconic)
XMNICONIC : constant STRING := "iconic"&ASCII.NUL;
--> #define XmCIconic X$GBLS(Iconic)
XMCICONIC : constant STRING := "Iconic"&ASCII.NUL;
--> #define XmNinitialState X$GBLS(initialState)
XMNINITIALSTATE : constant STRING := "initialState"&ASCII.NUL;
--> #define XmCInitialState X$GBLS(InitialState)
XMCINITIALSTATE : constant STRING := "InitialState"&ASCII.NUL;
--> #define XmNgeometry X$GBLS(geometry)
XMNGEOMETRY : constant STRING := "geometry"&ASCII.NUL;
--> #define XmCGeometry X$GBLS(Geometry)
XMCGEOMETRY : constant STRING := "Geometry"&ASCII.NUL;
--> #define XmNminWidth X$GBLS(minWidth)
XMNMINWIDTH : constant STRING := "minWidth"&ASCII.NUL;
--> #define XmCMinWidth X$GBLS(MinWidth)
XMCMINWIDTH : constant STRING := "MinWidth"&ASCII.NUL;
--> #define XmNminHeight X$GBLS(minHeight)
XMNMINHEIGHT : constant STRING := "minHeight"&ASCII.NUL;
--> #define XmCMinHeight X$GBLS(MinHeight)
XMCMINHEIGHT : constant STRING := "MinHeight"&ASCII.NUL;
--> #define XmNmaxWidth X$GBLS(maxWidth)
XMNMAXWIDTH : constant STRING := "maxWidth"&ASCII.NUL;
--> #define XmCMaxWidth X$GBLS(MaxWidth)
XMCMAXWIDTH : constant STRING := "MaxWidth"&ASCII.NUL;
--> #define XmNmaxHeight X$GBLS(maxHeight)
XMNMAXHEIGHT : constant STRING := "maxHeight"&ASCII.NUL;
--> #define XmCMaxHeight X$GBLS(MaxHeight)
XMCMAXHEIGHT : constant STRING := "MaxHeight"&ASCII.NUL;
--> #define XmNwidthInc X$GBLS(widthInc)
XMNWIDTHINC : constant STRING := "widthInc"&ASCII.NUL;
--> #define XmCWidthInc X$GBLS(WidthInc)
XMCWIDTHINC : constant STRING := "WidthInc"&ASCII.NUL;
--> #define XmNheightInc X$GBLS(heightInc)
XMNHEIGHTINC : constant STRING := "heightInc"&ASCII.NUL;
--> #define XmCHeightInc X$GBLS(HeightInc)
XMCHEIGHTINC : constant STRING := "HeightInc"&ASCII.NUL;
--> #define XmNminAspectY X$GBLS(minAspectY)
XMNMINASPECTY : constant STRING := "minAspectY"&ASCII.NUL;
--> #define XmCMinAspectY X$GBLS(MinAspectY)
XMCMINASPECTY : constant STRING := "MinAspectY"&ASCII.NUL;
--> #define XmNmaxAspectY X$GBLS(maxAspectY)
XMNMAXASPECTY : constant STRING := "maxAspectY"&ASCII.NUL;
--> #define XmCMaxAspectY X$GBLS(MaxAspectY)
XMCMAXASPECTY : constant STRING := "MaxAspectY"&ASCII.NUL;
--> #define XmNminAspectX X$GBLS(minAspectX)
XMNMINASPECTX : constant STRING := "minAspectX"&ASCII.NUL;
--> #define XmCMinAspectX X$GBLS(MinAspectX)
XMCMINASPECTX : constant STRING := "MinAspectX"&ASCII.NUL;
--> #define XmNmaxAspectX X$GBLS(maxAspectX)
XMNMAXASPECTX : constant STRING := "maxAspectX"&ASCII.NUL;
--> #define XmCMaxAspectX X$GBLS(MaxAspectX)
XMCMAXASPECTX : constant STRING := "MaxAspectX"&ASCII.NUL;
--> #define XmNwmTimeout X$GBLS(wmTimeout)
XMNWMTIMEOUT : constant STRING := "wmTimeout"&ASCII.NUL;
--> #define XmCWmTimeout X$GBLS(WmTimeout)
XMCWMTIMEOUT : constant STRING := "WmTimeout"&ASCII.NUL;
--> #define XmNwaitForWm X$GBLS(waitforwm)
XMNWAITFORWM : constant STRING := "waitforwm"&ASCII.NUL;
--> #define XmCWaitForWm X$GBLS(Waitforwm)
XMCWAITFORWM : constant STRING := "Waitforwm"&ASCII.NUL;
--******
--
-- New R4 psudo defines
--
--*****
--> #define XmCReadOnly XtCReadOnly
XMCREADONLY : constant STRING := "ReadOnly"&ASCII.NUL;
--> #define XmNvisual XtNvisual
XMNVISUAL : constant STRING := "visual"&ASCII.NUL;
--> #define XmCVisual XtCVisual
XMCVISUAL : constant STRING := "Visual"&ASCII.NUL;
--> #define XmNiconNameEncoding XtNiconNameEncoding
XMNICONNAMEENCODING : constant STRING :=
"iconNameEncoding"&ASCII.NUL;
--> #define XmCIconNameEncoding XtCIconNameEncoding
XMCICONNAMEENCODING : constant STRING :=
"IconNameEncoding"&ASCII.NUL;
--> #define XmNtransientFor XtNtransientFor
XMNTRANSIENTFOR : constant STRING := "transientFor"&ASCII.NUL;
--> #define XmCTransientFor XtCTransientFor
XMCTRANSIENTFOR : constant STRING := "TransientFor"&ASCII.NUL;
--> #define XmNbaseHeight XtNbaseHeight
XMNBASEHEIGHT : constant STRING := "baseHeight"&ASCII.NUL;
--> #define XmCBaseHeight XtCBaseHeight
XMCBASEHEIGHT : constant STRING := "BaseHeight"&ASCII.NUL;
--> #define XmNbaseWidth XtNbaseWidth
XMNBASEWIDTH : constant STRING := "baseWidth"&ASCII.NUL;
--> #define XmCBaseWidth XtCBaseWidth
XMCBASEWIDTH : constant STRING := "BaseWidth"&ASCII.NUL;
--> #define XmNtitleEncoding XtNtitleEncoding
XMNTITLEENCODING : constant STRING := "titleEncoding"&ASCII.NUL;
--> #define XmCTitleEndcoding XtCTitleEndcoding
XMCTITLEENCODING : constant STRING := "TitleEncoding"&ASCII.NUL;
--> #define XmNwinGravity XtNwinGravity
XMNWINGRAVITY : constant STRING := "winGravity"&ASCII.NUL;
--> #define XmCWinGravity XtCWinGravity
XMCWINGRAVITY : constant STRING := "WinGravity"&ASCII.NUL;
--**************************************************************
-- Include VendorE.h in order to get it's resources, so a caller
-- doesn't have to include it explicitly
--*************************************************************
--> #ifndef _VendorE_h
--> #include <Xm/VendorE.h>
--> #endif /* _VendorE_h */
--> #define XmEXPLICIT 0
XMEXPLICIT : constant := 0;
--> #define XmPOINTER 1
XMPOINTER : constant := 1;
--**************************************************************
--
-- Base widget class and record definitions.
-- Included are the definitions for XmPrimitive, XmManager,
-- and XmGadget.
--
--*************************************************************
-- Primitive widget class and record definitions
--> externalref WidgetClass xmPrimitiveWidgetClass;
XMPRIMITIVEWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMPRIMITIVEWIDGETCLASS,"xmPrimitiveWidgetClass");
--> typedef struct _XmPrimitiveClassRec * XmPrimitiveWidgetClass;
--> typedef struct _XmPrimitiveRec * XmPrimitiveWidget;
subtype XMPRIMITIVEWIDGET_TYPE is ADDRESS;
-- Gadget widget class and record definitions
--> externalref WidgetClass xmGadgetClass;
XMGADGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMGADGETCLASS,"xmGadgetClass");
--> typedef struct _XmGadgetClassRec * XmGadgetClass;
--> typedef struct _XmGadgetRec * XmGadget;
subtype XMGADGET_TYPE is ADDRESS;
-- Manager widger class and record definitions */
--> externalref WidgetClass xmManagerWidgetClass;
XMMANAGERWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMMANAGERWIDGETCLASS,"xmManagerWidgetClass");
--> typedef struct _XmManagerClassRec * XmManagerWidgetClass;
--> typedef struct _XmManagerRec * XmManagerWidget;
subtype XMMANAGERWIDGET_TYPE is ADDRESS;
--**************************************************************
-- Fast subclassing -- just do XtIsSubclass now. To be replaced.
--*************************************************************
--> #define XmIsPrimitive(w) XtIsSubclass(w, xmPrimitiveWidgetClass)
--> #define XmIsGadget(w) XtIsSubclass(w, xmGadgetClass)
--> #define XmIsManager(w) XtIsSubclass(w, xmManagerWidgetClass)
--*************************************************************
-- Primitive Resources and define values
--*************************************************************
--> #define XmNforeground X$GBLS (foreground);
--> Already defined in Xm.h
--> #define XmCForeground X$GBLS(Foreground)
--> Already defined in Xm.h
--> #define XmRPrimForegroundPixmap X$GBLS(PrimForegroundPixmap)
XMRPRIMFOREGROUNDPIXMAP : constant STRING :=
"PrimForegroundPixmap"&ASCII.NUL;
--> #define XmRManForegroundPixmap X$GBLS(ManForegroundPixmap)
XMRMANFOREGROUNDPIXMAP : constant STRING :=
"ManForegroundPixmap"&ASCII.NUL;
--> #define XmCBackgroundPixmap X$GBLS(BackgroundPixmap)
XMCBACKGROUNDPIXMAP : constant STRING :=
"BackgroundPixmap"&ASCII.NUL;
--> #define XmRBackgroundPixmap X$GBLS(BackgroundPixmap)
XMRBACKGROUNDPIXMAP : constant STRING :=
"BackgroundPixmap"&ASCII.NUL;
--> #define XmNtraversalOn X$GBLS(traversalOn)
XMNTRAVERSALON : constant STRING := "traversalOn"&ASCII.NUL;
--> #define XmCTraversalOn X$GBLS(TraversalOn)
XMCTRAVERSALON : constant STRING := "TraversalOn"&ASCII.NUL;
--> #define XmNhighlightOnEnter X$GBLS(highlightOnEnter)
XMNHIGHLIGHTONENTER : constant STRING :=
"highlightOnEnter"&ASCII.NUL;
--> #define XmCHighlightOnEnter X$GBLS(HighlightOnEnter)
XMCHIGHLIGHTONENTER : constant STRING :=
"HighlightOnEnter"&ASCII.NUL;
--> #define XmNsizePolicy X$GBLS(sizePolicy)
XMNSIZEPOLICY : constant STRING := "sizePolicy"&ASCII.NUL;
--> #define XmCSizePolicy X$GBLS(SizePolicy)
XMCSIZEPOLICY : constant STRING := "SizePolicy"&ASCII.NUL;
--> #define XmRSizePolicy X$GBLS(SizePolicy)
XMRSIZEPOLICY : constant STRING := "SizePolicy"&ASCII.NUL;
--> #define XmNhighlightThickness X$GBLS(highlightThickness)
XMNHIGHLIGHTTHICKNESS : constant STRING :=
"highlightThickness"&ASCII.NUL;
--> #define XmCHighlightThickness X$GBLS(HighlightThickness)
XMCHIGHLIGHTTHICKNESS : constant STRING :=
"HighlightThickness"&ASCII.NUL;
--> #define XmNhighlightColor X$GBLS(highlightColor)
XMNHIGHLIGHTCOLOR : constant STRING := "highlightColor"&ASCII.NUL;
--> #define XmCHighlightColor X$GBLS(HighlightColor)
XMCHIGHLIGHTCOLOR : constant STRING := "HighlightColor"&ASCII.NUL;
--> #define XmNhighlightPixmap X$GBLS(highlightPixmap)
XMNHIGHLIGHTPIXMAP : constant STRING := "highlightPixmap"&ASCII.NUL;
--> #define XmCHighlightPixmap X$GBLS(HighlightPixmap)
XMCHIGHLIGHTPIXMAP : constant STRING := "HighlightPixmap"&ASCII.NUL;
--> #define XmRPrimHighlightPixmap X$GBLS(HighlightPixmap)
XMRPRIMHIGHLIGHTPIXMAP : constant STRING := "HighlightPixmap"&ASCII.NUL;
--> #define XmNshadowThickness X$GBLS(shadowThickness)
XMNSHADOWTHICKNESS : constant STRING := "shadowThickness"&ASCII.NUL;
--> #define XmCShadowThickness X$GBLS(ShadowThickness)
XMCSHADOWTHICKNESS : constant STRING := "ShadowThickness"&ASCII.NUL;
--> #define XmNtopShadowColor X$GBLS(topShadowColor)
XMNTOPSHADOWCOLOR : constant STRING := "topShadowColor"&ASCII.NUL;
--> #define XmCTopShadowColor X$GBLS(TopShadowColor)
XMCTOPSHADOWCOLOR : constant STRING := "TopShadowColor"&ASCII.NUL;
--> #define XmNtopShadowPixmap X$GBLS(topShadowPixmap)
XMNTOPSHADOWPIXMAP : constant STRING := "topShadowPixmap"&ASCII.NUL;
--> #define XmCTopShadowPixmap X$GBLS(TopShadowPixmap)
XMCTOPSHADOWPIXMAP : constant STRING := "TopShadowPixmap"&ASCII.NUL;
--> #define XmRPrimTopShadowPixmap X$GBLS(TopShadowPixmap)
XMRPRIMTOPSHADOWPIXMAP : constant STRING := "TopShadowPixmap"&ASCII.NUL;
--> #define XmNbottomShadowColor X$GBLS(bottomShadowColor)
XMNBOTTOMSHADOWCOLOR : constant STRING :=
"bottomShadowColor"&ASCII.NUL;
--> #define XmCBottomShadowColor X$GBLS(BottomShadowColor)
XMCBOTTOMSHADOWCOLOR : constant STRING :=
"BottomShadowColor"&ASCII.NUL;
--> #define XmNbottomShadowPixmap X$GBLS(bottomShadowPixmap)
XMNBOTTOMSHADOWPIXMAP : constant STRING :=
"bottomShadowPixmap"&ASCII.NUL;
--> #define XmCBottomShadowPixmap X$GBLS(BottomShadowPixmap)
XMCBOTTOMSHADOWPIXMAP : constant STRING :=
"BottomShadowPixmap"&ASCII.NUL;
--> #define XmRPrimBottomShadowPixmap X$GBLS(BottomShadowPixmap)
XMRPRIMBOTTOMSHADOWPIXMAP : constant STRING :=
"BottomShadowPixmap"&ASCII.NUL;
--> #define XmNunitType X$GBLS(unitType)
XMNUNITTYPE : constant STRING := "unitType"&ASCII.NUL;
--> #define XmCUnitType X$GBLS(UnitType)
XMCUNITTYPE : constant STRING := "UnitType"&ASCII.NUL;
--> #define XmRUnitType X$GBLS(UnitType)
XMRUNITTYPE : constant STRING := "UnitType"&ASCII.NUL;
--> #define XmNhelpCallback X$GBLS(helpCallback)
XMNHELPCALLBACK : constant STRING := "helpCallback"&ASCII.NUL;
--> #define XmNuserData X$GBLS(userData)
XMNUSERDATA : constant STRING := "userData"&ASCII.NUL;
--> #define XmCUserData X$GBLS(UserData)
XMCUSERDATA : constant STRING := "UserData"&ASCII.NUL;
-- layout direction resource, added to gadget, primitive and manager class
--> #define DXmNlayoutDirection X$GBLS(DXmlayoutDirection)
DXMNLAYOUTDIRECTION : constant STRING :=
"DXmlayoutDirection"&ASCII.NUL;
--> #define DXmCLayoutDirection X$GBLS(DXmLayoutDirection)
DXMCLAYOUTDIRECTION : constant STRING :=
"DXmLayoutDirection"&ASCII.NUL;
--> #define DXmRLayoutDirection X$GBLS(DXmLayoutDirection)
DXMRLAYOUTDIRECTION : constant STRING :=
"DXmLayoutDirection"&ASCII.NUL;
--> #define DXmLAYOUT_LEFT_DOWN 1
DXMLAYOUT_LEFT_DOWN : constant := 1;
--> #define DXmLAYOUT_LEFT_UP 2
DXMLAYOUT_LEFT_UP : constant := 2;
--> #define DXmLAYOUT_RIGHT_DOWN 3
DXMLAYOUT_RIGHT_DOWN : constant := 3;
--> #define DXmLAYOUT_RIGHT_UP 4
DXMLAYOUT_RIGHT_UP : constant := 4;
-- Auto-unrealize resource added to Bulletin Board
--> #define DXmNautoUnrealize X$GBLS(DXmautoUnrealize)
DXMNAUTOUNREALIZE : constant STRING :=
"DXmautoUnrealize"&ASCII.NUL;
--> #define DXmCAutoUnrealize X$GBLS(DXmAutoUnrealize)
DXMCAUTOUNREALIZE : constant STRING :=
"DXmAutoUnrealize"&ASCII.NUL;
-- size policy values
--> #define XmCHANGE_ALL 0
XMCHANGE_ALL : constant := 0;
--> #define XmCHANGE_NONE 1
XMCHANGE_NONE : constant := 1;
--> #define XmCHANGE_WIDTH 2
XMCHANGE_WIDTH : constant := 2;
--> #define XmCHANGE_HEIGHT 3
XMCHANGE_HEIGHT : constant := 3;
-- unit type values
--> #define XmPIXELS 0
XMPIXELS : constant := 0;
--> #define Xm100TH_MILLIMETERS 1
XM100TH_MILLIMETERS : constant := 1;
--> #define Xm1000TH_INCHES 2
XM1000TH_INCHES : constant := 2;
--> #define Xm100TH_POINTS 3
XM100TH_POINTS : constant := 3;
--> #define Xm100TH_FONT_UNITS 4
XM100TH_FONT_UNITS : constant := 4;
--*************************************************************
-- Navigation defines
--*************************************************************
--> #define XmNONE 0
XMNONE : constant := 0;
--> #define XmTAB_GROUP 1
XMTAB_GROUP : constant := 1;
--> #define XmSTICKY_TAB_GROUP 2
XMSTICKY_TAB_GROUP : constant := 2;
--> #define XmEXCLUSIVE_TAB_GROUP 3
XMEXCLUSIVE_TAB_GROUP : constant := 3;
--**************************************************************
-- Manager Resources and define values
--**************************************************************
--> #define XmRManTopShadowPixmap X$GBLS(ManTopShadowPixmap)
XMRMANTOPSHADOWPIXMAP : constant STRING :=
"ManTopShadowPixmap"&ASCII.NUL;
--> #define XmRManBottomShadowPixmap X$GBLS(ManBottomShadowPixmap)
XMRMANBOTTOMSHADOWPIXMAP : constant STRING :=
"ManBottomShadowPixmap"&ASCII.NUL;
--> #define XmRManHighlightPixmap X$GBLS(ManHighlightPixmap)
XMRMANHIGHLIGHTPIXMAP : constant STRING :=
"ManHighlightPixmap"&ASCII.NUL;
--> #define XmNchildPosition X$GBLS(childPosition)
XMNCHILDPOSITION : constant STRING := "childPosition"&ASCII.NUL;
--**************************************************************
-- Menu defines
--*************************************************************
--> #define XmNO_ORIENTATION 0
XMNO_ORIENTATION : constant := 0;
--> #define XmVERTICAL 1;
XMVERTICAL : constant := 1;
--> #define XmHORIZONTAL 2
XMHORIZONTAL : constant := 2;
--> #define XmWORK_AREA 0;
XMWORK_AREA : constant := 0;
--> #define XmMENU_BAR 1
XMMENU_BAR : constant := 1;
--> #define XmMENU_PULLDOWN 2;
XMMENU_PULLDOWN : constant := 2;
--> #define XmMENU_POPUP 3;
XMMENU_POPUP : constant := 3;
--> #define XmMENU_OPTION 4;
XMMENU_OPTION : constant := 4;
--> #define XmNO_PACKING 0
XMNO_PACKING : constant := 0;
--> #define XmPACK_TIGHT 1;
XMPACK_TIGHT : constant := 1;
--> #define XmPACK_COLUMN 2
XMPACK_COLUMN : constant := 2;
--> #define XmPACK_NONE 3;
XMPACK_NONE : constant := 3;
--*************************************************************
-- Label defines
--*************************************************************
--> #define XmALIGNMENT_BEGINNING 0
XMALIGNMENT_BEGINNING : constant := 0;
--> #define XmALIGNMENT_CENTER 1;
XMALIGNMENT_CENTER : constant := 1;
--> #define XmALIGNMENT_END 2
XMALIGNMENT_END : constant := 2;
--*************************************************************
-- ToggleButton defines
--*************************************************************
--> #define XmN_OF_MANY 1
XMN_OF_MANY : constant := 1;
--> #define XmONE_OF_MANY 2
XMONE_OF_MANY : constant := 2;
--*************************************************************
-- Form resources and defines
--*************************************************************
-- Form resources
--> #define XmNhorizontalSpacing X$GBLS(horizontalSpacing)
XMNHORIZONTALSPACING : constant STRING :=
"horizontalSpacing"&ASCII.NUL;
--> #define XmNverticalSpacing X$GBLS(verticalSpacing)
XMNVERTICALSPACING : constant STRING := "verticalSpacing"&ASCII.NUL;
--> #define XmNfractionBase X$GBLS(fractionBase)
XMNFRACTIONBASE : constant STRING := "fractionBase"&ASCII.NUL;
--> #define XmCMaxValue X$GBLS(MaxValue)
XMCMAXVALUE : constant STRING := "MaxValue"&ASCII.NUL;
--> #define XmNrubberPositioning X$GBLS(rubberPositioning)
XMNRUBBERPOSITIONING : constant STRING :=
"rubberPositioning"&ASCII.NUL;
--> #define XmCRubberPositioning X$GBLS(RubberPositioning)
XMCRUBBERPOSITIONING : constant STRING :=
"RubberPositioning"&ASCII.NUL;
--> #define XmNresizePolicy X$GBLS(resizePolicy)
XMNRESIZEPOLICY : constant STRING := "resizePolicy"&ASCII.NUL;
--> #define XmCResizePolicy X$GBLS(ResizePolicy)
XMCRESIZEPOLICY : constant STRING := "ResizePolicy"&ASCII.NUL;
--> #define XmRResizePolicy X$GBLS(ResizePolicy)
XMRRESIZEPOLICY : constant STRING := "ResizePolicy"&ASCII.NUL;
-- Form constraint resources
--> #define XmNtopAttachment X$GBLS(topAttachment)
XMNTOPATTACHMENT : constant STRING := "topAttachment"&ASCII.NUL;
--> #define XmNbottomAttachment X$GBLS(bottomAttachment)
XMNBOTTOMATTACHMENT : constant STRING :=
"bottomAttachment"&ASCII.NUL;
--> #define XmNleftAttachment X$GBLS(leftAttachment)
XMNLEFTATTACHMENT : constant STRING := "leftAttachment"&ASCII.NUL;
--> #define XmNrightAttachment X$GBLS(rightAttachment)
XMNRIGHTATTACHMENT : constant STRING := "rightAttachment"&ASCII.NUL;
--> #define XmCAttachment X$GBLS(Attachment)
XMCATTACHMENT : constant STRING := "Attachment"&ASCII.NUL;
--> #define XmRAttachment X$GBLS(Attachment)
XMRATTACHMENT : constant STRING := "Attachment"&ASCII.NUL;
--> #define XmNtopWidget X$GBLS(topWidget)
XMNTOPWIDGET : constant STRING := "topWidget"&ASCII.NUL;
--> #define XmNbottomWidget X$GBLS(bottomWidget)
XMNBOTTOMWIDGET : constant STRING := "bottomWidget"&ASCII.NUL;
--> #define XmNleftWidget X$GBLS(leftWidget)
XMNLEFTWIDGET : constant STRING := "leftWidget"&ASCII.NUL;
--> #define XmNrightWidget X$GBLS(rightWidget)
XMNRIGHTWIDGET : constant STRING := "rightWidget"&ASCII.NUL;
--> #define XmCWidget X$GBLS(Widget)
XMCWIDGET : constant STRING := "Widget"&ASCII.NUL;
--> #define XmNtopPosition X$GBLS(topPosition)
XMNTOPPOSITION : constant STRING := "topPosition"&ASCII.NUL;
--> #define XmNbottomPosition X$GBLS(bottomPosition)
XMNBOTTOMPOSITION : constant STRING := "bottomPosition"&ASCII.NUL;
--> #define XmNleftPosition X$GBLS(leftPosition)
XMNLEFTPOSITION : constant STRING := "leftPosition"&ASCII.NUL;
--> #define XmNrightPosition X$GBLS(rightPosition)
XMNRIGHTPOSITION : constant STRING := "rightPosition"&ASCII.NUL;
--> #define XmNtopOffset X$GBLS(topOffset)
XMNTOPOFFSET : constant STRING := "topOffset"&ASCII.NUL;
--> #define XmNbottomOffset X$GBLS(bottomOffset)
XMNBOTTOMOFFSET : constant STRING := "bottomOffset"&ASCII.NUL;
--> #define XmNleftOffset X$GBLS(leftOffset)
XMNLEFTOFFSET : constant STRING := "leftOffset"&ASCII.NUL;
--> #define XmNrightOffset X$GBLS(rightOffset)
XMNRIGHTOFFSET : constant STRING := "rightOffset"&ASCII.NUL;
--> #define XmCOffset X$GBLS(Offset)
XMCOFFSET : constant STRING := "Offset"&ASCII.NUL;
--> #define XmNresizable X$GBLS(resizable)
XMNRESIZABLE : constant STRING := "resizable"&ASCII.NUL;
-- Form defines
--> #define XmATTACH_NONE 0;
XMATTACH_NONE : constant := 0;
--> #define XmATTACH_FORM 1
XMATTACH_FORM : constant := 1;
--> #define XmATTACH_OPPOSITE_FORM 2
XMATTACH_OPPOSITE_FORM : constant := 2;
--> #define XmATTACH_WIDGET 3;
XMATTACH_WIDGET : constant := 3;
--> #define XmATTACH_OPPOSITE_WIDGET 4
XMATTACH_OPPOSITE_WIDGET : constant := 4;
--> #define XmATTACH_POSITION 5;
XMATTACH_POSITION : constant := 5;
--> #define XmATTACH_SELF 6
XMATTACH_SELF : constant := 6;
--> #define XmRESIZE_NONE 0
XMRESIZE_NONE : constant := 0;
--> #define XmRESIZE_GROW 1;
XMRESIZE_GROW : constant := 1;
--> #define XmRESIZE_ANY 2 /* for BulletinBoard, DrawingArea */
XMRESIZE_ANY : constant := 2;
--******************************************************************
-- Callback reasons
--*****************************************************************
--> #define XmCR_NONE 0
XMCR_NONE : constant := 0;
--> #define XmCR_HELP 1;
XMCR_HELP : constant := 1;
--> #define XmCR_VALUE_CHANGED 2
XMCR_VALUE_CHANGED : constant := 2;
--> #define XmCR_INCREMENT 3;
XMCR_INCREMENT : constant := 3;
--> #define XmCR_DECREMENT 4
XMCR_DECREMENT : constant := 4;
--> #define XmCR_PAGE_INCREMENT 5
XMCR_PAGE_INCREMENT : constant := 5;
--> #define XmCR_PAGE_DECREMENT 6;
XMCR_PAGE_DECREMENT : constant := 6;
--> #define XmCR_TO_TOP 7
XMCR_TO_TOP : constant := 7;
--> #define XmCR_TO_BOTTOM 8
XMCR_TO_BOTTOM : constant := 8;
--> #define XmCR_DRAG 9
XMCR_DRAG : constant := 9;
--> #define XmCR_ACTIVATE 10
XMCR_ACTIVATE : constant := 10;
--> #define XmCR_ARM 11
XMCR_ARM : constant := 11;
--> #define XmCR_DISARM 12
XMCR_DISARM : constant := 12;
--> #define XmCR_MAP 16
XMCR_MAP : constant := 16;
--> #define XmCR_UNMAP 17
XMCR_UNMAP : constant := 17;
--> #define XmCR_FOCUS 18
XMCR_FOCUS : constant := 18;
--> #define XmCR_LOSING_FOCUS 19
XMCR_LOSING_FOCUS : constant := 19;
--> #define XmCR_MODIFYING_TEXT_VALUE 20;
XMCR_MODIFYING_TEXT_VALUE : constant := 20;
--> #define XmCR_MOVING_INSERT_CURSOR 21
XMCR_MOVING_INSERT_CURSOR : constant := 21;
--> #define XmCR_EXECUTE 22;
XMCR_EXECUTE : constant := 22;
--> #define XmCR_SINGLE_SELECT 23
XMCR_SINGLE_SELECT : constant := 23;
--> #define XmCR_MULTIPLE_SELECT 24
XMCR_MULTIPLE_SELECT : constant := 24;
--> #define XmCR_EXTENDED_SELECT 25
XMCR_EXTENDED_SELECT : constant := 25;
--> #define XmCR_BROWSE_SELECT 26
XMCR_BROWSE_SELECT : constant := 26;
--> #define XmCR_DEFAULT_ACTION 27
XMCR_DEFAULT_ACTION : constant := 27;
--> #define XmCR_CLIPBOARD_DATA_REQUEST 28
XMCR_CLIPBOARD_DATA_REQUEST : constant := 28;
--> #define XmCR_CLIPBOARD_DATA_DELETE 29;
XMCR_CLIPBOARD_DATA_DELETE : constant := 29;
--> #define XmCR_CASCADING 30
XMCR_CASCADING : constant := 30;
--> #define XmCR_OK 31
XMCR_OK : constant := 31;
--> #define XmCR_CANCEL 32;
XMCR_CANCEL : constant := 32;
--> #define XmCR_APPLY 34;
XMCR_APPLY : constant := 34;
--> #define XmCR_NO_MATCH 35;
XMCR_NO_MATCH : constant := 35;
--> #define XmCR_COMMAND_ENTERED 36;
XMCR_COMMAND_ENTERED : constant := 36;
--> #define XmCR_COMMAND_CHANGED 37;
XMCR_COMMAND_CHANGED : constant := 37;
--> #define XmCR_EXPOSE 38;
XMCR_EXPOSE : constant := 38;
--> #define XmCR_RESIZE 39
XMCR_RESIZE : constant := 39;
--> #define XmCR_INPUT 40
XMCR_INPUT : constant := 40;
--> #define XmCR_GAIN_PRIMARY 41
XMCR_GAIN_PRIMARY : constant := 41;
--> #define XmCR_LOSE_PRIMARY 42;
XMCR_LOSE_PRIMARY : constant := 42;
--*************************************************************
-- Callback structures
--*************************************************************
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> } XmAnyCallbackStruct;
type XMANYCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
end record;
for XMANYCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
end record;
for XMANYCALLBACKSTRUCT_TYPE'SIZE use 64;
XMANYCALLBACKSTRUCT_TYPE_INIT : constant XMANYCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> int click_count;
--> } XmArrowButtonCallbackStruct;
type XMARROWBUTTONCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
CLICK_COUNT : INTEGER;
end record;
for XMARROWBUTTONCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
CLICK_COUNT at 8 range 0 .. 31;
end record;
for XMARROWBUTTONCALLBACKSTRUCT_TYPE'SIZE use 96;
XMARROWBUTTONCALLBACKSTRUCT_TYPE_INIT : constant
XMARROWBUTTONCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
CLICK_COUNT => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> Window window;
--> } XmDrawingAreaCallbackStruct;
type XMDRAWINGAREACALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
WINDOW : ADDRESS;
end record;
for XMDRAWINGAREACALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
WINDOW at 8 range 0 .. 31;
end record;
for XMDRAWINGAREACALLBACKSTRUCT_TYPE'SIZE use 96;
XMDRAWINGAREACALLBACKSTRUCT_TYPE_INIT : constant
XMDRAWINGAREACALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
WINDOW => ADDRESS_ZERO);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> Window window;
--> int click_count;
--> } XmDrawnButtonCallbackStruct;
type XMDRAWNBUTTONCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
WINDOW : ADDRESS;
CLICK_COUNT : INTEGER;
end record;
for XMDRAWNBUTTONCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
WINDOW at 8 range 0 .. 31;
CLICK_COUNT at 12 range 0 .. 31;
end record;
for XMDRAWNBUTTONCALLBACKSTRUCT_TYPE'SIZE use 128;
XMDRAWNBUTTONCALLBACKSTRUCT_TYPE_INIT : constant
XMDRAWNBUTTONCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
WINDOW => ADDRESS_ZERO,
CLICK_COUNT => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> int click_count;
--> } XmPushButtonCallbackStruct;
type XMPUSHBUTTONCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
CLICK_COUNT : INTEGER;
end record;
for XMPUSHBUTTONCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
CLICK_COUNT at 8 range 0 .. 31;
end record;
for XMPUSHBUTTONCALLBACKSTRUCT_TYPE'SIZE use 96;
XMPUSHBUTTONCALLBACKSTRUCT_TYPE_INIT : constant
XMPUSHBUTTONCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
CLICK_COUNT => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> Widget widget;
--> char *data;
--> char *callbackstruct;
--> } XmRowColumnCallbackStruct;
type XMROWCOLUMNCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
WID : WIDGET_TYPE;
DATA : ADDRESS;
CALLBACKSTRUCT : ADDRESS;
end record;
for XMROWCOLUMNCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
WID at 8 range 0 .. 31;
DATA at 12 range 0 .. 31;
CALLBACKSTRUCT at 16 range 0 .. 31;
end record;
for XMROWCOLUMNCALLBACKSTRUCT_TYPE'SIZE use 160;
XMROWCOLUMNCALLBACKSTRUCT_TYPE_INIT : constant
XMROWCOLUMNCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
WID => ADDRESS_ZERO,
DATA => ADDRESS_ZERO,
CALLBACKSTRUCT => ADDRESS_ZERO);
--> typedef struct
--> {
--> int reason;
--> XEvent * event;
--> int value;
--> int pixel;
--> } XmScrollBarCallbackStruct;
type XMSCROLLBARCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
VALUE : INTEGER;
PIXEL : INTEGER;
end record;
for XMSCROLLBARCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
VALUE at 8 range 0 .. 31;
PIXEL at 12 range 0 .. 31;
end record;
for XMSCROLLBARCALLBACKSTRUCT_TYPE'SIZE use 128;
XMSCROLLBARCALLBACKSTRUCT_TYPE_INIT : constant
XMSCROLLBARCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
VALUE => 0,
PIXEL => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent * event;
--> int set;
--> } XmToggleButtonCallbackStruct;
type XMTOGGLEBUTTONCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
IS_SET : INTEGER;
end record;
for XMTOGGLEBUTTONCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
IS_SET at 8 range 0 .. 31;
end record;
for XMTOGGLEBUTTONCALLBACKSTRUCT_TYPE'SIZE use 96;
XMTOGGLEBUTTONCALLBACKSTRUCT_TYPE_INIT : constant
XMTOGGLEBUTTONCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
IS_SET => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> XmString item;
--> int item_length;
--> int item_position;
--> XmString *selected_items;
--> int selected_item_count;
--> int *selected_item_positions;
--> char selection_type;
--> } XmListCallbackStruct;
type XMLISTCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
ITEM : XMSTRING_TYPE;
ITEM_LENGTH : INTEGER;
ITEM_POSITION : INTEGER;
SELECTED_ITEMS : XMSTRINGTABLE_TYPE;
SELECTED_ITEMS_COUNT : INTEGER;
SELECTED_ITEM_POSITIONS : ADDRESS;
SELECTION_TYPE : SHORT_SHORT_INTEGER;
end record;
for XMLISTCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
ITEM at 8 range 0 .. 31;
ITEM_LENGTH at 12 range 0 .. 31;
ITEM_POSITION at 16 range 0 .. 31;
SELECTED_ITEMS at 20 range 0 .. 31;
SELECTED_ITEMS_COUNT at 24 range 0 .. 31;
SELECTED_ITEM_POSITIONS at 28 range 0 .. 31;
SELECTION_TYPE at 32 range 0 .. 31;
end record;
for XMLISTCALLBACKSTRUCT_TYPE'SIZE use 288;
XMLISTCALLBACKSTRUCT_TYPE_INIT : constant XMLISTCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
ITEM => ADDRESS_ZERO,
ITEM_LENGTH => 0,
ITEM_POSITION => 0,
SELECTED_ITEMS => ADDRESS_ZERO,
SELECTED_ITEMS_COUNT => 0,
SELECTED_ITEM_POSITIONS => ADDRESS_ZERO,
SELECTION_TYPE => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> XmString value;
--> int length;
--> } XmSelectionBoxCallbackStruct;
type XMSELECTIONBOXCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
VALUE : XMSTRING_TYPE;
LENGTH : INTEGER;
end record;
for XMSELECTIONBOXCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
VALUE at 8 range 0 .. 31;
LENGTH at 12 range 0 .. 31;
end record;
for XMSELECTIONBOXCALLBACKSTRUCT_TYPE'SIZE use 128;
XMSELECTIONBOXCALLBACKSTRUCT_TYPE_INIT : constant
XMSELECTIONBOXCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
VALUE => ADDRESS_ZERO,
LENGTH => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> XmString value;
--> int length;
--> } XmCommandCallbackStruct;
type XMCOMMANDCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
VALUE : XMSTRING_TYPE;
LENGTH : INTEGER;
end record;
for XMCOMMANDCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
VALUE at 8 range 0 .. 31;
LENGTH at 12 range 0 .. 31;
end record;
for XMCOMMANDCALLBACKSTRUCT_TYPE'SIZE use 128;
XMCOMMANDCALLBACKSTRUCT_TYPE_INIT : constant XMCOMMANDCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
VALUE => ADDRESS_ZERO,
LENGTH => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> XmString value;
--> int length;
--> XmString mask;
--> int mask_length;
--> XmString dir ;
--> int dir_length ;
--> XmString pattern ;
--> int pattern_length ;
--> } XmFileSelectionBoxCallbackStruct;
type XMFILESELECTIONCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
VALUE : XMSTRING_TYPE;
LENGTH : INTEGER;
MASK : XMSTRING_TYPE;
MASK_LENGTH : INTEGER;
DIR : XMSTRING_TYPE;
DIR_LENGTH : INTEGER;
PATTERN : XMSTRING_TYPE;
PATTERN_LENGTH : INTEGER;
end record;
for XMFILESELECTIONCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
VALUE at 8 range 0 .. 31;
LENGTH at 12 range 0 .. 31;
MASK at 16 range 0 .. 31;
MASK_LENGTH at 20 range 0 .. 31;
DIR at 24 range 0 .. 31;
DIR_LENGTH at 28 range 0 .. 31;
PATTERN at 32 range 0 .. 31;
PATTERN_LENGTH at 36 range 0 .. 31;
end record;
for XMFILESELECTIONCALLBACKSTRUCT_TYPE'SIZE use 320;
XMFILESELECTIONCALLBACKSTRUCT_TYPE_INIT : constant
XMFILESELECTIONCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
VALUE => ADDRESS_ZERO,
LENGTH => 0,
MASK => ADDRESS_ZERO,
MASK_LENGTH => 0,
DIR => ADDRESS_ZERO,
DIR_LENGTH => 0,
PATTERN => ADDRESS_ZERO,
PATTERN_LENGTH => 0);
--> typedef struct
--> {
--> int reason;
--> XEvent * event;
--> int value;
--> } XmScaleCallbackStruct;
type XMSCALECALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
VALUE : INTEGER;
end record;
for XMSCALECALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
VALUE at 8 range 0 .. 31;
end record;
for XMSCALECALLBACKSTRUCT_TYPE'SIZE use 96;
XMSCALECALLBACKSTRUCT_TYPE_INIT : constant XMSCALECALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
VALUE => 0);
--*************************************************************
-- PushButton defines
--*************************************************************
--> #define XmNfillOnArm X$GBLS(fillOnArm)
XMNFILLONARM : constant STRING := "fillOnArm"&ASCII.NUL;
--> #define XmCFillOnArm X$GBLS(FillOnArm)
XMCFILLONARM : constant STRING := "FillOnArm"&ASCII.NUL;
--> #define XmNarmColor X$GBLS(armColor)
XMNARMCOLOR : constant STRING := "armColor"&ASCII.NUL;
--> #define XmCArmColor X$GBLS(ArmColor)
XMCARMCOLOR : constant STRING := "ArmColor"&ASCII.NUL;
--> #define XmNarmPixmap X$GBLS(armPixmap)
XMNARMPIXMAP : constant STRING := "armPixmap"&ASCII.NUL;
--> #define XmCArmPixmap X$GBLS(ArmPixmap)
XMCARMPIXMAP : constant STRING := "ArmPixmap"&ASCII.NUL;
--> #define XmNshowAsDefault X$GBLS(showAsDefault)
XMNSHOWASDEFAULT : constant STRING := "showAsDefault"&ASCII.NUL;
--> #define XmCShowAsDefault X$GBLS(ShowAsDefault)
XMCSHOWASDEFAULT : constant STRING := "ShowAsDefault"&ASCII.NUL;
--> #define XmRBooleanDimension X$GBLS(BooleanDimension)
XMRBOOLEANDIMENSION : constant STRING :=
"BooleanDimension"&ASCII.NUL;
--> #define XmNdefaultButtonShadowThickness
X$GBLS(defaultButtonShadowThickness)
XMNDEFAULTBUTTONSHADOWTHICKNESS : constant STRING :=
"defaultButtonShadowThickness"&ASCII.NUL;
--> #define XmCDefaultButtonShadowThickness
X$GBLS(DefaultButtonShadowThickness)
XMCDEFAULTBUTTONSHADOWTHICKNESS : constant STRING :=
"DefaultButtonShadowThickness"&ASCII.NUL;
--> #define XmNmultiClick X$GBLS(multiClick)
XMNMULTICLICK : constant STRING := "multiClick"&ASCII.NUL;
--> #define XmCMultiClick X$GBLS(MultiClick)
XMCMULTICLICK : constant STRING := "MultiClick"&ASCII.NUL;
--> #define XmRMultiClick X$GBLS(MultiClick)
XMRMULTICLICK : constant STRING := "MultiClick"&ASCII.NUL;
--> #define XmMULTICLICK_DISCARD 0
XMMULTICLICK_DISCARD : constant := 0;
--> #define XmMULTICLICK_KEEP 1;
XMMULTICLICK_KEEP : constant := 1;
--*************************************************************
-- DrawnButton defines
--*************************************************************
--> #define XmNpushButtonEnabled X$GBLS(pushButtonEnabled)
XMNPUSHBUTTONENABLED : constant STRING :=
"pushButtonEnabled"&ASCII.NUL;
--> #define XmCPushButtonEnabled X$GBLS(PushButtonEnabled)
XMCPUSHBUTTONENABLED : constant STRING :=
"PushButtonEnabled"&ASCII.NUL;
--> #define XmNshadowType X$GBLS(shadowType)
XMNSHADOWTYPE : constant STRING := "shadowType"&ASCII.NUL;
--> #define XmCShadowType X$GBLS(ShadowType)
XMCSHADOWTYPE : constant STRING := "ShadowType"&ASCII.NUL;
--> #define XmRShadowType X$GBLS(ShadowType)
XMRSHADOWTYPE : constant STRING := "ShadowType"&ASCII.NUL;
--> #define XmSHADOW_IN 7
XMSHADOW_IN : constant := 7;
--> #define XmSHADOW_OUT 8;
XMSHADOW_OUT : constant := 8;
--*************************************************************
-- Arrow defines
--*************************************************************
--> #define XmNarrowDirection X$GBLS(arrowDirection)
XMNARROWDIRECTION : constant STRING := "arrowDirection"&ASCII.NUL;
--> #define XmCArrowDirection X$GBLS(ArrowDirection)
XMCARROWDIRECTION : constant STRING := "ArrowDirection"&ASCII.NUL;
--> #define XmRArrowDirection X$GBLS(ArrowDirection)
XMRARROWDIRECTION : constant STRING := "ArrowDirection"&ASCII.NUL;
--> #define XmNactivateCallback X$GBLS(activateCallback)
XMNACTIVATECALLBACK : constant STRING :=
"activateCallback"&ASCII.NUL;
--> #define XmARROW_UP 0
XMARROW_UP : constant := 0;
--> #define XmARROW_DOWN 1;
XMARROW_DOWN : constant := 1;
--> #define XmARROW_LEFT 2
XMARROW_LEFT : constant := 2;
--> #define XmARROW_RIGHT 3;
XMARROW_RIGHT : constant := 3;
--*************************************************************
-- Separator defines
--*************************************************************
--> #define XmNmargin X$GBLS(margin)
XMNMARGIN : constant STRING := "margin"&ASCII.NUL;
--> #define XmRMargin X$GBLS(Margin)
XMRMARGIN : constant STRING := "Margin"&ASCII.NUL;
--> #define XmNseparatorType X$GBLS(separatorType)
XMNSEPARATORTYPE : constant STRING := "separatorType"&ASCII.NUL;
--> #define XmCSeparatorType X$GBLS(SeparatorType)
XMCSEPARATORTYPE : constant STRING := "SeparatorType"&ASCII.NUL;
--> #define XmRSeparatorType X$GBLS(SeparatorType)
XMRSEPARATORTYPE : constant STRING := "SeparatorType"&ASCII.NUL;
--> #define XmNO_LINE 0
XMNO_LINE : constant := 0;
--> #define XmSINGLE_LINE 1;
XMSINGLE_LINE : constant := 1;
--> #define XmDOUBLE_LINE EQUALS 2;
XMDOUBLE_LINE : constant := 2;
--> #define XmSINGLE_DASHED_LINE 3
XMSINGLE_DASHED_LINE : constant := 3;
--> #define XmDOUBLE_DASHED_LINE 4;
XMDOUBLE_DASHED_LINE : constant := 4;
--> #define XmSHADOW_ETCHED_IN 5;
XMSHADOW_ETCHED_IN : constant := 5;
--> #define XmSHADOW_ETCHED_OUT 6
XMSHADOW_ETCHED_OUT : constant := 6;
--> #define XmPIXMAP 1;
XMPIXMAPTYPE : constant := 1;
--> #define XmSTRING 2
XMSTRINGTYPE : constant := 2;
--*************************************************************
-- ScrollBar resource names and #defines
--*************************************************************
-- Resources for scrollbar
--> #define XmNminimum X$GBLS(minimum)
XMNMINIMUM : constant STRING := "minimum"&ASCII.NUL;
--> #define XmCMinimum X$GBLS(Minimum)
XMCMINIMUM : constant STRING := "Minimum"&ASCII.NUL;
--> #define XmNmaximum X$GBLS(maximum)
XMNMAXIMUM : constant STRING := "maximum"&ASCII.NUL;
--> #define XmCMaximum X$GBLS(Maximum)
XMCMAXIMUM : constant STRING := "Maximum"&ASCII.NUL;
--> #define XmNsliderSize X$GBLS(sliderSize)
XMNSLIDERSIZE : constant STRING := "sliderSize"&ASCII.NUL;
--> #define XmCSliderSize X$GBLS(SliderSize)
XMCSLIDERSIZE : constant STRING := "SliderSize"&ASCII.NUL;
--> #define XmNshowArrows X$GBLS(showArrows)
XMNSHOWARROWS : constant STRING := "showArrows"&ASCII.NUL;
--> #define XmCShowArrows X$GBLS(ShowArrows)
XMCSHOWARROWS : constant STRING := "ShowArrows"&ASCII.NUL;
--> #define XmNprocessingDirection X$GBLS(processingDirection)
XMNPROCESSINGDIRECTION : constant STRING :=
"processingDirection"&ASCII.NUL;
--> #define XmCProcessingDirection X$GBLS(ProcessingDirection)
XMCPROCESSINGDIRECTION : constant STRING :=
"ProcessingDirection"&ASCII.NUL;
--> #define XmRProcessingDirection X$GBLS(ProcessingDirection)
XMRPROCESSINGDIRECTION : constant STRING :=
"ProcessingDirection"&ASCII.NUL;
--> #define XmNincrement X$GBLS(increment)
XMNINCREMENT : constant STRING := "increment"&ASCII.NUL;
--> #define XmCIncrement X$GBLS(Increment)
XMCINCREMENT : constant STRING := "Increment"&ASCII.NUL;
--> #define XmNpageIncrement X$GBLS(pageIncrement)
XMNPAGEINCREMENT : constant STRING := "pageIncrement"&ASCII.NUL;
--> #define XmCPageIncrement X$GBLS(PageIncrement)
XMCPAGEINCREMENT : constant STRING := "PageIncrement"&ASCII.NUL;
--> #define XmNinitialDelay X$GBLS(initialDelay)
XMNINITIALDELAY : constant STRING := "initialDelay"&ASCII.NUL;
--> #define XmCInitialDelay X$GBLS(InitialDelay)
XMCINITIALDELAY : constant STRING := "InitialDelay"&ASCII.NUL;
--> #define XmNrepeatDelay X$GBLS(repeatDelay)
XMNREPEATDELAY : constant STRING := "repeatDelay"&ASCII.NUL;
--> #define XmCRepeatDelay X$GBLS(RepeatDelay)
XMCREPEATDELAY : constant STRING := "RepeatDelay"&ASCII.NUL;
--> #define XmNvalueChangedCallback X$GBLS(valueChangedCallback)
XMNVALUECHANGEDCALLBACK : constant STRING :=
"valueChangedCallback"&ASCII.NUL;
--> #define XmNincrementCallback X$GBLS(incrementCallback)
XMNINCREMENTCALLBACK : constant STRING :=
"incrementCallback"&ASCII.NUL;
--> #define XmNdecrementCallback X$GBLS(decrementCallback)
XMNDECREMENTCALLBACK : constant STRING :=
"decrementCallback"&ASCII.NUL;
--> #define XmNpageIncrementCallback X$GBLS(pageIncrementCallback)
XMNPAGEINCREMENTCALLBACK : constant STRING :=
"pageIncrementCallback"&ASCII.NUL;
--> #define XmNpageDecrementCallback X$GBLS(pageDecrementCallback)
XMNPAGEDECREMENTCALLBACK : constant STRING :=
"pageDecrementCallback"&ASCII.NUL;
--> #define XmNtoTopCallback X$GBLS(toTopCallback)
XMNTOTOPCALLBACK : constant STRING := "toTopCallback"&ASCII.NUL;
--> #define XmNtoBottomCallback X$GBLS(toBottomCallback)
XMNTOBOTTOMCALLBACK : constant STRING :=
"toBottomCallback"&ASCII.NUL;
--> #define XmNdragCallback X$GBLS(dragCallback)
XMNDRAGCALLBACK : constant STRING := "dragCallback"&ASCII.NUL;
-- Defined values for scrollbar
--> #define XmMAX_ON_TOP 0
XMMAX_ON_TOP : constant := 0;
--> #define XmMAX_ON_BOTTOM 1;
XMMAX_ON_BOTTOM : constant := 1;
--> #define XmMAX_ON_LEFT 2
XMMAX_ON_LEFT : constant := 2;
--> #define XmMAX_ON_RIGHT 3;
XMMAX_ON_RIGHT : constant := 3;
--*************************************************************
--
-- List Widget defines *
-- *
--*************************************************************
--> #define XmNlistSpacing X$GBLS(listSpacing)
XMNLISTSPACING : constant STRING := "listSpacing"&ASCII.NUL;
--> #define XmCListSpacing X$GBLS(ListSpacing)
XMCLISTSPACING : constant STRING := "ListSpacing"&ASCII.NUL;
--> #define XmRListSpacing X$GBLS(ListSpacing)
XMRLISTSPACING : constant STRING := "ListSpacing"&ASCII.NUL;
--> #define XmNlistMarginWidth X$GBLS(listMarginWidth)
XMNLISTMARGINWIDTH : constant STRING := "listMarginWidth"&ASCII.NUL;
--> #define XmCListMarginWidth X$GBLS(ListMarginWidth)
XMCLISTMARGINWIDTH : constant STRING := "ListMarginWidth"&ASCII.NUL;
--> #define XmRListMarginWidth X$GBLS(ListMarginWidth)
XMRLISTMARGINWIDTH : constant STRING := "ListMarginWidth"&ASCII.NUL;
--> #define XmNlistMarginHeight X$GBLS(listMarginHeight)
XMNLISTMARGINHEIGHT : constant STRING :=
"listMarginHeight"&ASCII.NUL;
--> #define XmCListMarginHeight X$GBLS(ListMarginHeight)
XMCLISTMARGINHEIGHT : constant STRING :=
"ListMarginHeight"&ASCII.NUL;
--> #define XmRListMarginHeight X$GBLS(ListMarginHeight)
XMRLISTMARGINHEIGHT : constant STRING :=
"ListMarginHeight"&ASCII.NUL;
--> #define XmNitems X$GBLS(items)
XMNITEMS : constant STRING := "items"&ASCII.NUL;
--> #define XmCItems X$GBLS(Items)
XMCITEMS : constant STRING := "Items"&ASCII.NUL;
--> #define XmRItems X$GBLS(Items)
XMRITEMS : constant STRING := "Items"&ASCII.NUL;
--> #define XmNitemCount X$GBLS(itemCount)
XMNITEMCOUNT : constant STRING := "itemCount"&ASCII.NUL;
--> #define XmCItemCount X$GBLS(ItemCount)
XMCITEMCOUNT : constant STRING := "ItemCount"&ASCII.NUL;
--> #define XmRItemCount X$GBLS(ItemCount)
XMRITEMCOUNT : constant STRING := "ItemCount"&ASCII.NUL;
--> #define XmNselectedItems X$GBLS(selectedItems)
XMNSELECTEDITEMS : constant STRING := "selectedItems"&ASCII.NUL;
--> #define XmCSelectedItems X$GBLS(SelectedItems)
XMCSELECTEDITEMS : constant STRING := "SelectedItems"&ASCII.NUL;
--> #define XmRSelectedItems X$GBLS(SelectedItems)
XMRSELECTEDITEMS : constant STRING := "SelectedItems"&ASCII.NUL;
--> #define XmNselectedItemCount X$GBLS(selectedItemCount)
XMNSELECTEDITEMCOUNT : constant STRING :=
"selectedItemCount"&ASCII.NUL;
--> #define XmCSelectedItemCount X$GBLS(SelectedItemCount)
XMCSELECTEDITEMCOUNT : constant STRING :=
"SelectedItemCount"&ASCII.NUL;
--> #define XmRSelectedItemCount X$GBLS(SelectedItemCount)
XMRSELECTEDITEMCOUNT : constant STRING :=
"SelectedItemCount"&ASCII.NUL;
--> #define XmNvisibleItemCount X$GBLS(visibleItemCount)
XMNVISIBLEITEMCOUNT : constant STRING :=
"visibleItemCount"&ASCII.NUL;
--> #define XmCVisibleItemCount X$GBLS(VisibleItemCount)
XMCVISIBLEITEMCOUNT : constant STRING :=
"VisibleItemCount"&ASCII.NUL;
--> #define XmRVisibleItemCount X$GBLS(VisibleItemCount)
XMRVISIBLEITEMCOUNT : constant STRING :=
"VisibleItemCount"&ASCII.NUL;
--> #define XmNselectionPolicy X$GBLS(selectionPolicy)
XMNSELECTIONPOLICY : constant STRING := "selectionPolicy"&ASCII.NUL;
--> #define XmCSelectionPolicy X$GBLS(SelectionPolicy)
XMCSELECTIONPOLICY : constant STRING := "SelectionPolicy"&ASCII.NUL;
--> #define XmRSelectionPolicy X$GBLS(SelectionPolicy)
XMRSELECTIONPOLICY : constant STRING := "SelectionPolicy"&ASCII.NUL;
--> #define XmNlistSizePolicy X$GBLS(listSizePolicy)
XMNLISTSIZEPOLICY : constant STRING := "listSizePolicy"&ASCII.NUL;
--> #define XmCListSizePolicy X$GBLS(ListSizePolicy)
XMCLISTSIZEPOLICY : constant STRING := "ListSizePolicy"&ASCII.NUL;
--> #define XmRListSizePolicy X$GBLS(ListSizePolicy)
XMRLISTSIZEPOLICY : constant STRING := "ListSizePolicy"&ASCII.NUL;
--> #define XmNdoubleClickInterval X$GBLS(doubleClickInterval)
XMNDOUBLECLICKINTERVAL : constant STRING :=
"doubleClickInterval"&ASCII.NUL;
--> #define XmCDoubleClickInterval X$GBLS(DoubleClickInterval)
XMCDOUBLECLICKINTERVAL : constant STRING :=
"DoubleClickInterval"&ASCII.NUL;
--> #define XmRDoubleClickInterval X$GBLS(DoubleClickInterval)
XMRDOUBLECLICKINTERVAL : constant STRING :=
"DoubleClickInterval"&ASCII.NUL;
--> #define XmNsingleSelectionCallback X$GBLS(singleSelectionCallback)
XMNSINGLESELECTIONCALLBACK : constant STRING :=
"singleSelectionCallback"&ASCII.NUL;
--> #define XmNmultipleSelectionCallback X$GBLS(multipleSelectionCallback)
XMNMULTIPLESELECTIONCALLBACK : constant STRING :=
"multipleSelectionCallback"&ASCII.NUL;
--> #define XmNextendedSelectionCallback X$GBLS(extendedSelectionCallback)
XMNEXTENDEDSELECTIONCALLBACK : constant STRING :=
"extendedSelectionCallback"&ASCII.NUL;
--> #define XmNbrowseSelectionCallback X$GBLS(browseSelectionCallback)
XMNBROWSESELECTIONCALLBACK : constant STRING :=
"browseSelectionCallback"&ASCII.NUL;
--> #define XmNdefaultActionCallback X$GBLS(defaultActionCallback)
XMNDEFAULTACTIONCALLBACK : constant STRING :=
"defaultActionCallback"&ASCII.NUL;
--> #define XmNautomaticSelection X$GBLS(automaticSelection)
XMNAUTOMATICSELECTION : constant STRING :=
"automaticSelection"&ASCII.NUL;
--> #define XmCAutomaticSelection X$GBLS(AutomaticSelection)
XMCAUTOMATICSELECTION : constant STRING :=
"AutomaticSelection"&ASCII.NUL;
--> #define XmNtopItemPosition X$GBLS(topItemPosition)
XMNTOPITEMPOSITION : constant STRING := "topItemPosition"&ASCII.NUL;
--> #define XmCTopItemPosition X$GBLS(TopItemPosition)
XMCTOPITEMPOSITION : constant STRING := "TopItemPosition"&ASCII.NUL;
--******
--
-- Selection types
--
--*****
--> #define XmSINGLE_SELECT 0
XMSINGLE_SELECT : constant := 0;
--> #define XmMULTIPLE_SELECT 1
XMMULTIPLE_SELECT : constant := 1;
--> #define XmEXTENDED_SELECT 2;
XMEXTENDED_SELECT : constant := 2;
--> #define XmBROWSE_SELECT 3
XMBROWSE_SELECT : constant := 3;
--> #define XmSTATIC 0
XMSTATIC : constant := 0;
--> #define XmDYNAMIC 1;
XMDYNAMIC : constant := 1;
--*************************************************************
--
-- Scrolled Window defines.
--
--*************************************************************
--> #define XmNhorizontalScrollBar X$GBLS(horizontalScrollBar)
XMNHORIZONTALSCROLLBAR : constant STRING :=
"horizontalScrollBar"&ASCII.NUL;
--> #define XmCHorizontalScrollBar X$GBLS(HorizontalScrollBar)
XMCHORIZONTALSCROLLBAR : constant STRING :=
"HorizontalScrollBar"&ASCII.NUL;
--> #define XmNverticalScrollBar X$GBLS(verticalScrollBar)
XMNVERTICALSCROLLBAR : constant STRING :=
"verticalScrollBar"&ASCII.NUL;
--> #define XmCVerticalScrollBar X$GBLS(VerticalScrollBar)
XMCVERTICALSCROLLBAR : constant STRING :=
"VerticalScrollBar"&ASCII.NUL;
--> #define XmNworkWindow X$GBLS(workWindow)
XMNWORKWINDOW : constant STRING := "workWindow"&ASCII.NUL;
--> #define XmCWorkWindow X$GBLS(WorkWindow)
XMCWORKWINDOW : constant STRING := "WorkWindow"&ASCII.NUL;
--> #define XmNclipWindow X$GBLS(clipWindow)
XMNCLIPWINDOW : constant STRING := "clipWindow"&ASCII.NUL;
--> #define XmCClipWindow X$GBLS(ClipWindow)
XMCCLIPWINDOW : constant STRING := "ClipWindow"&ASCII.NUL;
--> #define XmNscrollingPolicy X$GBLS(scrollingPolicy)
XMNSCROLLINGPOLICY : constant STRING := "scrollingPolicy"&ASCII.NUL;
--> #define XmCScrollingPolicy X$GBLS(ScrollingPolicy)
XMCSCROLLINGPOLICY : constant STRING := "ScrollingPolicy"&ASCII.NUL;
--> #define XmRScrollingPolicy X$GBLS(ScrollingPolicy)
XMRSCROLLINGPOLICY : constant STRING := "ScrollingPolicy"&ASCII.NUL;
--> #define XmNvisualPolicy X$GBLS(visualPolicy)
XMNVISUALPOLICY : constant STRING := "visualPolicy"&ASCII.NUL;
--> #define XmCVisualPolicy X$GBLS(VisualPolicy)
XMCVISUALPOLICY : constant STRING := "VisualPolicy"&ASCII.NUL;
--> #define XmRVisualPolicy X$GBLS(VisualPolicy)
XMRVISUALPOLICY : constant STRING := "VisualPolicy"&ASCII.NUL;
--> #define XmNscrollBarDisplayPolicy X$GBLS(scrollBarDisplayPolicy)
XMNSCROLLBARDISPLAYPOLICY : constant STRING :=
"scrollBarDisplayPolicy"&ASCII.NUL;
--> #define XmCScrollBarDisplayPolicy X$GBLS(ScrollBarDisplayPolicy)
XMCSCROLLBARDISPLAYPOLICY : constant STRING :=
"ScrollBarDisplayPolicy"&ASCII.NUL;
--> #define XmRScrollBarDisplayPolicy X$GBLS(ScrollBarDisplayPolicy)
XMRSCROLLBARDISPLAYPOLICY : constant STRING :=
"ScrollBarDisplayPolicy"&ASCII.NUL;
--> #define XmNscrollBarPlacement X$GBLS(scrollBarPlacement)
XMNSCROLLBARPLACEMENT : constant STRING :=
"scrollBarPlacement"&ASCII.NUL;
--> #define XmCScrollBarPlacement X$GBLS(ScrollBarPlacement)
XMCSCROLLBARPLACEMENT : constant STRING :=
"ScrollBarPlacement"&ASCII.NUL;
--> #define XmRScrollBarPlacement X$GBLS(ScrollBarPlacement)
XMRSCROLLBARPLACEMENT : constant STRING :=
"ScrollBarPlacement"&ASCII.NUL;
--> #define XmNupdateSliderSize X$GBLS(updateSliderSize)
XMNUPDATESLIDERSIZE : constant STRING :=
"updateSliderSize"&ASCII.NUL;
--> #define XmCUpdateSliderSize X$GBLS(UpdateSliderSize)
XMCUPDATESLIDERSIZE : constant STRING :=
"UpdateSliderSize"&ASCII.NUL;
--> #define XmNscrolledWindowMarginHeight
X$GBLS(scrolledWindowMarginHeight)
XMNSCROLLEDWINDOWMARGINHEIGHT : constant STRING :=
"scrolledWindowMarginHeight"&ASCII.NUL;
--> #define XmCScrolledWindowMarginHeight
X$GBLS(ScrolledWindowMarginHeight)
XMCSCROLLEDWINDOWMARGINHEIGHT : constant STRING :=
"ScrolledWindowMarginHeight"&ASCII.NUL;
--> #define XmNscrolledWindowMarginWidth X$GBLS(scrolledWindowMarginWidth)
XMNSCROLLEDWINDOWMARGINWIDTH : constant STRING :=
"scrolledWindowMarginWidth"&ASCII.NUL;
--> #define XmCScrolledWindowMarginWidth X$GBLS(ScrolledWindowMarginWidth)
XMCSCROLLEDWINDOWMARGINWIDTH : constant STRING :=
"ScrolledWindowMarginWidth"&ASCII.NUL;
--> #define XmVARIABLE 0
XMVARIABLE : constant := 0;
--> #define XmCONSTANT 1;
XMCONSTANT : constant := 1;
--> #define XmRESIZE_IF_POSSIBLE 2
XMRESIZE_IF_POSSIBLE : constant := 2;
--> #define XmAUTOMATIC 0;
XMAUTOMATIC : constant := 0;
--> #define XmAPPLICATION_DEFINED 1
XMAPPLICATION_DEFINED : constant := 1;
--> #define XmAS_NEEDED 1
XMAS_NEEDED : constant := 1;
--> #define SW_TOP 1
SW_TOP : constant := 1;
--> #define SW_BOTTOM 0;
SW_BOTTOM : constant := 0;
--> #define SW_LEFT 2
SW_LEFT : constant := 2;
--> #define SW_RIGHT 0;
--> #define XmTOP_LEFT (SW_TOP | SW_LEFT)
XMTOP_LEFT : constant := 3;
--> #define XmBOTTOM_LEFT (SW_BOTTOM | SW_LEFT)
XMBOTTOM_LEFT : constant := 2;
--> #define XmTOP_RIGHT (SW_TOP | SW_RIGHT)
XMTOP_RIGHT : constant := 1;
--> #define XmBOTTOM_RIGHT (SW_BOTTOM | SW_RIGHT)
XMBOTTOM_RIGHT : constant := 0;
--**************************************************************
--
-- MainWindow Resources
--
--*************************************************************
--> #define XmNcommandWindow X$GBLS(commandWindow)
XMNCOMMANDWINDOW : constant STRING := "commandWindow"&ASCII.NUL;
--> #define XmCCommandWindow X$GBLS(CommandWindow)
XMCCOMMANDWINDOW : constant STRING := "CommandWindow"&ASCII.NUL;
--> #define XmNmenuBar X$GBLS(menuBar)
XMNMENUBAR : constant STRING := "menuBar"&ASCII.NUL;
--> #define XmCMenuBar X$GBLS(MenuBar)
XMCMENUBAR : constant STRING := "MenuBar"&ASCII.NUL;
--> #define XmNmessageWindow X$GBLS(messageWindow)
XMNMESSAGEWINDOW : constant STRING := "messageWindow"&ASCII.NUL;
--> #define XmCMessageWindow X$GBLS(MessageWindow)
XMCMESSAGEWINDOW : constant STRING := "MessageWindow"&ASCII.NUL;
--> #define XmNmainWindowMarginHeight X$GBLS(mainWindowMarginHeight)
XMNMAINWINDOWMARGINHEIGHT : constant STRING :=
"mainWindowMarginHeight"&ASCII.NUL;
--> #define XmCMainWindowMarginHeight X$GBLS(MainWindowMarginHeight)
XMCMAINWINDOWMARGINHEIGHT : constant STRING :=
"MainWindowMarginHeight"&ASCII.NUL;
--> #define XmNmainWindowMarginWidth X$GBLS(mainWindowMarginWidth)
XMNMAINWINDOWMARGINWIDTH : constant STRING :=
"mainWindowMarginWidth"&ASCII.NUL;
--> #define XmCMainWindowMarginWidth X$GBLS(MainWindowMarginWidth)
XMCMAINWINDOWMARGINWIDTH : constant STRING :=
"MainWindowMarginWidth"&ASCII.NUL;
--> #define XmNshowSeparator X$GBLS(showSeparator)
XMNSHOWSEPARATOR : constant STRING := "showSeparator"&ASCII.NUL;
--> #define XmCShowSeparator X$GBLS(ShowSeparator)
XMCSHOWSEPARATOR : constant STRING := "ShowSeparator"&ASCII.NUL;
--> #define XmCOMMAND_ABOVE_WORKSPACE 0
XMCOMMAND_ABOVE_WORKSPACE : constant := 0;
--> #define XmCOMMAND_BELOW_WORKSPACE 1;
XMCOMMAND_BELOW_WORKSPACE : constant := 1;
--*************************************************************
--
-- Text Widget defines
--
--*************************************************************
--> #define XmNsource X$GBLS(source)
XMNSOURCE : constant STRING := "source"&ASCII.NUL;
--> #define XmCSource X$GBLS(Source)
XMCSOURCE : constant STRING := "Source"&ASCII.NUL;
--> #define XmNoutputCreate X$GBLS(outputCreate)
XMNOUTPUTCREATE : constant STRING := "outputCreate"&ASCII.NUL;
--> #define XmCOutputCreate X$GBLS(OutputCreate)
XMCOUTPUTCREATE : constant STRING := "OutputCreate"&ASCII.NUL;
--> #define XmNinputCreate X$GBLS(inputCreate)
XMNINPUTCREATE : constant STRING := "inputCreate"&ASCII.NUL;
--> #define XmCInputCreate X$GBLS(InputCreate)
XMCINPUTCREATE : constant STRING := "InputCreate"&ASCII.NUL;
--> #define XmNautoShowCursorPosition X$GBLS(autoShowCursorPosition)
XMNAUTOSHOWCURSORPOSITION : constant STRING :=
"autoShowCursorPosition"&ASCII.NUL;
--> #define XmCAutoShowCursorPosition X$GBLS(AutoShowCursorPosition)
XMCAUTOSHOWCURSORPOSITION : constant STRING :=
"AutoShowCursorPosition"&ASCII.NUL;
--> #define XmNcursorPosition X$GBLS(cursorPosition)
XMNCURSORPOSITION : constant STRING := "cursorPosition"&ASCII.NUL;
--> #define XmCCursorPosition X$GBLS(CursorPosition)
XMCCURSORPOSITION : constant STRING := "CursorPosition"&ASCII.NUL;
--> #define XmNeditable X$GBLS(editable)
XMNEDITABLE : constant STRING := "editable"&ASCII.NUL;
--> #define XmCEditable X$GBLS(Editable)
XMCEDITABLE : constant STRING := "Editable"&ASCII.NUL;
--> #define XmNmaxLength X$GBLS(maxLength)
XMNMAXLENGTH : constant STRING := "maxLength"&ASCII.NUL;
--> #define XmCMaxLength X$GBLS(MaxLength)
XMCMAXLENGTH : constant STRING := "MaxLength"&ASCII.NUL;
--> #define XmNfocusCallback X$GBLS(focusCallback)
XMNFOCUSCALLBACK : constant STRING := "focusCallback"&ASCII.NUL;
--> #define XmNlosingFocusCallback X$GBLS(losingFocusCallback)
XMNLOSINGFOCUSCALLBACK : constant STRING :=
"losingFocusCallback"&ASCII.NUL;
--> #define XmNmodifyVerifyCallback X$GBLS(modifyVerifyCallback)
XMNMODIFYVERIFYCALLBACK : constant STRING :=
"modifyVerifyCallback"&ASCII.NUL;
--> #define XmNmotionVerifyCallback X$GBLS(motionVerifyCallback)
XMNMOTIONVERIFYCALLBACK : constant STRING :=
"motionVerifyCallback"&ASCII.NUL;
--> #define XmNgainPrimaryCallback X$GBLS(gainPrimaryCallback)
XMNGAINPRIMARYCALLBACK : constant STRING :=
"gainPrimaryCallback"&ASCII.NUL;
--> #define XmNlosePrimaryCallback X$GBLS(losePrimaryCallback)
XMNLOSEPRIMARYCALLBACK : constant STRING :=
"losePrimaryCallback"&ASCII.NUL;
--> #define XmNverifyBell X$GBLS(verifyBell);
XMNVERIFYBELL : constant STRING := "verifyBell"&ASCII.NUL;
--> #define XmCVerifyBell X$GBLS(VerifyBell)
XMCVERIFYBELL : constant STRING := "VerifyBell"&ASCII.NUL;
--> #define XmNwordWrap X$GBLS(wordWrap)
XMNWORDWRAP : constant STRING := "wordWrap"&ASCII.NUL;
--> #define XmCWordWrap X$GBLS(WordWrap)
XMCWORDWRAP : constant STRING := "WordWrap"&ASCII.NUL;
--> #define XmNblinkRate X$GBLS(blinkRate)
XMNBLINKRATE : constant STRING := "blinkRate"&ASCII.NUL;
--> #define XmCBlinkRate X$GBLS(BlinkRate)
XMCBLINKRATE : constant STRING := "BlinkRate"&ASCII.NUL;
--> #define XmNresizeWidth X$GBLS(resizeWidth)
XMNRESIZEWIDTH : constant STRING := "resizeWidth"&ASCII.NUL;
--> #define XmCResizeWidth X$GBLS(ResizeWidth)
XMCRESIZEWIDTH : constant STRING := "ResizeWidth"&ASCII.NUL;
--> #define XmNresizeHeight X$GBLS(resizeHeight)
XMNRESIZEHEIGHT : constant STRING := "resizeHeight"&ASCII.NUL;
--> #define XmCResizeHeight X$GBLS(ResizeHeight)
XMCRESIZEHEIGHT : constant STRING := "ResizeHeight"&ASCII.NUL;
--> #define XmNscrollHorizontal X$GBLS(scrollHorizontal)
XMNSCROLLHORIZONTAL : constant STRING :=
"scrollHorizontal"&ASCII.NUL;
--> #define XmNscrollVertical X$GBLS(scrollVertical)
XMNSCROLLVERTICAL : constant STRING := "scrollVertical"&ASCII.NUL;
--> #define XmCScroll X$GBLS(Scroll)
XMCSCROLL : constant STRING := "Scroll"&ASCII.NUL;
--> #define XmNscrollLeftSide X$GBLS(scrollLeftSide)
XMNSCROLLLEFTSIDE : constant STRING := "scrollLeftSide"&ASCII.NUL;
--> #define XmNscrollTopSide X$GBLS(scrollTopSide)
XMNSCROLLTOPSIDE : constant STRING := "scrollTopSide"&ASCII.NUL;
--> #define XmCScrollSide X$GBLS(ScrollSide)
XMCSCROLLSIDE : constant STRING := "ScrollSide"&ASCII.NUL;
--> #define XmNcursorPositionVisible X$GBLS(cursorPositionVisible)
XMNCURSORPOSITIONVISIBLE : constant STRING :=
"cursorPositionVisible"&ASCII.NUL;
--> #define XmCCursorPositionVisible X$GBLS(CursorPositionVisible)
XMCCURSORPOSITIONVISIBLE : constant STRING :=
"CursorPositionVisible"&ASCII.NUL;
--> #define XmNtoPositionCallback X$GBLS(toPositionCallback)
XMNTOPOSITIONCALLBACK : constant STRING :=
"toPositionCallback"&ASCII.NUL;
--> #define XmNcolumns X$GBLS(columns)
XMNCOLUMNS : constant STRING := "columns"&ASCII.NUL;
--> #define XmCColumns X$GBLS(Columns)
XMCCOLUMNS : constant STRING := "Columns"&ASCII.NUL;
--> #define XmNrows X$GBLS(rows)
XMNROWS : constant STRING := "rows"&ASCII.NUL;
--> #define XmCRows X$GBLS(Rows)
XMCROWS : constant STRING := "Rows"&ASCII.NUL;
--> #define XmNselectThreshold X$GBLS(selectThreshold)
XMNSELECTTHRESHOLD : constant STRING := "selectThreshold"&ASCII.NUL;
--> #define XmCSelectThreshold X$GBLS(SelectThreshold)
XMCSELECTTHRESHOLD : constant STRING := "SelectThreshold"&ASCII.NUL;
--> #define XmNselectionArrayCount X$GBLS(selectionArrayCount)
XMNSELECTIONARRAYCOUNT : constant STRING :=
"selectionArrayCount"&ASCII.NUL;
--> #define XmCSelectionArrayCount X$GBLS(SelectionArrayCount)
XMCSELECTIONARRAYCOUNT : constant STRING :=
"SelectionArrayCount"&ASCII.NUL;
--> #define XmNpendingDelete X$GBLS(pendingDelete)
XMNPENDINGDELETE : constant STRING := "pendingDelete"&ASCII.NUL;
--> #define XmCPendingDelete X$GBLS(PendingDelete)
XMCPENDINGDELETE : constant STRING := "PendingDelete"&ASCII.NUL;
--> #define XmNeditMode X$GBLS(editMode)
XMNEDITMODE : constant STRING := "editMode"&ASCII.NUL;
--> #define XmCEditMode X$GBLS(EditMode)
XMCEDITMODE : constant STRING := "EditMode"&ASCII.NUL;
--> #define XmMULTI_LINE_EDIT 0
XMMULTI_LINE_EDIT : constant := 0;
--> #define XmSINGLE_LINE_EDIT 1;
XMSINGLE_LINE_EDIT : constant := 1;
--> typedef long XmTextPosition;
subtype XMTEXTPOSITION_TYPE is INTEGER;
--> typedef Atom XmTextFormat;
subtype XMTEXTFORMAT_TYPE is UNSIGNED_LONGWORD;
--> #define FMT8BIT ((XmTextFormat) XA_STRING) /* 8-bit text. */
--> #define FMT16BIT ((XmTextFormat)2) /* 16-bit text. */
--> typedef enum { XmSELECT_POSITION, XmSELECT_WHITESPACE, XmSELECT_WORD,
--> XmSELECT_LINE, XmSELECT_ALL, XmSELECT_PARAGRAPH }
XmTextScanType;
subtype XMTEXTSCANTYPE_TYPE is UNSIGNED_LONGWORD;
XMSELECT_POSITION : constant := 0;
XMSELECT_WHITESPACE : constant := 1;
XMSELECT_WORD : constant := 2;
XMSELECT_LINE : constant := 3;
XMSELECT_ALL : constant := 4;
XMSELECT_PARAGRAPH : constant := 5;
--> typedef enum {XmHIGHLIGHT_NORMAL, XmHIGHLIGHT_SELECTED,
--> XmHIGHLIGHT_SECONDARY_SELECTED} XmHighlightMode;
subtype XMHIGHLIGHTMODE_TYPE is UNSIGNED_LONGWORD;
XMHIGHLIGHT_NORMAL : constant := 0;
XMHIGHLIGHT_SELECTED : constant := 1;
XMHIGHLIGHT_SECONDARY_SELECTED : constant := 2;
-- XmTextBlock's are used to pass text around.
--> typedef struct {
--> char *ptr; /* Pointer to data. */
--> int length; /* Number of bytes of data. */
--> XmTextFormat format; /* Representations format */
--> } XmTextBlockRec, *XmTextBlock;
type XMTEXTBLOCKREC_TYPE is
record
PTR : ADDRESS;
LENGTH : INTEGER;
FORMAT : XMTEXTFORMAT_TYPE;
end record;
for XMTEXTBLOCKREC_TYPE use
record
PTR at 0 range 0 .. 31;
LENGTH at 4 range 0 .. 31;
FORMAT at 8 range 0 .. 31;
end record;
for XMTEXTBLOCKREC_TYPE'SIZE use 96;
XMTEXTBLOCKREC_TYPE_INIT : constant XMTEXTBLOCKREC_TYPE :=
(PTR => ADDRESS_ZERO,
LENGTH => 0,
FORMAT => 0);
subtype XMTEXTBLOCK_TYPE is ADDRESS;
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> Boolean doit;
--> long currInsert, newInsert;
--> long startPos, endPos;
--> XmTextBlock text;
--> } XmTextVerifyCallbackStruct, *XmTextVerifyPtr;
type XMTEXTVERIFYCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
DOIT : BOOLEAN;
CURRINSERT : INTEGER;
NEWINSERT : INTEGER;
STARTPOS : INTEGER;
ENDPOS : INTEGER;
TEXT : XMTEXTBLOCK_TYPE;
end record;
for XMTEXTVERIFYCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
DOIT at 8 range 0 .. 7;
CURRINSERT at 12 range 0 .. 31;
NEWINSERT at 16 range 0 .. 31;
STARTPOS at 20 range 0 .. 31;
ENDPOS at 24 range 0 .. 31;
TEXT at 28 range 0 .. 31;
end record;
for XMTEXTVERIFYCALLBACKSTRUCT_TYPE'SIZE use 256;
XMTEXTVERIFYCALLBACKSTRUCT_TYPE_INIT : constant
XMTEXTVERIFYCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
DOIT => FALSE,
CURRINSERT => 0,
NEWINSERT => 0,
STARTPOS => 0,
ENDPOS => 0,
TEXT => ADDRESS_ZERO);
subtype XMTEXTVERIFYPTR_TYPE is ADDRESS;
--> #define XmNtopCharacter X$GBLS(topCharacter)
XMNTOPCHARACTER : constant STRING := "topCharacter"&ASCII.NUL;
--> #define XmCtopCharacter X$GBLS(TopCharacter)
XMCTOPCHARACTER : constant STRING := "TopCharacter"&ASCII.NUL;
--*************************************************************
--
-- VPaned Widget defines
--
--*************************************************************
-- Resources for Vertical Paned Window
--> #define XmNrefigureMode X$GBLS(refigureMode);
XMNREFIGUREMODE : constant STRING := "refigureMode"&ASCII.NUL;
--> #define XmNseparatorOn X$GBLS(separatorOn)
XMNSEPARATORON : constant STRING := "separatorOn"&ASCII.NUL;
--> #define XmCSeparatorOn X$GBLS(SeparatorOn)
XMCSEPARATORON : constant STRING := "SeparatorOn"&ASCII.NUL;
--> #define XmNsashIndent X$GBLS(sashIndent)
XMNSASHINDENT : constant STRING := "sashIndent"&ASCII.NUL;
--> #define XmCSashIndent X$GBLS(SashIndent)
XMCSASHINDENT : constant STRING := "SashIndent"&ASCII.NUL;
--> #define XmNsashWidth X$GBLS(sashWidth)
XMNSASHWIDTH : constant STRING := "sashWidth"&ASCII.NUL;
--> #define XmCSashWidth X$GBLS(SashWidth)
XMCSASHWIDTH : constant STRING := "SashWidth"&ASCII.NUL;
--> #define XmNsashHeight X$GBLS(sashHeight)
XMNSASHHEIGHT : constant STRING := "sashHeight"&ASCII.NUL;
--> #define XmCSashHeight X$GBLS(SashHeight)
XMCSASHHEIGHT : constant STRING := "SashHeight"&ASCII.NUL;
--> #define XmNsashShadowThickness X$GBLS(sashShadowThickness)
XMNSASHSHADOWTHICKNESS : constant STRING :=
"sashShadowThickness"&ASCII.NUL;
-- Constraint Resources for Vertical Paned Window
--> #define XmNallowResize X$GBLS(allowResize)
XMNALLOWRESIZE : constant STRING := "allowResize"&ASCII.NUL;
--> #define XmNskipAdjust X$GBLS(skipAdjust)
XMNSKIPADJUST : constant STRING := "skipAdjust"&ASCII.NUL;
--> #define XmNpaneMinimum X$GBLS(paneMinimum)
XMNPANEMINIMUM : constant STRING := "paneMinimum"&ASCII.NUL;
--> #define XmNpaneMaximum X$GBLS(paneMaximum)
XMNPANEMAXIMUM : constant STRING := "paneMaximum"&ASCII.NUL;
--> #define XmCPaneMinimum X$GBLS(PaneMinimum)
XMCPANEMINIMUM : constant STRING := "PaneMinimum"&ASCII.NUL;
--> #define XmCPaneMaximum X$GBLS(PaneMaximum)
XMCPANEMAXIMUM : constant STRING := "PaneMaximum"&ASCII.NUL;
--*************************************************************
--
-- DrawingArea defines
--
--*************************************************************
--> #define XmNinputCallback X$GBLS(inputCallback)
XMNINPUTCALLBACK : constant STRING := "inputCallback"&ASCII.NUL;
--*************************************************************
--
-- DIALOG defines.. BulletinBoard and things common to its subclasses
-- CommandBox MessageBox Selection FileSelection
--
--*************************************************************
-- child type defines for Xm...GetChild()
--> #define XmDIALOG_NONE 0 /* a valid default button type */;
XMDIALOG_NONE : constant := 0;
--> #define XmDIALOG_APPLY_BUTTON 1
XMDIALOG_APPLY_BUTTON : constant := 1;
--> #define XmDIALOG_CANCEL_BUTTON 2;
XMDIALOG_CANCEL_BUTTON : constant := 2;
--> #define XmDIALOG_DEFAULT_BUTTON 3;
XMDIALOG_DEFAULT_BUTTON : constant := 3;
--> #define XmDIALOG_OK_BUTTON 4;
XMDIALOG_OK_BUTTON : constant := 4;
--> #define XmDIALOG_FILTER_LABEL 5;
XMDIALOG_FILTER_LABEL : constant := 5;
--> #define XmDIALOG_FILTER_TEXT 6;
XMDIALOG_FILTER_TEXT : constant := 6;
--> #define XmDIALOG_HELP_BUTTON 7;
XMDIALOG_HELP_BUTTON : constant := 7;
--> #define XmDIALOG_LIST 8;
XMDIALOG_LIST : constant := 8;
--> #define XmDIALOG_HISTORY_LIST XmDIALOG_LIST
XMDIALOG_HISTORY_LIST : constant := 8;
--> #define XmDIALOG_LIST_LABEL 9;
XMDIALOG_LIST_LABEL : constant := 9;
--> #define XmDIALOG_MESSAGE_LABEL 10
XMDIALOG_MESSAGE_LABEL : constant := 10;
--> #define XmDIALOG_SELECTION_LABEL 11;
XMDIALOG_SELECTION_LABEL : constant := 11;
--> #define XmDIALOG_PROMPT_LABEL XmDIALOG_SELECTION_LABEL;
XMDIALOG_PROMPT_LABEL : constant := 11;
--> #define XmDIALOG_SYMBOL_LABEL 12;
XMDIALOG_SYMBOL_LABEL : constant := 12;
--> #define XmDIALOG_TEXT 13;
XMDIALOG_TEXT : constant := 13;
--> #define XmDIALOG_VALUE_TEXT XmDIALOG_TEXT
XMDIALOG_VALUE_TEXT : constant := 13;
--> #define XmDIALOG_COMMAND_TEXT XmDIALOG_TEXT;
XMDIALOG_COMMAND_TEXT : constant := 13;
--> #define XmDIALOG_SEPARATOR 14;
XMDIALOG_SEPARATOR : constant := 14;
--> #define XmDIALOG_DIR_LIST 15
XMDIALOG_DIR_LIST : constant := 15;
--> #define XmDIALOG_DIR_LIST_LABEL 16;
XMDIALOG_DIR_LIST_LABEL : constant := 16;
--> #define XmDIALOG_FILE_LIST XmDIALOG_LIST;
XMDIALOG_FILE_LIST : constant := 8;
--> #define XmDIALOG_FILE_LIST_LABEL XmDIALOG_LIST_LABEL;
XMDIALOG_FILE_LIST_LABEL : constant := 9;
-- defines for callbacks
--> #define XmNokCallback X$GBLS(okCallback)
XMNOKCALLBACK : constant STRING := "okCallback"&ASCII.NUL;
--> #define XmNcancelCallback X$GBLS(cancelCallback)
XMNCANCELCALLBACK : constant STRING := "cancelCallback"&ASCII.NUL;
--> #define XmNapplyCallback X$GBLS(applyCallback)
XMNAPPLYCALLBACK : constant STRING := "applyCallback"&ASCII.NUL;
--> #define XmNnoMatchCallback X$GBLS(noMatchCallback)
XMNNOMATCHCALLBACK : constant STRING := "noMatchCallback"&ASCII.NUL;
--> #define XmNcommandEnteredCallback X$GBLS(commandEnteredCallback)
XMNCOMMANDENTEREDCALLBACK : constant STRING :=
"commandEnteredCallback"&ASCII.NUL;
--> #define XmNcommandChangedCallback X$GBLS(commandChangedCallback)
XMNCOMMANDCHANGEDCALLBACK : constant STRING :=
"commandChangedCallback"&ASCII.NUL;
-- XmN defines for subwidgets
--> #define XmNokLabelString X$GBLS(okLabelString)
XMNOKLABELSTRING : constant STRING := "okLabelString"&ASCII.NUL;
--> #define XmNcancelLabelString X$GBLS(cancelLabelString)
XMNCANCELLABELSTRING : constant STRING :=
"cancelLabelString"&ASCII.NUL;
--> #define XmNhelpLabelString X$GBLS(helpLabelString)
XMNHELPLABELSTRING : constant STRING := "helpLabelString"&ASCII.NUL;
--> #define XmNapplyLabelString X$GBLS(applyLabelString)
XMNAPPLYLABELSTRING : constant STRING :=
"applyLabelString"&ASCII.NUL;
--> #define XmNselectionLabelString X$GBLS(selectionLabelString)
XMNSELECTIONLABELSTRING : constant STRING :=
"selectionLabelString"&ASCII.NUL;
--> #define XmNlistLabelString X$GBLS(listLabelString)
XMNLISTLABELSTRING : constant STRING := "listLabelString"&ASCII.NUL;
--> #define XmNpromptString X$GBLS(promptString)
XMNPROMPTSTRING : constant STRING := "promptString"&ASCII.NUL;
-- XmC defines for subwidgets
--> #define XmCOkLabelString X$GBLS(OkLabelString)
XMCOKLABELSTRING : constant STRING := "OkLabelString"&ASCII.NUL;
--> #define XmCCancelLabelString X$GBLS(CancelLabelString)
XMCCANCELLABELSTRING : constant STRING :=
"CancelLabelString"&ASCII.NUL;
--> #define XmCHelpLabelString X$GBLS(HelpLabelString)
XMCHELPLABELSTRING : constant STRING := "HelpLabelString"&ASCII.NUL;
--> #define XmCApplyLabelString X$GBLS(ApplyLabelString)
XMCAPPLYLABELSTRING : constant STRING :=
"ApplyLabelString"&ASCII.NUL;
--> #define XmCSelectionLabelString X$GBLS(SelectionLabelString)
XMCSELECTIONLABELSTRING : constant STRING :=
"SelectionLabelString"&ASCII.NUL;
--> #define XmCListLabelString X$GBLS(ListLabelString)
XMCLISTLABELSTRING : constant STRING := "ListLabelString"&ASCII.NUL;
--> #define XmCPromptString X$GBLS(PromptString)
XMCPROMPTSTRING : constant STRING := "PromptString"&ASCII.NUL;
--> #define XmCMessageString X$GBLS(MessageString)
XMCMESSAGESTRING : constant STRING := "MessageString"&ASCII.NUL;
--> #define XmNdefaultButton X$GBLS(defaultButton)
XMNDEFAULTBUTTON : constant STRING := "defaultButton"&ASCII.NUL;
--> #define XmNcancelButton X$GBLS(cancelButton)
XMNCANCELBUTTON : constant STRING := "cancelButton"&ASCII.NUL;
--> #define XmNbuttonFontList X$GBLS(buttonFontList)
XMNBUTTONFONTLIST : constant STRING := "buttonFontList"&ASCII.NUL;
--> #define XmCButtonFontList X$GBLS(ButtonFontList)
XMCBUTTONFONTLIST : constant STRING := "ButtonFontList"&ASCII.NUL;
--> #define XmNlabelFontList X$GBLS(labelFontList)
XMNLABELFONTLIST : constant STRING := "labelFontList"&ASCII.NUL;
--> #define XmCLabelFontList X$GBLS(LabelFontList)
XMCLABELFONTLIST : constant STRING := "LabelFontList"&ASCII.NUL;
--> #define XmNtextFontList X$GBLS(textFontList)
XMNTEXTFONTLIST : constant STRING := "textFontList"&ASCII.NUL;
--> #define XmCTextFontList X$GBLS(TextFontList)
XMCTEXTFONTLIST : constant STRING := "TextFontList"&ASCII.NUL;
--> #define XmNtextTranslations X$GBLS(textTranslations)
XMNTEXTTRANSLATIONS : constant STRING :=
"textTranslations"&ASCII.NUL;
--> #define XmNallowOverlap X$GBLS(allowOverlap)
XMNALLOWOVERLAP : constant STRING := "allowOverlap"&ASCII.NUL;
--> #define XmCAllowOverlap X$GBLS(AllowOverlap)
XMCALLOWOVERLAP : constant STRING := "AllowOverlap"&ASCII.NUL;
--> #define XmNdefaultPosition X$GBLS(defaultPosition)
XMNDEFAULTPOSITION : constant STRING := "defaultPosition"&ASCII.NUL;
--> #define XmCDefaultPosition X$GBLS(DefaultPosition)
XMCDEFAULTPOSITION : constant STRING := "DefaultPosition"&ASCII.NUL;
--> #define XmNautoUnmanage X$GBLS(autoUnmanage)
XMNAUTOUNMANAGE : constant STRING := "autoUnmanage"&ASCII.NUL;
--> #define XmCAutoUnmanage X$GBLS(AutoUnmanage)
XMCAUTOUNMANAGE : constant STRING := "AutoUnmanage"&ASCII.NUL;
--> #define XmNdialogTitle X$GBLS(dialogTitle)
XMNDIALOGTITLE : constant STRING := "dialogTitle"&ASCII.NUL;
--> #define XmCDialogTitle X$GBLS(DialogTitle)
XMCDIALOGTITLE : constant STRING := "DialogTitle"&ASCII.NUL;
--> #define XmNnoResize X$GBLS(noResize)
XMNNORESIZE : constant STRING := "noResize"&ASCII.NUL;
--> #define XmCNoResize X$GBLS(NoResize)
XMCNORESIZE : constant STRING := "NoResize"&ASCII.NUL;
--> #define XmNdialogStyle X$GBLS(dialogStyle)
XMNDIALOGSTYLE : constant STRING := "dialogStyle"&ASCII.NUL;
--> #define XmCDialogStyle X$GBLS(DialogStyle)
XMCDIALOGSTYLE : constant STRING := "DialogStyle"&ASCII.NUL;
--> #define XmRDialogStyle X$GBLS(DialogStyle)
XMRDIALOGSTYLE : constant STRING := "DialogStyle"&ASCII.NUL;
-- dialog style defines
--> #define XmDIALOG_MODELESS 0
XMDIALOG_MODELESS : constant := 0;
--> #define XmDIALOG_PRIMARY_APPLICATION_MODAL 1;
XMDIALOG_PRIMARY_APP_MODAL : constant := 1;
--> #define XmDIALOG_FULL_APPLICATION_MODAL 2;
XMDIALOG_FULL_APPLICATION_MODAL : constant := 2;
--> #define XmDIALOG_SYSTEM_MODAL 3
XMDIALOG_SYSTEM_MODAL : constant := 3;
-- The following is for compatibility only. Its use is deprecated.
--> #define XmDIALOG_APPLICATION_MODAL XmDIALOG_PRIMARY_APPLICATION_MODAL
XMDIALOG_APPLICATION_MODAL : constant := 1;
--************************************************************
-- XmSelectionBox, XmFileSelectionBox and XmCommand - misc. stuff
--************************************************************
--> #define XmNmustMatch X$GBLS(mustMatch)
XMNMUSTMATCH : constant STRING := "mustMatch"&ASCII.NUL;
--> #define XmCMustMatch X$GBLS(MustMatch)
XMCMUSTMATCH : constant STRING := "MustMatch"&ASCII.NUL;
--> #define XmNnoMatchString X$GBLS(noMatchString)
XMNNOMATCHSTRING : constant STRING := "noMatchString"&ASCII.NUL;
--> #define XmCNoMatchString X$GBLS(NoMatchString)
XMCNOMATCHSTRING : constant STRING := "NoMatchString"&ASCII.NUL;
--> #define XmNdirectory X$GBLS(directory)
XMNDIRECTORY : constant STRING := "directory"&ASCII.NUL;
--> #define XmCDirectory X$GBLS(Directory)
XMCDIRECTORY : constant STRING := "Directory"&ASCII.NUL;
--> #define XmNpattern X$GBLS(pattern)
XMNPATTERN : constant STRING := "pattern"&ASCII.NUL;
--> #define XmCPattern X$GBLS(Pattern)
XMCPATTERN : constant STRING := "Pattern"&ASCII.NUL;
--> #define XmNdirSpec X$GBLS(dirSpec)
XMNDIRSPEC : constant STRING := "dirSpec"&ASCII.NUL;
--> #define XmCDirSpec X$GBLS(DirSpec)
XMCDIRSPEC : constant STRING := "DirSpec"&ASCII.NUL;
--> #define XmNdirMask X$GBLS(dirMask)
XMNDIRMASK : constant STRING := "dirMask"&ASCII.NUL;
--> #define XmCDirMask X$GBLS(DirMask)
XMCDIRMASK : constant STRING := "DirMask"&ASCII.NUL;
--> #define XmNfileTypeMask X$GBLS(fileTypeMask)
XMNFILETYPEMASK : constant STRING := "fileTypeMask"&ASCII.NUL;
--> #define XmCFileTypeMask X$GBLS(FileTypeMask)
XMCFILETYPEMASK : constant STRING := "FileTypeMask"&ASCII.NUL;
--> #define XmRFileTypeMask X$GBLS(FileTypeMask)
XMRFILETYPEMASK : constant STRING := "FileTypeMask"&ASCII.NUL;
--> #define XmNdirectoryValid X$GBLS(directoryValid)
XMNDIRECTORYVALID : constant STRING := "directoryValid"&ASCII.NUL;
--> #define XmCDirectoryValid X$GBLS(DirectoryValid)
XMCDIRECTORYVALID : constant STRING := "DirectoryValid"&ASCII.NUL;
--> #define XmNdirListItems X$GBLS(dirListItems)
XMNDIRLISTITEMS : constant STRING := "dirListItems"&ASCII.NUL;
--> #define XmCDirListItems X$GBLS(DirListItems)
XMCDIRLISTITEMS : constant STRING := "DirListItems"&ASCII.NUL;
--> #define XmNdirListItemCount X$GBLS(dirListItemCount)
XMNDIRLISTITEMCOUNT : constant STRING :=
"dirListItemCount"&ASCII.NUL;
--> #define XmCDirListItemCount X$GBLS(DirListItemCount)
XMCDIRLISTITEMCOUNT : constant STRING :=
"DirListItemCount"&ASCII.NUL;
--> #define XmNdirListLabelString X$GBLS(dirListLabelString)
XMNDIRLISTLABELSTRING : constant STRING :=
"dirListLabelString"&ASCII.NUL;
--> #define XmCDirListLabelString X$GBLS(DirListLabelString)
XMCDIRLISTLABELSTRING : constant STRING :=
"DirListLabelString"&ASCII.NUL;
--> #define XmNfileListItems "fileListItems"
XMNFILELISTITEMS : constant STRING := "fileListItems"&ASCII.NUL;
--> #define XmCFileListItems "FileListItems"
XMCFILELISTITEMS : constant STRING := "FileListItems"&ASCII.NUL;
--> #define XmNfileListItemCount "fileListItemCount"
XMNFILELISTITEMCOUNT : constant STRING :=
"fileListItemCount"&ASCII.NUL;
--> #define XmCFileListItemCount "FileListItemCount"
XMCFILELISTITEMCOUNT : constant STRING :=
"FileListItemCount"&ASCII.NUL;
--> #define XmNfileListLabelString X$GBLS(fileListLabelString)
XMNFILELISTLABELSTRING : constant STRING :=
"fileListLabelString"&ASCII.NUL;
--> #define XmCFileListLabelString X$GBLS(FileListLabelString)
XMCFILELISTLABELSTRING : constant STRING :=
"FileListLabelString"&ASCII.NUL;
--> #define XmNqualifySearchDataProc X$GBLS(qualifySearchDataProc)
XMNQUALIFYSEARCHDATAPROC : constant STRING :=
"qualifySearchDataProc"&ASCII.NUL;
--> #define XmCQualifySearchDataProc X$GBLS(QualifySearchDataProc)
XMCQUALIFYSEARCHDATAPROC : constant STRING :=
"QualifySearchDataProc"&ASCII.NUL;
--> #define XmNdirSearchProc X$GBLS(dirSearchProc)
XMNDIRSEARCHPROC : constant STRING := "dirSearchProc"&ASCII.NUL;
--> #define XmCDirSearchProc X$GBLS(DirSearchProc)
XMCDIRSEARCHPROC : constant STRING := "DirSearchProc"&ASCII.NUL;
--> #define XmNfileSearchProc X$GBLS(fileSearchProc)
XMNFILESEARCHPROC : constant STRING := "fileSearchProc"&ASCII.NUL;
--> #define XmCFileSearchProc X$GBLS(FileSearchProc)
XMCFILESEARCHPROC : constant STRING := "FileSearchProc"&ASCII.NUL;
--> #define XmNlistItems X$GBLS(listItems)
XMNLISTITEMS : constant STRING := "listItems"&ASCII.NUL;
--> #define XmNlistItemCount X$GBLS(listItemCount)
XMNLISTITEMCOUNT : constant STRING := "listItemCount"&ASCII.NUL;
--> #define XmNlistVisibleItemCount X$GBLS(listVisibleItemCount)
XMNLISTVISIBLEITEMCOUNT : constant STRING :=
"listVisibleItemCount"&ASCII.NUL;
--> #define XmNhistoryItems X$GBLS(historyItems)
XMNHISTORYITEMS : constant STRING := "historyItems"&ASCII.NUL;
--> #define XmNhistoryItemCount X$GBLS(historyItemCount)
XMNHISTORYITEMCOUNT : constant STRING :=
"historyItemCount"&ASCII.NUL;
--> #define XmNhistoryVisibleItemCount X$GBLS(historyVisibleItemCount)
XMNHISTORYVISIBLEITEMCOUNT : constant STRING :=
"historyVisibleItemCount"&ASCII.NUL;
--> #define XmNhistoryMaxItems X$GBLS(historyMaxItems)
XMNHISTORYMAXITEMS : constant STRING := "historyMaxItems"&ASCII.NUL;
--> #define XmCMaxItems X$GBLS(MaxItems)
XMCMAXITEMS : constant STRING := "MaxItems"&ASCII.NUL;
--> #define XmNtextAccelerators X$GBLS(textAccelerators)
XMNTEXTACCELERATORS : constant STRING :=
"textAccelerators"&ASCII.NUL;
--> #define XmCTextValue X$GBLS(TextValue) /* used in
text widget */
XMCTEXTVALUE : constant STRING := "TextValue"&ASCII.NUL;
--> #define XmNtextValue X$GBLS(textValue) /* used in
text widget */
XMNTEXTVALUE : constant STRING := "textValue"&ASCII.NUL;
--> #define XmCTextString X$GBLS(TextString)
XMCTEXTSTRING : constant STRING := "TextString"&ASCII.NUL;
--> #define XmNtextString X$GBLS(textString)
XMNTEXTSTRING : constant STRING := "textString"&ASCII.NUL;
--> #define XmNtextColumns X$GBLS(textColumns)
XMNTEXTCOLUMNS : constant STRING := "textColumns"&ASCII.NUL;
--> #define XmNcommand X$GBLS(command)
XMNCOMMAND : constant STRING := "command"&ASCII.NUL;
-- Defines for file type mask:
--> #define XmFILE_DIRECTORY (1 << 0)
XMFILE_DIRECTORY : constant := 1;
--> #define XmFILE_REGULAR (1 << 1)
XMFILE_REGULAR : constant := 2;
--> #define XmFILE_ANY_TYPE (XmFILE_DIRECTORY | XmFILE_REGULAR)
XMFILE_ANY_TYPE : constant := 1;
-- Defines for selection dialog type:
--> #define XmDIALOG_WORK_AREA 0
XMDIALOG_WORK_AREA : constant := 0;
--> #define XmDIALOG_PROMPT 1;
XMDIALOG_PROMPT : constant := 1;
--> #define XmDIALOG_SELECTION 2;
XMDIALOG_SELECTION : constant := 2;
--> #define XmDIALOG_COMMAND 3;
XMDIALOG_COMMAND : constant := 3;
--> #define XmDIALOG_FILE_SELECTION 4;
XMDIALOG_FILE_SELECTION : constant := 4;
--************************************************************
-- XmMessageBox stuff not common to other dialogs
--************************************************************
--> #define XmNdefaultButtonType X$GBLS(defaultButtonType)
XMNDEFAULTBUTTONTYPE : constant STRING :=
"defaultButtonType"&ASCII.NUL;
--> #define XmCDefaultButtonType X$GBLS(DefaultButtonType)
XMCDEFAULTBUTTONTYPE : constant STRING :=
"DefaultButtonType"&ASCII.NUL;
--> #define XmRDefaultButtonType X$GBLS(DefaultButtonType)
XMRDEFAULTBUTTONTYPE : constant STRING :=
"DefaultButtonType"&ASCII.NUL;
--> #define XmNminimizeButtons X$GBLS(minimizeButtons)
XMNMINIMIZEBUTTONS : constant STRING := "minimizeButtons"&ASCII.NUL;
--> #define XmCMinimizeButtons X$GBLS(MinimizeButtons)
XMCMINIMIZEBUTTONS : constant STRING := "MinimizeButtons"&ASCII.NUL;
--> #define XmNmessageString X$GBLS(messageString)
XMNMESSAGESTRING : constant STRING := "messageString"&ASCII.NUL;
--> #define XmNmessageAlignment X$GBLS(messageAlignment)
XMNMESSAGEALIGNMENT : constant STRING :=
"messageAlignment"&ASCII.NUL;
--> #define XmNsymbolPixmap X$GBLS(symbolPixmap)
XMNSYMBOLPIXMAP : constant STRING := "symbolPixmap"&ASCII.NUL;
--> #define XmNdialogType X$GBLS(dialogType)
XMNDIALOGTYPE : constant STRING := "dialogType"&ASCII.NUL;
--> #define XmCDialogType X$GBLS(DialogType)
XMCDIALOGTYPE : constant STRING := "DialogType"&ASCII.NUL;
--> #define XmRDialogType X$GBLS(DialogType)
XMRDIALOGTYPE : constant STRING := "DialogType"&ASCII.NUL;
-- defines for dialog type
--> #define XmDIALOG_ERROR 1
XMDIALOG_ERROR : constant := 1;
--> #define XmDIALOG_INFORMATION 2;
XMDIALOG_INFORMATION : constant := 2;
--> #define XmDIALOG_MESSAGE 3;
XMDIALOG_MESSAGE : constant := 3;
--> #define XmDIALOG_QUESTION 4;
XMDIALOG_QUESTION : constant := 4;
--> #define XmDIALOG_WARNING 5;
XMDIALOG_WARNING : constant := 5;
--> #define XmDIALOG_WORKING 6;
XMDIALOG_WORKING : constant := 6;
--*************************************************************
-- Resource names used by XmScale
--*************************************************************
--> #define XmNscaleWidth X$GBLS(scaleWidth)
XMNSCALEWIDTH : constant STRING := "scaleWidth"&ASCII.NUL;
--> #define XmCScaleWidth X$GBLS(ScaleWidth)
XMCSCALEWIDTH : constant STRING := "ScaleWidth"&ASCII.NUL;
--> #define XmNscaleHeight X$GBLS(scaleHeight)
XMNSCALEHEIGHT : constant STRING := "scaleHeight"&ASCII.NUL;
--> #define XmCScaleHeight X$GBLS(ScaleHeight)
XMCSCALEHEIGHT : constant STRING := "ScaleHeight"&ASCII.NUL;
--> #define XmNdecimalPoints X$GBLS(decimalPoints)
XMNDECIMALPOINTS : constant STRING := "decimalPoints"&ASCII.NUL;
--> #define XmCDecimalPoints X$GBLS(DecimalPoints)
XMCDECIMALPOINTS : constant STRING := "DecimalPoints"&ASCII.NUL;
--> #define XmNshowValue X$GBLS(showValue)
XMNSHOWVALUE : constant STRING := "showValue"&ASCII.NUL;
--> #define XmCShowValue X$GBLS(ShowValue)
XMCSHOWVALUE : constant STRING := "ShowValue"&ASCII.NUL;
--> #define XmNtitleString X$GBLS(titleString)
XMNTITLESTRING : constant STRING := "titleString"&ASCII.NUL;
--> #define XmCTitleString X$GBLS(TitleString)
XMCTITLESTRING : constant STRING := "TitleString"&ASCII.NUL;
-- Traversal direction defines
--> #define XmTRAVERSE_CURRENT 0
XMTRAVERSE_CURRENT : constant := 0;
--> #define XmTRAVERSE_NEXT 1;
XMTRAVERSE_NEXT : constant := 1;
--> #define XmTRAVERSE_PREV 2;
XMTRAVERSE_PREV : constant := 2;
--> #define XmTRAVERSE_HOME 3;
XMTRAVERSE_HOME : constant := 3;
--> #define XmTRAVERSE_NEXT_TAB_GROUP 4;
XMTRAVERSE_NEXT_TAB_GROUP : constant := 4;
--> #define XmTRAVERSE_PREV_TAB_GROUP 5;
XMTRAVERSE_PREV_TAB_GROUP : constant := 5;
--> #define XmTRAVERSE_UP 6;
XMTRAVERSE_UP : constant := 6;
--> #define XmTRAVERSE_DOWN 7;
XMTRAVERSE_DOWN : constant := 7;
--> #define XmTRAVERSE_LEFT 8;
XMTRAVERSE_LEFT : constant := 8;
--> #define XmTRAVERSE_RIGHT 9;
XMTRAVERSE_RIGHT : constant := 9;
--***********************************************************
--
-- Color generation function.
--
--***********************************************************
--> typedef void (*XmColorProc) ();
subtype XMCOLORPROC_TYPE is ADDRESS;
--> XmColorProc XmSetColorCalculation(XmColorProc proc);
procedure XMSETCOLORCALCULATION (
RESULT : out XMCOLORPROC_TYPE; --
return value
PROC : in XMCOLORPROC_TYPE);
pragma INTERFACE (EXTERNAL, XMSETCOLORCALCULATION);
pragma IMPORT_VALUED_PROCEDURE (XMSETCOLORCALCULATION,
"XmSetColorCalculation",
(XMCOLORPROC_TYPE, XMCOLORPROC_TYPE),
(VALUE, VALUE));
--> XmColorProc XmGetColorCalculation(void);
procedure XMGETCOLORCALCULATION (
RESULT : out XMCOLORPROC_TYPE); --
return value
pragma INTERFACE (EXTERNAL, XMGETCOLORCALCULATION);
pragma IMPORT_VALUED_PROCEDURE (XMGETCOLORCALCULATION,
"XmGetColorCalculation",
(XMCOLORPROC_TYPE),
(VALUE));
--> void XmGetColors (Screen * screen, Colormap color_map, Pixel background,
--> Pixel *foreground_ret, Pixel *top_shadow_ret,
--> Pixel *bottom_shadow_ret, Pixel *select_ret);
procedure XMGETCOLORS (
SCREEN : in SCREEN_TYPE;
COLORMAP : in COLORMAP_TYPE;
BACKGROUND : in PIXEL_TYPE;
FOREGROUND : out PIXEL_TYPE;
TOP_SHADOW : out PIXEL_TYPE;
BOTTOM_SHADOW : out PIXEL_TYPE;
SELEC : out PIXEL_TYPE);
pragma INTERFACE (EXTERNAL, XMGETCOLORS);
pragma IMPORT_PROCEDURE (XMGETCOLORS, "XmGetColors",
(SCREEN_TYPE, COLORMAP_TYPE, PIXEL_TYPE, PIXEL_TYPE, PIXEL_TYPE,
PIXEL_TYPE, PIXEL_TYPE),
(REFERENCE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
--************************************************************
--
-- extern for the string to unit type converter.
--
--***********************************************************
--> extern void XmCvtStringToUnitType(XrmValuePtr args, Cardinal * num_args,
--> XrmValue * from_val, XrmValue * to_val);
procedure XMCVTSTRINGTOUNITTYPE (
ARGS : in XRMVALUEPTR_TYPE;
NUM_ARGS : in CARDINAL_TYPE;
FROM_VAL : in XRMVALUEPTR_TYPE;
TO_VAL : in XRMVALUEPTR_TYPE);
pragma INTERFACE (EXTERNAL, XMCVTSTRINGTOUNITTYPE);
pragma IMPORT_PROCEDURE (XMCVTSTRINGTOUNITTYPE, "XmCvtStringToUnitType",
(XRMVALUEPTR_TYPE, CARDINAL_TYPE, XRMVALUEPTR_TYPE, XRMVALUEPTR_TYPE),
(REFERENCE, REFERENCE, REFERENCE, REFERENCE));
--> extern void XmSetFontUnit (Display *display, int value);
procedure XMSETFONTUNIT (
DISPLAY : in DISPLAY_TYPE;
FONT_UNIT_VALUE : in INTEGER);
pragma INTERFACE (EXTERNAL, XMSETFONTUNIT);
pragma IMPORT_PROCEDURE (XMSETFONTUNIT, "XmSetFontUnit",
(DISPLAY_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void XmSetFontUnits(Display *display, int hvalue, int vvalue);
procedure XMSETFONTUNITS (
DISPLAY : in DISPLAY_TYPE;
H_VALUE : in INTEGER;
V_VALUE : in INTEGER);
pragma INTERFACE (EXTERNAL, XMSETFONTUNITS);
pragma IMPORT_PROCEDURE (XMSETFONTUNITS, "XmSetFontUnits",
(DISPLAY_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE));
--******
--
-- Public functions with prototypes defined in XmString.c
--
--*****
--> extern XmString XmStringCreate _ARGUMENTS(( char *text , XmStringCharSet
charset ));
procedure XMSTRINGCREATE (
RESULT : out XMSTRING_TYPE; --
return value
TEXT : in STRING;
CHARSET : in STRING);
pragma INTERFACE (EXTERNAL, XMSTRINGCREATE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGCREATE, "XmStringCreate",
(XMSTRING_TYPE, STRING, STRING),
(VALUE, REFERENCE, REFERENCE));
--> extern XmString XmStringDirectionCreate _ARGUMENTS(( XmStringDirection
direction ));
procedure XMSTRINGDIRECTIONCREATE (
RESULT : out XMSTRING_TYPE; --
return value
DIRECTION : in XMSTRINGDIRECTION_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGDIRECTIONCREATE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGDIRECTIONCREATE,
"XmStringDirectionCreate",
(XMSTRING_TYPE, XMSTRINGDIRECTION_TYPE),
(VALUE, VALUE));
--> extern XmString XmStringSeparatorCreate _ARGUMENTS(( void ));
procedure XMSTRINGSEPARATORCREATE (
RESULT : out XMSTRING_TYPE); --
return value
pragma INTERFACE (EXTERNAL, XMSTRINGSEPARATORCREATE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGSEPARATORCREATE,
"XmStringSeparatorCreate",
(XMSTRING_TYPE),
(VALUE));
--> extern XmString XmStringSegmentCreate _ARGUMENTS(( char *text ,
XmStringCharSet charset , XmStringDirection directi
procedure XMSTRINGSEGMENTCREATE (
RESULT : out XMSTRING_TYPE; --
return value
TEXT : in STRING;
CHARSET : in STRING;
DIRECTION : in XMSTRINGDIRECTION_TYPE;
SEPARATOR : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMSTRINGSEGMENTCREATE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGSEGMENTCREATE,
"XmStringSegmentCreate",
(XMSTRING_TYPE, STRING, STRING, XMSTRINGDIRECTION_TYPE, BOOLEAN),
(VALUE, REFERENCE, REFERENCE, VALUE, VALUE));
--> extern XmString XmStringLtoRCreate _ARGUMENTS(( char *text ,
XmStringCharSet charset ));
--> ENTRY XmStringLtoRCreate
--> PARAMETER (
--> CHARACTER LENGTH * IN NAMED text,
--> CHARACTER LENGTH * IN NAMED charset )
--> RETURNS XmString NAMED result;
--> extern XmString XmStringCreateLtoR _ARGUMENTS(( char *text ,
XmStringCharSet charset ));
procedure XMSTRINGCREATELTOR (
RESULT : out XMSTRING_TYPE; --
return value
TEXT : in STRING;
CHARSET : in STRING);
pragma INTERFACE (EXTERNAL, XMSTRINGCREATELTOR);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGCREATELTOR, "XmStringCreateLtoR",
(XMSTRING_TYPE, STRING, STRING),
(VALUE, REFERENCE, REFERENCE));
--> extern Boolean XmStringInitContext _ARGUMENTS(( XmStringContext *context ,
XmString string ));
procedure XMSTRINGINITCONTEXT (
RESULT : out BOOLEAN; --
return value
CONTEXT : in out XMSTRINGCONTEXT_TYPE;
STRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGINITCONTEXT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGINITCONTEXT, "XmStringInitContext",
(BOOLEAN, XMSTRINGCONTEXT_TYPE, XMSTRING_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern void XmStringFreeContext _ARGUMENTS(( XmStringContext context ));
procedure XMSTRINGFREECONTEXT (
RESULT : out XMSTRING_TYPE; --
return value
CONTEXT : in XMSTRINGCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGFREECONTEXT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGFREECONTEXT, "XmStringFreeContext",
(XMSTRING_TYPE, XMSTRINGCONTEXT_TYPE),
(VALUE, VALUE));
--> extern XmStringComponentType XmStringGetNextComponent _ARGUMENTS((
XmStringContext context , char **text ,
--> XmStringCharSet *charset , XmStringDirection *direction ,
XmStringComponentType *unknown_tag)
--> unsigned short *unknown_length , unsigned char **unknown_value ));
procedure XMSTRINGGETNEXTCOMPONENT (
RESULT : out XMSTRINGCOMPONENTTYPE_TYPE; --
return value
CONTEXT : in XMSTRINGCONTEXT_TYPE;
TEXT : out ADDRESS;
CHARSET : out XMSTRINGCHARSET_TYPE;
DIRECTION : out XMSTRINGDIRECTION_TYPE;
UNKNOWN_TAG : out XMSTRINGCOMPONENTTYPE_TYPE;
UNKNOWN_LENGTH : out UNSIGNED_WORD;
UNKNOWN_VALUE : out ADDRESS);
pragma INTERFACE (EXTERNAL, XMSTRINGGETNEXTCOMPONENT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGGETNEXTCOMPONENT,
"XmStringGetNextComponent",
(XMSTRINGCOMPONENTTYPE_TYPE, XMSTRINGCONTEXT_TYPE, ADDRESS,
XMSTRINGCHARSET_TYPE, XMSTRINGDIRECTION_TYPE,
XMSTRINGCOMPONENTTYPE_TYPE, UNSIGNED_WORD, ADDRESS),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE,
REFERENCE));
--> extern XmStringComponentType XmStringPeekNextComponent _ARGUMENTS((
XmStringContext context ));
procedure XMSTRINGPEEKNEXTCOMPONENT (
RESULT : out XMSTRINGCOMPONENTTYPE_TYPE; --
return value
CONTEXT : in XMSTRINGCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGPEEKNEXTCOMPONENT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGPEEKNEXTCOMPONENT,
"XmStringPeekNextComponent",
(XMSTRINGCOMPONENTTYPE_TYPE, XMSTRINGCONTEXT_TYPE),
(VALUE, VALUE));
--> extern Boolean XmStringGetNextSegment _ARGUMENTS(( XmStringContext context
, char **text ,
--> XmStringCharSet *charset , XmStringDirection *direction , Boolean *separator
));
procedure XMSTRINGGETNEXTSEGMENT (
RESULT : out BOOLEAN; --
return value
CONTEXT : in XMSTRINGCONTEXT_TYPE;
TEXT : out ADDRESS;
CHARSET : out XMSTRINGCHARSET_TYPE;
DIRECTION : out XMSTRINGDIRECTION_TYPE;
SEPARATOR : out BOOLEAN);
pragma INTERFACE (EXTERNAL, XMSTRINGGETNEXTSEGMENT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGGETNEXTSEGMENT,
"XmStringGetNextSegment",
(BOOLEAN, XMSTRINGCONTEXT_TYPE, ADDRESS, XMSTRINGCHARSET_TYPE,
XMSTRINGDIRECTION_TYPE, BOOLEAN),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
--> extern Boolean XmStringGetLtoR _ARGUMENTS(( XmString string ,
--> XmStringCharSet charset , char **text ));
procedure XMSTRINGGETLTOR (
RESULT : out BOOLEAN; --
return value
S1 : in XMSTRING_TYPE;
CHARSET : in STRING;
TEXT : out ADDRESS);
pragma INTERFACE (EXTERNAL, XMSTRINGGETLTOR);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGGETLTOR, "XmStringGetLtoR",
(BOOLEAN, XMSTRING_TYPE, STRING, ADDRESS),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XmFontList XmFontListCreate _ARGUMENTS(( XFontStruct *font ,
XmStringCharSet charset ));
procedure XMFONTLISTCREATE (
RESULT : out XMFONTLIST_TYPE; --
return value
FONT : in FONT_TYPE;
CHARSET : in STRING);
pragma INTERFACE (EXTERNAL, XMFONTLISTCREATE);
pragma IMPORT_VALUED_PROCEDURE (XMFONTLISTCREATE, "XmFontListCreate",
(XMFONTLIST_TYPE, FONT_TYPE, STRING),
(VALUE, VALUE, REFERENCE));
--> extern XmFontList XmStringCreateFontList _ARGUMENTS(( XFontStruct *font ,
XmStringCharSet charset ));
--> ENTRY XmStringCreateFontList
--> PARAMETER (
--> Font IN VALUE NAMED font,
--> CHARACTER LENGTH * IN REFERENCE NAMED charset )
--> RETURNS XmFontList NAMED result;
--> extern void XmFontListFree _ARGUMENTS(( XmFontList fontlist ));
procedure XMFONTLISTFREE (
FONTLIST : in XMFONTLIST_TYPE);
pragma INTERFACE (EXTERNAL, XMFONTLISTFREE);
pragma IMPORT_PROCEDURE (XMFONTLISTFREE, "XmFontListFree",
(XMFONTLIST_TYPE),
(VALUE));
--> extern XmFontList XmFontListAdd _ARGUMENTS(( XmFontList old , XFontStruct
*font , XmStringCharSet charset ));
procedure XMFONTLISTADD (
RESULT : out XMFONTLIST_TYPE; --
return value
OLDLIST : in XMFONTLIST_TYPE;
FONT : in FONT_TYPE;
CHARSET : in STRING);
pragma INTERFACE (EXTERNAL, XMFONTLISTADD);
pragma IMPORT_VALUED_PROCEDURE (XMFONTLISTADD, "XmFontListAdd",
(XMFONTLIST_TYPE, XMFONTLIST_TYPE, FONT_TYPE, STRING),
(VALUE, VALUE, VALUE, REFERENCE));
--> extern XmFontList XmFontListCopy _ARGUMENTS(( XmFontList fontlist ));
procedure XMFONTLISTCOPY (
RESULT : out XMFONTLIST_TYPE; --
return value
FONTLIST : in XMFONTLIST_TYPE);
pragma INTERFACE (EXTERNAL, XMFONTLISTCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMFONTLISTCOPY, "XmFontListCopy",
(XMFONTLIST_TYPE, XMFONTLIST_TYPE),
(VALUE, VALUE));
--> extern Boolean XmFontListInitFontContext _ARGUMENTS(( XmFontContext
*context , XmFontList fontlist ));
procedure XMFONTLISTINITFONTCONTEXT (
RESULT : out BOOLEAN; --
return value
CONTEXT : in XMFONTCONTEXT_TYPE;
FONTLIST : in XMFONTLIST_TYPE);
pragma INTERFACE (EXTERNAL, XMFONTLISTINITFONTCONTEXT);
pragma IMPORT_VALUED_PROCEDURE (XMFONTLISTINITFONTCONTEXT,
"XmFontListInitFontContext",
(BOOLEAN, XMFONTCONTEXT_TYPE, XMFONTLIST_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern Boolean XmFontListGetNextFont _ARGUMENTS(( XmFontContext context ,
XmStringCharSet *charset , XFontStruct **
procedure XMFONTLISTGETNEXTFONT (
RESULT : out BOOLEAN; --
return value
CONTEXT : in XMFONTCONTEXT_TYPE;
CHARSET : out XMSTRINGCHARSET_TYPE;
FONT : in FONT_TYPE);
pragma INTERFACE (EXTERNAL, XMFONTLISTGETNEXTFONT);
pragma IMPORT_VALUED_PROCEDURE (XMFONTLISTGETNEXTFONT,
"XmFontListGetNextFont",
(BOOLEAN, XMFONTCONTEXT_TYPE, XMSTRINGCHARSET_TYPE, FONT_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void XmFontListFreeFontContext _ARGUMENTS(( XmFontContext context ));
procedure XMFONTLISTFREEFONTCONTEXT (
CONTEXT : in XMFONTCONTEXT_TYPE);
pragma INTERFACE (EXTERNAL, XMFONTLISTFREEFONTCONTEXT);
pragma IMPORT_PROCEDURE (XMFONTLISTFREEFONTCONTEXT,
"XmFontListFreeFontContext",
(XMFONTCONTEXT_TYPE),
(VALUE));
--> extern XmString XmStringConcat _ARGUMENTS(( XmString a , XmString b ));
procedure XMSTRINGCONCAT (
RESULT : out XMSTRING_TYPE; --
return value
S1 : in XMSTRING_TYPE;
S2 : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGCONCAT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGCONCAT, "XmStringConcat",
(XMSTRING_TYPE, XMSTRING_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE));
--> extern XmString XmStringNConcat _ARGUMENTS(( XmString first , XmString
second , int n ));
procedure XMSTRINGNCONCAT (
RESULT : out XMSTRING_TYPE; --
return value
S1 : in XMSTRING_TYPE;
S2 : in XMSTRING_TYPE;
NUM_BYTES : in INTEGER);
pragma INTERFACE (EXTERNAL, XMSTRINGNCONCAT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGNCONCAT, "XmStringNConcat",
(XMSTRING_TYPE, XMSTRING_TYPE, XMSTRING_TYPE, INTEGER),
(VALUE, VALUE, VALUE, VALUE));
--> extern XmString XmStringCopy _ARGUMENTS(( XmString string ));
procedure XMSTRINGCOPY (
RESULT : out XMSTRING_TYPE; --
return value
S1 : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGCOPY, "XmStringCopy",
(XMSTRING_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern XmString XmStringNCopy _ARGUMENTS(( XmString str , int n ));
procedure XMSTRINGNCOPY (
RESULT : out XMSTRING_TYPE; --
return value
S1 : in XMSTRING_TYPE;
NUM_BYTES : in INTEGER);
pragma INTERFACE (EXTERNAL, XMSTRINGNCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGNCOPY, "XmStringNCopy",
(XMSTRING_TYPE, XMSTRING_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern Boolean XmStringByteCompare _ARGUMENTS(( XmString a1 , XmString b1
));
procedure XMSTRINGBYTECOMPARE (
RESULT : out BOOLEAN; --
return value
S1 : in XMSTRING_TYPE;
S2 : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGBYTECOMPARE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGBYTECOMPARE, "XmStringByteCompare",
(BOOLEAN, XMSTRING_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE));
--> extern Boolean XmStringCompare _ARGUMENTS(( XmString a , XmString b ));
procedure XMSTRINGCOMPARE (
RESULT : out BOOLEAN; --
return value
S1 : in XMSTRING_TYPE;
S2 : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGCOMPARE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGCOMPARE, "XmStringCompare",
(BOOLEAN, XMSTRING_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE));
--> extern int XmStringLength _ARGUMENTS(( XmString string ));
procedure XMSTRINGLENGTH (
RESULT : out INTEGER; --
return value
S1 : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGLENGTH);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGLENGTH, "XmStringLength",
(INTEGER, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern Boolean XmStringEmpty _ARGUMENTS(( XmString string ));
procedure XMSTRINGEMPTY (
RESULT : out BOOLEAN; --
return value
S1 : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGEMPTY);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGEMPTY, "XmStringEmpty",
(BOOLEAN, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern Boolean XmStringHasSubstring _ARGUMENTS(( XmString string , XmString
substring ));
procedure XMSTRINGHASSUBSTRING (
RESULT : out BOOLEAN; --
return value
STRING : in XMSTRING_TYPE;
SUBSTRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGHASSUBSTRING);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGHASSUBSTRING, "XmStringHasSubstring",
(BOOLEAN, XMSTRING_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XmStringFree _ARGUMENTS(( XmString string ));
procedure XMSTRINGFREE (
STRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGFREE);
pragma IMPORT_PROCEDURE (XMSTRINGFREE, "XmStringFree",
(XMSTRING_TYPE),
(VALUE));
--> extern Dimension XmStringBaseline _ARGUMENTS(( XmFontList fontlist ,
XmString string ));
procedure XMSTRINGBASELINE (
RESULT : out DIMENSION_TYPE; --
return value
FONTLIST : in XMFONTLIST_TYPE;
STRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGBASELINE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGBASELINE, "XmStringBaseline",
(DIMENSION_TYPE, XMFONTLIST_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE));
--> extern Dimension XmStringWidth _ARGUMENTS(( XmFontList fontlist , XmString
string ));
procedure XMSTRINGWIDTH (
RESULT : out DIMENSION_TYPE; --
return value
FONTLIST : in XMFONTLIST_TYPE;
STRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGWIDTH);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGWIDTH, "XmStringWidth",
(DIMENSION_TYPE, XMFONTLIST_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE));
--> extern Dimension XmStringHeight _ARGUMENTS(( XmFontList fontlist , XmString
string ));
procedure XMSTRINGHEIGHT (
RESULT : out DIMENSION_TYPE; --
return value
FONTLIST : in XMFONTLIST_TYPE;
STRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGHEIGHT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGHEIGHT, "XmStringHeight",
(DIMENSION_TYPE, XMFONTLIST_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XmStringExtent _ARGUMENTS(( XmFontList fontlist , XmString
string , Dimension *width , Dimension *heigh
procedure XMSTRINGEXTENT (
FONTLIST : in XMFONTLIST_TYPE;
TEXT : in XMSTRING_TYPE;
WIDTH : out DIMENSION_TYPE;
HEIGHT : out DIMENSION_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGEXTENT);
pragma IMPORT_PROCEDURE (XMSTRINGEXTENT, "XmStringExtent",
(XMFONTLIST_TYPE, XMSTRING_TYPE, DIMENSION_TYPE, DIMENSION_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern int XmStringLineCount _ARGUMENTS(( XmString string ));
procedure XMSTRINGLINECOUNT (
RESULT : out INTEGER; --
return value
STRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGLINECOUNT);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGLINECOUNT, "XmStringLineCount",
(INTEGER, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern void XmStringDraw _ARGUMENTS(( Display *d , Window w , XmFontList
fontlist ,
--> XmString string , GC gc , Position x , Position y , Dimension width ,
unsigned char align ,
--> unsigned char lay_dir , XRectangle *clip ));
procedure XMSTRINGDRAW (
D : in DISPLAY_TYPE;
W : in WINDOW_TYPE;
FONTLIST : in XMFONTLIST_TYPE;
STRING : in XMSTRING_TYPE;
GC : in GC_TYPE;
X : in POSITION_TYPE;
Y : in POSITION_TYPE;
WIDTH : in DIMENSION_TYPE;
ALIGNMENT : in UNSIGNED_BYTE;
LAYOUT_DIRECTION : in UNSIGNED_BYTE;
CLIP : in XRECTANGLE_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGDRAW);
pragma IMPORT_PROCEDURE (XMSTRINGDRAW, "XmStringDraw",
(DISPLAY_TYPE, WINDOW_TYPE, XMFONTLIST_TYPE, XMSTRING_TYPE, GC_TYPE,
POSITION_TYPE, POSITION_TYPE, DIMENSION_TYPE,
UNSIGNED_BYTE, UNSIGNED_BYTE, XRECTANGLE_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE,
REFERENCE));
--> extern void XmStringDrawImage _ARGUMENTS(( Display *d , Window w ,
XmFontList fontlist ,
--> XmString string , GC gc , Position x , Position y , Dimension width ,
unsigned char align ,
--> unsigned char lay_dir , XRectangle *clip ));
procedure XMSTRINGDRAWIMAGE (
D : in DISPLAY_TYPE;
W : in WINDOW_TYPE;
FONTLIST : in XMFONTLIST_TYPE;
STRING : in XMSTRING_TYPE;
GC : in GC_TYPE;
X : in POSITION_TYPE;
Y : in POSITION_TYPE;
WIDTH : in DIMENSION_TYPE;
ALIGNMENT : in UNSIGNED_BYTE;
LAYOUT_DIRECTION : in UNSIGNED_BYTE;
CLIP : in XRECTANGLE_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGDRAWIMAGE);
pragma IMPORT_PROCEDURE (XMSTRINGDRAWIMAGE, "XmStringDrawImage",
(DISPLAY_TYPE, WINDOW_TYPE, XMFONTLIST_TYPE, XMSTRING_TYPE, GC_TYPE,
POSITION_TYPE, POSITION_TYPE, DIMENSION_TYPE,
UNSIGNED_BYTE, UNSIGNED_BYTE, XRECTANGLE_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE,
REFERENCE));
--> extern void XmStringDrawUnderline _ARGUMENTS(( Display *d , Window w ,
XmFontList fontlst ,
--> XmString string, GC gc , Position x , Position y , Dimension width ,
unsigned char align ,
--> unsigned char lay_dir , XRectangle *clip , XmString under ));
procedure XMSTRINGDRAWUNDERLINE (
D : in DISPLAY_TYPE;
W : in WINDOW_TYPE;
FONTLIST : in XMFONTLIST_TYPE;
STRING : in XMSTRING_TYPE;
GC : in GC_TYPE;
X : in POSITION_TYPE;
Y : in POSITION_TYPE;
WIDTH : in DIMENSION_TYPE;
ALIGNMENT : in UNSIGNED_BYTE;
LAYOUT_DIRECTION : in UNSIGNED_BYTE;
CLIP : in XRECTANGLE_TYPE;
UNDERLINE : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMSTRINGDRAWUNDERLINE);
pragma IMPORT_PROCEDURE (XMSTRINGDRAWUNDERLINE, "XmStringDrawUnderline",
(DISPLAY_TYPE, WINDOW_TYPE, XMFONTLIST_TYPE, XMSTRING_TYPE, GC_TYPE,
POSITION_TYPE, POSITION_TYPE, DIMENSION_TYPE,
UNSIGNED_BYTE, UNSIGNED_BYTE, XRECTANGLE_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE,
REFERENCE, VALUE));
--> extern XmString XmStringCreateSimple _ARGUMENTS(( char *text ));
procedure XMSTRINGCREATESIMPLE (
RESULT : out XMSTRING_TYPE; --
return value
TEXT : in STRING);
pragma INTERFACE (EXTERNAL, XMSTRINGCREATESIMPLE);
pragma IMPORT_VALUED_PROCEDURE (XMSTRINGCREATESIMPLE, "XmStringCreateSimple",
(XMSTRING_TYPE, STRING),
(VALUE, REFERENCE));
--************************************************************
--
-- SimpleMenu declarations and definitions.
--
--************************************************************
--> typedef unsigned char XmButtonType;
subtype XMBUTTONTYPE_TYPE is UNSIGNED_BYTE;
--> typedef XmButtonType * XmButtonTypeTable;
subtype XMBUTTONTYPETABLE_TYPE is ADDRESS;
--> typedef KeySym * XmKeySymTable;
subtype XMKEYSYMTABLE_TYPE is ADDRESS;
--> typedef XmStringCharSet * XmStringCharSetTable;
subtype XMSTRINGCHARSETTABLE_TYPE is ADDRESS;
--> #define XmPUSHBUTTON 1
XMPUSHBUTTON : constant := 1;
--> #define XmTOGGLEBUTTON 2;
XMTOGGLEBUTTON : constant := 2;
--> #define XmCHECKBUTTON 2;
XMCHECKBUTTON : constant := 2;
--> #define XmRADIOBUTTON 3;
XMRADIOBUTTON : constant := 3;
--> #define XmCASCADEBUTTON 4;
XMCASCADEBUTTON : constant := 4;
--> #define XmSEPARATOR 5;
XMSEPARATOR : constant := 5;
--> #define XmDOUBLE_SEPARATOR 6;
XMDOUBLE_SEPARATOR : constant := 6;
--> #define XmTITLE 7;
XMTITLE : constant := 7;
--> #define XmVaPUSHBUTTON "pushButton"
XMVAPUSHBUTTON : constant STRING := "pushButton"&ASCII.NUL;
--> #define XmVaTOGGLEBUTTON "checkButton"
XMVATOGGLEBUTTON : constant STRING := "checkButton"&ASCII.NUL;
--> #define XmVaCHECKBUTTON "checkButton"
XMVACHECKBUTTON : constant STRING := "checkButton"&ASCII.NUL;
--> #define XmVaRADIOBUTTON "radioButton"
XMVARADIOBUTTON : constant STRING := "radioButton"&ASCII.NUL;
--> #define XmVaCASCADEBUTTON "cascadeButton"
XMVACASCADEBUTTON : constant STRING := "cascadeButton"&ASCII.NUL;
--> #define XmVaSEPARATOR "separator"
XMVASEPARATOR : constant STRING := "separator"&ASCII.NUL;
--> #define XmVaSINGLE_SEPARATOR "singleSeparator"
XMVASINGLE_SEPARATOR : constant STRING := "singleSeparator"&ASCII.NUL;
--> #define XmVaDOUBLE_SEPARATOR "doubleSeparator"
XMVADOUBLE_SEPARATOR : constant STRING := "doubleSeparator"&ASCII.NUL;
--> #define XmVaTITLE "title"
XMVATITLE : constant STRING := "title"&ASCII.NUL;
--> Widget XmCreateSimpleMenuBar (Widget parent, String name, ArgList args,
Cardinal arg_count);
procedure XMCREATESIMPLEMENUBAR (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGS : in ARG_TYPE_ARRAY;
ARG_COUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESIMPLEMENUBAR);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESIMPLEMENUBAR,
"XmCreateSimpleMenuBar",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> Widget XmCreateSimplePopupMenu (Widget parent, String name, ArgList args,
Cardinal arg_count);
procedure XMCREATESIMPLEPOPUPMENU (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGS : in ARG_TYPE_ARRAY;
ARG_COUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESIMPLEPOPUPMENU);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESIMPLEPOPUPMENU,
"XmCreateSimplePopupMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> Widget XmCreateSimplePulldownMenu (Widget parent, String name, ArgList args,
Cardinal arg_count);
procedure XMCREATESIMPLEPULLDOWNMENU (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGS : in ARG_TYPE_ARRAY;
ARG_COUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESIMPLEPULLDOWNMENU);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESIMPLEPULLDOWNMENU,
"XmCreateSimplePulldownMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> Widget XmCreateSimpleOptionMenu (Widget parent, String name, ArgList args,
Cardinal arg_count);
procedure XMCREATESIMPLEOPTIONMENU (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGS : in ARG_TYPE_ARRAY;
ARG_COUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESIMPLEOPTIONMENU);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESIMPLEOPTIONMENU,
"XmCreateSimpleOptionMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> Widget XmCreateSimpleRadioBox (Widget parent, String name, ArgList args,
Cardinal arg_count);
procedure XMCREATESIMPLERADIOBOX (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGS : in ARG_TYPE_ARRAY;
ARG_COUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESIMPLERADIOBOX);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESIMPLERADIOBOX,
"XmCreateSimpleRadioBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> Widget XmCreateSimpleCheckBox (Widget parent, String name, ArgList args,
Cardinal arg_count);
procedure XMCREATESIMPLECHECKBOX (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGS : in ARG_TYPE_ARRAY;
ARG_COUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESIMPLECHECKBOX);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESIMPLECHECKBOX,
"XmCreateSimpleCheckBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmVaCreateSimpleMenuBar (Widget parent, String name, ...);
procedure XMVACREATESIMPLEMENUBAR (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING);
pragma INTERFACE (EXTERNAL, XMVACREATESIMPLEMENUBAR);
pragma IMPORT_VALUED_PROCEDURE (XMVACREATESIMPLEMENUBAR,
"XmVaCreateSimpleMenuBar",
(WIDGET_TYPE, WIDGET_TYPE, STRING),
(VALUE, VALUE, REFERENCE));
--> extern Widget XmVaCreateSimplePopupMenu (Widget parent, String name,
--> XtCallbackProc callback, ...);
procedure XMVACREATESIMPLEPOPUPMENU (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
CALLBACK : in XTCALLBACKPROC_TYPE);
pragma INTERFACE (EXTERNAL, XMVACREATESIMPLEPOPUPMENU);
pragma IMPORT_VALUED_PROCEDURE (XMVACREATESIMPLEPOPUPMENU,
"XmVaCreateSimplePopupMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, XTCALLBACKPROC_TYPE),
(VALUE, VALUE, REFERENCE, VALUE));
--> extern Widget XmVaCreateSimplePulldownMenu (Widget parent, String name,
--> int post_from_button,
--> XtCallbackProc callback, ...);
procedure XMVACREATESIMPLEPULLDOWNMENU (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
POST_FROM_BUTTON : in INTEGER;
CALLBACK : in XTCALLBACKPROC_TYPE);
pragma INTERFACE (EXTERNAL, XMVACREATESIMPLEPULLDOWNMENU);
pragma IMPORT_VALUED_PROCEDURE (XMVACREATESIMPLEPULLDOWNMENU,
"XmVaCreateSimplePulldownMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, INTEGER, XTCALLBACKPROC_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, VALUE));
--> extern Widget XmVaCreateSimpleOptionMenu (Widget parent, String name,
--> XmString option_label,
--> KeySym option_mnemonic,
--> int button_set,
--> XtCallbackProc callback, ...);
procedure XMVACREATESIMPLEOPTIONMENU (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
OPTION_LABEL : in XMSTRING_TYPE;
OPTION_MNEMONIC : in KEYSYM_TYPE;
BUTTON_SET : in INTEGER;
CALLBACK : in XTCALLBACKPROC_TYPE);
pragma INTERFACE (EXTERNAL, XMVACREATESIMPLEOPTIONMENU);
pragma IMPORT_VALUED_PROCEDURE (XMVACREATESIMPLEOPTIONMENU,
"XmVaCreateSimpleOptionMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, XMSTRING_TYPE, KEYSYM_TYPE, INTEGER,
XTCALLBACKPROC_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE));
--> extern Widget XmVaCreateSimpleRadioBox (Widget parent, String name,
--> int button_set, XtCallbackProc callback,
...);
procedure XMVACREATESIMPLERADIOBOX (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
BUTTON_SET : in INTEGER;
CALLBACK : in XTCALLBACKPROC_TYPE);
pragma INTERFACE (EXTERNAL, XMVACREATESIMPLERADIOBOX);
pragma IMPORT_VALUED_PROCEDURE (XMVACREATESIMPLERADIOBOX,
"XmVaCreateSimpleRadioBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, INTEGER, XTCALLBACKPROC_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, VALUE));
--> extern Widget XmVaCreateSimpleCheckBox (Widget parent, String name,
--> XtCallbackProc callback, ...);
procedure XMVACREATESIMPLECHECKBOX (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
CALLBACK : in XTCALLBACKPROC_TYPE);
pragma INTERFACE (EXTERNAL, XMVACREATESIMPLECHECKBOX);
pragma IMPORT_VALUED_PROCEDURE (XMVACREATESIMPLECHECKBOX,
"XmVaCreateSimpleCheckBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, XTCALLBACKPROC_TYPE),
(VALUE, VALUE, REFERENCE, VALUE));
--************************************************************
--
-- Misc Declarations
--
--************************************************************
--> typedef XtPointer (*XmResourceBaseProc)();
subtype XMRESOURCEBASEPROC_TYPE is ADDRESS;
--> typedef struct _XmSecondaryResourceDataRec{
--> XmResourceBaseProc base_proc;
--> XtPointer client_data;
--> String name;
--> String res_class;
--> XtResourceList resources;
--> Cardinal num_resources;
--> }XmSecondaryResourceDataRec, *XmSecondaryResourceData;
type XMSECONDARYRESOURCEDATAREC_TYPE is
record
BASE_PROC : XMRESOURCEBASEPROC_TYPE;
CLIENT_DATA : XTPOINTER_TYPE;
NAME : XTSTRING_TYPE;
RES_CLASS : XTSTRING_TYPE;
RESOURCES : XTRESOURCELIST_TYPE;
NUM_RESOURCES : CARDINAL_TYPE;
end record;
for XMSECONDARYRESOURCEDATAREC_TYPE use
record
BASE_PROC at 0 range 0 .. 31;
CLIENT_DATA at 4 range 0 .. 31;
NAME at 8 range 0 .. 31;
RES_CLASS at 12 range 0 .. 31;
RESOURCES at 16 range 0 .. 31;
NUM_RESOURCES at 20 range 0 .. 31;
end record;
for XMSECONDARYRESOURCEDATAREC_TYPE'SIZE use 192;
XMSECONDARYRESOURCEDATAREC_TYPE_INIT : constant
XMSECONDARYRESOURCEDATAREC_TYPE :=
(BASE_PROC => ADDRESS_ZERO,
CLIENT_DATA => ADDRESS_ZERO,
NAME => ADDRESS_ZERO,
RES_CLASS => ADDRESS_ZERO,
RESOURCES => ADDRESS_ZERO,
NUM_RESOURCES => 0);
subtype XMSECONDARYRESOURCEDATA_TYPE is ADDRESS;
--> extern Cardinal XmGetSecondaryResourceData (WidgetClass wclass,
--> XmSecondaryResourceData **secondaryDataRtn);
--> ENTRY XmGetSecondaryResourceData
--> PARAMETER (
--> WidgetClass IN VALUE NAMED wclass,
--> ADDRESS OUT NAMED secondaryDataRtn )
--> RETURNS Cardinal NAMED resut;
--> extern Widget XmTrackingLocate (Widget wid, Cursor cursor, Boolean
confineTo);
procedure XMTRACKINGLOCATE (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
CURSOR : in CURSOR_TYPE;
CONFINE_TO : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMTRACKINGLOCATE);
pragma IMPORT_VALUED_PROCEDURE (XMTRACKINGLOCATE, "XmTrackingLocate",
(WIDGET_TYPE, WIDGET_TYPE, CURSOR_TYPE, BOOLEAN),
(VALUE, VALUE, VALUE, VALUE));
--> extern int XmConvertUnits (Widget wid, int dimension, int from_type,
--> int from_val, int to_type);
procedure XMCONVERTUNITS (
RESULT : out INTEGER; --
return value
WIDGET : in WIDGET_TYPE;
ORIENTATION : in INTEGER;
FROM_UNIT_TYPE : in INTEGER;
FROM_VALUE : in INTEGER;
TO_UNIT_TYPE : in INTEGER);
pragma INTERFACE (EXTERNAL, XMCONVERTUNITS);
pragma IMPORT_VALUED_PROCEDURE (XMCONVERTUNITS, "XmConvertUnits",
(INTEGER, WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern int XmCvtFromHorizontalPixels (Screen * screen, int from_val, int
to_type);
--> ENTRY XmCvtFromHorizontalPixels
--> PARAMETER (
--> Screen IN NAMED screen,
--> LONGWORD IN VALUE NAMED from_val,
--> LONGWORD IN VALUE NAMED to_type )
--> RETURNS LONGWORD NAMED result;
--> extern int XmCvtFromVerticalPixels (Screen * screen, int from_val, int
to_type);
--> ENTRY XmCvtFromVerticalPixels
--> PARAMETER (
--> Screen IN NAMED screen ,
--> LONGWORD IN VALUE NAMED from_val,
--> LONGWORD IN VALUE NAMED to_type )
--> RETURNS LONGWORD NAMED result;
--> extern int XmCvtToHorizontalPixels (Screen * screen, int from_val, int
from_type);
--> ENTRY XmCvtToHorizontalPixels
--> PARAMETER (
--> Screen IN NAMED screen,
--> LONGWORD IN VALUE NAMED from_val,
--> LONGWORD IN VALUE NAMED from_type )
--> RETURNS LONGWORD NAMED result;
--> extern int XmCvtToVerticalPixels (Screen * screen, int from_val, int
from_type);
--> ENTRY XmCvtToVerticalPixels
--> PARAMETER (
--> Screen IN NAMED screen,
--> LONGWORD IN VALUE NAMED from_val,
--> LONGWORD IN VALUE NAMED from_type )
--> RETURNS LONGWORD NAMED result;
--> extern XmString XmCvtCTToXmString( char *text );
procedure XMCVTCTTOXMSTRING (
RESULT : out XMSTRING_TYPE; --
return value
TEXT : in CHARACTER);
pragma INTERFACE (EXTERNAL, XMCVTCTTOXMSTRING);
pragma IMPORT_VALUED_PROCEDURE (XMCVTCTTOXMSTRING, "XmCvtCTToXmString",
(XMSTRING_TYPE, CHARACTER),
(VALUE, REFERENCE));
--> extern XmString XmCvtXmStringToCT( XmString string );
procedure XMCVTXMSTRINGTOCT (
RESULT : out XMSTRING_TYPE; --
return value
STRING : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMCVTXMSTRINGTOCT);
pragma IMPORT_VALUED_PROCEDURE (XMCVTXMSTRINGTOCT, "XmCvtXmStringToCT",
(XMSTRING_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern Boolean XmCvtTextToXmString ( Display *display ,
--> XrmValuePtr args , Cardinal *num_args , XrmValue *from_val ,
--> XrmValue *to_val , XtPointer *converter_data );
--> ENTRY XmCvtTextToXmString
--> PARAMETER (
--> Display IN VALUE NAMED display,
--> XrmValue DIMENSION * IN NAMED args,
--> Cardinal IN NAMED num_args,
--> XrmValue IN NAMED from_val,
--> XrmValue IN NAMED to_val,
--> XtPointer IN OUT NAMED converter_data )
--> RETURNS Boolean NAMED result;
--> extern Boolean XmCvtXmStringToText ( Display *display , XrmValuePtr args,
--> Cardinal *num_args , XrmValue *from_val , XrmValue *to_val ,
--> XtPointer *converter_data );
--> ENTRY XmCvtXmStringToText
--> PARAMETER (
--> Display IN VALUE NAMED display,
--> XrmValue DIMENSION * IN NAMED args,
--> Cardinal IN NAMED num_args,
--> XrmValue IN NAMED from_val,
--> XrmValue IN NAMED to_val,
--> XtPointer IN OUT NAMED converter_data )
--> RETURNS Boolean NAMED result;
--> typedef unsigned char XmNavigationType;
subtype XMNAVIGATIONTYPE_TYPE is UNSIGNED_BYTE;
--> extern void XmAddTabGroup (Widget tabGroup);
procedure XMADDTABGROUP (
TAB_GROUP : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMADDTABGROUP);
pragma IMPORT_PROCEDURE (XMADDTABGROUP, "XmAddTabGroup",
(WIDGET_TYPE),
(VALUE));
--> extern void XmRemoveTabGroup (Widget w);
procedure XMREMOVETABGROUP (
W : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMREMOVETABGROUP);
pragma IMPORT_PROCEDURE (XMREMOVETABGROUP, "XmRemoveTabGroup",
(WIDGET_TYPE),
(VALUE));
--> extern Boolean XmProcessTraversal (Widget w, int dir);
procedure XMPROCESSTRAVERSAL (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
DIRECTION : in INTEGER);
pragma INTERFACE (EXTERNAL, XMPROCESSTRAVERSAL);
pragma IMPORT_VALUED_PROCEDURE (XMPROCESSTRAVERSAL, "XmProcessTraversal",
(BOOLEAN, WIDGET_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern Boolean XmUninstallImage (XImage *image);
procedure XMUNINSTALLIMAGE (
RESULT : out BOOLEAN; --
return value
IMAGE : in XIMAGE_TYPE);
pragma INTERFACE (EXTERNAL, XMUNINSTALLIMAGE);
pragma IMPORT_VALUED_PROCEDURE (XMUNINSTALLIMAGE, "XmUninstallImage",
(BOOLEAN, XIMAGE_TYPE),
(VALUE, REFERENCE));
--> extern Boolean XmDestroyPixmap (Screen *screen, Pixmap pixmap);
procedure XMDESTROYPIXMAP (
RESULT : out BOOLEAN; --
return value
SCREEN : in SCREEN_TYPE;
PIXMAP : in PIXMAP_TYPE);
pragma INTERFACE (EXTERNAL, XMDESTROYPIXMAP);
pragma IMPORT_VALUED_PROCEDURE (XMDESTROYPIXMAP, "XmDestroyPixmap",
(BOOLEAN, SCREEN_TYPE, PIXMAP_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern Boolean XmInstallImage (XImage *image, char *image_name);
procedure XMINSTALLIMAGE (
RESULT : out BOOLEAN; --
return value
IMAGE : in XIMAGE_TYPE;
IMAGE_NAME : in CHARACTER);
pragma INTERFACE (EXTERNAL, XMINSTALLIMAGE);
pragma IMPORT_VALUED_PROCEDURE (XMINSTALLIMAGE, "XmInstallImage",
(BOOLEAN, XIMAGE_TYPE, CHARACTER),
(VALUE, REFERENCE, REFERENCE));
--> extern Pixmap XmGetPixmap (Screen *screen, char *image_name,
--> Pixel foreground, Pixel background);
procedure XMGETPIXMAP (
RESULT : out PIXMAP_TYPE; --
return value
SCREEN : in SCREEN_TYPE;
IMAGE_NAME : in CHARACTER;
FOREGROUND : in PIXEL_TYPE;
BACKGROUND : in PIXEL_TYPE);
pragma INTERFACE (EXTERNAL, XMGETPIXMAP);
pragma IMPORT_VALUED_PROCEDURE (XMGETPIXMAP, "XmGetPixmap",
(PIXMAP_TYPE, SCREEN_TYPE, CHARACTER, PIXEL_TYPE, PIXEL_TYPE),
(VALUE, REFERENCE, REFERENCE, VALUE, VALUE));
--> extern Cursor XmGetMenuCursor (Display *display);
procedure XMGETMENUCURSOR (
RESULT : out CURSOR_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XMGETMENUCURSOR);
pragma IMPORT_VALUED_PROCEDURE (XMGETMENUCURSOR, "XmGetMenuCursor",
(CURSOR_TYPE, DISPLAY_TYPE),
(VALUE, VALUE));
--> extern void XmSetMenuCursor (Display *display, Cursor cursorId);
procedure XMSETMENUCURSOR (
DISPLAY : in DISPLAY_TYPE;
CURSORID : in CURSOR_TYPE);
pragma INTERFACE (EXTERNAL, XMSETMENUCURSOR);
pragma IMPORT_PROCEDURE (XMSETMENUCURSOR, "XmSetMenuCursor",
(DISPLAY_TYPE, CURSOR_TYPE),
(VALUE, VALUE));
--> extern Widget XmGetDestination (Display *display);
procedure XMGETDESTINATION (
RESULT : out WIDGET_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE);
pragma INTERFACE (EXTERNAL, XMGETDESTINATION);
pragma IMPORT_VALUED_PROCEDURE (XMGETDESTINATION, "XmGetDestination",
(WIDGET_TYPE, DISPLAY_TYPE),
(VALUE, VALUE));
--> typedef long XmOffset;
subtype XMOFFSET_TYPE is INTEGER;
--> typedef XmOffset *XmOffsetPtr;
subtype XMOFFSETPTR_TYPE is ADDRESS;
--> extern void XmUpdateDisplay (Widget w);
procedure XMUPDATEDISPLAY (
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMUPDATEDISPLAY);
pragma IMPORT_PROCEDURE (XMUPDATEDISPLAY, "XmUpdateDisplay",
(WIDGET_TYPE),
(VALUE));
--> extern void XmResolvePartOffsets (WidgetClass wclass, XmOffsetPtr *offset);
procedure XMRESOLVEPARTOFFSETS (
WIDGET_CLASS : in WIDGETCLASS_TYPE;
OFFSET : in out XMOFFSETPTR_TYPE);
pragma INTERFACE (EXTERNAL, XMRESOLVEPARTOFFSETS);
pragma IMPORT_PROCEDURE (XMRESOLVEPARTOFFSETS, "XmResolvePartOffsets",
(WIDGETCLASS_TYPE, XMOFFSETPTR_TYPE),
(VALUE, REFERENCE));
--> extern void XmResolveAllPartOffsets (WidgetClass wclass, XmOffsetPtr *offset,
--> XmOffsetPtr *constraint_offset);
procedure XMRESOLVEALLPARTOFFSETS (
WCLASS : in WIDGETCLASS_TYPE;
OFFSET : in out XMOFFSETPTR_TYPE;
CONSTRAINT_OFFSET : in out XMOFFSETPTR_TYPE);
pragma INTERFACE (EXTERNAL, XMRESOLVEALLPARTOFFSETS);
pragma IMPORT_PROCEDURE (XMRESOLVEALLPARTOFFSETS, "XmResolveAllPartOffsets",
(WIDGETCLASS_TYPE, XMOFFSETPTR_TYPE, XMOFFSETPTR_TYPE),
(VALUE, REFERENCE, REFERENCE));
-- End of Xm.h
--********* OSF/Motif: @(#)ArrowB.h 3.4 90/06/20 *********
--> externalref WidgetClass xmArrowButtonWidgetClass;
XMARROWBUTTONWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMARROWBUTTONWIDGETCLASS,"xmArrowButtonWidgetClass");
--> typedef struct _XmArrowButtonClassRec * XmArrowButtonWidgetClass;
--> typedef struct _XmArrowButtonRec * XmArrowButtonWidget;
subtype XMARROWBUTTONWIDGET_TYPE is ADDRESS;
--> #define XmIsArrowButton(w) XtIsSubclass(w, xmArrowButtonWidgetClass)
--> extern Widget XmCreateArrowButton (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATEARROWBUTTON (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEARROWBUTTON);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEARROWBUTTON, "XmCreateArrowButton",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)ArrowBG.h 3.4 90/06/20
--> externalref WidgetClass xmArrowButtonGadgetClass;
XMARROWBUTTONGADGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMARROWBUTTONGADGETCLASS,"xmArrowButtonGadgetClass");
--> typedef struct _XmArrowButtonGadgetClassRec * XmArrowButtonGadgetClass;
--> typedef struct _XmArrowButtonGadgetRec * XmArrowButtonGadget;
subtype XMARROWBUTTONGADGET_TYPE is ADDRESS;
--> #define XmIsArrowButtonGadget(w) XtIsSubclass(w, xmArrowButtonGadgetClass)
--> extern Widget XmCreateArrowButtonGadget (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATEARROWBUTTONGADGET (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEARROWBUTTONGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEARROWBUTTONGADGET,
"XmCreateArrowButtonGadget",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)AtomMgr.h 3.5 90/06/20
--> extern Atom XmInternAtom (Display *display, String name, Boolean
only_if_exists);
procedure XMINTERNATOM (
RESULT : out UNSIGNED_LONGWORD; --
return value
DISPLAY : in DISPLAY_TYPE;
NAME : in STRING;
ONLY_IF_EXISTS : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMINTERNATOM);
pragma IMPORT_VALUED_PROCEDURE (XMINTERNATOM, "XmInternAtom",
(UNSIGNED_LONGWORD, DISPLAY_TYPE, STRING, BOOLEAN),
(VALUE, VALUE, REFERENCE, VALUE));
--> extern String XmGetAtomName (Display *display, Atom atom);
procedure XMGETATOMNAME (
RESULT : out XTSTRING_TYPE; --
return value
DISPLAY : in DISPLAY_TYPE;
ATOM : in ATOM_TYPE);
pragma INTERFACE (EXTERNAL, XMGETATOMNAME);
pragma IMPORT_VALUED_PROCEDURE (XMGETATOMNAME, "XmGetAtomName",
(XTSTRING_TYPE, DISPLAY_TYPE, ATOM_TYPE),
(VALUE, VALUE, VALUE));
--> #define XmInternAtom(display, name, only_if_exists) \
--> XInternAtom(display, name, only_if_exists)
--> #define XmGetAtomName(display, atom) \
--> XGetAtomName(display, atom)
-- OSF/Motif: @(#)BulletinB.h 3.3 90/06/20
--> externalref WidgetClass xmBulletinBoardWidgetClass;
XMBULLETINBOARDWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT
(XMBULLETINBOARDWIDGETCLASS,"xmBulletinBoardWidgetClass");
--> typedef struct _XmBulletinBoardClassRec * XmBulletinBoardWidgetClass;
--> typedef struct _XmBulletinBoardRec * XmBulletinBoardWidget;
subtype XMBULLETINBOARDWIDGET_TYPE is ADDRESS;
-- Creation entry points
--> extern Widget XmCreateBulletinBoard( Widget p, String name, ArgList args,
--> Cardinal
n) ;
procedure XMCREATEBULLETINBOARD (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEBULLETINBOARD);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEBULLETINBOARD,
"XmCreateBulletinBoard",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateBulletinBoardDialog( Widget ds_p, String name,
--> ArgList bb_args, Cardinal
bb_n) ;
procedure XMCREATEBULLETINBOARDDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEBULLETINBOARDDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEBULLETINBOARDDIALOG,
"XmCreateBulletinBoardDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)CascadeB.h 3.5 90/06/20
--> externalref WidgetClass xmCascadeButtonWidgetClass;
XMCASCADEBUTTONWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT
(XMCASCADEBUTTONWIDGETCLASS,"xmCascadeButtonWidgetClass");
--> extern Widget XmCreateCascadeButton (Widget parent, char *name, ArgList al,
Cardinal ac);
procedure XMCREATECASCADEBUTTON (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATECASCADEBUTTON);
pragma IMPORT_VALUED_PROCEDURE (XMCREATECASCADEBUTTON,
"XmCreateCascadeButton",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern void XmCascadeButtonHighlight (Widget cb, Boolean highlight);
procedure XMCASCADEBUTTONHIGHLIGHT (
CB : in WIDGET_TYPE;
HIGHLIGHT : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMCASCADEBUTTONHIGHLIGHT);
pragma IMPORT_PROCEDURE (XMCASCADEBUTTONHIGHLIGHT,
"XmCascadeButtonHighlight",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> typedef struct _XmCascadeButtonWidgetRec * XmCascadeButtonWidget;
subtype XMCASCADEBUTTONWIDGET_TYPE is ADDRESS;
--> typedef struct _XmCascadeButtonClassRec * XmCascadeButtonWidgetClass;
--> #define XmIsCascadeButton(w) XtIsSubclass(w, xmCascadeButtonWidgetClass)
-- OSF/Motif: @(#)CascadeBG.h 3.6 90/06/20
--> typedef struct _XmCascadeButtonGadgetClassRec *
XmCascadeButtonGadgetClass;
--> typedef struct _XmCascadeButtonGadgetRec * XmCascadeButtonGadget;
subtype XMCASCADEBUTTONGADGET_TYPE is ADDRESS;
--> typedef struct _XmCascadeButtonGCacheObjRec *
XmCascadeButtonGCacheObject;
subtype XMCASCADEBUTTONGCACHEOBJECT_TYPE is ADDRESS;
--> externalref WidgetClass xmCascadeButtonGadgetClass;
XMCASCADEBUTTONGADGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT
(XMCASCADEBUTTONGADGETCLASS,"xmCascadeButtonGadgetClass");
--> extern Widget XmCreateCascadeButtonGadget (Widget parent, char *name,
ArgList al, Cardinal ac);
procedure XMCREATECASCADEBUTTONGADGET (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATECASCADEBUTTONGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMCREATECASCADEBUTTONGADGET,
"XmCreateCascadeButtonGadget",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern void XmCascadeButtonGadgetHighlight (Widget cb, Boolean highlight);
procedure XMCASCADEBUTTONGADGETHIGHLIGHT (
CASCADEBUTTONGADGET : in WIDGET_TYPE;
HIGHLIGHT : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMCASCADEBUTTONGADGETHIGHLIGHT);
pragma IMPORT_PROCEDURE (XMCASCADEBUTTONGADGETHIGHLIGHT,
"XmCascadeButtonGadgetHighlight",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> #define XmIsCascadeButtonGadget(w) XtIsSubclass(w,
xmCascadeButtonGadgetClass)
-- OSF/Motif: @(#)Command.h 3.4 90/06/26
--> externalref WidgetClass xmCommandWidgetClass;
XMCOMMANDWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMCOMMANDWIDGETCLASS,"xmCommandWidgetClass");
--> typedef struct _XmCommandClassRec * XmCommandWidgetClass;
--> typedef struct _XmCommandRec * XmCommandWidget;
subtype XMCOMMANDWIDGET_TYPE is ADDRESS;
--> extern Widget XmCreateCommand( Widget parent, char *name, ArgList al,
--> Cardinal argcount )
procedure XMCREATECOMMAND (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATECOMMAND);
pragma IMPORT_VALUED_PROCEDURE (XMCREATECOMMAND, "XmCreateCommand",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCommandGetChild( Widget wid, unsigned char child) ;
procedure XMCOMMANDGETCHILD (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
CHILD : in UNSIGNED_BYTE);
pragma INTERFACE (EXTERNAL, XMCOMMANDGETCHILD);
pragma IMPORT_VALUED_PROCEDURE (XMCOMMANDGETCHILD, "XmCommandGetChild",
(WIDGET_TYPE, WIDGET_TYPE, UNSIGNED_BYTE),
(VALUE, VALUE, VALUE));
--> extern void XmCommandSetValue( Widget wid, XmString value) ;
procedure XMCOMMANDSETVALUE (
WIDGET : in WIDGET_TYPE;
COMMAND : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMCOMMANDSETVALUE);
pragma IMPORT_PROCEDURE (XMCOMMANDSETVALUE, "XmCommandSetValue",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern void XmCommandAppendValue( Widget wid, XmString value) ;
procedure XMCOMMANDAPPENDVALUE (
WIDGET : in WIDGET_TYPE;
COMMAND : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMCOMMANDAPPENDVALUE);
pragma IMPORT_PROCEDURE (XMCOMMANDAPPENDVALUE, "XmCommandAppendValue",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern void XmCommandError( Widget wid, XmString error) ;
procedure XMCOMMANDERROR (
WIDGET : in WIDGET_TYPE;
ERROR : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMCOMMANDERROR);
pragma IMPORT_PROCEDURE (XMCOMMANDERROR, "XmCommandError",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
-- OSF/Motif: @(#)CutPaste.h 3.9 90/07/31
--> #define ClipboardFail 0
CLIPBOARDFAIL : constant := 0;
--> #define ClipboardSuccess 1 ;
CLIPBOARDSUCCESS : constant := 1;
--> #define ClipboardTruncate 2
CLIPBOARDTRUNCATE : constant := 2;
--> #define ClipboardLocked 4;
CLIPBOARDLOCKED : constant := 4;
--> #define ClipboardBadFormat 5
CLIPBOARDBADFORMAT : constant := 5;
--> #define ClipboardNoData 6;
CLIPBOARDNODATA : constant := 6;
--> typedef struct {
--> int DataId;
--> int PrivateId;
--> } XmClipboardPendingRec, *XmClipboardPendingList;
type XMCLIPBOARDPENDINGREC_TYPE is
record
DATAID : INTEGER;
PRIVATEID : INTEGER;
end record;
for XMCLIPBOARDPENDINGREC_TYPE use
record
DATAID at 0 range 0 .. 31;
PRIVATEID at 4 range 0 .. 31;
end record;
for XMCLIPBOARDPENDINGREC_TYPE'SIZE use 64;
XMCLIPBOARDPENDINGREC_TYPE_INIT : constant XMCLIPBOARDPENDINGREC_TYPE :=
(DATAID => 0,
PRIVATEID => 0);
subtype XMCLIPBOARDPENDINGLIST_TYPE is ADDRESS;
--> typedef void (*VoidProc) ();
subtype VOIDPROC_TYPE is ADDRESS;
--> /* Fix to filenames that are too long for VMS compiler */
--> #ifdef VMS
--> #define _XmClipAnyoneOwnsMotifPrevClipboard _XmClipAnyoneOwnsMotifPrevClipb
--> #define _XmClipAnyoneOwnsMotifLastClipSource _XmClipAnyoneOwnsMotifLastClipS
--> #define _XmClipAcquireSelectionUsingString _XmClipAcquireSelectionUsingStr
--> #endif
--> int XmClipboardBeginCopy(Display *display, Window window, XmString label,
--> Widget wid, VoidProc callback, long *itemid);
--> ENTRY XmClipboardBeginCopy
--> PARAMETER (
--> Display IN VALUE NAMED display ,
--> Window IN VALUE NAMED window ,
--> XmString IN VALUE NAMED label,
--> Widget IN VALUE NAMED widget,
--> VoidProc IN VALUE NAMED callback,
--> LONGWORD IN NAMED itemid )
--> RETURNS LONGWORD NAMED result;
-->
--> Obsolete - replaced by XmClipboardStartCopy
--> int XmClipboardStartCopy(Display *display, Window window, XmString label,
--> Time timestamp, Widget wid, VoidProc callback, long *itemid);
procedure XMCLIPBOARDSTARTCOPY (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
CLIP_LABEL : in XMSTRING_TYPE;
TIMESTAMP : in TIME_TYPE;
WIDGET : in WIDGET_TYPE;
CALLBACK : in VOIDPROC_TYPE;
ITEM_ID : in INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDSTARTCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDSTARTCOPY, "XmClipboardStartCopy",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, XMSTRING_TYPE, TIME_TYPE,
WIDGET_TYPE, VOIDPROC_TYPE, INTEGER),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE));
--> int XmClipboardCopy(Display *display, Window window, long itemid,
--> char *format, char *buffer, unsigned long length, int private_id,
--> int *dataid);
procedure XMCLIPBOARDCOPY (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
ITEM_ID : in INTEGER;
FORMAT_NAME : in STRING;
BUFFER : in ADDRESS;
LENGTH : in UNSIGNED_LONGWORD;
PRIVATE_ID : in INTEGER;
DATA_ID : in out INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDCOPY, "XmClipboardCopy",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, INTEGER, STRING, ADDRESS,
UNSIGNED_LONGWORD, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE,
REFERENCE));
--> int XmClipboardEndCopy(Display *display, Window window, long itemid);
procedure XMCLIPBOARDENDCOPY (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
ITEM_ID : in INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDENDCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDENDCOPY, "XmClipboardEndCopy",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, INTEGER),
(VALUE, VALUE, VALUE, REFERENCE));
--> int XmClipboardCancelCopy(Display *display, Window window, long itemid);
procedure XMCLIPBOARDCANCELCOPY (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
ITEM_ID : in out INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDCANCELCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDCANCELCOPY,
"XmClipboardCancelCopy",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, INTEGER),
(VALUE, VALUE, VALUE, REFERENCE));
--> int XmClipboardCopyByName(Display *display, Window window, int data,
--> char *buffer, unsigned long length, int private_id);
procedure XMCLIPBOARDCOPYBYNAME (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
DATA_ID : in INTEGER;
BUFFER : in CHARACTER;
LENGTH : in UNSIGNED_LONGWORD;
PRIVATE_ID : in INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDCOPYBYNAME);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDCOPYBYNAME,
"XmClipboardCopyByName",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, INTEGER, CHARACTER,
UNSIGNED_LONGWORD, INTEGER),
(VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE));
--> int XmClipboardUndoCopy(Display *display, Window window);
procedure XMCLIPBOARDUNDOCOPY (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDUNDOCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDUNDOCOPY, "XmClipboardUndoCopy",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE),
(VALUE, VALUE, VALUE));
--> int XmClipboardLock(Display *display, Window window);
procedure XMCLIPBOARDLOCK (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDLOCK);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDLOCK, "XmClipboardLock",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE),
(VALUE, VALUE, VALUE));
--> int XmClipboardUnlock(Display *display, Window window, Boolean all_levels);
procedure XMCLIPBOARDUNLOCK (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
REMOVE_ALL_LOCKS : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDUNLOCK);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDUNLOCK, "XmClipboardUnlock",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, BOOLEAN),
(VALUE, VALUE, VALUE, VALUE));
--> int XmClipboardStartRetrieve(Display *display, Window window, Time
timestamp);
procedure XMCLIPBOARDSTARTRETRIEVE (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
TIMESTAMP : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDSTARTRETRIEVE);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDSTARTRETRIEVE,
"XmClipboardStartRetrieve",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> int XmClipboardRetrieve(Display *display, Window window, char *format,
--> char *buffer, unsigned long length, unsigned long *outlength,
--> int *private_id);
procedure XMCLIPBOARDRETRIEVE (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
FORMAT_NAME : in STRING;
BUFFER : in ADDRESS;
LENGTH : in UNSIGNED_LONGWORD;
NUM_BYTES : out UNSIGNED_LONGWORD;
PRIVATE_ID : in out INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDRETRIEVE);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDRETRIEVE, "XmClipboardRetrieve",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD,
UNSIGNED_LONGWORD, INTEGER),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE,
REFERENCE));
--> int XmClipboardEndRetrieve(Display *display, Window window);
procedure XMCLIPBOARDENDRETRIEVE (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDENDRETRIEVE);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDENDRETRIEVE,
"XmClipboardEndRetrieve",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE),
(VALUE, VALUE, VALUE));
--> int XmClipboardInquireCount(Display *display, Window window, int *count,
--> int *maxlength);
procedure XMCLIPBOARDINQUIRECOUNT (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
COUNT : out INTEGER;
MAX_FORMAT_NAME_LENGTH : out INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDINQUIRECOUNT);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDINQUIRECOUNT,
"XmClipboardInquireCount",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> int XmClipboardInquireFormat(Display *display, Window window, int n,
--> char *buffer, unsigned long bufferlength, unsigned long *outlength);
procedure XMCLIPBOARDINQUIREFORMAT (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
INDEX : in INTEGER;
FORMAT_NAME_BUF : in CHARACTER;
BUFFER_LEN : in UNSIGNED_LONGWORD;
COPIED_LEN : out UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDINQUIREFORMAT);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDINQUIREFORMAT,
"XmClipboardInquireFormat",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, INTEGER, CHARACTER,
UNSIGNED_LONGWORD, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE));
--> int XmClipboardInquireLength(Display *display, Window window, char *format,
--> unsigned long *length);
procedure XMCLIPBOARDINQUIRELENGTH (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
FORMAT_NAME : in CHARACTER;
LENGTH : out UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDINQUIRELENGTH);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDINQUIRELENGTH,
"XmClipboardInquireLength",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, CHARACTER, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> int XmClipboardInquirePendingItems(Display *display, Window window,
--> char *format, XmClipboardPendingList *list, unsigned long *count);
procedure XMCLIPBOARDINQUIREPENDINGITEMS (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
FORMAT_NAME : in CHARACTER;
ITEM_LIST : out XMCLIPBOARDPENDINGLIST_TYPE;
COUNT : out UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDINQUIREPENDINGITEMS);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDINQUIREPENDINGITEMS,
"XmClipboardInquirePendingItems",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, CHARACTER,
XMCLIPBOARDPENDINGLIST_TYPE, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE));
--> int XmClipboardRegisterFormat(Display *display, String format_name,
--> unsigned long format_length);
procedure XMCLIPBOARDREGISTERFORMAT (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
FORMAT_NAME : in STRING;
FORMAT_LENGTH : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDREGISTERFORMAT);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDREGISTERFORMAT,
"XmClipboardRegisterFormat",
(INTEGER, DISPLAY_TYPE, STRING, UNSIGNED_LONGWORD),
(VALUE, VALUE, REFERENCE, VALUE));
--> int XmClipboardWithdrawFormat(Display *display, Window window, int data);
procedure XMCLIPBOARDWITHDRAWFORMAT (
RESULT : out INTEGER; --
return value
DISPLAY : in DISPLAY_TYPE;
WINDOW : in WINDOW_TYPE;
DATA_ID : in INTEGER);
pragma INTERFACE (EXTERNAL, XMCLIPBOARDWITHDRAWFORMAT);
pragma IMPORT_VALUED_PROCEDURE (XMCLIPBOARDWITHDRAWFORMAT,
"XmClipboardWithdrawFormat",
(INTEGER, DISPLAY_TYPE, WINDOW_TYPE, INTEGER),
(VALUE, VALUE, VALUE, VALUE));
-- OSF/Motif: @(#)DialogS.h 3.4 90/06/20
--> #define XmIsDialogShell(w) XtIsSubclass(w, xmDialogShellWidgetClass)
--> externalref WidgetClass xmDialogShellWidgetClass;
XMDIALOGSHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMDIALOGSHELLWIDGETCLASS,"xmDialogShellWidgetClass");
--> typedef struct _XmDialogShellClassRec * XmDialogShellWidgetClass;
--> typedef struct _XmDialogShellWidgetRec * XmDialogShellWidget;
subtype XMDIALOGSHELLWIDGET_TYPE is ADDRESS;
--> extern Widget XmCreateDialogShell (Widget p, char *name, ArgList al, int ac);
procedure XMCREATEDIALOGSHELL (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEDIALOGSHELL);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEDIALOGSHELL, "XmCreateDialogShell",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)DrawingA.h 3.3 90/06/20
--> externalref WidgetClass xmDrawingAreaWidgetClass;
XMDRAWINGAREAWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMDRAWINGAREAWIDGETCLASS,"xmDrawingAreaWidgetClass");
--> typedef struct _XmDrawingAreaClassRec * XmDrawingAreaWidgetClass;
--> typedef struct _XmDrawingAreaRec * XmDrawingAreaWidget;
subtype XMDRAWINGAREAWIDGET_TYPE is ADDRESS;
--> extern Widget XmCreateDrawingArea( Widget p, String name, ArgList args,
--> Cardinal n) ;
procedure XMCREATEDRAWINGAREA (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEDRAWINGAREA);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEDRAWINGAREA, "XmCreateDrawingArea",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)DrawnB.h 3.4 90/06/20
--> externalref WidgetClass xmDrawnButtonWidgetClass;
XMDRAWNBUTTONWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMDRAWNBUTTONWIDGETCLASS,"xmDrawnButtonWidgetClass");
--> typedef struct _XmDrawnButtonClassRec *XmDrawnButtonWidgetClass;
--> typedef struct _XmDrawnButtonRec *XmDrawnButtonWidget;
subtype XMDRAWNBUTTONWIDGET_TYPE is ADDRESS;
--> #define XmIsDrawnButton(w) XtIsSubclass(w, xmDrawnButtonWidgetClass)
--> extern Widget XmCreateDrawnButton (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATEDRAWNBUTTON (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEDRAWNBUTTON);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEDRAWNBUTTON, "XmCreateDrawnButton",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)ExtObject.h 3.2 90/04/24
--> #define XmNlogicalParent "logicalParent"
XMNLOGICALPARENT : constant STRING := "logicalParent"&ASCII.NUL;
--> #define XmCLogicalParent "LogicalParent"
XMCLOGICALPARENT : constant STRING := "LogicalParent"&ASCII.NUL;
--> #define XmNextensionType "extensionType"
XMNEXTENSIONTYPE : constant STRING := "extensionType"&ASCII.NUL;
--> #define XmCExtensionType "ExtensionType"
XMCEXTENSIONTYPE : constant STRING := "ExtensionType"&ASCII.NUL;
--> #define XmRExtensionType "ExtensionType"
XMREXTENSIONTYPE : constant STRING := "ExtensionType"&ASCII.NUL;
--> #define XmCACHE_EXTENSION 1
XMCACHE_EXTENSION : constant := 1;
--> #define XmDESKTOP_EXTENSION 2;
XMDESKTOP_EXTENSION : constant := 2;
--> #define XmSHELL_EXTENSION 3
XMSHELL_EXTENSION : constant := 3;
--> #define XmPROTOCOL_EXTENSION 4;
XMPROTOCOL_EXTENSION : constant := 4;
--> #define XmDEFAULT_EXTENSION 5
XMDEFAULT_EXTENSION : constant := 5;
--> #define XmIsExtObject(w) XtIsSubclass(w, xmExtObjectClass)
-- Class record constants
--> typedef struct _XmExtRec *XmExtObject;
subtype XMEXTOBJECT_TYPE is ADDRESS;
--> typedef struct _XmExtClassRec *XmExtObjectClass;
--> externalref WidgetClass xmExtObjectClass;
--> ITEM xmExtObjectClass WidgetClass GLOBAL;
-- End of ExtObject.h
-- OSF/Motif: @(#)FileSB.h 3.5 90/06/26
--> externalref WidgetClass xmFileSelectionBoxWidgetClass;
XMFILESELECTIONBOXWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT
(XMFILESELECTIONBOXWIDGETCLASS,"xmFileSelectionBoxWidgetClass");
--> typedef struct _XmFileSelectionBoxClassRec * XmFileSelectionBoxWidgetClass;
--> typedef struct _XmFileSelectionBoxRec * XmFileSelectionBoxWidget;
subtype XMFILESELECTIONBOXWIDGET_TYPE is ADDRESS;
--> #define XmIsFileSelectionBox(w)
(XtIsSubclass((w),xmFileSelectionBoxWidgetClass))
--> extern Widget XmFileSelectionBoxGetChild( Widget fs, unsigned char which) ;
procedure XMFILESELECTIONBOXGETCHILD (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
CHILD : in UNSIGNED_BYTE);
pragma INTERFACE (EXTERNAL, XMFILESELECTIONBOXGETCHILD);
pragma IMPORT_VALUED_PROCEDURE (XMFILESELECTIONBOXGETCHILD,
"XmFileSelectionBoxGetChild",
(WIDGET_TYPE, WIDGET_TYPE, UNSIGNED_BYTE),
(VALUE, VALUE, VALUE));
--> extern void XmFileSelectionDoSearch( Widget fs, XmString dirmask) ;
procedure XMFILESELECTIONDOSEARCH (
WIDGET : in WIDGET_TYPE;
DIRMASK : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMFILESELECTIONDOSEARCH);
pragma IMPORT_PROCEDURE (XMFILESELECTIONDOSEARCH, "XmFileSelectionDoSearch",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern Widget XmCreateFileSelectionBox( Widget p, String name, ArgList args,
--> Cardinal
n) ;
procedure XMCREATEFILESELECTIONBOX (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEFILESELECTIONBOX);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEFILESELECTIONBOX,
"XmCreateFileSelectionBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateFileSelectionDialog( Widget ds_p, String name,
--> ArgList fsb_args, Cardinal
fsb_n) ;
procedure XMCREATEFILESELECTIONDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEFILESELECTIONDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEFILESELECTIONDIALOG,
"XmCreateFileSelectionDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)Form.h 3.7 90/07/10
--> externalref WidgetClass xmFormWidgetClass;
XMFORMWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMFORMWIDGETCLASS,"xmFormWidgetClass");
--> typedef struct _XmFormClassRec * XmFormWidgetClass;
--> typedef struct _XmFormRec * XmFormWidget;
subtype XMFORMWIDGET_TYPE is ADDRESS;
--> #define XmIsForm(w) XtIsSubclass(w, xmFormWidgetClass)
--> extern Widget XmCreateForm (Widget parent, char *name, ArgList arglist,
Cardinal argcount);
procedure XMCREATEFORM (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEFORM);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEFORM, "XmCreateForm",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateFormDialog (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATEFORMDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEFORMDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEFORMDIALOG, "XmCreateFormDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)Frame.h 3.4 90/06/20
--> externalref WidgetClass xmFrameWidgetClass;
XMFRAMEWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMFRAMEWIDGETCLASS,"xmFrameWidgetClass");
--> typedef struct _XmFrameClassRec * XmFrameWidgetClass;
--> typedef struct _XmFrameRec * XmFrameWidget;
subtype XMFRAMEWIDGET_TYPE is ADDRESS;
--> #define XmIsFrame(w) XtIsSubclass(w, xmFrameWidgetClass)
--> extern Widget XmCreateFrame (Widget parent, char *name, ArgList arglist,
Cardinal argcount);
procedure XMCREATEFRAME (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEFRAME);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEFRAME, "XmCreateFrame",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)Label.h 3.4 90/06/20
--> externalref WidgetClass xmLabelWidgetClass;
XMLABELWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMLABELWIDGETCLASS,"xmLabelWidgetClass");
--> extern Widget XmCreateLabel (Widget parent, char *name, Arg *arglist, int
argCount);
procedure XMCREATELABEL (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATELABEL);
pragma IMPORT_VALUED_PROCEDURE (XMCREATELABEL, "XmCreateLabel",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> typedef struct _XmLabelClassRec * XmLabelWidgetClass;
--> typedef struct _XmLabelRec * XmLabelWidget;
subtype XMLABELWIDGET_TYPE is ADDRESS;
--> #define XmIsLabel(w) XtIsSubclass(w, xmLabelWidgetClass)
-- OSF/Motif: @(#)LabelG.h 3.5 90/06/20
--> externalref WidgetClass xmLabelGadgetClass;
XMLABELGADGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMLABELGADGETCLASS,"xmLabelGadgetClass");
--> extern Widget XmCreateLabelGadget (Widget parent, char *name, Arg *arglist,
int argCount);
procedure XMCREATELABELGADGET (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATELABELGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMCREATELABELGADGET, "XmCreateLabelGadget",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> typedef struct _XmLabelGadgetClassRec * XmLabelGadgetClass;
--> typedef struct _XmLabelGadgetRec * XmLabelGadget;
subtype XMLABELGADGET_TYPE is ADDRESS;
--> typedef struct _XmLabelGCacheObjRec * XmLabelGCacheObject;
subtype XMLABELGCACHEOBJECT_TYPE is ADDRESS;
--> #define XmIsLabelGadget(w) XtIsSubclass(w, xmLabelGadgetClass)
-- OSF/Motif: @(#)List.h 3.4 90/06/20
--> externalref WidgetClass xmListWidgetClass;
XMLISTWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMLISTWIDGETCLASS,"xmListWidgetClass");
--> #define XmINITIAL 0
XMINITIAL : constant := 0;
--> #define XmADDITION 1;
XMADDITION : constant := 1;
--> #define XmMODIFICATION 2
XMMODIFICATION : constant := 2;
--> extern void XmListAddItem (Widget w, XmString item, int pos);;
procedure XMLISTADDITEM (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE;
POSITION : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTADDITEM);
pragma IMPORT_PROCEDURE (XMLISTADDITEM, "XmListAddItem",
(WIDGET_TYPE, XMSTRING_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void XmListAddItems (Widget w, XmString *items, int item_count, int
pos);
procedure XMLISTADDITEMS (
WIDGET : in WIDGET_TYPE;
ITEMS : in XMSTRING_TYPE;
ITEM_COUNT : in INTEGER;
POS : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTADDITEMS);
pragma IMPORT_PROCEDURE (XMLISTADDITEMS, "XmListAddItems",
(WIDGET_TYPE, XMSTRING_TYPE, INTEGER, INTEGER),
(VALUE, REFERENCE, VALUE, VALUE));
--> extern void XmListAddItemUnselected (Widget w, XmString item, int pos);
procedure XMLISTADDITEMUNSELECTED (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE;
POS : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTADDITEMUNSELECTED);
pragma IMPORT_PROCEDURE (XMLISTADDITEMUNSELECTED, "XmListAddItemUnselected",
(WIDGET_TYPE, XMSTRING_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void XmListDeleteItem (Widget w, XmString item);
procedure XMLISTDELETEITEM (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTDELETEITEM);
pragma IMPORT_PROCEDURE (XMLISTDELETEITEM, "XmListDeleteItem",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern void XmListDeleteItems (Widget w, XmString *items, int item_count);
procedure XMLISTDELETEITEMS (
WIDGET : in WIDGET_TYPE;
ITEMS : in XMSTRING_TYPE;
ITEM_COUNT : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTDELETEITEMS);
pragma IMPORT_PROCEDURE (XMLISTDELETEITEMS, "XmListDeleteItems",
(WIDGET_TYPE, XMSTRING_TYPE, INTEGER),
(VALUE, REFERENCE, VALUE));
--> extern void XmListDeletePos (Widget w, int pos);
procedure XMLISTDELETEPOS (
WIDGET : in WIDGET_TYPE;
POS : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTDELETEPOS);
pragma IMPORT_PROCEDURE (XMLISTDELETEPOS, "XmListDeletePos",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void XmListDeleteItemsPos (Widget w, int item_count, int pos);
procedure XMLISTDELETEITEMSPOS (
WIDGET : in WIDGET_TYPE;
ITEM_COUNT : in INTEGER;
POS : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTDELETEITEMSPOS);
pragma IMPORT_PROCEDURE (XMLISTDELETEITEMSPOS, "XmListDeleteItemsPos",
(WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void XmListDeleteAllItems (Widget w);
procedure XMLISTDELETEALLITEMS (
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTDELETEALLITEMS);
pragma IMPORT_PROCEDURE (XMLISTDELETEALLITEMS, "XmListDeleteAllItems",
(WIDGET_TYPE),
(VALUE));
--> extern void XmListReplaceItems (Widget w, XmString *old_items,
--> int item_count, XmString *new_items);
procedure XMLISTREPLACEITEMS (
WIDGET : in WIDGET_TYPE;
OLD_ITEMS : in XMSTRING_TYPE;
ITEM_COUNT : in INTEGER;
NEW_ITEMS : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTREPLACEITEMS);
pragma IMPORT_PROCEDURE (XMLISTREPLACEITEMS, "XmListReplaceItems",
(WIDGET_TYPE, XMSTRING_TYPE, INTEGER, XMSTRING_TYPE),
(VALUE, REFERENCE, VALUE, REFERENCE));
--> extern void XmListReplaceItemsPos (Widget w, XmString *new_items,
--> int item_count, int position);
procedure XMLISTREPLACEITEMSPOS (
WIDGET : in WIDGET_TYPE;
NEW_ITEMS : in XMSTRING_TYPE;
ITEM_COUNT : in INTEGER;
POSITION : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTREPLACEITEMSPOS);
pragma IMPORT_PROCEDURE (XMLISTREPLACEITEMSPOS, "XmListReplaceItemsPos",
(WIDGET_TYPE, XMSTRING_TYPE, INTEGER, INTEGER),
(VALUE, REFERENCE, VALUE, VALUE));
--> extern void XmListSelectItem (Widget w, XmString item, Boolean notify);
procedure XMLISTSELECTITEM (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE;
NOTIFY : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMLISTSELECTITEM);
pragma IMPORT_PROCEDURE (XMLISTSELECTITEM, "XmListSelectItem",
(WIDGET_TYPE, XMSTRING_TYPE, BOOLEAN),
(VALUE, VALUE, VALUE));
--> extern void XmListSelectPos (Widget w, int pos, Boolean notify);
procedure XMLISTSELECTPOS (
WIDGET : in WIDGET_TYPE;
POS : in INTEGER;
NOTIFY : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMLISTSELECTPOS);
pragma IMPORT_PROCEDURE (XMLISTSELECTPOS, "XmListSelectPos",
(WIDGET_TYPE, INTEGER, BOOLEAN),
(VALUE, VALUE, VALUE));
--> extern void XmListDeselectItem (Widget w, XmString item);
procedure XMLISTDESELECTITEM (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTDESELECTITEM);
pragma IMPORT_PROCEDURE (XMLISTDESELECTITEM, "XmListDeselectItem",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern void XmListDeselectPos (Widget w, int pos);
procedure XMLISTDESELECTPOS (
WIDGET : in WIDGET_TYPE;
POS : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTDESELECTPOS);
pragma IMPORT_PROCEDURE (XMLISTDESELECTPOS, "XmListDeselectPos",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void XmListDeselectAllItems (Widget w);
procedure XMLISTDESELECTALLITEMS (
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTDESELECTALLITEMS);
pragma IMPORT_PROCEDURE (XMLISTDESELECTALLITEMS, "XmListDeselectAllItems",
(WIDGET_TYPE),
(VALUE));
--> extern void XmListSetPos (Widget w, int pos);
procedure XMLISTSETPOS (
WIDGET : in WIDGET_TYPE;
POS : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTSETPOS);
pragma IMPORT_PROCEDURE (XMLISTSETPOS, "XmListSetPos",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void XmListSetBottomPos (Widget w, int pos);
procedure XMLISTSETBOTTOMPOS (
WIDGET : in WIDGET_TYPE;
POSITION : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTSETBOTTOMPOS);
pragma IMPORT_PROCEDURE (XMLISTSETBOTTOMPOS, "XmListSetBottomPos",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void XmListSetItem (Widget w, XmString item);
procedure XMLISTSETITEM (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTSETITEM);
pragma IMPORT_PROCEDURE (XMLISTSETITEM, "XmListSetItem",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern void XmListSetBottomItem (Widget w, XmString item);
procedure XMLISTSETBOTTOMITEM (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTSETBOTTOMITEM);
pragma IMPORT_PROCEDURE (XMLISTSETBOTTOMITEM, "XmListSetBottomItem",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern void XmListSetAddMode (Widget w, Boolean add_mode);
procedure XMLISTSETADDMODE (
WIDGET : in WIDGET_TYPE;
MODE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMLISTSETADDMODE);
pragma IMPORT_PROCEDURE (XMLISTSETADDMODE, "XmListSetAddMode",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern Boolean XmListItemExists (Widget w, XmString item);
procedure XMLISTITEMEXISTS (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTITEMEXISTS);
pragma IMPORT_PROCEDURE (XMLISTITEMEXISTS, "XmListItemExists",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern int XmListItemPos (Widget w, XmString item);
procedure XMLISTITEMPOS (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, XMLISTITEMPOS);
pragma IMPORT_PROCEDURE (XMLISTITEMPOS, "XmListItemPos",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern Boolean XmListGetMatchPos (Widget w, XmString item,
--> int **pos_list, int *pos_count);
procedure XMLISTGETMATCHPOS (
WIDGET : in WIDGET_TYPE;
ITEM : in XMSTRING_TYPE;
POSITION_LIST : out ADDRESS;
POSITION_COUNT : out INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTGETMATCHPOS);
pragma IMPORT_PROCEDURE (XMLISTGETMATCHPOS, "XmListGetMatchPos",
(WIDGET_TYPE, XMSTRING_TYPE, ADDRESS, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern Boolean XmListGetSelectedPos (Widget w, int **pos_list, int
*pos_count);
procedure XMLISTGETSELECTEDPOS (
RETUR : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
POS_LIST : out ADDRESS;
POS_COUNT : out INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTGETSELECTEDPOS);
pragma IMPORT_VALUED_PROCEDURE (XMLISTGETSELECTEDPOS, "XmListGetSelectedPos",
(BOOLEAN, WIDGET_TYPE, ADDRESS, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void XmListSetHorizPos (Widget w, int position);
procedure XMLISTSETHORIZPOS (
WIDGET : in WIDGET_TYPE;
POSITION : in INTEGER);
pragma INTERFACE (EXTERNAL, XMLISTSETHORIZPOS);
pragma IMPORT_PROCEDURE (XMLISTSETHORIZPOS, "XmListSetHorizPos",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern Widget XmCreateList (Widget parent, char *name, ArgList args, int
argCount);
procedure XMCREATELIST (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATELIST);
pragma IMPORT_VALUED_PROCEDURE (XMCREATELIST, "XmCreateList",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateScrolledList (Widget parent, char *name, ArgList args,
int argCount);
procedure XMCREATESCROLLEDLIST (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESCROLLEDLIST);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESCROLLEDLIST, "XmCreateScrolledList",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> #define XmIsList(w) XtIsSubclass(w, xmListWidgetClass)
--> typedef struct _XmListClassRec * XmListWidgetClass;
--> typedef struct _XmListRec * XmListWidget;
subtype XMLISTWIDGET_TYPE is ADDRESS;
-- OSF/Motif: @(#)MainW.h 3.4 90/06/20
--> extern void XmMainWindowSetAreas (Widget w, Widget menu, Widget command,
--> Widget hscroll, Widget vscroll, Widget wregion);
procedure XMMAINWINDOWSETAREAS (
WIDGET : in WIDGET_TYPE;
MENU_BAR : in WIDGET_TYPE;
COMMAND_WINDOW : in WIDGET_TYPE;
HORIZONTAL_SCROLLBAR : in WIDGET_TYPE;
VERTICAL_SCROLLBAR : in WIDGET_TYPE;
WORK_REGION : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMMAINWINDOWSETAREAS);
pragma IMPORT_PROCEDURE (XMMAINWINDOWSETAREAS, "XmMainWindowSetAreas",
(WIDGET_TYPE, WIDGET_TYPE, WIDGET_TYPE, WIDGET_TYPE, WIDGET_TYPE,
WIDGET_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern Widget XmMainWindowSep1 (Widget w);
procedure XMMAINWINDOWSEP1 (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMMAINWINDOWSEP1);
pragma IMPORT_VALUED_PROCEDURE (XMMAINWINDOWSEP1, "XmMainWindowSep1",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget XmMainWindowSep2 (Widget w);
procedure XMMAINWINDOWSEP2 (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMMAINWINDOWSEP2);
pragma IMPORT_VALUED_PROCEDURE (XMMAINWINDOWSEP2, "XmMainWindowSep2",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget XmMainWindowSep3 (Widget w);
procedure XMMAINWINDOWSEP3 (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMMAINWINDOWSEP3);
pragma IMPORT_VALUED_PROCEDURE (XMMAINWINDOWSEP3, "XmMainWindowSep3",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget XmCreateMainWindow (Widget parent, char *name, ArgList args,
int argCount);
procedure XMCREATEMAINWINDOW (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEMAINWINDOW);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEMAINWINDOW, "XmCreateMainWindow",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> #define XmIsMainWindow(w) XtIsSubclass(w, xmMainWindowWidgetClass)
--> externalref WidgetClass xmMainWindowWidgetClass;
XMMAINWINDOWWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMMAINWINDOWWIDGETCLASS,"xmMainWindowWidgetClass");
--> typedef struct _XmMainWindowClassRec * XmMainWindowWidgetClass;
--> typedef struct _XmMainWindowRec * XmMainWindowWidget;
subtype XMMAINWINDOWWIDGET_TYPE is ADDRESS;
-- OSF/Motif: @(#)MenuShell.h 3.4 90/06/20
--> externalref WidgetClass xmMenuShellWidgetClass;
XMMENUSHELLWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMMENUSHELLWIDGETCLASS,"xmMenuShellWidgetClass");
--> typedef struct _XmMenuShellClassRec * XmMenuShellWidgetClass;
--> typedef struct _XmMenuShellWidgetRec * XmMenuShellWidget;
subtype XMMENUSHELLWIDGET_TYPE is ADDRESS;
--> extern Widget XmCreateMenuShell (Widget parent, char *name, ArgList al,
Cardinal ac);
procedure XMCREATEMENUSHELL (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEMENUSHELL);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEMENUSHELL, "XmCreateMenuShell",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> #define XmIsMenuShell(w) XtIsSubclass(w, xmMenuShellWidgetClass)
-- OSF/Motif: @(#)MessageB.h 3.4 90/06/26
--> externalref WidgetClass xmMessageBoxWidgetClass;
XMMESSAGEBOXWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMMESSAGEBOXWIDGETCLASS,"xmMessageBoxWidgetClass");
--> typedef struct _XmMessageBoxClassRec * XmMessageBoxWidgetClass;
--> typedef struct _XmMessageBoxRec * XmMessageBoxWidget;
subtype XMMESSAGEBOXWIDGET_TYPE is ADDRESS;
--> #define XmIsMessageBox(w) XtIsSubclass (w, xmMessageBoxWidgetClass)
--> extern Widget XmCreateMessageBox( Widget parent, char *name, ArgList al,
--> Cardinal
ac) ;
procedure XMCREATEMESSAGEBOX (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEMESSAGEBOX);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEMESSAGEBOX, "XmCreateMessageBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateMessageDialog( Widget parent, char *name, ArgList al,
--> Cardinal
ac) ;
procedure XMCREATEMESSAGEDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEMESSAGEDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEMESSAGEDIALOG,
"XmCreateMessageDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateErrorDialog( Widget parent, char *name, ArgList al,
--> Cardinal
ac) ;
procedure XMCREATEERRORDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEERRORDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEERRORDIALOG, "XmCreateErrorDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateInformationDialog( Widget parent, char *name, ArgList
al,
--> Cardinal
ac) ;
procedure XMCREATEINFORMATIONDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEINFORMATIONDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEINFORMATIONDIALOG,
"XmCreateInformationDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateQuestionDialog( Widget parent, char *name, ArgList al,
--> Cardinal
ac) ;
procedure XMCREATEQUESTIONDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEQUESTIONDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEQUESTIONDIALOG,
"XmCreateQuestionDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateWarningDialog( Widget parent, char *name, ArgList al,
--> Cardinal
ac) ;
procedure XMCREATEWARNINGDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEWARNINGDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEWARNINGDIALOG,
"XmCreateWarningDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateWorkingDialog( Widget parent, char *name, ArgList al,
--> Cardinal
ac) ;
procedure XMCREATEWORKINGDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEWORKINGDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEWORKINGDIALOG,
"XmCreateWorkingDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmMessageBoxGetChild( Widget wid, unsigned char child) ;
procedure XMMESSAGEBOXGETCHILD (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
CHILD : in UNSIGNED_BYTE);
pragma INTERFACE (EXTERNAL, XMMESSAGEBOXGETCHILD);
pragma IMPORT_VALUED_PROCEDURE (XMMESSAGEBOXGETCHILD, "XmMessageBoxGetChild",
(WIDGET_TYPE, WIDGET_TYPE, UNSIGNED_BYTE),
(VALUE, VALUE, VALUE));
-- OSF/Motif: @(#)PanedW.h 3.4 90/06/20
--> externalref WidgetClass xmPanedWindowWidgetClass;
XMPANEDWINDOWWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMPANEDWINDOWWIDGETCLASS,"xmPanedWindowWidgetClass");
--> #define XmIsPanedWindow(w) XtIsSubclass(w, xmPanedWindowWidgetClass)
--> typedef struct _XmPanedWindowClassRec *XmPanedWindowWidgetClass;
--> typedef struct _XmPanedWindowRec *XmPanedWindowWidget;
subtype XMPANEDWINDOWWIDGET_TYPE is ADDRESS;
--> extern Widget XmCreatePanedWindow (Widget parent, char *name, ArgList args,
int argCount);
procedure XMCREATEPANEDWINDOW (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEPANEDWINDOW);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEPANEDWINDOW, "XmCreatePanedWindow",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)Protocols.h 3.7 90/06/20
--> #define XmCR_WM_PROTOCOLS 666
XMCR_WM_PROTOCOLS : constant := 666;
--> #ifdef XA_WM_PROTOCOLS
--> #define XM_WM_PROTOCOL_ATOM(shell) XA_WM_PROTOCOLS
--> #else
--> #define XM_WM_PROTOCOL_ATOM(shell) \
--> XmInternAtom(XtDisplay(shell),"WM_PROTOCOLS",FALSE)
--> #endif /* XA_WM_PROTOCOLS */
--> #define XmAddWMProtocols(shell, protocols, num_protocols) \
--> XmAddProtocols(shell, XM_WM_PROTOCOL_ATOM(shell), \
--> protocols, num_protocols)
--> #define XmRemoveWMProtocols(shell, protocols, num_protocols) \
--> XmRemoveProtocols(shell, XM_WM_PROTOCOL_ATOM(shell), \
--> protocols, num_protocols)
--> #define XmAddWMProtocolCallback(shell, protocol, callback, closure) \
--> XmAddProtocolCallback(shell, XM_WM_PROTOCOL_ATOM(shell), \
--> protocol, callback, closure)
--> #define XmRemoveWMProtocolCallback(shell, protocol, callback, closure) \
--> XmRemoveProtocolCallback(shell, XM_WM_PROTOCOL_ATOM(shell), \
--> protocol, callback, closure)
--> #define XmActivateWMProtocol(shell, protocol) \
--> XmActivateProtocol(shell, XM_WM_PROTOCOL_ATOM(shell), protocol)
-->
--> #define XmDeactivateWMProtocol(shell, protocol) \
--> XmDeactivateProtocol(shell, XM_WM_PROTOCOL_ATOM(shell), protocol)
-->
--> #define XmSetWMProtocolHooks(shell, protocol, pre_h, pre_c, post_h, post_c) \
--> XmSetProtocolHooks(shell, XM_WM_PROTOCOL_ATOM(shell), \
--> protocol, pre_h, pre_c, post_h, post_c)
--> extern void XmAddProtocols (Widget shell, Atom property, Atom *protocols,
--> Cardinal num_protocols);
procedure XMADDPROTOCOLS (
SHELL : in WIDGET_TYPE;
PROPERTY : in ATOM_TYPE;
PROTOCOLS : in ATOM_TYPE;
NUM_PROTOCOLS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMADDPROTOCOLS);
pragma IMPORT_PROCEDURE (XMADDPROTOCOLS, "XmAddProtocols",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, VALUE));
--> extern void XmRemoveProtocols (Widget shell, Atom property, Atom *protocols,
--> Cardinal num_protocols);
procedure XMREMOVEPROTOCOLS (
SHELL : in WIDGET_TYPE;
PROPERTY : in ATOM_TYPE;
PROTOCOLS : in ATOM_TYPE;
NUM_PROTOCOLS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMREMOVEPROTOCOLS);
pragma IMPORT_PROCEDURE (XMREMOVEPROTOCOLS, "XmRemoveProtocols",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, VALUE));
--> extern void XmAddProtocolCallback (Widget shell, Atom property, Atom
proto_atom,
--> XtCallbackProc callback, caddr_t closure);
procedure XMADDPROTOCOLCALLBACK (
SHELL : in WIDGET_TYPE;
PROPERTY : in ATOM_TYPE;
PROTOCOL : in ATOM_TYPE;
CALLBACK : in XTCALLBACKPROC_TYPE;
CLOSURE : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XMADDPROTOCOLCALLBACK);
pragma IMPORT_PROCEDURE (XMADDPROTOCOLCALLBACK, "XmAddProtocolCallback",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, XTCALLBACKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XmRemoveProtocolCallback (Widget shell, Atom property,
--> Atom proto_atom, XtCallbackProc callback,
procedure XMREMOVEPROTOCOLCALLBACK (
SHELL : in WIDGET_TYPE;
PROPERTY : in ATOM_TYPE;
PROTOCOL : in ATOM_TYPE;
CALLBACK : in XTCALLBACKPROC_TYPE;
CLOSURE : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XMREMOVEPROTOCOLCALLBACK);
pragma IMPORT_PROCEDURE (XMREMOVEPROTOCOLCALLBACK,
"XmRemoveProtocolCallback",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, XTCALLBACKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void XmActivateProtocol (Widget shell, Atom property, Atom
proto_atom);
procedure XMACTIVATEPROTOCOL (
SHELL : in WIDGET_TYPE;
PROPERTY : in ATOM_TYPE;
PROTOCOL : in ATOM_TYPE);
pragma INTERFACE (EXTERNAL, XMACTIVATEPROTOCOL);
pragma IMPORT_PROCEDURE (XMACTIVATEPROTOCOL, "XmActivateProtocol",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XmDeactivateProtocol (Widget shell, Atom property, Atom
proto_atom);
procedure XMDEACTIVATEPROTOCOL (
SHELL : in WIDGET_TYPE;
PROPERTY : in ATOM_TYPE;
PROTOCOL : in ATOM_TYPE);
pragma INTERFACE (EXTERNAL, XMDEACTIVATEPROTOCOL);
pragma IMPORT_PROCEDURE (XMDEACTIVATEPROTOCOL, "XmDeactivateProtocol",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE),
(VALUE, VALUE, VALUE));
--> extern void XmSetProtocolHooks (Widget shell, Atom property, Atom
proto_atom,
--> XtCallbackProc pre_hook, caddr_t pre_closure, XtCallbackProc post_hook,
--> caddr_t post_closure);
procedure XMSETPROTOCOLHOOKS (
SHELL : in WIDGET_TYPE;
PROPERTY : in ATOM_TYPE;
PROTOCOL : in ATOM_TYPE;
PREHOOK : in XTCALLBACKPROC_TYPE;
PRE_CLOSURE : in XTPOINTER_TYPE;
POSTHOOK : in XTCALLBACKPROC_TYPE;
POST_CLOSURE : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, XMSETPROTOCOLHOOKS);
pragma IMPORT_PROCEDURE (XMSETPROTOCOLHOOKS, "XmSetProtocolHooks",
(WIDGET_TYPE, ATOM_TYPE, ATOM_TYPE, XTCALLBACKPROC_TYPE, XTPOINTER_TYPE,
XTCALLBACKPROC_TYPE, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void _XmInstallProtocols (Widget w);
--> ENTRY _XmInstallProtocols
--> PARAMETER (
--> Widget IN VALUE NAMED w )
--> RETURNS VOID;
--> Undocumented
-- OSF/Motif: @(#)PushB.h 3.4 90/06/20
--> #define XmIsPushButton(w) XtIsSubclass(w, xmPushButtonWidgetClass)
--> externalref WidgetClass xmPushButtonWidgetClass;
XMPUSHBUTTONWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMPUSHBUTTONWIDGETCLASS,"xmPushButtonWidgetClass");
--> typedef struct _XmPushButtonClassRec *XmPushButtonWidgetClass;
--> typedef struct _XmPushButtonRec *XmPushButtonWidget;
subtype XMPUSHBUTTONWIDGET_TYPE is ADDRESS;
--> extern Widget XmCreatePushButton (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATEPUSHBUTTON (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEPUSHBUTTON);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEPUSHBUTTON, "XmCreatePushButton",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)PushBG.h 3.6 90/07/12
--> #define XmIsPushButtonGadget(w) XtIsSubclass(w, xmPushButtonGadgetClass)
--> externalref WidgetClass xmPushButtonGadgetClass;
XMPUSHBUTTONGADGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMPUSHBUTTONGADGETCLASS,"xmPushButtonGadgetClass");
--> extern Widget XmCreatePushButtonGadget (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATEPUSHBUTTONGADGET (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEPUSHBUTTONGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEPUSHBUTTONGADGET,
"XmCreatePushButtonGadget",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> typedef struct _XmPushButtonGadgetClassRec *XmPushButtonGadgetClass;
--> typedef struct _XmPushButtonGadgetRec *XmPushButtonGadget;
subtype XMPUSHBUTTONGADGET_TYPE is ADDRESS;
--> typedef struct _XmPushButtonGCacheObjRec *XmPushButtonGCacheObject;
subtype XMPUSHBUTTONGCACHEOBJECT_TYPE is ADDRESS;
-- OSF/Motif: @(#)RowColumn.h 3.6 90/06/20
--> externalref WidgetClass xmRowColumnWidgetClass;
XMROWCOLUMNWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMROWCOLUMNWIDGETCLASS,"xmRowColumnWidgetClass");
--> typedef struct _XmRowColumnClassRec * XmRowColumnWidgetClass;
--> typedef struct _XmRowColumnWidgetRec * XmRowColumnWidget;
subtype XMROWCOLUMNWIDGET_TYPE is ADDRESS;
-- Public procedures supported by the XmRowColumn widget */
--> extern Widget XmCreateRadioBox (Widget p, char *name, ArgList al, Cardinal
ac);
procedure XMCREATERADIOBOX (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATERADIOBOX);
pragma IMPORT_VALUED_PROCEDURE (XMCREATERADIOBOX, "XmCreateRadioBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateRowColumn (Widget p, char *name, ArgList al, Cardinal
ac);
procedure XMCREATEROWCOLUMN (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEROWCOLUMN);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEROWCOLUMN, "XmCreateRowColumn",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateWorkArea (Widget p, char *name, ArgList al, Cardinal
ac);
procedure XMCREATEWORKAREA (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEWORKAREA);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEWORKAREA, "XmCreateWorkArea",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreatePopupMenu (Widget p, char *name, ArgList al, Cardinal
ac);
procedure XMCREATEPOPUPMENU (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEPOPUPMENU);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEPOPUPMENU, "XmCreatePopupMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreatePulldownMenu (Widget p, char *name, ArgList al,
Cardinal ac);
procedure XMCREATEPULLDOWNMENU (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEPULLDOWNMENU);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEPULLDOWNMENU, "XmCreatePulldownMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateOptionMenu (Widget p, char *name, ArgList al, Cardinal
ac);
procedure XMCREATEOPTIONMENU (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEOPTIONMENU);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEOPTIONMENU, "XmCreateOptionMenu",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateMenuBar (Widget p, char *name, ArgList al, Cardinal
ac);
procedure XMCREATEMENUBAR (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEMENUBAR);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEMENUBAR, "XmCreateMenuBar",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern void XmMenuPosition (Widget p, XButtonPressedEvent *event);
procedure XMMENUPOSITION (
P : in WIDGET_TYPE;
EVENT : in EVENT_TYPE);
pragma INTERFACE (EXTERNAL, XMMENUPOSITION);
pragma IMPORT_PROCEDURE (XMMENUPOSITION, "XmMenuPosition",
(WIDGET_TYPE, EVENT_TYPE),
(VALUE, REFERENCE));
--> extern Widget XmOptionLabelGadget (Widget m);
procedure XMOPTIONLABELGADGET (
WIDGET : out WIDGET_TYPE; --
return value
OPTION_MENU : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMOPTIONLABELGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMOPTIONLABELGADGET, "XmOptionLabelGadget",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget XmOptionButtonGadget (Widget m);
procedure XMOPTIONBUTTONGADGET (
WIDGET : out WIDGET_TYPE; --
return value
OPTION_MENU : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMOPTIONBUTTONGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMOPTIONBUTTONGADGET, "XmOptionButtonGadget",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget XmGetPostedFromWidget (Widget menu);
procedure XMGETPOSTEDFROMWIDGET (
WIDGET : out WIDGET_TYPE; --
return value
MENU : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMGETPOSTEDFROMWIDGET);
pragma IMPORT_VALUED_PROCEDURE (XMGETPOSTEDFROMWIDGET,
"XmGetPostedFromWidget",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> #define XmIsRowColumn(w) XtIsSubclass((w),xmRowColumnWidgetClass)
-- OSF/Motif: @(#)Scale.h 3.5 90/06/20
--> externalref WidgetClass xmScaleWidgetClass;
XMSCALEWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMSCALEWIDGETCLASS,"xmScaleWidgetClass");
--> #define XmIsScale(w) XtIsSubclass (w, xmScaleWidgetClass)
--> extern void XmScaleSetValue (Widget w, int value);
procedure XMSCALESETVALUE (
WIDGET : in WIDGET_TYPE;
VALUE : in INTEGER);
pragma INTERFACE (EXTERNAL, XMSCALESETVALUE);
pragma IMPORT_PROCEDURE (XMSCALESETVALUE, "XmScaleSetValue",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void XmScaleGetValue (Widget w, int *value);
procedure XMSCALEGETVALUE (
WIDGET : in WIDGET_TYPE;
VALUE : out INTEGER);
pragma INTERFACE (EXTERNAL, XMSCALEGETVALUE);
pragma IMPORT_PROCEDURE (XMSCALEGETVALUE, "XmScaleGetValue",
(WIDGET_TYPE, INTEGER),
(VALUE, REFERENCE));
--> extern Widget XmCreateScale (Widget parent, char *name, ArgList arglist,
Cardinal argcount);
procedure XMCREATESCALE (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESCALE);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESCALE, "XmCreateScale",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> typedef struct _XmScaleClassRec * XmScaleWidgetClass;
--> typedef struct _XmScaleRec * XmScaleWidget;
subtype XMSCALEWIDGET_TYPE is ADDRESS;
-- OSF/Motif: @(#)ScrollBar.h 3.4 90/06/20
--> externalref WidgetClass xmScrollBarWidgetClass;
XMSCROLLBARWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMSCROLLBARWIDGETCLASS,"xmScrollBarWidgetClass");
--> typedef struct _XmScrollBarClassRec * XmScrollBarWidgetClass;
--> typedef struct _XmScrollBarRec * XmScrollBarWidget;
subtype XMSCROLLBARWIDGET_TYPE is ADDRESS;
--> extern void _XmSetEtchedSlider (XmScrollBarWidget sbw);
--> PARAMETER (
--> Widget IN VALUE NAMED sbw )
--> RETURNS VOID;
--> Undocumented
--> extern Widget XmCreateScrollBar (Widget parent, char *name, ArgList arglist,
Cardinal argcount);
procedure XMCREATESCROLLBAR (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESCROLLBAR);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESCROLLBAR, "XmCreateScrollBar",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern void XmScrollBarGetValues (Widget w, int *value, int *slider_size,
--> int *increment, int *page_increment);
procedure XMSCROLLBARGETVALUES (
WIDGET : in WIDGET_TYPE;
VALUE_RETURN : out INTEGER;
SLIDER_SIZE_RETURN : out INTEGER;
INCREMENT_RETURN : out INTEGER;
PAGE_INCREMENT_RETURN : out INTEGER);
pragma INTERFACE (EXTERNAL, XMSCROLLBARGETVALUES);
pragma IMPORT_PROCEDURE (XMSCROLLBARGETVALUES, "XmScrollBarGetValues",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER),
(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
--> extern void XmScrollBarSetValues (Widget w, int value, int slider_size,
--> int increment, int page_increment, Boolean notify);
procedure XMSCROLLBARSETVALUES (
WIDGET : in WIDGET_TYPE;
VALUE : in INTEGER;
SLIDER_SIZE : in INTEGER;
INCREMENT : in INTEGER;
PAGE_INCREMENT : in INTEGER;
NOTIFY : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMSCROLLBARSETVALUES);
pragma IMPORT_PROCEDURE (XMSCROLLBARSETVALUES, "XmScrollBarSetValues",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER, BOOLEAN),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> #define XmIsScrollBar(w) XtIsSubclass(w, xmScrollBarWidgetClass)
-- OSF/Motif: @(#)ScrolledW.h 3.6 90/07/03
--> extern void InitializeScrollBars (Widget sw);
--> ENTRY InitializeScrollBars
--> PARAMETER (
--> Widget IN VALUE NAMED sw )
--> RETURNS VOID;
--> Undocumented
--> extern void XmScrolledWindowSetAreas (Widget sw, Widget hscroll,
--> Widget vscroll, Widget wregion);
procedure XMSCROLLEDWINDOWSETAREAS (
WIDGET : in WIDGET_TYPE;
HORIZONTAL_SCROLLBAR : in WIDGET_TYPE;
VERTICAL_SCROLLBAR : in WIDGET_TYPE;
WORK_REGION : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMSCROLLEDWINDOWSETAREAS);
pragma IMPORT_PROCEDURE (XMSCROLLEDWINDOWSETAREAS,
"XmScrolledWindowSetAreas",
(WIDGET_TYPE, WIDGET_TYPE, WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern Widget XmCreateScrolledWindow (Widget parent, char *name,
--> ArgList args, Cardinal argCount);
procedure XMCREATESCROLLEDWINDOW (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESCROLLEDWINDOW);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESCROLLEDWINDOW,
"XmCreateScrolledWindow",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> #define XmIsScrolledWindow(w) XtIsSubclass(w,
xmScrolledWindowWidgetClass)
--> externalref WidgetClass xmScrolledWindowWidgetClass;
XMSCROLLEDWINDOWWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT
(XMSCROLLEDWINDOWWIDGETCLASS,"xmScrolledWindowWidgetClass");
--> typedef struct _XmScrolledWindowClassRec * XmScrolledWindowWidgetClass;
--> typedef struct _XmScrolledWindowRec * XmScrolledWindowWidget;
subtype XMSCROLLEDWINDOWWIDGET_TYPE is ADDRESS;
-- OSF/Motif: @(#)SelectioB.h 3.4 90/06/26
--> externalref WidgetClass xmSelectionBoxWidgetClass;
XMSELECTIONBOXWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMSELECTIONBOXWIDGETCLASS,"xmSelectionBoxWidgetClass");
--> typedef struct _XmSelectionBoxClassRec * XmSelectionBoxWidgetClass;
--> typedef struct _XmSelectionBoxRec * XmSelectionBoxWidget;
subtype XMSELECTIONBOXWIDGET_TYPE is ADDRESS;
--> extern Widget XmSelectionBoxGetChild( Widget sb, unsigned char which) ;
procedure XMSELECTIONBOXGETCHILD (
RESULT : out WIDGET_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
CHILD : in UNSIGNED_BYTE);
pragma INTERFACE (EXTERNAL, XMSELECTIONBOXGETCHILD);
pragma IMPORT_VALUED_PROCEDURE (XMSELECTIONBOXGETCHILD,
"XmSelectionBoxGetChild",
(WIDGET_TYPE, WIDGET_TYPE, UNSIGNED_BYTE),
(VALUE, VALUE, VALUE));
--> extern Widget XmCreateSelectionBox( Widget p, String name, ArgList args,
--> Cardinal n) ;
procedure XMCREATESELECTIONBOX (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESELECTIONBOX);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESELECTIONBOX, "XmCreateSelectionBox",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateSelectionDialog( Widget ds_p, String name,
--> ArgList sb_args, Cardinal
sb_n) ;
procedure XMCREATESELECTIONDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESELECTIONDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESELECTIONDIALOG,
"XmCreateSelectionDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreatePromptDialog( Widget ds_p, String name, ArgList
sb_args,
--> Cardinal
sb_n) ;
procedure XMCREATEPROMPTDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATEPROMPTDIALOG);
pragma IMPORT_VALUED_PROCEDURE (XMCREATEPROMPTDIALOG, "XmCreatePromptDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)SeparatoG.h 3.4 90/06/20
--> externalref WidgetClass xmSeparatorGadgetClass;
XMSEPARATORGADGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMSEPARATORGADGETCLASS,"xmSeparatorGadgetClass");
--> typedef struct _XmSeparatorGadgetClassRec * XmSeparatorGadgetClass;
--> typedef struct _XmSeparatorGadgetRec * XmSeparatorGadget;
subtype XMSEPARATORGADGET_TYPE is ADDRESS;
--> typedef struct _XmSeparatorGCacheObjRec * XmSeparatorGCacheObject;
subtype XMSEPARATORGCACHEOBJECT_TYPE is ADDRESS;
--> #define XmIsSeparatorGadget(w) XtIsSubclass(w, xmSeparatorGadgetClass)
--> extern Widget XmCreateSeparatorGadget (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATESEPARATORGADGET (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESEPARATORGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESEPARATORGADGET,
"XmCreateSeparatorGadget",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)Separator.h 3.4 90/06/20
--> externalref WidgetClass xmSeparatorWidgetClass;
XMSEPARATORWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMSEPARATORWIDGETCLASS,"xmSeparatorWidgetClass");
--> typedef struct _XmSeparatorClassRec * XmSeparatorWidgetClass;
--> typedef struct _XmSeparatorRec * XmSeparatorWidget;
subtype XMSEPARATORWIDGET_TYPE is ADDRESS;
--> #define XmIsSeparator(w) XtIsSubclass(w, xmSeparatorWidgetClass)
--> extern Widget XmCreateSeparator (Widget parent, char *name, ArgList arglist,
Cardinal argcount);
procedure XMCREATESEPARATOR (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESEPARATOR);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESEPARATOR, "XmCreateSeparator",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- OSF/Motif: @(#)Text.h 3.8 90/08/08
--> typedef struct _XmTextSourceRec *XmTextSource;
subtype XMTEXTSOURCE_TYPE is ADDRESS;
--> typedef struct _XmTextClassRec *XmTextWidgetClass;
--> typedef struct _XmTextRec *XmTextWidget;
subtype XMTEXTWIDGET_TYPE is ADDRESS;
--> externalref WidgetClass xmTextWidgetClass;
XMTEXTWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMTEXTWIDGETCLASS,"xmTextWidgetClass");
--> extern void XmTextSetHighlight (Widget w, XmTextPosition left,
--> XmTextPosition right, XmHighlightMode mode);
procedure XMTEXTSETHIGHLIGHT (
WIDGET : in WIDGET_TYPE;
LEFT : in XMTEXTPOSITION_TYPE;
RIGHT : in XMTEXTPOSITION_TYPE;
MODE : in XMHIGHLIGHTMODE_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTSETHIGHLIGHT);
pragma IMPORT_PROCEDURE (XMTEXTSETHIGHLIGHT, "XmTextSetHighlight",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE,
XMHIGHLIGHTMODE_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern Widget XmCreateScrolledText (Widget parent, char *name, ArgList
arglist, Cardinal argcount);
procedure XMCREATESCROLLEDTEXT (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATESCROLLEDTEXT);
pragma IMPORT_VALUED_PROCEDURE (XMCREATESCROLLEDTEXT, "XmCreateScrolledText",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget XmCreateText (Widget parent, char *name, ArgList arglist,
Cardinal argcount);
procedure XMCREATETEXT (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATETEXT);
pragma IMPORT_VALUED_PROCEDURE (XMCREATETEXT, "XmCreateText",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern char *XmTextGetString (Widget widget);
procedure XMTEXTGETSTRING (
RESULT : out XTSTRING_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETSTRING);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETSTRING, "XmTextGetString",
(XTSTRING_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern XmTextPosition XmTextGetLastPosition (Widget widget);
procedure XMTEXTGETLASTPOSITION (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETLASTPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETLASTPOSITION,
"XmTextGetLastPosition",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetString (Widget widget, char *value);
procedure XMTEXTSETSTRING (
WIDGET : in WIDGET_TYPE;
VALUE : in STRING);
pragma INTERFACE (EXTERNAL, XMTEXTSETSTRING);
pragma IMPORT_PROCEDURE (XMTEXTSETSTRING, "XmTextSetString",
(WIDGET_TYPE, STRING),
(VALUE, REFERENCE));
--> extern void XmTextReplace (Widget widget, XmTextPosition frompos,
--> XmTextPosition topos, char *value);
procedure XMTEXTREPLACE (
WIDGET : in WIDGET_TYPE;
FROM_POS : in XMTEXTPOSITION_TYPE;
TO_POS : in XMTEXTPOSITION_TYPE;
VALUE : in STRING);
pragma INTERFACE (EXTERNAL, XMTEXTREPLACE);
pragma IMPORT_PROCEDURE (XMTEXTREPLACE, "XmTextReplace",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE, STRING),
(VALUE, VALUE, VALUE, REFERENCE));
--> extern void XmTextInsert (Widget widget, XmTextPosition position, char
*value);
procedure XMTEXTINSERT (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE;
VALUE : in STRING);
pragma INTERFACE (EXTERNAL, XMTEXTINSERT);
pragma IMPORT_PROCEDURE (XMTEXTINSERT, "XmTextInsert",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, STRING),
(VALUE, VALUE, REFERENCE));
--> extern void XmTextSetAddMode (Widget widget, Boolean state);
procedure XMTEXTSETADDMODE (
WIDGET : in WIDGET_TYPE;
STATE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMTEXTSETADDMODE);
pragma IMPORT_PROCEDURE (XMTEXTSETADDMODE, "XmTextSetAddMode",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern Boolean XmTextGetAddMode (Widget widget);
--> ENTRY XmTextGetAddMode
--> PARAMETER (
--> Widget IN VALUE NAMED wid )
--> RETURNS Boolean NAMED result;
--> extern Boolean XmTextGetEditable (Widget widget);
procedure XMTEXTGETEDITABLE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETEDITABLE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETEDITABLE, "XmTextGetEditable",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetEditable (Widget widget, Boolean editable);
procedure XMTEXTSETEDITABLE (
WIDGET : in WIDGET_TYPE;
EDITABLE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMTEXTSETEDITABLE);
pragma IMPORT_PROCEDURE (XMTEXTSETEDITABLE, "XmTextSetEditable",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern int XmTextGetMaxLength (Widget widget);
procedure XMTEXTGETMAXLENGTH (
RESULT : out INTEGER; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETMAXLENGTH);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETMAXLENGTH, "XmTextGetMaxLength",
(INTEGER, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetMaxLength (Widget widget, int max_length);
procedure XMTEXTSETMAXLENGTH (
WIDGET : in WIDGET_TYPE;
MAX_LENGTH : in INTEGER);
pragma INTERFACE (EXTERNAL, XMTEXTSETMAXLENGTH);
pragma IMPORT_PROCEDURE (XMTEXTSETMAXLENGTH, "XmTextSetMaxLength",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern XmTextPosition XmTextGetTopCharacter (Widget widget);
procedure XMTEXTGETTOPCHARACTER (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETTOPCHARACTER);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETTOPCHARACTER,
"XmTextGetTopCharacter",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetTopCharacter (Widget widget, XmTextPosition
top_character);
procedure XMTEXTSETTOPCHARACTER (
WIDGET : in WIDGET_TYPE;
TOP_CHARACTER : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTSETTOPCHARACTER);
pragma IMPORT_PROCEDURE (XMTEXTSETTOPCHARACTER, "XmTextSetTopCharacter",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern XmTextPosition XmTextGetCursorPosition (Widget widget);
procedure XMTEXTGETCURSORPOSITION (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETCURSORPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETCURSORPOSITION,
"XmTextGetCursorPosition",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetCursorPosition (Widget widget, XmTextPosition position);
procedure XMTEXTSETCURSORPOSITION (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTSETCURSORPOSITION);
pragma IMPORT_PROCEDURE (XMTEXTSETCURSORPOSITION, "XmTextSetCursorPosition",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern XmTextPosition XmTextGetInsertionPosition (Widget widget);
procedure XMTEXTGETINSERTIONPOSITION (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETINSERTIONPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETINSERTIONPOSITION,
"XmTextGetInsertionPosition",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetInsertionPosition (Widget widget, XmTextPosition
position);
procedure XMTEXTSETINSERTIONPOSITION (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTSETINSERTIONPOSITION);
pragma IMPORT_PROCEDURE (XMTEXTSETINSERTIONPOSITION,
"XmTextSetInsertionPosition",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern Boolean XmTextRemove (Widget widget);
procedure XMTEXTREMOVE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTREMOVE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTREMOVE, "XmTextRemove",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Boolean XmTextCopy (Widget widget, Time copy_time);
procedure XMTEXTCOPY (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTCOPY);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTCOPY, "XmTextCopy",
(BOOLEAN, WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE));
--> extern Boolean XmTextCut (Widget widget, Time cut_time);
procedure XMTEXTCUT (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTCUT);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTCUT, "XmTextCut",
(BOOLEAN, WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE));
--> extern Boolean XmTextPaste (Widget widget);
procedure XMTEXTPASTE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTPASTE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTPASTE, "XmTextPaste",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern char *XmTextGetSelection (Widget widget);
procedure XMTEXTGETSELECTION (
RESULT : out XTSTRING_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETSELECTION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETSELECTION, "XmTextGetSelection",
(XTSTRING_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetSelection (Widget widget, XmTextPosition first,
--> XmTextPosition last, Time set_time);
procedure XMTEXTSETSELECTION (
WIDGET : in WIDGET_TYPE;
FIRST : in XMTEXTPOSITION_TYPE;
LAST : in XMTEXTPOSITION_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTSETSELECTION);
pragma IMPORT_PROCEDURE (XMTEXTSETSELECTION, "XmTextSetSelection",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern void XmTextClearSelection (Widget widget, Time clear_time);
procedure XMTEXTCLEARSELECTION (
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTCLEARSELECTION);
pragma IMPORT_PROCEDURE (XMTEXTCLEARSELECTION, "XmTextClearSelection",
(WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE));
--> extern Boolean XmTextGetSelectionPosition (Widget widget, XmTextPosition
*left,
--> XmTextPosition *right);
procedure XMTEXTGETSELECTIONPOSITION (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
LEFT : out XMTEXTPOSITION_TYPE;
RIGHT : out XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETSELECTIONPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETSELECTIONPOSITION,
"XmTextGetSelectionPosition",
(BOOLEAN, WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XmTextPosition XmTextXYToPos (Widget widget, Position x, Position y);
procedure XMTEXTXYTOPOS (
XMTEXTPOSITION : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
X : in POSITION_TYPE;
Y : in POSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTXYTOPOS);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTXYTOPOS, "XmTextXYToPos",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE, POSITION_TYPE, POSITION_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern Boolean XmTextPosToXY (Widget widget, XmTextPosition position,
--> Position *x, Position *y);
procedure XMTEXTPOSTOXY (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE;
X : out POSITION_TYPE;
Y : out POSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTPOSTOXY);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTPOSTOXY, "XmTextPosToXY",
(BOOLEAN, WIDGET_TYPE, XMTEXTPOSITION_TYPE, POSITION_TYPE,
POSITION_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XmTextSource XmTextGetSource (Widget widget);
procedure XMTEXTGETSOURCE (
RESULT : out XMTEXTSOURCE_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETSOURCE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETSOURCE, "XmTextGetSource",
(XMTEXTSOURCE_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextSetSource (Widget widget, XmTextSource source,
--> XmTextPosition top_character, XmTextPosition cursor_position);
procedure XMTEXTSETSOURCE (
WIDGET : in WIDGET_TYPE;
SOURCE : in XMTEXTSOURCE_TYPE;
TOP_CHARACTER : in XMTEXTPOSITION_TYPE;
CURSOR_POSITION : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTSETSOURCE);
pragma IMPORT_PROCEDURE (XMTEXTSETSOURCE, "XmTextSetSource",
(WIDGET_TYPE, XMTEXTSOURCE_TYPE, XMTEXTPOSITION_TYPE,
XMTEXTPOSITION_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern void XmTextShowPosition (Widget widget, XmTextPosition position);
procedure XMTEXTSHOWPOSITION (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTSHOWPOSITION);
pragma IMPORT_PROCEDURE (XMTEXTSHOWPOSITION, "XmTextShowPosition",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern void XmTextScroll (Widget widget, int n);
procedure XMTEXTSCROLL (
WIDGET : in WIDGET_TYPE;
LINES : in INTEGER);
pragma INTERFACE (EXTERNAL, XMTEXTSCROLL);
pragma IMPORT_PROCEDURE (XMTEXTSCROLL, "XmTextScroll",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern int XmTextGetBaseLine (Widget widget);
procedure XMTEXTGETBASELINE (
RESULT : out INTEGER; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTGETBASELINE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTGETBASELINE, "XmTextGetBaseLine",
(INTEGER, WIDGET_TYPE),
(VALUE, VALUE));
--> #define XmIsText(w) XtIsSubclass(w, xmTextWidgetClass)
-- OSF/Motif: @(#)TextF.h 3.8 90/08/08
--> typedef struct _XmTextFieldClassRec *XmTextFieldWidgetClass;
--> typedef struct _XmTextFieldRec *XmTextFieldWidget;
subtype XMTEXTFIELDWIDGET_TYPE is ADDRESS;
--> externalref WidgetClass xmTextFieldWidgetClass;
XMTEXTFIELDWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMTEXTFIELDWIDGETCLASS,"xmTextFieldWidgetClass");
--> extern char *XmTextFieldGetString (Widget widget);
procedure XMTEXTFIELDGETSTRING (
STATUS : out XTSTRING_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETSTRING);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETSTRING, "XmTextFieldGetString",
(XTSTRING_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern XmTextPosition XmTextFieldGetLastPosition (Widget widget);
procedure XMTEXTFIELDGETLASTPOSITION (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETLASTPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETLASTPOSITION,
"XmTextFieldGetLastPosition",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldSetString (Widget widget, char *value);
procedure XMTEXTFIELDSETSTRING (
WIDGET : in WIDGET_TYPE;
VALUE : in STRING);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETSTRING);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETSTRING, "XmTextFieldSetString",
(WIDGET_TYPE, STRING),
(VALUE, REFERENCE));
--> extern void XmTextFieldReplace (Widget widget, XmTextPosition from_pos,
--> XmTextPosition to_pos, char *value);
procedure XMTEXTFIELDREPLACE (
WIDGET : in WIDGET_TYPE;
FROM_POS : in XMTEXTPOSITION_TYPE;
TO_POS : in XMTEXTPOSITION_TYPE;
VALUE : in STRING);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDREPLACE);
pragma IMPORT_PROCEDURE (XMTEXTFIELDREPLACE, "XmTextFieldReplace",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE, STRING),
(VALUE, VALUE, VALUE, REFERENCE));
--> extern void XmTextFieldInsert (Widget widget, XmTextPosition position,
--> char *value);
procedure XMTEXTFIELDINSERT (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE;
VALUE : in STRING);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDINSERT);
pragma IMPORT_PROCEDURE (XMTEXTFIELDINSERT, "XmTextFieldInsert",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, STRING),
(VALUE, VALUE, REFERENCE));
--> extern void XmTextFieldSetAddMode (Widget widget, Boolean state);
procedure XMTEXTFIELDSETADDMODE (
WIDGET : in WIDGET_TYPE;
STATE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETADDMODE);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETADDMODE, "XmTextFieldSetAddMode",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern Boolean XmTextFieldGetAddMode (Widget widget);
--> ENTRY XmTextFieldGetAddMode
--> PARAMETER (
--> Widget IN VALUE NAMED wid )
--> RETURNS Boolean NAMED result;
--> extern Boolean XmTextFieldGetEditable (Widget widget);
procedure XMTEXTFIELDGETEDITABLE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETEDITABLE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETEDITABLE,
"XmTextFieldGetEditable",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldSetEditable (Widget widget, Boolean editable);
procedure XMTEXTFIELDSETEDITABLE (
WIDGET : in WIDGET_TYPE;
EDITABLE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETEDITABLE);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETEDITABLE, "XmTextFieldSetEditable",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern int XmTextFieldGetMaxLength (Widget widget);
procedure XMTEXTFIELDGETMAXLENGTH (
RESULT : out INTEGER; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETMAXLENGTH);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETMAXLENGTH,
"XmTextFieldGetMaxLength",
(INTEGER, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldSetMaxLength (Widget widget, int max_length);
procedure XMTEXTFIELDSETMAXLENGTH (
WIDGET : in WIDGET_TYPE;
MAX_LENGTH : in INTEGER);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETMAXLENGTH);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETMAXLENGTH, "XmTextFieldSetMaxLength",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern XmTextPosition XmTextFieldGetCursorPosition (Widget widget);
procedure XMTEXTFIELDGETCURSORPOSITION (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETCURSORPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETCURSORPOSITION,
"XmTextFieldGetCursorPosition",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldSetCursorPosition (Widget widget,
--> XmTextPosition position);
procedure XMTEXTFIELDSETCURSORPOSITION (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETCURSORPOSITION);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETCURSORPOSITION,
"XmTextFieldSetCursorPosition",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern XmTextPosition XmTextFieldGetInsertionPosition (Widget widget);
procedure XMTEXTFIELDGETINSERTIONPOSITION (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETINSERTIONPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETINSERTIONPOSITION,
"XmTextFieldGetInsertionPosition",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldSetInsertionPosition (Widget widget,
--> XmTextPosition position);
procedure XMTEXTFIELDSETINSERTIONPOSITION (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETINSERTIONPOSITION);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETINSERTIONPOSITION,
"XmTextFieldSetInsertionPosition",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern Boolean XmTextFieldGetSelectionPosition (Widget widget,
--> XmTextPosition *left, XmTextPosition *right);
procedure XMTEXTFIELDGETSELECTIONPOSITION (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
LEFT : out XMTEXTPOSITION_TYPE;
RIGHT : out XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETSELECTIONPOSITION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETSELECTIONPOSITION,
"XmTextFieldGetSelectionPosition",
(BOOLEAN, WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern char *XmTextFieldGetSelection (Widget widget);
procedure XMTEXTFIELDGETSELECTION (
RESULT : out XTSTRING_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETSELECTION);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETSELECTION,
"XmTextFieldGetSelection",
(XTSTRING_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Boolean XmTextFieldRemove (Widget widget);
procedure XMTEXTFIELDREMOVE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDREMOVE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDREMOVE, "XmTextFieldRemove",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Boolean XmTextFieldCopy (Widget widget, Time clip_time);
procedure XMTEXTFIELDCOPY (
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDCOPY);
pragma IMPORT_PROCEDURE (XMTEXTFIELDCOPY, "XmTextFieldCopy",
(WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE));
--> extern Boolean XmTextFieldCut (Widget widget, Time clip_time);
procedure XMTEXTFIELDCUT (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDCUT);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDCUT, "XmTextFieldCut",
(BOOLEAN, WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE));
--> extern Boolean XmTextFieldPaste (Widget widget);
procedure XMTEXTFIELDPASTE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDPASTE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDPASTE, "XmTextFieldPaste",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldClearSelection (Widget widget, Time sel_time);
procedure XMTEXTFIELDCLEARSELECTION (
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDCLEARSELECTION);
pragma IMPORT_PROCEDURE (XMTEXTFIELDCLEARSELECTION,
"XmTextFieldClearSelection",
(WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldSetSelection (Widget widget, XmTextPosition first,
--> XmTextPosition last, Time sel_time);
procedure XMTEXTFIELDSETSELECTION (
WIDGET : in WIDGET_TYPE;
FIRST : in XMTEXTPOSITION_TYPE;
LAST : in XMTEXTPOSITION_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETSELECTION);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETSELECTION, "XmTextFieldSetSelection",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern XmTextPosition XmTextFieldXYToPos (Widget widget, Position x,
--> Position y);
procedure XMTEXTFIELDXYTOPOS (
RESULT : out XMTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
X : in POSITION_TYPE;
Y : in POSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDXYTOPOS);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDXYTOPOS, "XmTextFieldXYToPos",
(XMTEXTPOSITION_TYPE, WIDGET_TYPE, POSITION_TYPE, POSITION_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern Boolean XmTextFieldPosToXY (Widget widget, XmTextPosition position,
--> Position *x, Position *y);
procedure XMTEXTFIELDPOSTOXY (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE;
X : out POSITION_TYPE;
Y : out POSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDPOSTOXY);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDPOSTOXY, "XmTextFieldPosToXY",
(BOOLEAN, WIDGET_TYPE, XMTEXTPOSITION_TYPE, POSITION_TYPE,
POSITION_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void XmTextFieldShowPosition (Widget widget, XmTextPosition position);
procedure XMTEXTFIELDSHOWPOSITION (
WIDGET : in WIDGET_TYPE;
POSITION : in XMTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSHOWPOSITION);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSHOWPOSITION, "XmTextFieldShowPosition",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern void XmTextFieldSetHighlight (Widget widget, XmTextPosition left,
--> XmTextPosition right, XmHighlightMode mode);
procedure XMTEXTFIELDSETHIGHLIGHT (
WIDGET : in WIDGET_TYPE;
LEFT : in XMTEXTPOSITION_TYPE;
RIGHT : in XMTEXTPOSITION_TYPE;
MODE : in XMHIGHLIGHTMODE_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDSETHIGHLIGHT);
pragma IMPORT_PROCEDURE (XMTEXTFIELDSETHIGHLIGHT, "XmTextFieldSetHighlight",
(WIDGET_TYPE, XMTEXTPOSITION_TYPE, XMTEXTPOSITION_TYPE,
XMHIGHLIGHTMODE_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern int XmTextFieldGetBaseLine (Widget widget);
procedure XMTEXTFIELDGETBASELINE (
RESULT : out INTEGER; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTEXTFIELDGETBASELINE);
pragma IMPORT_VALUED_PROCEDURE (XMTEXTFIELDGETBASELINE,
"XmTextFieldGetBaseline",
(INTEGER, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget XmCreateTextField (Widget parent, char *name, ArgList arglist,
--> Cardinal argcount);
procedure XMCREATETEXTFIELD (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATETEXTFIELD);
pragma IMPORT_VALUED_PROCEDURE (XMCREATETEXTFIELD, "XmCreateTextField",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> #define XmIsTextField(w) XtIsSubclass(w, xmTextFieldWidgetClass)
-- OSF/Motif: @(#)ToggleB.h 3.5 90/07/18
--> externalref WidgetClass xmToggleButtonWidgetClass;
XMTOGGLEBUTTONWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMTOGGLEBUTTONWIDGETCLASS,"xmToggleButtonWidgetClass");
--> extern Boolean XmToggleButtonGetState (Widget w);
procedure XMTOGGLEBUTTONGETSTATE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTOGGLEBUTTONGETSTATE);
pragma IMPORT_VALUED_PROCEDURE (XMTOGGLEBUTTONGETSTATE,
"XmToggleButtonGetState",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmToggleButtonSetState (Widget w, Boolean newstate,
--> Boolean notify);
procedure XMTOGGLEBUTTONSETSTATE (
WIDGET : in WIDGET_TYPE;
STATE : in BOOLEAN;
NOTIFY : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMTOGGLEBUTTONSETSTATE);
pragma IMPORT_PROCEDURE (XMTOGGLEBUTTONSETSTATE, "XmToggleButtonSetState",
(WIDGET_TYPE, BOOLEAN, BOOLEAN),
(VALUE, VALUE, VALUE));
--> extern Widget XmCreateToggleButton (Widget parent, char *name, Arg *arglist,
int argCount);
procedure XMCREATETOGGLEBUTTON (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATETOGGLEBUTTON);
pragma IMPORT_VALUED_PROCEDURE (XMCREATETOGGLEBUTTON, "XmCreateToggleButton",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> typedef struct _XmToggleButtonClassRec *XmToggleButtonWidgetClass;
--> typedef struct _XmToggleButtonRec *XmToggleButtonWidget;
subtype XMTOGGLEBUTTONWIDGET_TYPE is ADDRESS;
--> #define XmIsToggleButton(w) XtIsSubclass(w, xmToggleButtonWidgetClass)
-- OSF/Motif: @(#)ToggleBG.h 3.6 90/07/18
--> externalref WidgetClass xmToggleButtonGadgetClass;
XMTOGGLEBUTTONGADGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (XMTOGGLEBUTTONGADGETCLASS,"xmToggleButtonGadgetClass");
--> extern Boolean XmToggleButtonGadgetGetState (Widget w);
procedure XMTOGGLEBUTTONGADGETGETSTATE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMTOGGLEBUTTONGADGETGETSTATE);
pragma IMPORT_VALUED_PROCEDURE (XMTOGGLEBUTTONGADGETGETSTATE,
"XmToggleButtonGadgetGetState",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void XmToggleButtonGadgetSetState (Widget w, Boolean newstate,
--> Boolean notify);
procedure XMTOGGLEBUTTONGADGETSETSTATE (
WIDGET : in WIDGET_TYPE;
STATE : in BOOLEAN;
NOTIFY : in BOOLEAN);
pragma INTERFACE (EXTERNAL, XMTOGGLEBUTTONGADGETSETSTATE);
pragma IMPORT_PROCEDURE (XMTOGGLEBUTTONGADGETSETSTATE,
"XmToggleButtonGadgetSetState",
(WIDGET_TYPE, BOOLEAN, BOOLEAN),
(VALUE, VALUE, VALUE));
--> extern Widget XmCreateToggleButtonGadget (Widget parent, char *name, Arg
*arglist, int argCount);
procedure XMCREATETOGGLEBUTTONGADGET (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, XMCREATETOGGLEBUTTONGADGET);
pragma IMPORT_VALUED_PROCEDURE (XMCREATETOGGLEBUTTONGADGET,
"XmCreateToggleButtonGadget",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> typedef struct _XmToggleButtonGadgetClassRec *XmToggleButtonGadgetClass;
--> typedef struct _XmToggleButtonGadgetRec *XmToggleButtonGadget;
subtype XMTOGGLEBUTTONGADGET_TYPE is ADDRESS;
--> typedef struct _XmToggleButtonGCacheObjRec *XmToggleButtonGCacheObject;
subtype XMTOGGLEBUTTONGCACHEOBJECT_TYPE is ADDRESS;
--> #define XmIsToggleButtonGadget(w) XtIsSubclass(w,
xmToggleButtonGadgetClass)
-- OSF/Motif: @(#)VendorE.h 3.6 90/06/29
-- DeleteResponse values
--> #define XmDESTROY 0
XMDESTROY : constant := 0;
--> #define XmUNMAP 1;
XMUNMAP : constant := 1;
--> #define XmDO_NOTHING 2
XMDO_NOTHING : constant := 2;
--> #define XmNdeleteResponse "deleteResponse"
XMNDELETERESPONSE : constant STRING := "deleteResponse"&ASCII.NUL;
--> #define XmCDeleteResponse "DeleteResponse"
XMCDELETERESPONSE : constant STRING := "DeleteResponse"&ASCII.NUL;
--> #define XmRDeleteResponse "DeleteResponse"
XMRDELETERESPONSE : constant STRING := "DeleteResponse"&ASCII.NUL;
--> #define XtNkeyboardFocusPolicy "keyboardFocusPolicy"
XTNKEYBOARDFOCUSPOLICY : constant STRING :=
"keyboardFocusPolicy"&ASCII.NUL;
--> #define XtCKeyboardFocusPolicy "KeyboardFocusPolicy"
XTCKEYBOARDFOCUSPOLICY : constant STRING :=
"KeyboardFocusPolicy"&ASCII.NUL;
--> #define XtRKeyboardFocusPolicy "KeyboardFocusPolicy"
XTRKEYBOARDFOCUSPOLICY : constant STRING :=
"KeyboardFocusPolicy"&ASCII.NUL;
--> #define XtNshellUnitType "shellUnitType"
XTNSHELLUNITTYPE : constant STRING := "shellUnitType"&ASCII.NUL;
--> #define XtCShellUnitType "ShellUnitType"
XTCSHELLUNITTYPE : constant STRING := "ShellUnitType"&ASCII.NUL;
--> #define XtRShellUnitType "ShellUnitType"
XTRSHELLUNITTYPE : constant STRING := "ShellUnitType"&ASCII.NUL;
--> #define XmRHorizontalInt "HorizontalInt"
XMRHORIZONTALINT : constant STRING := "HorizontalInt"&ASCII.NUL;
--> #define XmRVerticalInt "VerticalInt"
XMRVERTICALINT : constant STRING := "VerticalInt"&ASCII.NUL;
--> #define XmRShellHorizDim "ShellHorizDim"
XMRSHELLHORIZDIM : constant STRING := "ShellHorizDim"&ASCII.NUL;
--> #define XmRShellHorizPos "ShellHorizPos"
XMRSHELLHORIZPOS : constant STRING := "ShellHorizPos"&ASCII.NUL;
--> #define XmRShellVertDim "ShellVertDim"
XMRSHELLVERTDIM : constant STRING := "ShellVertDim"&ASCII.NUL;
--> #define XmRShellVertPos "ShellVertPos"
XMRSHELLVERTPOS : constant STRING := "ShellVertPos"&ASCII.NUL;
--> #define XmNkeyboardFocusPolicy "keyboardFocusPolicy"
XMNKEYBOARDFOCUSPOLICY : constant STRING :=
"keyboardFocusPolicy"&ASCII.NUL;
--> #define XmCKeyboardFocusPolicy "KeyboardFocusPolicy"
XMCKEYBOARDFOCUSPOLICY : constant STRING :=
"KeyboardFocusPolicy"&ASCII.NUL;
--> #define XmRKeyboardFocusPolicy "KeyboardFocusPolicy"
XMRKEYBOARDFOCUSPOLICY : constant STRING :=
"KeyboardFocusPolicy"&ASCII.NUL;
--> #define XmNfocusPolicyChanged "focusPolicyChanged"
XMNFOCUSPOLICYCHANGED : constant STRING :=
"focusPolicyChanged"&ASCII.NUL;
--> #define XmNshellUnitType "shellUnitType"
XMNSHELLUNITTYPE : constant STRING := "shellUnitType"&ASCII.NUL;
--> #define XmCShellUnitType "ShellUnitType"
XMCSHELLUNITTYPE : constant STRING := "ShellUnitType"&ASCII.NUL;
--> #define XmRShellUnitType "ShellUnitType"
XMRSHELLUNITTYPE : constant STRING := "ShellUnitType"&ASCII.NUL;
--> #define XmNmwmDecorations "mwmDecorations"
XMNMWMDECORATIONS : constant STRING := "mwmDecorations"&ASCII.NUL;
--> #define XmCMwmDecorations "MwmDecorations"
XMCMWMDECORATIONS : constant STRING := "MwmDecorations"&ASCII.NUL;
--> #define XmNmwmFunctions "mwmFunctions"
XMNMWMFUNCTIONS : constant STRING := "mwmFunctions"&ASCII.NUL;
--> #define XmCMwmFunctions "MwmFunctions"
XMCMWMFUNCTIONS : constant STRING := "MwmFunctions"&ASCII.NUL;
--> #define XmNmwmInputMode "mwmInputMode"
XMNMWMINPUTMODE : constant STRING := "mwmInputMode"&ASCII.NUL;
--> #define XmCMwmInputMode "MwmInputMode"
XMCMWMINPUTMODE : constant STRING := "MwmInputMode"&ASCII.NUL;
--> #define XmNmwmMenu "mwmMenu"
XMNMWMMENU : constant STRING := "mwmMenu"&ASCII.NUL;
--> #define XmCMwmMenu "MwmMenu"
XMCMWMMENU : constant STRING := "MwmMenu"&ASCII.NUL;
--> #define XmNmwmMessages "mwmMessages"
XMNMWMMESSAGES : constant STRING := "mwmMessages"&ASCII.NUL;
--> #define XmCMwmMessages "MwmMessages"
XMCMWMMESSAGES : constant STRING := "MwmMessages"&ASCII.NUL;
-- internal callback lists
--> #define XmNfocusMovedCallback "focusMovedCallback"
XMNFOCUSMOVEDCALLBACK : constant STRING :=
"focusMovedCallback"&ASCII.NUL;
--> #define XmNrealizeCallback "realizeCallback"
XMNREALIZECALLBACK : constant STRING := "realizeCallback"&ASCII.NUL;
--> #define XmNdesktopParent "desktopParent"
XMNDESKTOPPARENT : constant STRING := "desktopParent"&ASCII.NUL;
--> #define XmCDesktopParent "DesktopParent"
XMCDESKTOPPARENT : constant STRING := "DesktopParent"&ASCII.NUL;
--> #define XmNuseAsyncGeometry "useAsyncGeometry"
XMNUSEASYNCGEOMETRY : constant STRING :=
"useAsyncGeometry"&ASCII.NUL;
--> #define XmCUseAsyncGeometry "UseAsyncGeometry"
XMCUSEASYNCGEOMETRY : constant STRING :=
"UseAsyncGeometry"&ASCII.NUL;
--> #define XmIsDesktopObject(w) XtIsSubclass(w, xmDesktopObjectClass)
--> #define XmIsDisplayObject(w) XtIsSubclass(w, xmDisplayObjectClass)
--> #define XmIsScreenObject(w) XtIsSubclass(w, xmScreenObjectClass)
--> #define XmIsWorldObject(w) XtIsSubclass(w, xmWorldObjectClass)
--> #define XmIsShellExt(w) XtIsSubclass(w, xmShellExtObjectClass)
--> #define XmIsVendorShellExt(w) XtIsSubclass(w,
xmVendorShellExtObjectClass)
--> #define XmIsVendorShell(w) XtIsSubclass(w, vendorShellWidgetClass)
-- Class record constants
--> typedef struct _XmDesktopRec *XmDesktopObject;
subtype XMDESKTOPOBJECT_TYPE is ADDRESS;
--> typedef struct _XmDesktopClassRec *XmDesktopObjectClass;
--> externalref WidgetClass xmDesktopObjectClass;
--> ITEM xmDesktopObjectClass WidgetClass GLOBAL;
--> typedef struct _XmWorldRec *XmWorldObject;
subtype XMWORLDOBJECT_TYPE is ADDRESS;
--> typedef struct _XmWorldClassRec *XmWorldObjectClass;
--> externalref WidgetClass xmWorldObjectClass;
--> ITEM xmWorldObjectClass WidgetClass GLOBAL;
--> typedef struct _XmDisplayRec *XmDisplayObject;
subtype XMDISPLAYOBJECT_TYPE is ADDRESS;
--> typedef struct _XmDisplayClassRec *XmDisplayObjectClass;
--> externalref WidgetClass xmDisplayObjectClass;
--> ITEM xmDisplayObjectClass WidgetClass GLOBAL;
--> typedef struct _XmScreenRec *XmScreenObject;
subtype XMSCREENOBJECT_TYPE is ADDRESS;
--> typedef struct _XmScreenClassRec *XmScreenObjectClass;
--> externalref WidgetClass xmScreenObjectClass;
--> ITEM xmScreenObjectClass WidgetClass GLOBAL;
--> typedef struct _XmShellExtRec *XmShellExtObject;
subtype XMSHELLEXTOBJECT_TYPE is ADDRESS;
--> typedef struct _XmShellExtClassRec *XmShellExtObjectClass;
--> externalref WidgetClass xmShellExtObjectClass;
--> ITEM xmShellExtObjectClass WidgetClass GLOBAL;
--> typedef struct _XmVendorShellExtRec *XmVendorShellExtObject;
subtype XMVENDORSHELLEXTOBJECT_TYPE is ADDRESS;
--> typedef struct _XmVendorShellExtClassRec *XmVendorShellExtObjectClass;
--> externalref WidgetClass xmVendorShellExtObjectClass;
--> ITEM xmVendorShellExtObjectClass WidgetClass GLOBAL;
--> extern Boolean XmIsMotifWMRunning(Widget shell);
procedure XMISMOTIFWMRUNNING (
RESULT : out BOOLEAN; --
return value
SHELL : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, XMISMOTIFWMRUNNING);
pragma IMPORT_VALUED_PROCEDURE (XMISMOTIFWMRUNNING, "XmIsMotifWMRunning",
(BOOLEAN, WIDGET_TYPE),
(VALUE, VALUE));
-- OSF/Motif: @(#)VirtKeys.h 3.5 90/04/24
--> #define osfXK_BackSpace 0x1004FF08
OSFXK_BACKSPACE : constant := 268762888;
--> #define osfXK_Insert 0x1004FF63
OSFXK_INSERT : constant := 268762979;
--> #define osfXK_Delete 0x1004FFFF
OSFXK_DELETE : constant := 268763135;
--> #define osfXK_Copy 0x1004FF02
OSFXK_COPY : constant := 268762882;
--> #define osfXK_Cut 0x1004FF03
OSFXK_CUT : constant := 268762883;
--> #define osfXK_Paste 0x1004FF04
OSFXK_PASTE : constant := 268762884;
--> #define osfXK_AddMode 0x1004FF31
OSFXK_ADDMODE : constant := 268762929;
--> #define osfXK_PrimaryPaste 0x1004FF32
OSFXK_PRIMARYPASTE : constant := 268762930;
--> #define osfXK_QuickPaste 0x1004FF33
OSFXK_QUICKPASTE : constant := 268762931;
--> #define osfXK_PageUp 0x1004FF41
OSFXK_PAGEUP : constant := 268762945;
--> #define osfXK_PageDown 0x1004FF42
OSFXK_PAGEDOWN : constant := 268762946;
--> #define osfXK_EndLine 0x1004FF57
OSFXK_ENDLINE : constant := 268762967;
--> #define osfXK_BeginLine 0x1004FF58
OSFXK_BEGINLINE : constant := 268762968;
--> #define osfXK_Activate 0x1004FF44
OSFXK_ACTIVATE : constant := 268762948;
--> #define osfXK_MenuBar 0x1004FF45
OSFXK_MENUBAR : constant := 268762949;
--> #define osfXK_Clear 0x1004FF0B
OSFXK_CLEAR : constant := 268762891;
--> #define osfXK_Cancel 0x1004FF69
OSFXK_CANCEL : constant := 268762985;
--> #define osfXK_Help 0x1004FF6A
OSFXK_HELP : constant := 268762986;
--> #define osfXK_Menu 0x1004FF67
OSFXK_MENU : constant := 268762983;
--> #define osfXK_Select 0x1004FF60
OSFXK_SELECT : constant := 268762976;
--> #define osfXK_Undo 0x1004FF65
OSFXK_UNDO : constant := 268762981;
--> #define osfXK_Left 0x1004FF51
OSFXK_LEFT : constant := 268762961;
--> #define osfXK_Up 0x1004FF52
OSFXK_UP : constant := 268762962;
--> #define osfXK_Right 0x1004FF53
OSFXK_RIGHT : constant := 268762963;
--> #define osfXK_Down 0x1004FF54
OSFXK_DOWN : constant := 268762964;
--> #define XmVosfBackSpace "osfBackSpace"
XMVOSFBACKSPACE : constant STRING := "osfBackSpace"&ASCII.NUL;
--> #define XmVosfInsert "osfInsert"
XMVOSFINSERT : constant STRING := "osfInsert"&ASCII.NUL;
--> #define XmVosfDelete "osfDelete"
XMVOSFDELETE : constant STRING := "osfDelete"&ASCII.NUL;
--> #define XmVosfCopy "osfCopy"
XMVOSFCOPY : constant STRING := "osfCopy"&ASCII.NUL;
--> #define XmVosfCut "osfCut"
XMVOSFCUT : constant STRING := "osfCut"&ASCII.NUL;
--> #define XmVosfPaste "osfPaste"
XMVOSFPASTE : constant STRING := "osfPaste"&ASCII.NUL;
--> #define XmVosfAddMode "osfAddMode"
XMVOSFADDMODE : constant STRING := "osfAddMode"&ASCII.NUL;
--> #define XmVosfPrimaryPaste "osfPrimaryPaste"
XMVOSFPRIMARYPASTE : constant STRING := "osfPrimaryPaste"&ASCII.NUL;
--> #define XmVosfQuickPaste "osfQuickPaste"
XMVOSFQUICKPASTE : constant STRING := "osfQuickPaste"&ASCII.NUL;
--> #define XmVosfPageUp "osfPageUp"
XMVOSFPAGEUP : constant STRING := "osfPageUp"&ASCII.NUL;
--> #define XmVosfPageDown "osfPageDown"
XMVOSFPAGEDOWN : constant STRING := "osfPageDown"&ASCII.NUL;
--> #define XmVosfEndLine "osfEndLine"
XMVOSFENDLINE : constant STRING := "osfEndLine"&ASCII.NUL;
--> #define XmVosfBeginLine "osfBeginLine"
XMVOSFBEGINLINE : constant STRING := "osfBeginLine"&ASCII.NUL;
--> #define XmVosfActivate "osfActivate"
XMVOSFACTIVATE : constant STRING := "osfActivate"&ASCII.NUL;
--> #define XmVosfMenuBar "osfMenuBar"
XMVOSFMENUBAR : constant STRING := "osfMenuBar"&ASCII.NUL;
--> #define XmVosfClear "osfClear"
XMVOSFCLEAR : constant STRING := "osfClear"&ASCII.NUL;
--> #define XmVosfCancel "osfCancel"
XMVOSFCANCEL : constant STRING := "osfCancel"&ASCII.NUL;
--> #define XmVosfHelp "osfHelp"
XMVOSFHELP : constant STRING := "osfHelp"&ASCII.NUL;
--> #define XmVosfMenu "osfMenu"
XMVOSFMENU : constant STRING := "osfMenu"&ASCII.NUL;
--> #define XmVosfSelect "osfSelect"
XMVOSFSELECT : constant STRING := "osfSelect"&ASCII.NUL;
--> #define XmVosfUndo "osfUndo"
XMVOSFUNDO : constant STRING := "osfUndo"&ASCII.NUL;
--> #define XmVosfLeft "osfLeft"
XMVOSFLEFT : constant STRING := "osfLeft"&ASCII.NUL;
--> #define XmVosfUp "osfUp"
XMVOSFUP : constant STRING := "osfUp"&ASCII.NUL;
--> #define XmVosfRight "osfRight"
XMVOSFRIGHT : constant STRING := "osfRight"&ASCII.NUL;
--> #define XmVosfDown "osfDown"
XMVOSFDOWN : constant STRING := "osfDown"&ASCII.NUL;
--> extern void _XmVirtKeysInitialize (Widget shell);
--> ENTRY _XmVirtKeysInitialize
--> PARAMETER (
--> Widget IN VALUE NAMED shell )
--> RETURNS VOID;
--> Undocumented
-- MrmPublic.h
--
-- Success or other non-error return codes
--
--> #define MrmSUCCESS 1
MRMSUCCESS : constant := 1;
--> #define MrmCREATE_NEW 3
MRMCREATE_NEW : constant := 3;
--> #define MrmINDEX_RETRY 5 /* Retry on entering index required */
MRMINDEX_RETRY : constant := 5;
--> #define MrmINDEX_GT 7 /* Index orders greater-than entry */
MRMINDEX_GT : constant := 7;
--> #define MrmINDEX_LT 9 /* Index orders less-than entry */
MRMINDEX_LT : constant := 9;
--> #define MrmPARTIAL_SUCCESS 11 /* operation partly succeeded */
MRMPARTIAL_SUCCESS : constant := 11;
--
-- Failure return codes
--
--> #define MrmFAILURE 0
MRMFAILURE : constant := 0;
--> #define MrmNOT_FOUND 2
MRMNOT_FOUND : constant := 2;
--> #define MrmEXISTS 4
MRMEXISTS : constant := 4;
--> #define MrmNUL_GROUP 6
MRMNUL_GROUP : constant := 6;
--> #define MrmNUL_TYPE 8
MRMNUL_TYPE : constant := 8;
--> #define MrmWRONG_GROUP 10
MRMWRONG_GROUP : constant := 10;
--> #define MrmWRONG_TYPE 12
MRMWRONG_TYPE : constant := 12;
--> #define MrmOUT_OF_RANGE 14 /* Record number too big */
MRMOUT_OF_RANGE : constant := 14;
--> #define MrmBAD_RECORD 16 /* Record number wrong type */
MRMBAD_RECORD : constant := 16;
--> #define MrmNULL_DATA 18 /* No data for entry */
MRMNULL_DATA : constant := 18;
--> #define MrmBAD_DATA_INDEX 20 /* Data index in RID out of
range */
MRMBAD_DATA_INDEX : constant := 20;
--> #define MrmBAD_ORDER 22 /* Bad ordering specifier */
MRMBAD_ORDER : constant := 22;
--> #define MrmBAD_CONTEXT 24 /* Invalid Mrm context */
MRMBAD_CONTEXT : constant := 24;
--> #define MrmNOT_VALID 26 /* Validation failure */
MRMNOT_VALID : constant := 26;
--> #define MrmBAD_BTREE 28 /* GT/LT pointer error in BTree */
MRMBAD_BTREE : constant := 28;
--> #define MrmBAD_WIDGET_REC 30 /* Validation failure on widget
record */
MRMBAD_WIDGET_REC : constant := 30;
--> #define MrmBAD_CLASS_TYPE 32 /* Class type not a valid
Mrmwc... value */
MRMBAD_CLASS_TYPE : constant := 32;
--> #define MrmNO_CLASS_NAME 34 /* User class name is null */
MRMNO_CLASS_NAME : constant := 34;
--> #define MrmTOO_MANY 36 /* Too many entries requested in some
list */
MRMTOO_MANY : constant := 36;
--> #define MrmBAD_IF_MODULE 38 /* invalid interface module */
MRMBAD_IF_MODULE : constant := 38;
--> #define MrmNULL_DESC 40 /* Arglist or children descriptor null */
MRMNULL_DESC : constant := 40;
--> #define MrmOUT_OF_BOUNDS 42 /* Argument index out of arglist
bounds */
MRMOUT_OF_BOUNDS : constant := 42;
--> #define MrmBAD_COMPRESS 44 /* Invalid compression code */
MRMBAD_COMPRESS : constant := 44;
--> #define MrmBAD_ARG_TYPE 46 /* Invalid type, not in RGMrType... */
MRMBAD_ARG_TYPE : constant := 46;
--> #define MrmNOT_IMP 48 /* Not yet implemented */
MRMNOT_IMP : constant := 48;
--> #define MrmNULL_INDEX 50 /* empty index string */
MRMNULL_INDEX : constant := 50;
--> #define MrmBAD_KEY_TYPE 52 /* key must be MrmrIndex or MrmrRID */
MRMBAD_KEY_TYPE : constant := 52;
--> #define MrmBAD_CALLBACK 54 /* Invalid callback descriptor */
MRMBAD_CALLBACK : constant := 54;
--> #define MrmNULL_ROUTINE 56 /* Empty callback routine name string */
MRMNULL_ROUTINE : constant := 56;
--> #define MrmVEC_TOO_BIG 58 /* too many elements in vector */
MRMVEC_TOO_BIG : constant := 58;
--> #define MrmBAD_HIERARCHY 60 /* invalid Mrm file hierarchy */
MRMBAD_HIERARCHY : constant := 60;
--> #define MrmBAD_CLASS_CODE 62 /* Class code not found in
Mrmwc... */
MRMBAD_CLASS_CODE : constant := 62;
--> #define MrmDISPLAY_NOT_OPENED 63 /* Display not yet created */
MRMDISPLAY_NOT_OPENED : constant := 63;
--
-- Definitions associated with widget representations
--
--
-- Define the creation callback
--
--> #define MrmNcreateCallback "createCallback"
MRMNCREATECALLBACK : constant STRING := "createCallback"&ASCII.NUL;
--
-- Code for unknown (user-defined) classes.
--
--> #define MrmwcUnknown 1
MRMWCUNKNOWN : constant := 1;
--
-- The data types of values stored in uid files.
--
--> #define MrmRtypeMin 1
MRMRTYPEMIN : constant := 1;
--> #define MrmRtypeInteger 1 /* int */
MRMRTYPEINTEGER : constant := 1;
--> #define MrmRtypeBoolean 2
MRMRTYPEBOOLEAN : constant := 2;
--> #define MrmRtypeChar8 3 /* a nul-terminated string */
MRMRTYPECHAR8 : constant := 3;
--> #define MrmRtypeChar8Vector 4 /* a vector of char_8 strings */
MRMRTYPECHAR8VECTOR : constant := 4;
--> #define MrmRtypeCString 5 /* a compound string (DDIS) */
MRMRTYPECSTRING : constant := 5;
--> #define MrmRtypeCStringVector 6 /* a vector of compound strings
*/
MRMRTYPECSTRINGVECTOR : constant := 6;
--> #define MrmRtypeFloat 7
MRMRTYPEFLOAT : constant := 7;
--> #define MrmRtypeCallback 9 /* code for a callback
descriptor */
MRMRTYPECALLBACK : constant := 9;
--> #define MrmRtypePixmapImage 10 /* Pixmap in image form */
MRMRTYPEPIXMAPIMAGE : constant := 10;
--> #define MrmRtypePixmapDDIF 11 /* Pixmap in DDIF form */
MRMRTYPEPIXMAPDDIF : constant := 11;
--> #define MrmRtypeResource 12 /* Mrm resource descriptor */
MRMRTYPERESOURCE : constant := 12;
--> #define MrmRtypeNull 13 /* no value given */
MRMRTYPENULL : constant := 13;
--> #define MrmRtypeAddrName 14 /* nul-terminated string to be
interpreted as runtime address */
MRMRTYPEADDRNAME : constant := 14;
--> #define MrmRtypeIconImage 15 /* icon image */
MRMRTYPEICONIMAGE : constant := 15;
--> #define MrmRtypeFont 16 /* Mrm font structure */
MRMRTYPEFONT : constant := 16;
--> #define MrmRtypeFontList 17 /* Mrm font list */
MRMRTYPEFONTLIST : constant := 17;
--> #define MrmRtypeColor 18 /* Mrm color descriptor */
MRMRTYPECOLOR : constant := 18;
--> #define MrmRtypeColorTable 19 /* Mrm color table */
MRMRTYPECOLORTABLE : constant := 19;
--> #define MrmRtypeAny 20 /* Any is allowed in UID file */
MRMRTYPEANY : constant := 20;
--> #define MrmRtypeTransTable 21 /* Translation table (ASCIZ string) */
MRMRTYPETRANSTABLE : constant := 21;
--> #define MrmRtypeClassRecName 22 /* class record name (ASCIZ
string) */
MRMRTYPECLASSRECNAME : constant := 22;
--> #define MrmRtypeIntegerVector 23 /* a vector of integers */
MRMRTYPEINTEGERVECTOR : constant := 23;
--> #define MrmRtypeXBitmapFile 24 /* X bitmap file to make pixmap with */
MRMRTYPEXBITMAPFILE : constant := 24;
--> #define MrmRtypeCountedVector 25 /* vector with associated count
*/
MRMRTYPECOUNTEDVECTOR : constant := 25;
--> #define MrmRtypeKeysym 26 /* X keysym data type */
MRMRTYPEKEYSYM : constant := 26;
--> #define MrmRtypeSingleFloat 27 /* single float data type */
MRMRTYPESINGLEFLOAT : constant := 27;
--> #define MrmRtypeMax 27
MRMRTYPEMAX : constant := 27;
--
-- MRM typedefs
--
--
-- MRM primitive types
--
--> typedef short int MrmCode ; /* Used for codes, e.g. Mrmcr...
*/
subtype MRMCODE_TYPE is SHORT_INTEGER;
--> typedef char MrmSCode ; /* Short code for small ranges */
subtype MRMSCODE_TYPE is SHORT_SHORT_INTEGER;
--> typedef unsigned short int MrmOffset ; /* Used for offsets in
records */
subtype MRMOFFSET_TYPE is UNSIGNED_WORD;
--> typedef short int MrmType ; /* Used for types, e.g.
MrmrType... */
subtype MRMTYPE_TYPE is SHORT_INTEGER;
--> typedef unsigned short int MrmSize ; /* For size fields */
subtype MRMSIZE_TYPE is UNSIGNED_WORD;
--> typedef short int MrmCount ; /* For counter fields */
subtype MRMCOUNT_TYPE is SHORT_INTEGER;
--> typedef unsigned char MrmFlag ; /* flag fields */
subtype MRMFLAG_TYPE is UNSIGNED_BYTE;
--> typedef long int MrmResource_id ; /* Resource id in IDB
files */
subtype MRMRESOURCE_ID_TYPE is INTEGER;
--> typedef short int MrmGroup ; /* For Mrm resource groups */
subtype MRMGROUP_TYPE is SHORT_INTEGER;
--> #define MrmMaxResourceSize 65535 /* (2)16 - 1 */
MRMMAXRESOURCESIZE : constant := 65535;
--
-- Operating System specific parameter struct. Passed to low level
-- file OPEN.
--
--> #define MrmOsOpenParamVersion 1
MRMOSOPENPARAMVERSION : constant := 1;
--> typedef struct {
--> /*
--> * The version of this structure. Set to MrmOsOpenParamVersion
--> */
--> Cardinal version;
--> /*
--> * The default name, for systems which can use it
--> */
--> char *default_fname;
--> /*
--> * The related name, for systems which can use it
--> * Flag for file clobber (1 means OK to clobber)
--> */
--> union {
--> unsigned long related_nam;
--> Boolean clobber_flg;
--> } nam_flg;
-->
--> /*
--> * The display, for which the user wants us to open
--> * this hierarchy on. Used for the LANG variable.
--> */
--> Display *display;
-->
--> } MrmOsOpenParam, *MrmOsOpenParamPtr ;
type MRMOSOPENPARAM_TYPE is
record
VERSION : CARDINAL_TYPE;
DEFAULT_FNAME : XTSTRING_TYPE;
RELATED_NAM : UNSIGNED_LONGWORD;
----Component(s) below are defined as comments since they
----overlap other fields
----
----CLOBBER_FLG : BOOLEAN;
DISPLAY : ADDRESS;
end record;
for MRMOSOPENPARAM_TYPE use
record
VERSION at 0 range 0 .. 31;
DEFAULT_FNAME at 4 range 0 .. 31;
RELATED_NAM at 8 range 0 .. 31;
----Component representation spec(s) below are defined as
----comments since they overlap other fields
----
----CLOBBER_FLG at 8 range 0 .. 7;
DISPLAY at 12 range 0 .. 31;
end record;
for MRMOSOPENPARAM_TYPE'SIZE use 128;
MRMOSOPENPARAM_TYPE_INIT : constant MRMOSOPENPARAM_TYPE :=
(VERSION => 0,
DEFAULT_FNAME => ADDRESS_ZERO,
RELATED_NAM => 0,
DISPLAY => ADDRESS_ZERO);
subtype MRMOSOPENPARAMPTR_TYPE is ADDRESS;
--
-- The opaque result of opening a Mrm hierarchy.
--
--> typedef struct MrmHierarchyDescStruct *MrmHierarchy;
subtype MRMHIERARCHY_TYPE is ADDRESS;
--
-- Structure used to pass name/value pairs to MrmRegisterNames
--
--> typedef struct {
--> String name ; /* case-sensitive name */
--> caddr_t value ; /* value/address associated with name */
--> } MRMRegisterArg, MrmRegisterArg, *MrmRegisterArglist ;
type MRMREGISTERARG_TYPE is
record
NAME : ADDRESS;
VALUE : XTPOINTER_TYPE;
end record;
for MRMREGISTERARG_TYPE use
record
NAME at 0 range 0 .. 31;
VALUE at 4 range 0 .. 31;
end record;
for MRMREGISTERARG_TYPE'SIZE use 64;
MRMREGISTERARG_TYPE_INIT : constant MRMREGISTERARG_TYPE :=
(NAME => ADDRESS_ZERO,
VALUE => ADDRESS_ZERO);
subtype MRMREGISTERARGLIST_TYPE is ADDRESS;
type MrmRegisterArg_TYPE_ARRAY is array (NATURAL range <>) of
MrmRegisterArg_TYPE;
--
-- Code for unknown (user-defined) classes.
--
--> #define URMwcUnknown 1
URMWCUNKNOWN : constant := 1;
-- End of MrmPublic.h
-- MrmDecls.h
------------------------------------
-- URM external routines (Motif)
------------------------------------
-- mrminit.c
--> extern void MrmInitialize _ARGUMENTS(( void ));
procedure MRMINITIALIZE;
pragma INTERFACE (EXTERNAL, MRMINITIALIZE);
pragma IMPORT_PROCEDURE (MRMINITIALIZE, "MrmInitialize");
-- mrmlread.c
--> extern Cardinal MrmFetchLiteral _ARGUMENTS(( MrmHierarchy hierarchy_id ,
--> String index , Display *display , caddr_t *value_return ,
--> MrmCode *type_return ));
procedure MRMFETCHLITERAL (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
INDEX : in STRING;
DISPLAY : in DISPLAY_TYPE;
VALUE : out XTPOINTER_TYPE;
TYP : out MRMCODE_TYPE);
pragma INTERFACE (EXTERNAL, MRMFETCHLITERAL);
pragma IMPORT_VALUED_PROCEDURE (MRMFETCHLITERAL, "MrmFetchLiteral",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, STRING, DISPLAY_TYPE, XTPOINTER_TYPE,
MRMCODE_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE));
--> extern Cardinal MrmFetchIconLiteral _ARGUMENTS(( MrmHierarchy hierarchy_id,
--> String index , Screen *screen , Display *display , Pixel fgpix ,
--> Pixel bgpix , Pixmap *pixmap_return ));
procedure MRMFETCHICONLITERAL (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
INDEX : in STRING;
SCREEN : in SCREEN_TYPE;
DISPLAY : in DISPLAY_TYPE;
FGPIX : in PIXEL_TYPE;
BGPIX : in PIXEL_TYPE;
PIXMAP : out PIXMAP_TYPE);
pragma INTERFACE (EXTERNAL, MRMFETCHICONLITERAL);
pragma IMPORT_VALUED_PROCEDURE (MRMFETCHICONLITERAL, "MrmFetchIconLiteral",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, STRING, SCREEN_TYPE, DISPLAY_TYPE,
PIXEL_TYPE, PIXEL_TYPE, PIXMAP_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE));
--> extern Cardinal MrmFetchColorLiteral _ARGUMENTS(( MrmHierarchy hierarchy_id
--> , String index , Display *display , Colormap cmap , Pixel *pixel_return ));
procedure MRMFETCHCOLORLITERAL (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
INDEX : in STRING;
DISPLAY : in DISPLAY_TYPE;
COLORMAP_ID : in COLORMAP_TYPE;
PIXEL : out PIXEL_TYPE);
pragma INTERFACE (EXTERNAL, MRMFETCHCOLORLITERAL);
pragma IMPORT_VALUED_PROCEDURE (MRMFETCHCOLORLITERAL, "MrmFetchColorLiteral",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, STRING, DISPLAY_TYPE, COLORMAP_TYPE,
PIXEL_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE));
-- mrmappl.c
--> extern Cardinal MrmOpenHierarchy _ARGUMENTS(( MrmCount num_files ,
--> String *name_list , MrmOsOpenParamPtr *os_ext_list ,
--> MrmHierarchy *hierarchy_id_return ));
procedure MRMOPENHIERARCHY (
RESULT : out CARDINAL_TYPE; --
return value
NUM_FILES : in MRMCOUNT_TYPE;
FILE_NAMES_LIST : in ADDRESS_ARRAY;
ANCILLARY_STRUCTURES_LIST : in ADDRESS_ARRAY;
HIERARCHY_ID_RETURN : out MRMHIERARCHY_TYPE);
pragma INTERFACE (EXTERNAL, MRMOPENHIERARCHY);
pragma IMPORT_VALUED_PROCEDURE (MRMOPENHIERARCHY, "MrmOpenHierarchy",
(CARDINAL_TYPE, MRMCOUNT_TYPE, ADDRESS_ARRAY, ADDRESS_ARRAY,
MRMHIERARCHY_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE));
--> extern Cardinal MrmCloseHierarchy _ARGUMENTS(( MrmHierarchy hierarchy_id ));
procedure MRMCLOSEHIERARCHY (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE);
pragma INTERFACE (EXTERNAL, MRMCLOSEHIERARCHY);
pragma IMPORT_VALUED_PROCEDURE (MRMCLOSEHIERARCHY, "MrmCloseHierarchy",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE),
(VALUE, VALUE));
--> extern Cardinal MrmRegisterNames _ARGUMENTS(( MrmRegisterArglist reglist ,
--> MrmCount num_reg ));
procedure MRMREGISTERNAMES (
RESULT : out CARDINAL_TYPE; --
return value
REGISTER_LIST : in MRMREGISTERARG_TYPE_ARRAY;
REGISTER_COUNT : in MRMCOUNT_TYPE);
pragma INTERFACE (EXTERNAL, MRMREGISTERNAMES);
pragma IMPORT_VALUED_PROCEDURE (MRMREGISTERNAMES, "MrmRegisterNames",
(CARDINAL_TYPE, MRMREGISTERARG_TYPE_ARRAY, MRMCOUNT_TYPE),
(VALUE, REFERENCE, VALUE));
--> extern Cardinal MrmRegisterNamesInHierarchy _ARGUMENTS((
--> MrmHierarchy hierarchy_id , MrmRegisterArglist reglist , MrmCount num_reg ));
procedure MRMREGISTERNAMESINHIERARCHY (
STATUS : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
REGISTER_LIST : in MRMREGISTERARG_TYPE_ARRAY;
REGISTER_COUNT : in MRMCOUNT_TYPE);
pragma INTERFACE (EXTERNAL, MRMREGISTERNAMESINHIERARCHY);
pragma IMPORT_VALUED_PROCEDURE (MRMREGISTERNAMESINHIERARCHY,
"MrmRegisterNamesInHierarchy",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, MRMREGISTERARG_TYPE_ARRAY,
MRMCOUNT_TYPE),
(VALUE, VALUE, REFERENCE, VALUE));
--> extern Cardinal MrmFetchInterfaceModule _ARGUMENTS(( MrmHierarchy
--> hierarchy_id , char *module_name , Widget parent , Widget *w_return ));
procedure MRMFETCHINTERFACEMODULE (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
MODULE_NAME : in STRING;
PARENT : in WIDGET_TYPE;
W_RETURN : out WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, MRMFETCHINTERFACEMODULE);
pragma IMPORT_VALUED_PROCEDURE (MRMFETCHINTERFACEMODULE,
"MrmFetchInterfaceModule",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, STRING, WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, REFERENCE));
--> extern Cardinal MrmFetchWidget _ARGUMENTS(( MrmHierarchy hierarchy_id ,
--> String index , Widget parent , Widget *w_return , MrmType *class_return ));
procedure MRMFETCHWIDGET (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
INDEX : in STRING;
PARENT_WIDGET : in WIDGET_TYPE;
WIDGET : out WIDGET_TYPE;
CLASS : out MRMTYPE_TYPE);
pragma INTERFACE (EXTERNAL, MRMFETCHWIDGET);
pragma IMPORT_VALUED_PROCEDURE (MRMFETCHWIDGET, "MrmFetchWidget",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, STRING, WIDGET_TYPE, WIDGET_TYPE,
MRMTYPE_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE));
--> extern Cardinal MrmFetchWidgetOverride _ARGUMENTS((
--> MrmHierarchy hierarchy_id , String index , Widget parent , String ov_name ,
--> ArgList ov_args , Cardinal ov_num_args , Widget *w_return ,
--> MrmType *class_return ));
procedure MRMFETCHWIDGETOVERRIDE (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
INDEX : in STRING;
PARENT_WIDGET : in WIDGET_TYPE;
OVERRIDE_NAME : in STRING;
OVERRIDE_ARGS : in ARG_TYPE_ARRAY;
OVERRIDE_NUM_ARGS : in CARDINAL_TYPE;
WIDGET : out WIDGET_TYPE;
CLASS : out MRMTYPE_TYPE);
pragma INTERFACE (EXTERNAL, MRMFETCHWIDGETOVERRIDE);
pragma IMPORT_VALUED_PROCEDURE (MRMFETCHWIDGETOVERRIDE,
"MrmFetchWidgetOverride",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, STRING, WIDGET_TYPE, STRING,
ARG_TYPE_ARRAY, CARDINAL_TYPE, WIDGET_TYPE,
MRMTYPE_TYPE),
(VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE,
REFERENCE));
--> extern Cardinal MrmFetchSetValues _ARGUMENTS(( MrmHierarchy hierarchy_id ,
--> Widget w , ArgList args , Cardinal num_args ));
procedure MRMFETCHSETVALUES (
RESULT : out CARDINAL_TYPE; --
return value
HIERARCHY_ID : in MRMHIERARCHY_TYPE;
WIDGET : in WIDGET_TYPE;
ARGS : in ARG_TYPE_ARRAY;
NUM_ARGS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, MRMFETCHSETVALUES);
pragma IMPORT_VALUED_PROCEDURE (MRMFETCHSETVALUES, "MrmFetchSetValues",
(CARDINAL_TYPE, MRMHIERARCHY_TYPE, WIDGET_TYPE, ARG_TYPE_ARRAY,
CARDINAL_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, VALUE));
-- mrmwci.c
--> extern Cardinal MrmRegisterClass _ARGUMENTS(( MrmType class_code ,
--> String class_name , String create_name , Widget (*creator )(),
--> WidgetClass class_record ));
procedure MRMREGISTERCLASS (
RESULT : out CARDINAL_TYPE; --
return value
CLASS_CODE : in MRMTYPE_TYPE;
CLASS_NAME : in STRING;
CREATE_NAME : in STRING;
CREATE_PROC : in ADDRESS;
CLASS_RECORD : in WIDGETCLASS_TYPE);
pragma INTERFACE (EXTERNAL, MRMREGISTERCLASS);
pragma IMPORT_VALUED_PROCEDURE (MRMREGISTERCLASS, "MrmRegisterClass",
(CARDINAL_TYPE, MRMTYPE_TYPE, STRING, STRING, ADDRESS, WIDGETCLASS_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE));
-- End of MrmDecls.h
--> END_MODULE XMINCLUDES;
-- DXmCSText.h
-- Class record constants
--> externalref WidgetClass dxmCSTextWidgetClass;
DXMCSTEXTWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (DXMCSTEXTWIDGETCLASS,"dxmCSTextWidgetClass");
--> typedef struct _DXmCSTextClassRec *DXmCSTextWidgetClass;
--> typedef struct _DXmCSTextRec *DXmCSTextWidget;
subtype DXMCSTEXTWIDGET_TYPE is ADDRESS;
--> typedef enum {I_STR_EditDone, I_STR_EditError} DXmCSTextStatus;
subtype DXMCSTEXTSTATUS_TYPE is UNSIGNED_LONGWORD;
I_STR_EDITDONE : constant := 0;
I_STR_EDITERROR : constant := 1;
--> typedef long DXmCSTextPosition;
subtype DXMCSTEXTPOSITION_TYPE is INTEGER;
--> extern Widget DXmCreateCSText();
procedure DXMCREATECSTEXT (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATECSTEXT);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATECSTEXT, "DXmCreateCSText",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget DXmCreateScrolledCSText();
procedure DXMCREATESCROLLEDCSTEXT (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATESCROLLEDCSTEXT);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATESCROLLEDCSTEXT,
"DXmCreateScrolledCSText",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern XmString DXmCSTextGetString();
procedure DXMCSTEXTGETSTRING (
RESULT : out XMSTRING_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETSTRING);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETSTRING, "DXmCSTextGetString",
(XMSTRING_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern DXmCSTextPosition DXmCSTextGetLastPosition();
procedure DXMCSTEXTGETLASTPOSITION (
RESULT : out DXMCSTEXTPOSITION_TYPE; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETLASTPOSITION);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETLASTPOSITION,
"DXmCSTextGetLastPosition",
(DXMCSTEXTPOSITION_TYPE, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmCSTextSetString();
procedure DXMCSTEXTSETSTRING (
WIDGET : in WIDGET_TYPE;
VALUE : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETSTRING);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETSTRING, "DXmCSTextSetString",
(WIDGET_TYPE, XMSTRING_TYPE),
(VALUE, VALUE));
--> extern DXmCSTextStatus DXmCSTextReplace();
procedure DXMCSTEXTREPLACE (
RESULT : out DXMCSTEXTSTATUS_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
FROMPOS : in DXMCSTEXTPOSITION_TYPE;
TOPOS : in DXMCSTEXTPOSITION_TYPE;
VALUE : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTREPLACE);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTREPLACE, "DXmCSTextReplace",
(DXMCSTEXTSTATUS_TYPE, WIDGET_TYPE, DXMCSTEXTPOSITION_TYPE,
DXMCSTEXTPOSITION_TYPE, XMSTRING_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern DXmCSTextStatus DXmCSTextInsert();
procedure DXMCSTEXTINSERT (
RESULT : out DXMCSTEXTSTATUS_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
POS : in DXMCSTEXTPOSITION_TYPE;
VALUE : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTINSERT);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTINSERT, "DXmCSTextInsert",
(DXMCSTEXTSTATUS_TYPE, WIDGET_TYPE, DXMCSTEXTPOSITION_TYPE,
XMSTRING_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern DXmCSTextStatus DXmCSTextInsertChar();
--> ENTRY DXmCSTextInsertChar
--> PARAMETER (
--> Widget IN VALUE NAMED widget,
--> DXmCSTextPosition IN VALUE NAMED pos,
--> XmString IN VALUE NAMED value )
--> RETURNS DXmCSTextStatus NAMED result;
--> Obsolete
--> extern void DXmCSTextRead();
procedure DXMCSTEXTREAD (
WIDGET : in WIDGET_TYPE;
FROMPOS : in DXMCSTEXTPOSITION_TYPE;
TOPOS : in DXMCSTEXTPOSITION_TYPE;
VALUE : out XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTREAD);
pragma IMPORT_PROCEDURE (DXMCSTEXTREAD, "DXmCSTextRead",
(WIDGET_TYPE, DXMCSTEXTPOSITION_TYPE, DXMCSTEXTPOSITION_TYPE,
XMSTRING_TYPE),
(VALUE, VALUE, VALUE, REFERENCE));
--> extern Boolean DXmCSTextGetEditable();
procedure DXMCSTEXTGETEDITABLE (
RESULT : out BOOLEAN; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETEDITABLE);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETEDITABLE, "DXmCSTextGetEditable",
(BOOLEAN, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmCSTextSetEditable();
procedure DXMCSTEXTSETEDITABLE (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
EDITABLE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETEDITABLE);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETEDITABLE, "DXmCSTextSetEditable",
(DXMCSTEXTWIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern int DXmCSTextGetMaxLength();
procedure DXMCSTEXTGETMAXLENGTH (
RESULT : out INTEGER; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETMAXLENGTH);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETMAXLENGTH,
"DXmCSTextGetMaxLength",
(INTEGER, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmCSTextSetMaxLength();
procedure DXMCSTEXTSETMAXLENGTH (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
MAX : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETMAXLENGTH);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETMAXLENGTH, "DXmCSTextSetMaxLength",
(DXMCSTEXTWIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern XmString DXmCSTextGetSelection();
procedure DXMCSTEXTGETSELECTION (
RESULT : out XMSTRING_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETSELECTION);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETSELECTION,
"DXmCSTextGetSelection",
(XMSTRING_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmCSTextSetSelection();
procedure DXMCSTEXTSETSELECTION (
WIDGET : in WIDGET_TYPE;
FIRST : in INTEGER;
LAST : in INTEGER;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETSELECTION);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETSELECTION, "DXmCSTextSetSelection",
(WIDGET_TYPE, INTEGER, INTEGER, TIME_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> extern void DXmCSTextClearSelection();
procedure DXMCSTEXTCLEARSELECTION (
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTCLEARSELECTION);
pragma IMPORT_PROCEDURE (DXMCSTEXTCLEARSELECTION, "DXmCSTextClearSelection",
(WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE));
--> extern DXmCSTextPosition DXmCSTextGetInsertionPosition();
procedure DXMCSTEXTGETINSERTIONPOSITION (
RESULT : out DXMCSTEXTPOSITION_TYPE; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETINSERTIONPOSITION);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETINSERTIONPOSITION,
"DXmCSTextGetInsertionPosition",
(DXMCSTEXTPOSITION_TYPE, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmCSTextSetInsertionPosition();
procedure DXMCSTEXTSETINSERTIONPOSITION (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
POSITION : in DXMCSTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETINSERTIONPOSITION);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETINSERTIONPOSITION,
"DXmCSTextSetInsertionPosition",
(DXMCSTEXTWIDGET_TYPE, DXMCSTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern DXmCSTextPosition DXmCSTextGetCursorPosition();
--> ENTRY DXmCSTextGetCursorPosition
--> PARAMETER (
--> DXmCSTextWidget IN VALUE NAMED widget )
--> RETURNS DXmCSTextPosition NAMED result;
--> Obsolete
--> extern void DXmCSTextSetCursorPosition();
--> ENTRY DXmCSTextSetCursorPosition
--> PARAMETER (
--> DXmCSTextWidget IN VALUE NAMED widget,
--> DXmCSTextPosition IN VALUE NAMED position )
--> RETURNS VOID;
--> Obsolete
--> extern void DXmCSTextShowPosition();
procedure DXMCSTEXTSHOWPOSITION (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
POSITION : in DXMCSTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSHOWPOSITION);
pragma IMPORT_PROCEDURE (DXMCSTEXTSHOWPOSITION, "DXmCSTextShowPosition",
(DXMCSTEXTWIDGET_TYPE, DXMCSTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> extern void DXmCSTextDisableRedisplay();
procedure DXMCSTEXTDISABLEREDISPLAY (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
LOSESBACKINGSTORE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, DXMCSTEXTDISABLEREDISPLAY);
pragma IMPORT_PROCEDURE (DXMCSTEXTDISABLEREDISPLAY,
"DXmCSTextDisableRedisplay",
(DXMCSTEXTWIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> extern void DXmCSTextEnableRedisplay();
procedure DXMCSTEXTENABLEREDISPLAY (
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTENABLEREDISPLAY);
pragma IMPORT_PROCEDURE (DXMCSTEXTENABLEREDISPLAY,
"DXmCSTextEnableRedisplay",
(DXMCSTEXTWIDGET_TYPE),
(VALUE));
--
-- compound string text widget (sub-class of text)
--
--> #define DXmNnoFontCallback "noFontCallback"
DXMNNOFONTCALLBACK : constant STRING := "noFontCallback"&ASCII.NUL;
--> #define DXmNtextPath "textPath"
DXMNTEXTPATH : constant STRING := "textPath"&ASCII.NUL;
--> #define DXmCTextPath "TextPath"
DXMCTEXTPATH : constant STRING := "TextPath"&ASCII.NUL;
--> #define DXmNeditingPath "editingPath"
DXMNEDITINGPATH : constant STRING := "editingPath"&ASCII.NUL;
--> #define DXmCEditingPath "EditingPath"
DXMCEDITINGPATH : constant STRING := "EditingPath"&ASCII.NUL;
--> #define DXmCCompString "CompString"
DXMCCOMPSTRING : constant STRING := "CompString"&ASCII.NUL;
--> #define DXmNbidirectionalCursor "bidirectionalCursor"
DXMNBIDIRECTIONALCURSOR : constant STRING :=
"bidirectionalCursor"&ASCII.NUL;
--> #define DXmCBidirectionalCursor "BidirectionalCursor"
DXMCBIDIRECTIONALCURSOR : constant STRING :=
"BidirectionalCursor"&ASCII.NUL;
-- IM new re sources class and name for multi-byte handling 04/09/90
a.c.
--> #define DXmNdefaultInputMethod "defaultInputMethod"
DXMNDEFAULTINPUTMETHOD : constant STRING :=
"defaultInputMethod"&ASCII.NUL;
--> #define DXmCDefaultInputMethod "DefaultInputMethod"
DXMCDEFAULTINPUTMETHOD : constant STRING :=
"DefaultInputMethod"&ASCII.NUL;
--> #define DXmNinputMethodCallback "inputMethodCallback"
DXMNINPUTMETHODCALLBACK : constant STRING :=
"inputMethodCallback"&ASCII.NUL;
--> #define IM_ENGLISH "ENGLISH"
IM_ENGLISH : constant STRING := "ENGLISH"&ASCII.NUL;
--> #define IM_HANZI "HANZI"
IM_HANZI : constant STRING := "HANZI"&ASCII.NUL;
--> #define IM_KANJI "KANJI"
IM_KANJI : constant STRING := "KANJI"&ASCII.NUL;
--> #define IM_HANGUL "HANGUL"
IM_HANGUL : constant STRING := "HANGUL"&ASCII.NUL;
--> #define IM_HANYU "HANYU"
IM_HANYU : constant STRING := "HANYU"&ASCII.NUL;
--> #define DXmCURSOR_MODE_ADD 1
DXMCURSOR_MODE_ADD : constant := 1;
--> #define DXmHIGHLIGHT_SELECTED 1
DXMHIGHLIGHT_SELECTED : constant := 1;
--> #define DXmHIGHLIGHT_SECONDARY_SELECTED 2
DXMHIGHLIGHT_SECONDARY_SELECTED : constant := 2;
-- IM
--> #define DXmCR_NOFONT 41 /* What do we do with this +++++++ */
DXMCR_NOFONT : constant := 41;
-- End of DXmCSText.h
-- DECSpecific.h
-- This include file contains the DECspecific definitions for the DECmotif
-- toolkit.
-- These replace DwtChildren and DwtNumChildren */
--> #define XmChildren(w) ((w)->composite.children)
--> #define XmNumChildren(w) ((w)->composite.num_children)
--> #define DXmCvtStatusOK 1
DXMCVTSTATUSOK : constant := 1;
--> #define DXmCvtStatusDataLoss 2
DXMCVTSTATUSDATALOSS : constant := 2;
--> #define DXmCvtStatusFail 3
DXMCVTSTATUSFAIL : constant := 3;
--> extern Opaque DXmCvtCStoFC ();
procedure DXMCVTCSTOFC (
RESULT : out XTPOINTER_TYPE; --
return value
CS : in XMSTRING_TYPE;
BYTE_COUNT : out INTEGER;
STATUS : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMCVTCSTOFC);
pragma IMPORT_VALUED_PROCEDURE (DXMCVTCSTOFC, "DXmCvtCStoFC",
(XTPOINTER_TYPE, XMSTRING_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XmString DXmCvtFCtoCS ();
procedure DXMCVTFCTOCS (
RESULT : out XMSTRING_TYPE; --
return value
FC : in XTPOINTER_TYPE;
BYTE_COUNT : out INTEGER;
STATUS : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMCVTFCTOCS);
pragma IMPORT_VALUED_PROCEDURE (DXMCVTFCTOCS, "DXmCvtFCtoCS",
(XMSTRING_TYPE, XTPOINTER_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern Opaque DXmCvtCStoOS ();
procedure DXMCVTCSTOOS (
RESULT : out XTPOINTER_TYPE; --
return value
CS : in XMSTRING_TYPE;
BYTE_COUNT : out INTEGER;
STATUS : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMCVTCSTOOS);
pragma IMPORT_VALUED_PROCEDURE (DXMCVTCSTOOS, "DXmCvtCStoOS",
(XTPOINTER_TYPE, XMSTRING_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XmString DXmCvtOStoCS ();
procedure DXMCVTOSTOCS (
RESULT : out XMSTRING_TYPE; --
return value
OS_STRING : in XTPOINTER_TYPE;
BYTE_COUNT : out INTEGER;
STATUS : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMCVTOSTOCS);
pragma IMPORT_VALUED_PROCEDURE (DXMCVTOSTOCS, "DXmCvtOStoCS",
(XMSTRING_TYPE, XTPOINTER_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern Opaque DXmCvtCStoDDIF ();
procedure DXMCVTCSTODDIF (
RESULT : out XTPOINTER_TYPE; --
return value
CS : in XMSTRING_TYPE;
BYTE_COUNT : out INTEGER;
STATUS : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMCVTCSTODDIF);
pragma IMPORT_VALUED_PROCEDURE (DXMCVTCSTODDIF, "DXmCvtCStoDDIF",
(XTPOINTER_TYPE, XMSTRING_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XmString DXmCvtDDIFtoCS ();
procedure DXMCVTDDIFTOCS (
RESULT : out XMSTRING_TYPE; --
return value
DDIF : in XTPOINTER_TYPE;
BYTE_COUNT : out INTEGER;
STATUS : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMCVTDDIFTOCS);
pragma IMPORT_VALUED_PROCEDURE (DXMCVTDDIFTOCS, "DXmCvtDDIFtoCS",
(XMSTRING_TYPE, XTPOINTER_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> extern XFontStruct *DXmLoadQueryFont();
procedure DXMLOADQUERYFONT (
RESULT : out UNSIGNED_LONGWORD; --
return value
DPY : in DISPLAY_TYPE;
FONTNAME : in STRING);
pragma INTERFACE (EXTERNAL, DXMLOADQUERYFONT);
pragma IMPORT_VALUED_PROCEDURE (DXMLOADQUERYFONT, "DXmLoadQueryFont",
(UNSIGNED_LONGWORD, DISPLAY_TYPE, STRING),
(VALUE, VALUE, REFERENCE));
--> extern void DXmInitialize ();
procedure DXMINITIALIZE;
pragma INTERFACE (EXTERNAL, DXMINITIALIZE);
pragma IMPORT_PROCEDURE (DXMINITIALIZE, "DXmInitialize");
--> extern Boolean DXmCSContainsStringCharSet ();
procedure DXMCSCONTAINSSTRINGCHARSET (
RESULT : out BOOLEAN; --
return value
STR : in XMSTRING_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSCONTAINSSTRINGCHARSET);
pragma IMPORT_VALUED_PROCEDURE (DXMCSCONTAINSSTRINGCHARSET,
"DXmCSContainsStringCharSet",
(BOOLEAN, XMSTRING_TYPE),
(VALUE, VALUE));
-- End of DECSpecific.h
-- DXmColor.h
-- class record constants
--> externalref WidgetClass dxmColorMixWidgetClass;
DXMCOLORMIXWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (DXMCOLORMIXWIDGETCLASS,"dxmColorMixWidgetClass");
--> typedef struct _DXmColorMixClassRec * DXmColorMixWidgetClass;
--> typedef struct _DXmColorMixRec * DXmColorMixWidget;
subtype DXMCOLORMIXWIDGET_TYPE is ADDRESS;
-- public entry points
--> extern Widget DXmCreateColorMix();
procedure DXMCREATECOLORMIX (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATECOLORMIX);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATECOLORMIX, "DXmCreateColorMix",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget DXmCreateColorMixDialog();
procedure DXMCREATECOLORMIXDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATECOLORMIXDIALOG);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATECOLORMIXDIALOG,
"DXmCreateColorMixDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern void DXmColorMixGetNewColor();
procedure DXMCOLORMIXGETNEWCOLOR (
CMW : in DXMCOLORMIXWIDGET_TYPE;
RED : out UNSIGNED_WORD;
GREEN : out UNSIGNED_WORD;
BLUE : out UNSIGNED_WORD);
pragma INTERFACE (EXTERNAL, DXMCOLORMIXGETNEWCOLOR);
pragma IMPORT_PROCEDURE (DXMCOLORMIXGETNEWCOLOR, "DXmColorMixGetNewColor",
(DXMCOLORMIXWIDGET_TYPE, UNSIGNED_WORD, UNSIGNED_WORD, UNSIGNED_WORD),
(VALUE, REFERENCE, REFERENCE, REFERENCE));
--> extern void DXmColorMixSetNewColor();
procedure DXMCOLORMIXSETNEWCOLOR (
CMW : in DXMCOLORMIXWIDGET_TYPE;
RED : in UNSIGNED_WORD;
GREEN : in UNSIGNED_WORD;
BLUE : in UNSIGNED_WORD);
pragma INTERFACE (EXTERNAL, DXMCOLORMIXSETNEWCOLOR);
pragma IMPORT_PROCEDURE (DXMCOLORMIXSETNEWCOLOR, "DXmColorMixSetNewColor",
(DXMCOLORMIXWIDGET_TYPE, UNSIGNED_WORD, UNSIGNED_WORD, UNSIGNED_WORD),
(VALUE, VALUE, VALUE, VALUE));
-- callback structure
--> typedef struct
--> {
--> int reason;
--> XEvent *event;
--> unsigned short newred;
--> unsigned short newgrn;
--> unsigned short newblu;
--> char * newname;
--> unsigned short origred;
--> unsigned short origgrn;
--> unsigned short origblu;
--> } DXmColorMixCallbackStruct;
type DXMCOLORMIXCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
EVENT : ADDRESS;
NEWRED : UNSIGNED_WORD;
NEWGRN : UNSIGNED_WORD;
NEWBLU : UNSIGNED_WORD;
NEWNAME : XTSTRING_TYPE;
ORIGRED : UNSIGNED_WORD;
ORIGGRN : UNSIGNED_WORD;
ORIGBLU : UNSIGNED_WORD;
end record;
for DXMCOLORMIXCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
EVENT at 4 range 0 .. 31;
NEWRED at 8 range 0 .. 15;
NEWGRN at 10 range 0 .. 15;
NEWBLU at 12 range 0 .. 15;
NEWNAME at 16 range 0 .. 31;
ORIGRED at 20 range 0 .. 15;
ORIGGRN at 22 range 0 .. 15;
ORIGBLU at 24 range 0 .. 31;
end record;
for DXMCOLORMIXCALLBACKSTRUCT_TYPE'SIZE use 224;
DXMCOLORMIXCALLBACKSTRUCT_TYPE_INIT : constant
DXMCOLORMIXCALLBACKSTRUCT_TYPE :=
(REASON => 0,
EVENT => ADDRESS_ZERO,
NEWRED => 0,
NEWGRN => 0,
NEWBLU => 0,
NEWNAME => ADDRESS_ZERO,
ORIGRED => 0,
ORIGGRN => 0,
ORIGBLU => 0);
-- color model constants
--> #define DXmColorModelRGB 0
DXMCOLORMODELRGB : constant := 0;
--> #define DXmColorModelHLS 1
DXMCOLORMODELHLS : constant := 1;
--> #define DXmColorModelPicker 2
DXMCOLORMODELPICKER : constant := 2;
--> #define DXmColorModelBrowser 3
DXMCOLORMODELBROWSER : constant := 3;
--> #define DXmColorModelGreyscale 4
DXMCOLORMODELGREYSCALE : constant := 4;
-- colormix resources
--> #define DXmNorigRedValue "DXmorigRedValue"
DXMNORIGREDVALUE : constant STRING := "DXmorigRedValue"&ASCII.NUL;
--> #define DXmCOrigRedValue "DXmOrigRedValue"
DXMCORIGREDVALUE : constant STRING := "DXmOrigRedValue"&ASCII.NUL;
--> #define DXmNorigGreenValue "DXmorigGreenValue"
DXMNORIGGREENVALUE : constant STRING :=
"DXmorigGreenValue"&ASCII.NUL;
--> #define DXmCOrigGreenValue "DXmOrigGreenValue"
DXMCORIGGREENVALUE : constant STRING :=
"DXmOrigGreenValue"&ASCII.NUL;
--> #define DXmNorigBlueValue "DXmorigBlueValue"
DXMNORIGBLUEVALUE : constant STRING :=
"DXmorigBlueValue"&ASCII.NUL;
--> #define DXmCOrigBlueValue "DXmOrigBlueValue"
DXMCORIGBLUEVALUE : constant STRING :=
"DXmOrigBlueValue"&ASCII.NUL;
--> #define DXmNnewRedValue "DXmnewRedValue"
DXMNNEWREDVALUE : constant STRING := "DXmnewRedValue"&ASCII.NUL;
--> #define DXmCNewRedValue "DXmNewRedValue"
DXMCNEWREDVALUE : constant STRING := "DXmNewRedValue"&ASCII.NUL;
--> #define DXmNnewGreenValue "DXmnewGreenValue"
DXMNNEWGREENVALUE : constant STRING :=
"DXmnewGreenValue"&ASCII.NUL;
--> #define DXmCNewGreenValue "DXmNewGreenValue"
DXMCNEWGREENVALUE : constant STRING :=
"DXmNewGreenValue"&ASCII.NUL;
--> #define DXmNnewBlueValue "DXmnewBlueValue"
DXMNNEWBLUEVALUE : constant STRING := "DXmnewBlueValue"&ASCII.NUL;
--> #define DXmCNewBlueValue "DXmNewBlueValue"
DXMCNEWBLUEVALUE : constant STRING := "DXmNewBlueValue"&ASCII.NUL;
--> #define DXmNbackRedValue "DXmbackRedValue"
DXMNBACKREDVALUE : constant STRING := "DXmbackRedValue"&ASCII.NUL;
--> #define DXmCBackRedValue "DXmBackRedValue"
DXMCBACKREDVALUE : constant STRING := "DXmBackRedValue"&ASCII.NUL;
--> #define DXmNbackGreenValue "DXmbackGreenValue"
DXMNBACKGREENVALUE : constant STRING :=
"DXmbackGreenValue"&ASCII.NUL;
--> #define DXmCBackGreenValue "DXmBackGreenValue"
DXMCBACKGREENVALUE : constant STRING :=
"DXmBackGreenValue"&ASCII.NUL;
--> #define DXmNbackBlueValue "DXmbackBlueValue"
DXMNBACKBLUEVALUE : constant STRING :=
"DXmbackBlueValue"&ASCII.NUL;
--> #define DXmCBackBlueValue "DXmBackBlueValue"
DXMCBACKBLUEVALUE : constant STRING :=
"DXmBackBlueValue"&ASCII.NUL;
--> #define DXmNsetNewColorProc "DXmsetNewColorProc"
DXMNSETNEWCOLORPROC : constant STRING :=
"DXmsetNewColorProc"&ASCII.NUL;
--> #define DXmCSetNewColorProc "DXmSetNewColorProc"
DXMCSETNEWCOLORPROC : constant STRING :=
"DXmSetNewColorProc"&ASCII.NUL;
--> #define DXmNmainLabel "DXmmainLabel"
DXMNMAINLABEL : constant STRING := "DXmmainLabel"&ASCII.NUL;
--> #define DXmNdisplayLabel "DXmdisplayLabel"
DXMNDISPLAYLABEL : constant STRING := "DXmdisplayLabel"&ASCII.NUL;
--> #define DXmNmixerLabel "DXmmixerLabel"
DXMNMIXERLABEL : constant STRING := "DXmmixerLabel"&ASCII.NUL;
--> #define DXmNredLabel "DXmredLabel"
DXMNREDLABEL : constant STRING := "DXmredLabel"&ASCII.NUL;
--> #define DXmNgreenLabel "DXmgreenLabel"
DXMNGREENLABEL : constant STRING := "DXmgreenLabel"&ASCII.NUL;
--> #define DXmNblueLabel "DXmblueLabel"
DXMNBLUELABEL : constant STRING := "DXmblueLabel"&ASCII.NUL;
--> #define DXmNsliderLabel "DXmsliderLabel"
DXMNSLIDERLABEL : constant STRING := "DXmsliderLabel"&ASCII.NUL;
--> #define DXmNvalueLabel "DXmvalueLabel"
DXMNVALUELABEL : constant STRING := "DXmvalueLabel"&ASCII.NUL;
--> #define DXmNresetLabelString "DXmresetLabelString"
DXMNRESETLABELSTRING : constant STRING :=
"DXmresetLabelString"&ASCII.NUL;
--> #define DXmNoptionLabel "DXmoptionLabel"
DXMNOPTIONLABEL : constant STRING := "DXmoptionLabel"&ASCII.NUL;
--> #define DXmNhlsLabel "DXmhlsLabel"
DXMNHLSLABEL : constant STRING := "DXmhlsLabel"&ASCII.NUL;
--> #define DXmNrgbLabel "DXmrgbLabel"
DXMNRGBLABEL : constant STRING := "DXmrgbLabel"&ASCII.NUL;
--> #define DXmNokCallback "DXmokCallback"
DXMNOKCALLBACK : constant STRING := "DXmokCallback"&ASCII.NUL;
--> #define DXmNdisplayColWinWidth "DXmdisplayColWinWidth"
DXMNDISPLAYCOLWINWIDTH : constant STRING :=
"DXmdisplayColWinWidth"&ASCII.NUL;
--> #define DXmCDisplayColWinWidth "DXmDisplayColWinWidth"
DXMCDISPLAYCOLWINWIDTH : constant STRING :=
"DXmDisplayColWinWidth"&ASCII.NUL;
--> #define DXmNdisplayColWinHeight "DXmdisplayColWinHeight"
DXMNDISPLAYCOLWINHEIGHT : constant STRING :=
"DXmdisplayColWinHeight"&ASCII.NUL;
--> #define DXmCDisplayColWinHeight "DXmDisplayColWinHeight"
DXMCDISPLAYCOLWINHEIGHT : constant STRING :=
"DXmDisplayColWinHeight"&ASCII.NUL;
--> #define DXmNdispWinMargin "DXmdispWinMargin"
DXMNDISPWINMARGIN : constant STRING :=
"DXmdispWinMargin"&ASCII.NUL;
--> #define DXmCDispWinMargin "DXmDispWinMargin"
DXMCDISPWINMARGIN : constant STRING :=
"DXmDispWinMargin"&ASCII.NUL;
--> #define DXmNdisplayWindow "DXmdisplayWindow"
DXMNDISPLAYWINDOW : constant STRING :=
"DXmdisplayWindow"&ASCII.NUL;
--> #define DXmNorigDispWindow "DXmorigDispWindow"
DXMNORIGDISPWINDOW : constant STRING :=
"DXmorigDispWindow"&ASCII.NUL;
--> #define DXmNnewDispWindow "DXmnewDispWindow"
DXMNNEWDISPWINDOW : constant STRING :=
"DXmnewDispWindow"&ASCII.NUL;
--> #define DXmNmixerWindow "DXmmixerWindow"
DXMNMIXERWINDOW : constant STRING := "DXmmixerWindow"&ASCII.NUL;
--> #define DXmNworkWindow "DXmworkWindow"
DXMNWORKWINDOW : constant STRING := "DXmworkWindow"&ASCII.NUL;
--> #define DXmNmatchColors "DXmmatchColors"
DXMNMATCHCOLORS : constant STRING := "DXmmatchColors"&ASCII.NUL;
--> #define DXmCMatchColors "DXmMatchColors"
DXMCMATCHCOLORS : constant STRING := "DXmMatchColors"&ASCII.NUL;
--> #define DXmRMatchColors "DXmMatchColors"
DXMRMATCHCOLORS : constant STRING := "DXmMatchColors"&ASCII.NUL;
--> #define DXmNgreyscaleOnGreyscale "DXmgreyscaleOnGreyscale"
DXMNGREYSCALEONGREYSCALE : constant STRING :=
"DXmgreyscaleOnGreyscale"&ASCII.NUL;
--> #define DXmCGreyscaleOnGreyscale "DXmGreyscaleOnGreyscale"
DXMCGREYSCALEONGREYSCALE : constant STRING :=
"DXmGreyscaleOnGreyscale"&ASCII.NUL;
--> #define DXmRColorValue "DXmColorValue"
DXMRCOLORVALUE : constant STRING := "DXmColorValue"&ASCII.NUL;
--> #define DXmNsetMixerColorProc "DXmsetMixerColorProc"
DXMNSETMIXERCOLORPROC : constant STRING :=
"DXmsetMixerColorProc"&ASCII.NUL;
--> #define DXmCSetMixerColorProc "DXmSetMixerColorProc"
DXMCSETMIXERCOLORPROC : constant STRING :=
"DXmSetMixerColorProc"&ASCII.NUL;
--> #define DXmNnewHueValue "DXmnewHueValue"
DXMNNEWHUEVALUE : constant STRING := "DXmnewHueValue"&ASCII.NUL;
--> #define DXmCNewHueValue "DXmNewHueValue"
DXMCNEWHUEVALUE : constant STRING := "DXmNewHueValue"&ASCII.NUL;
--> #define DXmNnewLightValue "DXmnewLightValue"
DXMNNEWLIGHTVALUE : constant STRING :=
"DXmnewLightValue"&ASCII.NUL;
--> #define DXmCNewLightValue "DXmNewLightValue"
DXMCNEWLIGHTVALUE : constant STRING :=
"DXmNewLightValue"&ASCII.NUL;
--> #define DXmNnewSatValue "DXmnewSatValue"
DXMNNEWSATVALUE : constant STRING := "DXmnewSatValue"&ASCII.NUL;
--> #define DXmCNewSatValue "DXmNewSatValue"
DXMCNEWSATVALUE : constant STRING := "DXmNewSatValue"&ASCII.NUL;
--> #define DXmNcolorModel "DXmcolorModel"
DXMNCOLORMODEL : constant STRING := "DXmcolorModel"&ASCII.NUL;
--> #define DXmCColorModel "DXmColorModel"
DXMCCOLORMODEL : constant STRING := "DXmColorModel"&ASCII.NUL;
--> #define DXmRColorModel "DXmColorModel"
DXMRCOLORMODEL : constant STRING := "DXmColorModel"&ASCII.NUL;
--> #define DXmNhueLabel "DXmhueLabel"
DXMNHUELABEL : constant STRING := "DXmhueLabel"&ASCII.NUL;
--> #define DXmNlightLabel "DXmlightLabel"
DXMNLIGHTLABEL : constant STRING := "DXmlightLabel"&ASCII.NUL;
--> #define DXmNsatLabel "DXmsatLabel"
DXMNSATLABEL : constant STRING := "DXmsatLabel"&ASCII.NUL;
--> #define DXmNblackLabel "DXmblackLabel"
DXMNBLACKLABEL : constant STRING := "DXmblackLabel"&ASCII.NUL;
--> #define DXmNwhiteLabel "DXmwhiteLabel"
DXMNWHITELABEL : constant STRING := "DXmwhiteLabel"&ASCII.NUL;
--> #define DXmNgrayLabel "DXmgrayLabel"
DXMNGRAYLABEL : constant STRING := "DXmgrayLabel"&ASCII.NUL;
--> #define DXmNfullLabel "DXmfullLabel"
DXMNFULLLABEL : constant STRING := "DXmfullLabel"&ASCII.NUL;
--> #define DXmNpickerTileHeight "DXmpickerTileHeight"
DXMNPICKERTILEHEIGHT : constant STRING :=
"DXmpickerTileHeight"&ASCII.NUL;
--> #define DXmCPickerTileHeight "DXmPickerTileHeight"
DXMCPICKERTILEHEIGHT : constant STRING :=
"DXmPickerTileHeight"&ASCII.NUL;
--> #define DXmNpickerTileWidth "DXmpickerTileWidth"
DXMNPICKERTILEWIDTH : constant STRING :=
"DXmpickerTileWidth"&ASCII.NUL;
--> #define DXmCPickerTileWidth "DXmPickerTileWidth"
DXMCPICKERTILEWIDTH : constant STRING :=
"DXmPickerTileWidth"&ASCII.NUL;
--> #define DXmNpickerColors "DXmpickerColors"
DXMNPICKERCOLORS : constant STRING := "DXmpickerColors"&ASCII.NUL;
--> #define DXmCPickerColors "DXmPickerColors"
DXMCPICKERCOLORS : constant STRING := "DXmPickerColors"&ASCII.NUL;
--> #define DXmRPickerColors "DXmPickerColors"
DXMRPICKERCOLORS : constant STRING := "DXmPickerColors"&ASCII.NUL;
--> #define DXmNpickerColorCount "DXmpickerColorCount"
DXMNPICKERCOLORCOUNT : constant STRING :=
"DXmpickerColorCount"&ASCII.NUL;
--> #define DXmCPickerColorCount "DXmPickerColorCount"
DXMCPICKERCOLORCOUNT : constant STRING :=
"DXmPickerColorCount"&ASCII.NUL;
--> #define DXmNpickerLabel "DXmpickerLabel"
DXMNPICKERLABEL : constant STRING := "DXmpickerLabel"&ASCII.NUL;
--> #define DXmNspectrumLabel "DXmspectrumLabel"
DXMNSPECTRUMLABEL : constant STRING :=
"DXmspectrumLabel"&ASCII.NUL;
--> #define DXmNpastelLabel "DXmpastelLabel"
DXMNPASTELLABEL : constant STRING := "DXmpastelLabel"&ASCII.NUL;
--> #define DXmNmetallicLabel "DXmmetallicLabel"
DXMNMETALLICLABEL : constant STRING :=
"DXmmetallicLabel"&ASCII.NUL;
--> #define DXmNearthtoneLabel "DXmearthtoneLabel"
DXMNEARTHTONELABEL : constant STRING :=
"DXmearthtoneLabel"&ASCII.NUL;
--> #define DXmNuserPaletteLabel "DXmuserPaletteLabel"
DXMNUSERPALETTELABEL : constant STRING :=
"DXmuserPaletteLabel"&ASCII.NUL;
--> #define DXmNpickerTitleLabel "DXmpickerTitleLabel"
DXMNPICKERTITLELABEL : constant STRING :=
"DXmpickerTitleLabel"&ASCII.NUL;
--> #define DXmNinterpTileHeight "DXminterpTileHeight"
DXMNINTERPTILEHEIGHT : constant STRING :=
"DXminterpTileHeight"&ASCII.NUL;
--> #define DXmCInterpTileHeight "DXmInterpTileHeight"
DXMCINTERPTILEHEIGHT : constant STRING :=
"DXmInterpTileHeight"&ASCII.NUL;
--> #define DXmNinterpTileWidth "DXminterpTileWidth"
DXMNINTERPTILEWIDTH : constant STRING :=
"DXminterpTileWidth"&ASCII.NUL;
--> #define DXmCInterpTileWidth "DXmInterpTileWidth"
DXMCINTERPTILEWIDTH : constant STRING :=
"DXmInterpTileWidth"&ASCII.NUL;
--> #define DXmNinterpTileCount "DXminterpTileCount"
DXMNINTERPTILECOUNT : constant STRING :=
"DXminterpTileCount"&ASCII.NUL;
--> #define DXmCInterpTileCount "DXmInterpTileCount"
DXMCINTERPTILECOUNT : constant STRING :=
"DXmInterpTileCount"&ASCII.NUL;
--> #define DXmNinterpTitleLabel "DXminterpTitleLabel"
DXMNINTERPTITLELABEL : constant STRING :=
"DXminterpTitleLabel"&ASCII.NUL;
--> #define DXmNwarmerLabel "DXmwarmerLabel"
DXMNWARMERLABEL : constant STRING := "DXmwarmerLabel"&ASCII.NUL;
--> #define DXmNcoolerLabel "DXmcoolerLabel"
DXMNCOOLERLABEL : constant STRING := "DXmcoolerLabel"&ASCII.NUL;
--> #define DXmNlighterLabel "DXmlighterLabel"
DXMNLIGHTERLABEL : constant STRING := "DXmlighterLabel"&ASCII.NUL;
--> #define DXmNdarkerLabel "DXmdarkerLabel"
DXMNDARKERLABEL : constant STRING := "DXmdarkerLabel"&ASCII.NUL;
--> #define DXmNwarmthIncrement "DXmwarmthIncrement"
DXMNWARMTHINCREMENT : constant STRING :=
"DXmwarmthIncrement"&ASCII.NUL;
--> #define DXmCWarmthIncrement "DXmWarmthIncrement"
DXMCWARMTHINCREMENT : constant STRING :=
"DXmWarmthIncrement"&ASCII.NUL;
--> #define DXmNlightnessIncrement "DXmlightnessIncrement"
DXMNLIGHTNESSINCREMENT : constant STRING :=
"DXmlightnessIncrement"&ASCII.NUL;
--> #define DXmCLightnessIncrement "DXmLightnessIncrement"
DXMCLIGHTNESSINCREMENT : constant STRING :=
"DXmLightnessIncrement"&ASCII.NUL;
--> #define DXmNundoLabel "DXmundoLabel"
DXMNUNDOLABEL : constant STRING := "DXmundoLabel"&ASCII.NUL;
--> #define DXmNsmearLabel "DXmsmearLabel"
DXMNSMEARLABEL : constant STRING := "DXmsmearLabel"&ASCII.NUL;
--> #define DXmNscratchPadLabel "DXmscratchPadLabel"
DXMNSCRATCHPADLABEL : constant STRING :=
"DXmscratchPadLabel"&ASCII.NUL;
--> #define DXmNscratchPadInfoLabel "DXmscratchPadInfoLabel"
DXMNSCRATCHPADINFOLABEL : constant STRING :=
"DXmscratchPadInfoLabel"&ASCII.NUL;
--> #define DXmNclearLabel "DXmclearLabel"
DXMNCLEARLABEL : constant STRING := "DXmclearLabel"&ASCII.NUL;
--> #define DXmNbrowserLabel "DXmbrowserLabel"
DXMNBROWSERLABEL : constant STRING := "DXmbrowserLabel"&ASCII.NUL;
--> #define DXmNbrowserItemCount "DXmbrowserItemCount"
DXMNBROWSERITEMCOUNT : constant STRING :=
"DXmbrowserItemCount"&ASCII.NUL;
--> #define DXmCBrowserItemCount "DXmBrowserItemCount"
DXMCBROWSERITEMCOUNT : constant STRING :=
"DXmBrowserItemCount"&ASCII.NUL;
--> #define DXmNgreyscaleLabel "DXmgreyscaleLabel"
DXMNGREYSCALELABEL : constant STRING :=
"DXmgreyscaleLabel"&ASCII.NUL;
-- End of DXmColor.h
-- DXmHelpB.h
-- Class record constants
--> externalref WidgetClass dxmHelpWidgetClass ;
DXMHELPWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (DXMHELPWIDGETCLASS,"dxmHelpWidgetClass");
-- help widget library type
--> #define DXmTextLibrary 1
DXMTEXTLIBRARY : constant := 1;
--
-- help_widget.c (sub-class of common)
--
--> #define DXmNcols "DXmcols"
DXMNCOLS : constant STRING := "DXmcols"&ASCII.NUL;
--> #define DXmCCols "DXmCols"
DXMCCOLS : constant STRING := "DXmCols"&ASCII.NUL;
--> #define DXmNrows "DXmrows"
DXMNROWS : constant STRING := "DXmrows"&ASCII.NUL;
--> #define DXmCRows "DXmRows"
DXMCROWS : constant STRING := "DXmRows"&ASCII.NUL;
--> #define DXmNdefaultPosition "DXmdefaultPosition"
DXMNDEFAULTPOSITION : constant STRING :=
"DXmdefaultPosition"&ASCII.NUL;
--> #define DXmCDefaultPosition "DXmDefaultPosition"
DXMCDEFAULTPOSITION : constant STRING :=
"DXmDefaultPosition"&ASCII.NUL;
--> #define DXmNlibraryType "DXmlibraryType"
DXMNLIBRARYTYPE : constant STRING := "DXmlibraryType"&ASCII.NUL;
--> #define DXmCLibraryType "DXmLibraryType"
DXMCLIBRARYTYPE : constant STRING := "DXmLibraryType"&ASCII.NUL;
--> #define DXmNlibrarySpec "DXmlibrarySpec"
DXMNLIBRARYSPEC : constant STRING := "DXmlibrarySpec"&ASCII.NUL;
--> #define DXmNapplicationName "DXmapplicationName"
DXMNAPPLICATIONNAME : constant STRING :=
"DXmapplicationName"&ASCII.NUL;
--> #define DXmNfirstTopic "DXmfirstTopic"
DXMNFIRSTTOPIC : constant STRING := "DXmfirstTopic"&ASCII.NUL;
--> #define DXmNoverviewTopic "DXmoverviewTopic"
DXMNOVERVIEWTOPIC : constant STRING :=
"DXmoverviewTopic"&ASCII.NUL;
--> #define DXmNglossaryTopic "DXmglossaryTopic"
DXMNGLOSSARYTOPIC : constant STRING :=
"DXmglossaryTopic"&ASCII.NUL;
--> #define DXmNviewLabel "DXmviewLabel"
DXMNVIEWLABEL : constant STRING := "DXmviewLabel"&ASCII.NUL;
--> #define DXmNgotoLabel "DXmgotoLabel"
DXMNGOTOLABEL : constant STRING := "DXmgotoLabel"&ASCII.NUL;
--> #define DXmNgobackLabel "DXmgobackLabel"
DXMNGOBACKLABEL : constant STRING := "DXmgobackLabel"&ASCII.NUL;
--> #define DXmNgooverLabel "DXmgooverLabel"
DXMNGOOVERLABEL : constant STRING := "DXmgooverLabel"&ASCII.NUL;
--> #define DXmNvisitLabel "DXmvisitLabel"
DXMNVISITLABEL : constant STRING := "DXmvisitLabel"&ASCII.NUL;
--> #define DXmNvisitglosLabel "DXmvisitglosLabel"
DXMNVISITGLOSLABEL : constant STRING :=
"DXmvisitglosLabel"&ASCII.NUL;
--> #define DXmNfileLabel "DXmfileLabel"
DXMNFILELABEL : constant STRING := "DXmfileLabel"&ASCII.NUL;
--> #define DXmNsaveasLabel "DXmsaveasLabel"
DXMNSAVEASLABEL : constant STRING := "DXmsaveasLabel"&ASCII.NUL;
--> #define DXmNexitLabel "DXmexitLabel"
DXMNEXITLABEL : constant STRING := "DXmexitLabel"&ASCII.NUL;
--> #define DXmNeditLabel "DXmeditLabel"
DXMNEDITLABEL : constant STRING := "DXmeditLabel"&ASCII.NUL;
--> #define DXmNcopyLabel "DXmcopyLabel"
DXMNCOPYLABEL : constant STRING := "DXmcopyLabel"&ASCII.NUL;
--> #define DXmNselectallLabel "DXmselectallLabel"
DXMNSELECTALLLABEL : constant STRING :=
"DXmselectallLabel"&ASCII.NUL;
--> #define DXmNsearchLabel "DXmsearchLabel"
DXMNSEARCHLABEL : constant STRING := "DXmsearchLabel"&ASCII.NUL;
--> #define DXmNhistoryLabel "DXmhistoryLabel"
DXMNHISTORYLABEL : constant STRING := "DXmhistoryLabel"&ASCII.NUL;
--> #define DXmNtitleLabel "DXmtitleLabel"
DXMNTITLELABEL : constant STRING := "DXmtitleLabel"&ASCII.NUL;
--> #define DXmNkeywordLabel "DXmkeywordLabel"
DXMNKEYWORDLABEL : constant STRING := "DXmkeywordLabel"&ASCII.NUL;
--> #define DXmNhelpLabel "DXmhelpLabel"
DXMNHELPLABEL : constant STRING := "DXmhelpLabel"&ASCII.NUL;
--> #define DXmNglossaryLabel "DXmglossaryLabel"
DXMNGLOSSARYLABEL : constant STRING :=
"DXmglossaryLabel"&ASCII.NUL;
--> #define DXmNaboutLabel "DXmaboutLabel"
DXMNABOUTLABEL : constant STRING := "DXmaboutLabel"&ASCII.NUL;
--> #define DXmNoncontextLabel "DXmoncontextLabel"
DXMNONCONTEXTLABEL : constant STRING :=
"DXmoncontextLabel"&ASCII.NUL;
--> #define DXmNaddtopicLabel "DXmaddtopicLabel"
DXMNADDTOPICLABEL : constant STRING :=
"DXmaddtopicLabel"&ASCII.NUL;
--> #define DXmNhistoryboxLabel "DXmhistoryboxLabel"
DXMNHISTORYBOXLABEL : constant STRING :=
"DXmhistoryboxLabel"&ASCII.NUL;
--> #define DXmNtopictitlesLabel "DXmtopictitlesLabel"
DXMNTOPICTITLESLABEL : constant STRING :=
"DXmtopictitlesLabel"&ASCII.NUL;
--> #define DXmNdismissLabel "DXmdismissLabel"
DXMNDISMISSLABEL : constant STRING := "DXmdismissLabel"&ASCII.NUL;
--> #define DXmNsearchtitleboxLabel "DXmsearchtitleboxLabel"
DXMNSEARCHTITLEBOXLABEL : constant STRING :=
"DXmsearchtitleboxLabel"&ASCII.NUL;
--> #define DXmNtitlesLabel "DXmtitlesLabel"
DXMNTITLESLABEL : constant STRING := "DXmtitlesLabel"&ASCII.NUL;
--> #define DXmNsearchkeywordboxLabel "DXmsearchkeywordboxLabel"
DXMNSEARCHKEYWORDBOXLABEL : constant STRING :=
"DXmsearchkeywordboxLabel"&ASCII.NUL;
--> #define DXmNkeywordsLabel "DXmkeywordsLabel"
DXMNKEYWORDSLABEL : constant STRING :=
"DXmkeywordsLabel"&ASCII.NUL;
--> #define DXmNsearchapplyLabel "DXmsearchapplyLabel"
DXMNSEARCHAPPLYLABEL : constant STRING :=
"DXmsearchapplyLabel"&ASCII.NUL;
--> #define DXmNbadlibMessage "DXmbadlibMessage"
DXMNBADLIBMESSAGE : constant STRING :=
"DXmbadlibMessage"&ASCII.NUL;
--> #define DXmNbadframeMessage "DXmbadframeMessage"
DXMNBADFRAMEMESSAGE : constant STRING :=
"DXmbadframeMessage"&ASCII.NUL;
--> #define DXmNnulllibMessage "DXmnulllibMessage"
DXMNNULLLIBMESSAGE : constant STRING :=
"DXmnulllibMessage"&ASCII.NUL;
--> #define DXmNnotitleMessage "DXmnotitleMessage"
DXMNNOTITLEMESSAGE : constant STRING :=
"DXmnotitleMessage"&ASCII.NUL;
--> #define DXmNnokeywordMessage "DXmnokeywordMessage"
DXMNNOKEYWORDMESSAGE : constant STRING :=
"DXmnokeywordMessage"&ASCII.NUL;
--> #define DXmNerroropenMessage "DXmerroropenMessage"
DXMNERROROPENMESSAGE : constant STRING :=
"DXmerroropenMessage"&ASCII.NUL;
--> #define DXmNgototopicLabel "DXmgototopicLabel"
DXMNGOTOTOPICLABEL : constant STRING :=
"DXmgototopicLabel"&ASCII.NUL;
--> #define DXmNgobacktopicLabel "DXmgobacktopicLabel"
DXMNGOBACKTOPICLABEL : constant STRING :=
"DXmgobacktopicLabel"&ASCII.NUL;
--> #define DXmNvisittopicLabel "DXmvisittopicLabel"
DXMNVISITTOPICLABEL : constant STRING :=
"DXmvisittopicLabel"&ASCII.NUL;
--> #define DXmNcloseLabel "DXmcloseLabel"
DXMNCLOSELABEL : constant STRING := "DXmcloseLabel"&ASCII.NUL;
--> #define DXmNhelphelpLabel "DXmhelphelpLabel"
DXMNHELPHELPLABEL : constant STRING :=
"DXmhelphelpLabel"&ASCII.NUL;
--> #define DXmNhelpontitleLabel "DXmhelpontitleLabel"
DXMNHELPONTITLELABEL : constant STRING :=
"DXmhelpontitleLabel"&ASCII.NUL;
--> #define DXmNhelptitleLabel "DXmhelptitleLabel"
DXMNHELPTITLELABEL : constant STRING :=
"DXmhelptitleLabel"&ASCII.NUL;
--> #define DXmNhelpAcknowledgeLabel "DXmhelpAcknowledgeLabel"
DXMNHELPACKNOWLEDGELABEL : constant STRING :=
"DXmhelpAcknowledgeLabel"&ASCII.NUL;
--> #define DXmNhelpOnHelpTitle "DXmhelpOnHelpTitle"
DXMNHELPONHELPTITLE : constant STRING :=
"DXmhelpOnHelpTitle"&ASCII.NUL;
--> #define DXmNcacheHelpLibrary "DXmcacheHelpLibrary"
DXMNCACHEHELPLIBRARY : constant STRING :=
"DXmcacheHelpLibrary"&ASCII.NUL;
--> #define DXmCCacheHelpLibrary "DXmCacheHelpLibrary"
DXMCCACHEHELPLIBRARY : constant STRING :=
"DXmCacheHelpLibrary"&ASCII.NUL;
--> #define DXmNaboutLabelMnem "DXmaboutLabelMnemonic"
DXMNABOUTLABELMNEM : constant STRING :=
"DXmaboutLabelMnemonic"&ASCII.NUL;
--> #define DXmNoncontextLabelMnem "DXmoncontextLabelMnemonic"
DXMNONCONTEXTLABELMNEM : constant STRING :=
"DXmoncontextLabelMnemonic"&ASCII.NUL;
--> #define DXmNcopyLabelMnem "DXmcopyLabelMnemonic"
DXMNCOPYLABELMNEM : constant STRING :=
"DXmcopyLabelMnemonic"&ASCII.NUL;
--> #define DXmNeditLabelMnem "DXmeditLabelMnemonic"
DXMNEDITLABELMNEM : constant STRING :=
"DXmeditLabelMnemonic"&ASCII.NUL;
--> #define DXmNexitLabelMnem "DXmexitLabelMnemonic"
DXMNEXITLABELMNEM : constant STRING :=
"DXmexitLabelMnemonic"&ASCII.NUL;
--> #define DXmNfileLabelMnem "DXmfileLabelMnemonic"
DXMNFILELABELMNEM : constant STRING :=
"DXmfileLabelMnemonic"&ASCII.NUL;
--> #define DXmNglossaryLabelMnem "DXmglossaryLabelMnemonic"
DXMNGLOSSARYLABELMNEM : constant STRING :=
"DXmglossaryLabelMnemonic"&ASCII.NUL;
--> #define DXmNgooverLabelMnem "DXmgooverLabelMnemonic"
DXMNGOOVERLABELMNEM : constant STRING :=
"DXmgooverLabelMnemonic"&ASCII.NUL;
--> #define DXmNhelpLabelMnem "DXmhelpLabelMnemonic"
DXMNHELPLABELMNEM : constant STRING :=
"DXmhelpLabelMnemonic"&ASCII.NUL;
--> #define DXmNhistoryLabelMnem "DXmhistoryLabelMnemonic"
DXMNHISTORYLABELMNEM : constant STRING :=
"DXmhistoryLabelMnemonic"&ASCII.NUL;
--> #define DXmNkeywordLabelMnem "DXmkeywordLabelMnemonic"
DXMNKEYWORDLABELMNEM : constant STRING :=
"DXmkeywordLabelMnemonic"&ASCII.NUL;
--> #define DXmNsaveasLabelMnem "DXmsaveasLabelMnemonic"
DXMNSAVEASLABELMNEM : constant STRING :=
"DXmsaveasLabelMnemonic"&ASCII.NUL;
--> #define DXmNsearchLabelMnem "DXmsearchLabelMnemonic"
DXMNSEARCHLABELMNEM : constant STRING :=
"DXmsearchLabelMnemonic"&ASCII.NUL;
--> #define DXmNselectallLabelMnem "DXmselectallLabelMnemonic"
DXMNSELECTALLLABELMNEM : constant STRING :=
"DXmselectallLabelMnemonic"&ASCII.NUL;
--> #define DXmNtitleLabelMnem "DXmtitleLabelMnemonic"
DXMNTITLELABELMNEM : constant STRING :=
"DXmtitleLabelMnemonic"&ASCII.NUL;
--> #define DXmNviewLabelMnem "DXmviewLabelMnemonic"
DXMNVIEWLABELMNEM : constant STRING :=
"DXmviewLabelMnemonic"&ASCII.NUL;
--> #define DXmNvisitglosLabelMnem "DXmvisitglosLabelMnemonic"
DXMNVISITGLOSLABELMNEM : constant STRING :=
"DXmvisitglosLabelMnemonic"&ASCII.NUL;
--> #define DXmNgototopicLabelMnem "DXmgototopicLabelMnemonic"
DXMNGOTOTOPICLABELMNEM : constant STRING :=
"DXmgototopicLabelMnemonic"&ASCII.NUL;
--> #define DXmNgobackLabelMnem "DXmgobackLabelMnemonic"
DXMNGOBACKLABELMNEM : constant STRING :=
"DXmgobackLabelMnemonic"&ASCII.NUL;
--> #define DXmNvisittopicLabelMnem "DXmvisittopicLabelMnemonic"
DXMNVISITTOPICLABELMNEM : constant STRING :=
"DXmvisittopicLabelMnemonic"&ASCII.NUL;
--> #define DXmNhelphelpLabelMnem "DXmhelphelplabelMnemonic"
DXMNHELPHELPLABELMNEM : constant STRING :=
"DXmhelphelplabelMnemonic"&ASCII.NUL;
--> #define DXmNaboutLabelMnemCS "DXmaboutLabelMnemonicCS"
DXMNABOUTLABELMNEMCS : constant STRING :=
"DXmaboutLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNoncontextLabelMnemCS "DXmoncontextLabelMnemonicCS"
DXMNONCONTEXTLABELMNEMCS : constant STRING :=
"DXmoncontextLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNcopyLabelMnemCS "DXmcopyLabelMnemonicCS"
DXMNCOPYLABELMNEMCS : constant STRING :=
"DXmcopyLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNeditLabelMnemCS "DXmeditLabelMnemonicCS"
DXMNEDITLABELMNEMCS : constant STRING :=
"DXmeditLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNexitLabelMnemCS "DXmexitLabelMnemonicCS"
DXMNEXITLABELMNEMCS : constant STRING :=
"DXmexitLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNfileLabelMnemCS "DXmfileLabelMnemonicCS"
DXMNFILELABELMNEMCS : constant STRING :=
"DXmfileLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNglossaryLabelMnemCS "DXmglossaryLabelMnemonicCS"
DXMNGLOSSARYLABELMNEMCS : constant STRING :=
"DXmglossaryLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNgooverLabelMnemCS "DXmgooverLabelMnemonicCS"
DXMNGOOVERLABELMNEMCS : constant STRING :=
"DXmgooverLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNhelpLabelMnemCS "DXmhelpLabelMnemonicCS"
DXMNHELPLABELMNEMCS : constant STRING :=
"DXmhelpLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNhistoryLabelMnemCS "DXmhistoryLabelMnemonicCS"
DXMNHISTORYLABELMNEMCS : constant STRING :=
"DXmhistoryLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNkeywordLabelMnemCS "DXmkeywordLabelMnemonicCS"
DXMNKEYWORDLABELMNEMCS : constant STRING :=
"DXmkeywordLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNsaveasLabelMnemCS "DXmsaveasLabelMnemonicCS"
DXMNSAVEASLABELMNEMCS : constant STRING :=
"DXmsaveasLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNsearchLabelMnemCS "DXmsearchLabelMnemonicCS"
DXMNSEARCHLABELMNEMCS : constant STRING :=
"DXmsearchLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNselectallLabelMnemCS "DXmselectallLabelMnemonicCS"
DXMNSELECTALLLABELMNEMCS : constant STRING :=
"DXmselectallLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNtitleLabelMnemCS "DXmtitleLabelMnemonicCS"
DXMNTITLELABELMNEMCS : constant STRING :=
"DXmtitleLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNviewLabelMnemCS "DXmviewLabelMnemonicCS"
DXMNVIEWLABELMNEMCS : constant STRING :=
"DXmviewLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNvisitglosLabelMnemCS "DXmvisitglosLabelMnemonicCS"
DXMNVISITGLOSLABELMNEMCS : constant STRING :=
"DXmvisitglosLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNgototopicLabelMnemCS "DXmgototopicLabelMnemonicCS"
DXMNGOTOTOPICLABELMNEMCS : constant STRING :=
"DXmgototopicLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNgobackLabelMnemCS "DXmgobackLabelMnemonicCS"
DXMNGOBACKLABELMNEMCS : constant STRING :=
"DXmgobackLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNvisittopicLabelMnemCS "DXmvisittopicLabelMnemonicCS"
DXMNVISITTOPICLABELMNEMCS : constant STRING :=
"DXmvisittopicLabelMnemonicCS"&ASCII.NUL;
--> #define DXmNhelphelpLabelMnemCS "DXmhelphelplabelMnemonicCS"
DXMNHELPHELPLABELMNEMCS : constant STRING :=
"DXmhelphelplabelMnemonicCS"&ASCII.NUL;
--> #define DXmNdialogStyle "DXmNdialogStyle"
DXMNDIALOGSTYLE : constant STRING := "DXmNdialogStyle"&ASCII.NUL;
--
-- help widget external routines
--
--> extern Widget DXmCreateHelp();
procedure DXMCREATEHELP (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATEHELP);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATEHELP, "DXmCreateHelp",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget DXmCreateHelpDialog();
procedure DXMCREATEHELPDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATEHELPDIALOG);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATEHELPDIALOG, "DXmCreateHelpDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
-- End of DXmHelpB.h
-- DXmPrint.h
--> #define DXmSClassPrintWgt "DXmPrintWgt"
DXMSCLASSPRINTWGT : constant STRING := "DXmPrintWgt"&ASCII.NUL;
--> externalref WidgetClass dxmPrintWgtWidgetClass;
DXMPRINTWGTWIDGETCLASS : WIDGETCLASS_TYPE;
pragma IMPORT_OBJECT (DXMPRINTWGTWIDGETCLASS,"dxmPrintWgtWidgetClass");
--> extern Widget DXmCreatePrintDialog (); /* Low-level
create - use this one */
procedure DXMCREATEPRINTDIALOG (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATEPRINTDIALOG);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATEPRINTDIALOG, "DXmCreatePrintDialog",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern Widget DXmCreatePrintWgt (); /* Low-level
create */
--> ENTRY DXmCreatePrintWgt
--> PARAMETER (
--> Widget IN VALUE NAMED parent,
--> CHARACTER LENGTH * IN NAMED name,
--> Arg DIMENSION * IN NAMED arglist ,
--> Cardinal IN VALUE NAMED argcount )
--> RETURNS Widget NAMED widget;
--> Obsolete
--> extern unsigned int DXmPrintWgtPrintJob (); /* Produce
printouts */
procedure DXMPRINTWGTPRINTJOB (
RESULT : out UNSIGNED_LONGWORD; --
return value
AR_PW : in WIDGET_TYPE;
AR_CS_FILENAMES : in XMSTRING_TYPE;
L_FILENAME_COUNT : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMPRINTWGTPRINTJOB);
pragma IMPORT_VALUED_PROCEDURE (DXMPRINTWGTPRINTJOB, "DXmPrintWgtPrintJob",
(UNSIGNED_LONGWORD, WIDGET_TYPE, XMSTRING_TYPE, INTEGER),
(VALUE, VALUE, REFERENCE, VALUE));
--> extern unsigned int DXmPrintWgtAugmentList (); /* Add
information to a list */
procedure DXMPRINTWGTAUGMENTLIST (
RESULT : out UNSIGNED_LONGWORD; --
return value
AR_PW : in WIDGET_TYPE;
L_LIST : in INTEGER;
AR_DATA : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, DXMPRINTWGTAUGMENTLIST);
pragma IMPORT_VALUED_PROCEDURE (DXMPRINTWGTAUGMENTLIST,
"DXmPrintWgtAugmentList",
(UNSIGNED_LONGWORD, WIDGET_TYPE, INTEGER, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--***********************************************************************
-- *
-- Print widget resource names *
-- *
--***********************************************************************
--> #define DXmNnumberCopies "DXmnumberCopies" /*
Number Copies */
DXMNNUMBERCOPIES : constant STRING := "DXmnumberCopies"&ASCII.NUL;
--> #define DXmCNumberCopies "DXmNumberCopies"
DXMCNUMBERCOPIES : constant STRING := "DXmNumberCopies"&ASCII.NUL;
--> #define DXmNpageRangeFrom "DXmpageRangeFrom" /* Page
Range From */
DXMNPAGERANGEFROM : constant STRING :=
"DXmpageRangeFrom"&ASCII.NUL;
--> #define DXmCPageRangeFrom "DXmPageRangeFrom"
DXMCPAGERANGEFROM : constant STRING :=
"DXmPageRangeFrom"&ASCII.NUL;
--> #define DXmNpageRangeTo "DXmpageRangeTo"
/* Page Range To */
DXMNPAGERANGETO : constant STRING := "DXmpageRangeTo"&ASCII.NUL;
--> #define DXmCPageRangeTo "DXmPageRangeTo"
DXMCPAGERANGETO : constant STRING := "DXmPageRangeTo"&ASCII.NUL;
--> #define DXmNprintFormatList "DXmprintFormatList" /*
Printer Format List */
DXMNPRINTFORMATLIST : constant STRING :=
"DXmprintFormatList"&ASCII.NUL;
--> #define DXmCPrintFormatList "DXmPrintFormatList"
DXMCPRINTFORMATLIST : constant STRING :=
"DXmPrintFormatList"&ASCII.NUL;
--> #define DXmNprintFormatCount "DXmprintFormatCount"
/* Printer Format Count */
DXMNPRINTFORMATCOUNT : constant STRING :=
"DXmprintFormatCount"&ASCII.NUL;
--> #define DXmCPrintFormatCount "DXmPrintFormatCount"
DXMCPRINTFORMATCOUNT : constant STRING :=
"DXmPrintFormatCount"&ASCII.NUL;
--> #define DXmNprintFormatChoice "DXmprintFormatChoice"
/* Print Format Choice */
DXMNPRINTFORMATCHOICE : constant STRING :=
"DXmprintFormatChoice"&ASCII.NUL;
--> #define DXmCPrintFormatChoice "DXmPrintFormatChoice"
DXMCPRINTFORMATCHOICE : constant STRING :=
"DXmPrintFormatChoice"&ASCII.NUL;
--> #define DXmNorientation "DXmorientation"
/* Orientation */
DXMNORIENTATION : constant STRING := "DXmorientation"&ASCII.NUL;
--> #define DXmCOrientation "DXmOrientation"
DXMCORIENTATION : constant STRING := "DXmOrientation"&ASCII.NUL;
--> #define DXmNprinterList "DXmprinterList"
/* Printer List */
DXMNPRINTERLIST : constant STRING := "DXmprinterList"&ASCII.NUL;
--> #define DXmCPrinterList "DXmPrinterList"
DXMCPRINTERLIST : constant STRING := "DXmPrinterList"&ASCII.NUL;
--> #define DXmNprinterCount "DXmprinterCount" /*
Printer Count */
DXMNPRINTERCOUNT : constant STRING := "DXmprinterCount"&ASCII.NUL;
--> #define DXmCPrinterCount "DXmPrinterCount"
DXMCPRINTERCOUNT : constant STRING := "DXmPrinterCount"&ASCII.NUL;
--> #define DXmNprinterChoice "DXmprinterChoice"
/* Printer Choice */
DXMNPRINTERCHOICE : constant STRING :=
"DXmprinterChoice"&ASCII.NUL;
--> #define DXmCPrinterChoice "DXmPrinterChoice"
DXMCPRINTERCHOICE : constant STRING :=
"DXmPrinterChoice"&ASCII.NUL;
--> #define DXmNprintAfter "DXmprintAfter"
/* Print After */
DXMNPRINTAFTER : constant STRING := "DXmprintAfter"&ASCII.NUL;
--> #define DXmCPrintAfter "DXmPrintAfter"
DXMCPRINTAFTER : constant STRING := "DXmPrintAfter"&ASCII.NUL;
--> #define DXmNdeleteFile "DXmdeleteFile"
/* Delete File */
DXMNDELETEFILE : constant STRING := "DXmdeleteFile"&ASCII.NUL;
--> #define DXmCDeleteFile "DXmDeleteFile"
DXMCDELETEFILE : constant STRING := "DXmDeleteFile"&ASCII.NUL;
--> #define DXmNpageSize "DXmpageSize"
/* Page Size */
DXMNPAGESIZE : constant STRING := "DXmpageSize"&ASCII.NUL;
--> #define DXmCPageSize "DXmPageSize"
DXMCPAGESIZE : constant STRING := "DXmPageSize"&ASCII.NUL;
--> #define DXmNsides "DXmsides" /* Sides
*/
DXMNSIDES : constant STRING := "DXmsides"&ASCII.NUL;
--> #define DXmCSides "DXmSides"
DXMCSIDES : constant STRING := "DXmSides"&ASCII.NUL;
--> #define DXmNnumberUp "DXmnumberUp"
/* Number Up */
DXMNNUMBERUP : constant STRING := "DXmnumberUp"&ASCII.NUL;
--> #define DXmCNumberUp "DXmNumberUp"
DXMCNUMBERUP : constant STRING := "DXmNumberUp"&ASCII.NUL;
--> #define DXmNsheetCount "DXmsheetCount"
/* Sheet Count */
DXMNSHEETCOUNT : constant STRING := "DXmsheetCount"&ASCII.NUL;
--> #define DXmCSheetCount "DXmSheetCount"
DXMCSHEETCOUNT : constant STRING := "DXmSheetCount"&ASCII.NUL;
--> #define DXmNfileStartSheet "DXmfileStartSheet" /* File
Start Sheet */
DXMNFILESTARTSHEET : constant STRING :=
"DXmfileStartSheet"&ASCII.NUL;
--> #define DXmCFileStartSheet "DXmFileStartSheet"
DXMCFILESTARTSHEET : constant STRING :=
"DXmFileStartSheet"&ASCII.NUL;
--> #define DXmNfileEndSheet "DXmfileEndSheet" /* File
End Sheet */
DXMNFILEENDSHEET : constant STRING := "DXmfileEndSheet"&ASCII.NUL;
--> #define DXmCFileEndSheet "DXmFileEndSheet"
DXMCFILEENDSHEET : constant STRING := "DXmFileEndSheet"&ASCII.NUL;
--> #define DXmNfileBurstSheet "DXmfileBurstSheet" /* File
Burst Sheet */
DXMNFILEBURSTSHEET : constant STRING :=
"DXmfileBurstSheet"&ASCII.NUL;
--> #define DXmCFileBurstSheet "DXmFileBurstSheet"
DXMCFILEBURSTSHEET : constant STRING :=
"DXmFileBurstSheet"&ASCII.NUL;
--> #define DXmNmessageLog "DXmmessageLog"
/* Message Log */
DXMNMESSAGELOG : constant STRING := "DXmmessageLog"&ASCII.NUL;
--> #define DXmCMessageLog "DXmMessageLog"
DXMCMESSAGELOG : constant STRING := "DXmMessageLog"&ASCII.NUL;
--> #define DXmNholdJob "DXmholdJob" /* Hold
Job */
DXMNHOLDJOB : constant STRING := "DXmholdJob"&ASCII.NUL;
--> #define DXmCHoldJob "DXmHoldJob"
DXMCHOLDJOB : constant STRING := "DXmHoldJob"&ASCII.NUL;
--> #define DXmNnotify "DXmnotify" /*
Notify */
DXMNNOTIFY : constant STRING := "DXmnotify"&ASCII.NUL;
--> #define DXmCNotify "DXmNotify"
DXMCNOTIFY : constant STRING := "DXmNotify"&ASCII.NUL;
--> #define DXmNsheetSize "DXmsheetSize"
/* Sheet Size */
DXMNSHEETSIZE : constant STRING := "DXmsheetSize"&ASCII.NUL;
--> #define DXmCSheetSize "DXmSheetSize"
DXMCSHEETSIZE : constant STRING := "DXmSheetSize"&ASCII.NUL;
--> #define DXmNinputTray "DXminputTray"
/* Input Tray */
DXMNINPUTTRAY : constant STRING := "DXminputTray"&ASCII.NUL;
--> #define DXmCInputTray "DXmInputTray"
DXMCINPUTTRAY : constant STRING := "DXmInputTray"&ASCII.NUL;
--> #define DXmNoutputTray "DXmoutputTray"
/* Output Tray */
DXMNOUTPUTTRAY : constant STRING := "DXmoutputTray"&ASCII.NUL;
--> #define DXmCOutputTray "DXmOutputTray"
DXMCOUTPUTTRAY : constant STRING := "DXmOutputTray"&ASCII.NUL;
--> #define DXmNjobName "DXmjobName" /* Job
Name */
DXMNJOBNAME : constant STRING := "DXmjobName"&ASCII.NUL;
--> #define DXmCJobName "DXmJobName"
DXMCJOBNAME : constant STRING := "DXmJobName"&ASCII.NUL;
--> #define DXmNoperatorMessage "DXmoperatorMessage" /*
Operator Message */
DXMNOPERATORMESSAGE : constant STRING :=
"DXmoperatorMessage"&ASCII.NUL;
--> #define DXmCOperatorMessage "DXmOperatorMessage"
DXMCOPERATORMESSAGE : constant STRING :=
"DXmOperatorMessage"&ASCII.NUL;
--> #define DXmNheader "DXmheader" /*
Header */
DXMNHEADER : constant STRING := "DXmheader"&ASCII.NUL;
--> #define DXmCHeader "DXmHeader"
DXMCHEADER : constant STRING := "DXmHeader"&ASCII.NUL;
--> #define DXmNautoPagination "DXmautoPagination" /*
Automatic Pagination */
DXMNAUTOPAGINATION : constant STRING :=
"DXmautoPagination"&ASCII.NUL;
--> #define DXmCAutoPagination "DXmAutoPagination"
DXMCAUTOPAGINATION : constant STRING :=
"DXmAutoPagination"&ASCII.NUL;
--> #define DXmNdoubleSpacing "DXmdoubleSpacing" /*
Double Spacing */
DXMNDOUBLESPACING : constant STRING :=
"DXmdoubleSpacing"&ASCII.NUL;
--> #define DXmCDoubleSpacing "DXmDoubleSpacing"
DXMCDOUBLESPACING : constant STRING :=
"DXmDoubleSpacing"&ASCII.NUL;
--> #define DXmNlayupDefinition "DXmlayupDefinition" /* Layup
Definition */
DXMNLAYUPDEFINITION : constant STRING :=
"DXmlayupDefinition"&ASCII.NUL;
--> #define DXmCLayupDefinition "DXmLayupDefinition"
DXMCLAYUPDEFINITION : constant STRING :=
"DXmLayupDefinition"&ASCII.NUL;
--> #define DXmNstartSheetComment "DXmstartSheetComment"
/* Start Sheet Comment */
DXMNSTARTSHEETCOMMENT : constant STRING :=
"DXmstartSheetComment"&ASCII.NUL;
--> #define DXmCStartSheetComment "DXmStartSheetComment"
DXMCSTARTSHEETCOMMENT : constant STRING :=
"DXmStartSheetComment"&ASCII.NUL;
--> #define DXmNpassAll "DXmpassAll" /* Pass
All */
DXMNPASSALL : constant STRING := "DXmpassAll"&ASCII.NUL;
--> #define DXmCPassAll "DXmPassAll"
DXMCPASSALL : constant STRING := "DXmPassAll"&ASCII.NUL;
--> #define DXmNprinterFormList "DXmprinterFormList" /*
Printer Form List */
DXMNPRINTERFORMLIST : constant STRING :=
"DXmprinterFormList"&ASCII.NUL;
--> #define DXmCPrinterFormList "DXmPrinterFormList"
DXMCPRINTERFORMLIST : constant STRING :=
"DXmPrinterFormList"&ASCII.NUL;
--> #define DXmNprinterFormCount "DXmprinterFormCount"
/* Printer Form Count */
DXMNPRINTERFORMCOUNT : constant STRING :=
"DXmprinterFormCount"&ASCII.NUL;
--> #define DXmCPrinterFormCount "DXmPrinterFormCount"
DXMCPRINTERFORMCOUNT : constant STRING :=
"DXmPrinterFormCount"&ASCII.NUL;
--> #define DXmNprinterFormChoice "DXmprinterFormChoice"
/* Printer Form Choice */
DXMNPRINTERFORMCHOICE : constant STRING :=
"DXmprinterFormChoice"&ASCII.NUL;
--> #define DXmCPrinterFormChoice "DXmPrinterFormChoice"
DXMCPRINTERFORMCHOICE : constant STRING :=
"DXmPrinterFormChoice"&ASCII.NUL;
--> #define DXmNpriority "DXmpriority"
/* Priority */
DXMNPRIORITY : constant STRING := "DXmpriority"&ASCII.NUL;
--> #define DXmCPriority "DXmPriority"
DXMCPRIORITY : constant STRING := "DXmPriority"&ASCII.NUL;
--> #define DXmNsetup "DXmsetup" /* Setup
*/
DXMNSETUP : constant STRING := "DXmsetup"&ASCII.NUL;
--> #define DXmCSetup "DXmSetup"
DXMCSETUP : constant STRING := "DXmSetup"&ASCII.NUL;
--> #define DXmNokSelectedCallbackList "DXmokSelectedCallbackList" /*
Callback list for OK */
DXMNOKSELECTEDCALLBACKLIST : constant STRING :=
"DXmokSelectedCallbackList"&ASCII.NUL;
--> #define DXmNcancelSelectedCallbackList "DXmcancelSelectedCallbackList"
/* Callback list for Cancel */
DXMNCANCELSELECTEDCALLBACKLIST : constant STRING :=
"DXmcancelSelectedCallbackList"&ASCII.NUL;
--> #define DXmNunmapOnOkSelected "DXmunmapOnOkSelected"
/* Unmap When OK sel. */
DXMNUNMAPONOKSELECTED : constant STRING :=
"DXmunmapOnOkSelected"&ASCII.NUL;
--> #define DXmCUnmapOnOkSelected "DXmUnmapOnOkSelected"
DXMCUNMAPONOKSELECTED : constant STRING :=
"DXmUnmapOnOkSelected"&ASCII.NUL;
--> #define DXmNunmapOnCancelSelected "DXmunmapOnCancelSelected" /* Unmap
When CANCEL sel*/
DXMNUNMAPONCANCELSELECTED : constant STRING :=
"DXmunmapOnCancelSelected"&ASCII.NUL;
--> #define DXmCUnmapOnCancelSelected "DXmUnmapOnCancelSelected"
DXMCUNMAPONCANCELSELECTED : constant STRING :=
"DXmUnmapOnCancelSelected"&ASCII.NUL;
--> #define DXmNdefaultPrinter "DXmdefaultPrinter"
DXMNDEFAULTPRINTER : constant STRING :=
"DXmdefaultPrinter"&ASCII.NUL;
--> #define DXmCDefaultPrinter "DXmDefaultPrinter"
DXMCDEFAULTPRINTER : constant STRING :=
"DXmDefaultPrinter"&ASCII.NUL;
--> #define DXmNfileNameList "DXmfileNameList" /* file
name count */
DXMNFILENAMELIST : constant STRING := "DXmfileNameList"&ASCII.NUL;
--> #define DXmCFileNameList "DXmFileNameList"
DXMCFILENAMELIST : constant STRING := "DXmFileNameList"&ASCII.NUL;
--> #define DXmNfileNameCount "DXmfileNameCount" /* file
name count */
DXMNFILENAMECOUNT : constant STRING :=
"DXmfileNameCount"&ASCII.NUL;
--> #define DXmCFileNameCount "DXmFileNameCount"
DXMCFILENAMECOUNT : constant STRING :=
"DXmFileNameCount"&ASCII.NUL;
--> #define DXmNsuppressOptionsMask "DXmsuppressOptionsMask"
/* supress options mask */
DXMNSUPPRESSOPTIONSMASK : constant STRING :=
"DXmsuppressOptionsMask"&ASCII.NUL;
--> #define DXmCSuppressOptionsMask "DXmSuppressOptionsMask"
DXMCSUPPRESSOPTIONSMASK : constant STRING :=
"DXmSuppressOptionsMask"&ASCII.NUL;
--***********************************************************************
-- *
-- Print Format Codes *
-- *
--***********************************************************************
--> #define DXmPRINT_FORMAT_NONE 0
DXMPRINT_FORMAT_NONE : constant := 0;
--> #define DXmPRINT_FORMAT_TEXT 1
DXMPRINT_FORMAT_TEXT : constant := 1;
--> #define DXmPRINT_FORMAT_LINE_PRINTER 2
DXMPRINT_FORMAT_LINE_PRINTER : constant := 2;
--> #define DXmPRINT_FORMAT_TERMINAL 3
DXMPRINT_FORMAT_TERMINAL : constant := 3;
--> #define DXmPRINT_FORMAT_ANSI2 4
DXMPRINT_FORMAT_ANSI2 : constant := 4;
--> #define DXmPRINT_FORMAT_ANSI 5
DXMPRINT_FORMAT_ANSI : constant := 5;
--> #define DXmPRINT_FORMAT_POSTSCRIPT 6
DXMPRINT_FORMAT_POSTSCRIPT : constant := 6;
--> #define DXmPRINT_FORMAT_REGIS 7
DXMPRINT_FORMAT_REGIS : constant := 7;
--> #define DXmPRINT_FORMAT_TEKTRONIX 8
DXMPRINT_FORMAT_TEKTRONIX : constant := 8;
--> #define DXmPRINT_FORMAT_DDIF 9
DXMPRINT_FORMAT_DDIF : constant := 9;
--***********************************************************************
-- *
-- Page orientation codes *
-- *
--***********************************************************************
--> #define DXmORIENTATION_DEFAULT 0
DXMORIENTATION_DEFAULT : constant := 0;
--> #define DXmORIENTATION_PORTRAIT 1
DXMORIENTATION_PORTRAIT : constant := 1;
--> #define DXmORIENTATION_LANDSCAPE 2
DXMORIENTATION_LANDSCAPE : constant := 2;
--***********************************************************************
-- *
-- Page/Sheet size codes *
-- *
--***********************************************************************
--> #define DXmSIZE_DEFAULT 0
DXMSIZE_DEFAULT : constant := 0;
--> #define DXmSIZE_LETTER 1
DXMSIZE_LETTER : constant := 1;
--> #define DXmSIZE_LEDGER 2
DXMSIZE_LEDGER : constant := 2;
--> #define DXmSIZE_LEGAL 3
DXMSIZE_LEGAL : constant := 3;
--> #define DXmSIZE_EXECUTIVE 4
DXMSIZE_EXECUTIVE : constant := 4;
--> #define DXmSIZE_A5 5
DXMSIZE_A5 : constant := 5;
--> #define DXmSIZE_A4 6
DXMSIZE_A4 : constant := 6;
--> #define DXmSIZE_A3 7
DXMSIZE_A3 : constant := 7;
--> #define DXmSIZE_B5 8
DXMSIZE_B5 : constant := 8;
--> #define DXmSIZE_B4 9
DXMSIZE_B4 : constant := 9;
--> #define DXmSIZE_7X9 10 /* unsupported */
DXMSIZE_7X9 : constant := 10;
--> #define DXmSIZE_C4_ENVELOPE 11
DXMSIZE_C4_ENVELOPE : constant := 11;
--> #define DXmSIZE_C5_ENVELOPE 12
DXMSIZE_C5_ENVELOPE : constant := 12;
--> #define DXmSIZE_C56_ENVELOPE 13
DXMSIZE_C56_ENVELOPE : constant := 13;
--> #define DXmSIZE_10X13_ENVELOPE 14
DXMSIZE_10X13_ENVELOPE : constant := 14;
--> #define DXmSIZE_9X12_ENVELOPE 15
DXMSIZE_9X12_ENVELOPE : constant := 15;
--> #define DXmSIZE_BUSINESS_ENVELOPE 16
DXMSIZE_BUSINESS_ENVELOPE : constant := 16;
--***********************************************************************
-- *
-- Sides Codes *
-- *
--***********************************************************************
--> #define DXmSIDES_DEFAULT 0
DXMSIDES_DEFAULT : constant := 0;
--> #define DXmSIDES_SIMPLEX_ONE 1
DXMSIDES_SIMPLEX_ONE : constant := 1;
--> #define DXmSIDES_SIMPLEX_TWO 2
DXMSIDES_SIMPLEX_TWO : constant := 2;
--> #define DXmSIDES_DUPLEX_ONE 3
DXMSIDES_DUPLEX_ONE : constant := 3;
--> #define DXmSIDES_DUPLEX_TWO 4
DXMSIDES_DUPLEX_TWO : constant := 4;
--> #define DXmSIDES_TUMBLE_ONE 5
DXMSIDES_TUMBLE_ONE : constant := 5;
--> #define DXmSIDES_TUMBLE_TWO 6
DXMSIDES_TUMBLE_TWO : constant := 6;
--***********************************************************************
-- *
-- File Start/End/Burst Sheet Codes *
-- *
--***********************************************************************
--> #define DXmFILE_SHEET_DEFAULT 0
DXMFILE_SHEET_DEFAULT : constant := 0;
--> #define DXmFILE_SHEET_NONE 1
DXMFILE_SHEET_NONE : constant := 1;
--> #define DXmFILE_SHEET_ONE 2
DXMFILE_SHEET_ONE : constant := 2;
--> #define DXmFILE_SHEET_ALL 3
DXMFILE_SHEET_ALL : constant := 3;
--***********************************************************************
-- *
-- Message Log Codes *
-- *
--***********************************************************************
--> #define DXmMESSAGE_LOG_DEFAULT 0
DXMMESSAGE_LOG_DEFAULT : constant := 0;
--> #define DXmMESSAGE_LOG_IGNORE 1
DXMMESSAGE_LOG_IGNORE : constant := 1;
--> #define DXmMESSAGE_LOG_PRINT 2
DXMMESSAGE_LOG_PRINT : constant := 2;
--> #define DXmMESSAGE_LOG_KEEP 3
DXMMESSAGE_LOG_KEEP : constant := 3;
--> #define DXmMESSAGE_LOG_KEEP_AND_PRINT 4
DXMMESSAGE_LOG_KEEP_AND_PRINT : constant := 4;
--***********************************************************************
-- *
-- Input Tray Codes *
-- *
--***********************************************************************
--> #define DXmINPUT_TRAY_DEFAULT 0
DXMINPUT_TRAY_DEFAULT : constant := 0;
--> #define DXmINPUT_TRAY_TOP 1
DXMINPUT_TRAY_TOP : constant := 1;
--> #define DXmINPUT_TRAY_MIDDLE 2
DXMINPUT_TRAY_MIDDLE : constant := 2;
--> #define DXmINPUT_TRAY_BOTTOM 3
DXMINPUT_TRAY_BOTTOM : constant := 3;
--***********************************************************************
-- *
-- Output Tray Codes *
-- *
--***********************************************************************
--> #define DXmOUTPUT_TRAY_DEFAULT 0
DXMOUTPUT_TRAY_DEFAULT : constant := 0;
--> #define DXmOUTPUT_TRAY_TOP 1
DXMOUTPUT_TRAY_TOP : constant := 1;
--> #define DXmOUTPUT_TRAY_SIDE 2
DXMOUTPUT_TRAY_SIDE : constant := 2;
--> #define DXmOUTPUT_TRAY_FACE_UP 3
DXMOUTPUT_TRAY_FACE_UP : constant := 3;
--> #define DXmOUTPUT_TRAY_UPPER 4
DXMOUTPUT_TRAY_UPPER : constant := 4;
--> #define DXmOUTPUT_TRAY_LOWER 5
DXMOUTPUT_TRAY_LOWER : constant := 5;
--> #define DXmOUTPUT_TRAY_LARGE_CAPACITY 6
DXMOUTPUT_TRAY_LARGE_CAPACITY : constant := 6;
--***********************************************************************
-- *
-- Pass All Codes *
-- *
--***********************************************************************
--> #define DXmPASS_ALL_DEFAULT 0
DXMPASS_ALL_DEFAULT : constant := 0;
--> #define DXmPASS_ALL_YES 1
DXMPASS_ALL_YES : constant := 1;
--> #define DXmPASS_ALL_NO 2
DXMPASS_ALL_NO : constant := 2;
--***********************************************************************
-- *
-- Suppress Option Mask Bits *
-- *
--***********************************************************************
--> #define DXmSUPPRESS_NONE 0
DXMSUPPRESS_NONE : constant := 0;
--> #define DXmSUPPRESS_DELETE_FILE 1 << 0
DXMSUPPRESS_DELETE_FILE : constant := 1;
--> #define DXmSUPPRESS_NUMBER_COPIES 1 << 1
DXMSUPPRESS_NUMBER_COPIES : constant := 2;
--> #define DXmSUPPRESS_PAGE_RANGE 1 << 2
DXMSUPPRESS_PAGE_RANGE : constant := 4;
--> #define DXmSUPPRESS_PRINT_FORMAT 1 << 3
DXMSUPPRESS_PRINT_FORMAT : constant := 8;
--> #define DXmSUPPRESS_ORIENTATION 1 << 4
DXMSUPPRESS_ORIENTATION : constant := 16;
--> #define DXmSUPPRESS_PRINTER 1 << 5
DXMSUPPRESS_PRINTER : constant := 32;
--> #define DXmSUPPRESS_PRINT_AFTER 1 << 6
DXMSUPPRESS_PRINT_AFTER : constant := 64;
--> #define DXmSUPPRESS_PAGE_SIZE 1 << 7
DXMSUPPRESS_PAGE_SIZE : constant := 128;
--> #define DXmSUPPRESS_SIDES 1 << 8
DXMSUPPRESS_SIDES : constant := 256;
--> #define DXmSUPPRESS_NUMBER_UP 1 << 9
DXMSUPPRESS_NUMBER_UP : constant := 512;
--> #define DXmSUPPRESS_SHEET_COUNT 1 << 10
DXMSUPPRESS_SHEET_COUNT : constant := 1024;
--> #define DXmSUPPRESS_FILE_START_SHEET 1 << 11
DXMSUPPRESS_FILE_START_SHEET : constant := 2048;
--> #define DXmSUPPRESS_FILE_END_SHEET 1 << 12
DXMSUPPRESS_FILE_END_SHEET : constant := 4096;
--> #define DXmSUPPRESS_FILE_BURST_SHEET 1 << 13
DXMSUPPRESS_FILE_BURST_SHEET : constant := 8192;
--> #define DXmSUPPRESS_MESSAGE_LOG 1 << 14
DXMSUPPRESS_MESSAGE_LOG : constant := 16384;
--> #define DXmSUPPRESS_HOLD_JOB 1 << 15
DXMSUPPRESS_HOLD_JOB : constant := 32768;
--> #define DXmSUPPRESS_NOTIFY 1 << 16
DXMSUPPRESS_NOTIFY : constant := 65536;
--> #define DXmSUPPRESS_SHEET_SIZE 1 << 17
DXMSUPPRESS_SHEET_SIZE : constant := 131072;
--> #define DXmSUPPRESS_INPUT_TRAY 1 << 18
DXMSUPPRESS_INPUT_TRAY : constant := 262144;
--> #define DXmSUPPRESS_OUTPUT_TRAY 1 << 19
DXMSUPPRESS_OUTPUT_TRAY : constant := 524288;
--> #define DXmSUPPRESS_JOB_NAME 1 << 20
DXMSUPPRESS_JOB_NAME : constant := 1048576;
--> #define DXmSUPPRESS_OPERATOR_MESSAGE 1 << 21
DXMSUPPRESS_OPERATOR_MESSAGE : constant := 2097152;
--> #define DXmSUPPRESS_HEADER 1 << 22
DXMSUPPRESS_HEADER : constant := 4194304;
--> #define DXmSUPPRESS_AUTOMATIC_PAGINATION 1 << 23
DXMSUPPRESS_AUTO_PAGINATION : constant := 8388608;
--> #define DXmSUPPRESS_DOUBLE_SPACING 1 << 24
DXMSUPPRESS_DOUBLE_SPACING : constant := 16777216;
--> #define DXmSUPPRESS_LAYUP_DEFINITION 1 << 25
DXMSUPPRESS_LAYUP_DEFINITION : constant := 33554432;
--> #define DXmSUPPRESS_START_SHEET_COMMENT 1 << 26
DXMSUPPRESS_START_SHEET_COMMENT : constant := 67108864;
--> #define DXmSUPPRESS_PASS_ALL 1 << 27
DXMSUPPRESS_PASS_ALL : constant := 134217728;
--> #define DXmSUPPRESS_PRINTER_FORM 1 << 28
DXMSUPPRESS_PRINTER_FORM : constant := 268435456;
--> #define DXmSUPPRESS_PRIORITY 1 << 29
DXMSUPPRESS_PRIORITY : constant := 536870912;
--> #define DXmSUPPRESS_SETUP 1 << 30
DXMSUPPRESS_SETUP : constant := 1073741824;
--***********************************************************************
-- *
-- Structures and constants for augmenting the print formats and the *
-- option menu lists. *
-- *
--***********************************************************************
--> typedef struct _DXmPrintOptionMenuStruct
--> {
--> XmString ui_string; /* What is in interface */
--> XmString os_string; /* What goes to operating system */
--> } DXmPrintOptionMenuStruct;
type DXMPRINTOPTIONMENUSTRUCT_TYPE is
record
UI_STRING : XMSTRING_TYPE;
OS_STRING : XMSTRING_TYPE;
end record;
for DXMPRINTOPTIONMENUSTRUCT_TYPE use
record
UI_STRING at 0 range 0 .. 31;
OS_STRING at 4 range 0 .. 31;
end record;
for DXMPRINTOPTIONMENUSTRUCT_TYPE'SIZE use 64;
DXMPRINTOPTIONMENUSTRUCT_TYPE_INIT : constant DXMPRINTOPTIONMENUSTRUCT_TYPE
:=
(UI_STRING => ADDRESS_ZERO,
OS_STRING => ADDRESS_ZERO);
--> typedef struct _DXmPrintFormatStruct
--> {
--> XmString ui_string; /* What is in interface */
--> XmString os_string; /* What goes to operating system */
--> XmString var_string; /* What {VMS logical | ULTRIX
environment variable} to use */
--> } DXmPrintFormatStruct;
type DXMPRINTFORMATSTRUCT_TYPE is
record
UI_STRING : XMSTRING_TYPE;
OS_STRING : XMSTRING_TYPE;
VAR_STRING : XMSTRING_TYPE;
end record;
for DXMPRINTFORMATSTRUCT_TYPE use
record
UI_STRING at 0 range 0 .. 31;
OS_STRING at 4 range 0 .. 31;
VAR_STRING at 8 range 0 .. 31;
end record;
for DXMPRINTFORMATSTRUCT_TYPE'SIZE use 96;
DXMPRINTFORMATSTRUCT_TYPE_INIT : constant DXMPRINTFORMATSTRUCT_TYPE :=
(UI_STRING => ADDRESS_ZERO,
OS_STRING => ADDRESS_ZERO,
VAR_STRING => ADDRESS_ZERO);
--> #define DXmPAGE_SIZE 0
DXMPAGE_SIZE : constant := 0;
--> #define DXmSIDES 1
DXMSIDES : constant := 1;
--> #define DXmFILE_START_SHEET 2
DXMFILE_START_SHEET : constant := 2;
--> #define DXmFILE_END_SHEET 3
DXMFILE_END_SHEET : constant := 3;
--> #define DXmFILE_BURST_SHEET 4
DXMFILE_BURST_SHEET : constant := 4;
--> #define DXmMESSAGE_LOG 5
DXMMESSAGE_LOG : constant := 5;
--> #define DXmSHEET_SIZE 6
DXMSHEET_SIZE : constant := 6;
--> #define DXmINPUT_TRAY 7
DXMINPUT_TRAY : constant := 7;
--> #define DXmOUTPUT_TRAY 8
DXMOUTPUT_TRAY : constant := 8;
--> #define DXmPASS_ALL 9
DXMPASS_ALL : constant := 9;
--> #define DXmPRINT_FORMAT 10
DXMPRINT_FORMAT : constant := 10;
--***********************************************************************
-- *
-- The following are provided for backwards compatibility only and *
-- should *NOT* be used (use the one on the right instead). *
-- *
--***********************************************************************
--> #define DXmNautoPaginationChoice DXmNautoPagination /*
Backward compat. only */
DXMNAUTOPAGINATIONCHOICE : constant STRING :=
"DXmautoPagination"&ASCII.NUL;
--> #define DXmNdoubleSpaceChoice DXmNdoubleSpacing /*
Backward compat. only */
DXMNDOUBLESPACECHOICE : constant STRING := "DXmdoubleSpace"&ASCII.NUL;
--> #define DXmNheaderChoice DXmNheader /*
Backward compat. only */
DXMNHEADERCHOICE : constant STRING := "DXmheader"&ASCII.NUL;
--> #define DXmNnotifyChoice DXmNnotify /*
Backward compat. only */
DXMNNOTIFYCHOICE : constant STRING := "DXmnotify"&ASCII.NUL;
--> #define DXmNdeleteFileChoice DXmNdeleteFile /*
Backward compat. only */
DXMNDELETEFILECHOICE : constant STRING := "DXmdeleteFile"&ASCII.NUL;
--> #define DXmNpassallChoice DXmNpassAll /* Backward
compat. only */
DXMNPASSALLCHOICE : constant STRING := "DXmpassall"&ASCII.NUL;
--> #define DXmNjobNameChoice DXmNjobName /* Backward
compat. only */
DXMNJOBNAMECHOICE : constant STRING := "DXmjobName"&ASCII.NUL;
--> #define DXmNorientationChoice DXmNorientation /*
Backward compat. only */
DXMNORIENTATIONCHOICE : constant STRING := "DXmorientation"&ASCII.NUL;
--> #define DXmNpageSizeChoice DXmNpageSize /* Backward
compat. only */
DXMNPAGESIZECHOICE : constant STRING := "DXmpageSize"&ASCII.NUL;
--> #define DXmNsheetSizeChoice DXmNsheetSize /* Backward
compat. only */
DXMNSHEETSIZECHOICE : constant STRING := "DXmsheetSize"&ASCII.NUL;
--> #define DXmNsheetLimitLowChoice DXmNpageRangeFrom /*
Backward compat. only */
DXMNSHEETLIMITLOWCHOICE : constant STRING :=
"DXmsheetLimitLow"&ASCII.NUL;
--> #define DXmNsheetLimitHighChoice DXmNpageRangeTo /* Backward
compat. only */
DXMNSHEETLIMITHIGHCHOICE : constant STRING :=
"DXmsheetLimitHigh"&ASCII.NUL;
--> #define DXmNnumberCopiesChoice DXmNnumberCopies /*
Backward compat. only */
DXMNNUMBERCOPIESCHOICE : constant STRING := "DXmnumberCopies"&ASCII.NUL;
-- End of DXmPrint.h
-- DXmSvn.h
------------------------------------*
-- Class Name *
------------------------------------*
--> #define DXmSvnClassName "Svn"
DXMSVNCLASSNAME : constant STRING := "Svn"&ASCII.NUL;
------------------------------------*
-- Resource names *
------------------------------------*
--> #define DXmSvnNfontList "DXmfontListDefault"
DXMSVNNFONTLIST : constant STRING :=
"DXmfontListDefault"&ASCII.NUL;
--> #define DXmSvnNfontListLevel0 "DXmfontListLevel0"
DXMSVNNFONTLISTLEVEL0 : constant STRING :=
"DXmfontListLevel0"&ASCII.NUL;
--> #define DXmSvnNfontListLevel1 "DXmfontListLevel1"
DXMSVNNFONTLISTLEVEL1 : constant STRING :=
"DXmfontListLevel1"&ASCII.NUL;
--> #define DXmSvnNfontListLevel2 "DXmfontListLevel2"
DXMSVNNFONTLISTLEVEL2 : constant STRING :=
"DXmfontListLevel2"&ASCII.NUL;
--> #define DXmSvnNfontListLevel3 "DXmfontListLevel3"
DXMSVNNFONTLISTLEVEL3 : constant STRING :=
"DXmfontListLevel3"&ASCII.NUL;
--> #define DXmSvnNfontListLevel4 "DXmfontListLevel4"
DXMSVNNFONTLISTLEVEL4 : constant STRING :=
"DXmfontListLevel4"&ASCII.NUL;
--> #define DXmSvnNindentMargin "DXmindentMargin"
DXMSVNNINDENTMARGIN : constant STRING := "DXmindentMargin"&ASCII.NUL;
--> #define DXmSvnNfixedWidthEntries "DXmfixedWidthEntries"
DXMSVNNFIXEDWIDTHENTRIES : constant STRING :=
"DXmfixedWidthEntries"&ASCII.NUL;
--> #define DXmSvnNnumberOfEntries "DXmnumberOfEntries"
DXMSVNNNUMBEROFENTRIES : constant STRING :=
"DXmnumberOfEntries"&ASCII.NUL;
--> #define DXmSvnNdisplayMode "DXmdisplayMode"
DXMSVNNDISPLAYMODE : constant STRING := "DXmdisplayMode"&ASCII.NUL;
--> #define DXmSvnNmultipleSelections "DXmmultipleSelections"
DXMSVNNMULTIPLESELECTIONS : constant STRING :=
"DXmmultipleSelections"&ASCII.NUL;
--> #define DXmSvnNghostPixmap "DXmghostPixmap"
DXMSVNNGHOSTPIXMAP : constant STRING := "DXmghostPixmap"&ASCII.NUL;
--> #define DXmSvnNghostX "DXmghostX"
DXMSVNNGHOSTX : constant STRING := "DXmghostX"&ASCII.NUL;
--> #define DXmSvnNghostY "DXmghostY"
DXMSVNNGHOSTY : constant STRING := "DXmghostY"&ASCII.NUL;
--> #define DXmSvnNghostWidth "DXmghostWidth"
DXMSVNNGHOSTWIDTH : constant STRING := "DXmghostWidth"&ASCII.NUL;
--> #define DXmSvnNghostHeight "DXmghostHeight"
DXMSVNNGHOSTHEIGHT : constant STRING := "DXmghostHeight"&ASCII.NUL;
--> #define DXmSvnNdefaultSpacing "DXmdefaultSpacing"
DXMSVNNDEFAULTSPACING : constant STRING :=
"DXmdefaultSpacing"&ASCII.NUL;
--> #define DXmSvnNtruncateText "DXmtruncateText"
DXMSVNNTRUNCATETEXT : constant STRING := "DXmtruncateText"&ASCII.NUL;
--> #define DXmSvnNuseScrollButtons "DXmuseScrollButtons"
DXMSVNNUSESCROLLBUTTONS : constant STRING :=
"DXmuseScrollButtons"&ASCII.NUL;
--> #define DXmSvnNexpectHighlighting "DXmexpectHighlighting"
DXMSVNNEXPECTHIGHLIGHTING : constant STRING :=
"DXmexpectHighlighting"&ASCII.NUL;
--> #define DXmSvnNforceSeqGetEntry "DXmforceSeqGetEntry"
DXMSVNNFORCESEQGETENTRY : constant STRING :=
"DXmforceSeqGetEntry"&ASCII.NUL;
--> #define DXmSvnNshowPathToRoot "DXmshowPathToRoot"
DXMSVNNSHOWPATHTOROOT : constant STRING :=
"DXmshowPathToRoot"&ASCII.NUL;
--> #define DXmSvnNhelpRequestedCallback XmNhelpCallback
DXMSVNNHELPREQUESTEDCALLBACK : constant STRING :=
"helpCallback"&ASCII.NUL;
--> #define DXmSvnNtreeLevelSpacing "DXmtreeLevelSpacing"
DXMSVNNTREELEVELSPACING : constant STRING :=
"DXmtreeLevelSpacing"&ASCII.NUL;
--> #define DXmSvnNtreeSiblingSpacing "DXmtreeSiblingSpacing"
DXMSVNNTREESIBLINGSPACING : constant STRING :=
"DXmtreeSiblingSpacing"&ASCII.NUL;
--> #define DXmSvnNtreeStyle "DXmtreeStyle"
DXMSVNNTREESTYLE : constant STRING := "DXmtreeStyle"&ASCII.NUL;
--> #define DXmSvnNtreeArcWidth "DXmtreeArcWidth"
DXMSVNNTREEARCWIDTH : constant STRING := "DXmtreeArcWidth"&ASCII.NUL;
--> #define DXmSvnNtreeCenteredComponents "DXmtreeCenteredComponents"
DXMSVNNTREECENTEREDCOMPONENTS : constant STRING :=
"DXmtreeCenteredComponents"&ASCII.NUL;
--> #define DXmSvnNtreePerpendicularLines "DXmtreePerpendicularLines"
DXMSVNNTREEPERPENDICULARLINES : constant STRING :=
"DXmtreePerpendicularLines"&ASCII.NUL;
--> #define DXmSvnNtreeIndexAll "DXmtreeIndexAll"
DXMSVNNTREEINDEXALL : constant STRING := "DXmtreeIndexAll"&ASCII.NUL;
--> #define DXmSvnNnavWindowTitle "DXmnavWindowTitle"
DXMSVNNNAVWINDOWTITLE : constant STRING :=
"DXmnavWindowTitle"&ASCII.NUL;
--> #define DXmSvnNtreeEntryShadows "DXmtreeEntryShadows"
DXMSVNNTREEENTRYSHADOWS : constant STRING :=
"DXmtreeEntryShadows"&ASCII.NUL;
--> #define DXmSvnNtreeEntryOutlines "DXmtreeEntryOutlines"
DXMSVNNTREEENTRYOUTLINES : constant STRING :=
"DXmtreeEntryOutlines"&ASCII.NUL;
--> #define DXmSvnNcolumnLines "DXmcolumnLines"
DXMSVNNCOLUMNLINES : constant STRING := "DXmcolumnLines"&ASCII.NUL;
--> #define DXmSvnNstartColumnComponent "DXmstartColumnComponent"
DXMSVNNSTARTCOLUMNCOMPONENT : constant STRING :=
"DXmstartColumnComponent"&ASCII.NUL;
--> #define DXmSvnNsecondaryComponentsUnmapped "DXmsecondaryComponentsUnmapped"
--> CONSTANT DXmSvnNsecondaryComponentsUnmapped EQUALS STRING
"DXmsecondaryComponentsUnmapped";
DXMSVNNSECCOMPONENTSUNMAPPED : constant STRING :=
"DXmsecondaryComponentsUnmapped"&ASCII.NUL;
--> #define DXmSvnNsecondaryBaseX "DXmsecondaryBaseX"
DXMSVNNSECONDARYBASEX : constant STRING :=
"DXmsecondaryBaseX"&ASCII.NUL;
--> #define DXmSvnNselectionMode "DXmselectionMode"
DXMSVNNSELECTIONMODE : constant STRING :=
"DXmselectionMode"&ASCII.NUL;
--> #define DXmSvnNpaneWidget "DXmpaneWidget"
DXMSVNNPANEWIDGET : constant STRING := "DXmpaneWidget"&ASCII.NUL;
--> #define DXmSvnNprimaryWindowWidget "DXmprimaryWindowWidget"
DXMSVNNPRIMARYWINDOWWIDGET : constant STRING :=
"DXmprimaryWindowWidget"&ASCII.NUL;
--> #define DXmSvnNsecondaryWindowWidget "DXmsecondaryWindowWidget"
DXMSVNNSECONDARYWINDOWWIDGET : constant STRING :=
"DXmsecondaryWindowWidget"&ASCII.NUL;
--> #define DXmSvnNoutlineHScrollWidget "DXmoutlineHScrollWidget"
DXMSVNNOUTLINEHSCROLLWIDGET : constant STRING :=
"DXmoutlineHScrollWidget"&ASCII.NUL;
--> #define DXmSvnNprimaryPercentage "DXmprimaryPercentage"
DXMSVNNPRIMARYPERCENTAGE : constant STRING :=
"DXmprimaryPercentage"&ASCII.NUL;
--> #define DXmSvnNstartLocationCursor "DXmstartLocationCursor"
DXMSVNNSTARTLOCATIONCURSOR : constant STRING :=
"DXmstartLocationCursor"&ASCII.NUL;
--> #define DXmSvnNselectAndConfirmCallback "DXmselectAndConfirmCallback"
DXMSVNNSELECTANDCONFIRMCALLBACK : constant STRING :=
"DXmselectAndConfirmCallback"&ASCII.NUL;
--> #define DXmSvnNextendConfirmCallback "DXmextendConfirmCallback"
DXMSVNNEXTENDCONFIRMCALLBACK : constant STRING :=
"DXmextendConfirmCallback"&ASCII.NUL;
--> #define DXmSvnNentrySelectedCallback "DXmentrySelectedCallback"
DXMSVNNENTRYSELECTEDCALLBACK : constant STRING :=
"DXmentrySelectedCallback"&ASCII.NUL;
--> #define DXmSvnNentryUnselectedCallback "DXmentryUnselectedCallback"
DXMSVNNENTRYUNSELECTEDCALLBACK : constant STRING :=
"DXmentryUnselectedCallback"&ASCII.NUL;
--> #define DXmSvnNtransitionsDoneCallback "DXmtransitionsDoneCallback"
DXMSVNNTRANSITIONSDONECALLBACK : constant STRING :=
"DXmtransitionsDoneCallback"&ASCII.NUL;
--> #define DXmSvnNattachToSourceCallback "DXmattachToSourceCallback"
DXMSVNNATTACHTOSOURCECALLBACK : constant STRING :=
"DXmattachToSourceCallback"&ASCII.NUL;
--> #define DXmSvnNdetachFromSourceCallback "DXmdetachFromSourceCallback"
DXMSVNNDETACHFROMSOURCECALLBACK : constant STRING :=
"DXmdetachFromSourceCallback"&ASCII.NUL;
--> #define DXmSvnNselectionsDraggedCallback "DXmselectionsDraggedCallback"
--> CONSTANT DXmSvnNselectionsDraggedCallback EQUALS STRING
"DXmselectionsDraggedCallback";
DXMSVNNSELECTIONSDRAGCALLBACK : constant STRING :=
"DXmselectionsDraggedCallback"&ASCII.NUL;
--> #define DXmSvnNgetEntryCallback "DXmgetEntryCallback"
DXMSVNNGETENTRYCALLBACK : constant STRING :=
"DXmgetEntryCallback"&ASCII.NUL;
--> #define DXmSvnNdraggingCallback "DXmdraggingCallback"
DXMSVNNDRAGGINGCALLBACK : constant STRING :=
"DXmdraggingCallback"&ASCII.NUL;
--> #define DXmSvnNdraggingEndCallback "DXmdraggingEndCallback"
DXMSVNNDRAGGINGENDCALLBACK : constant STRING :=
"DXmdraggingEndCallback"&ASCII.NUL;
--> #define DXmSvnNdisplayChangedCallback "DXmdisplayChangedCallback"
DXMSVNNDISPLAYCHANGEDCALLBACK : constant STRING :=
"DXmdisplayChangedCallback"&ASCII.NUL;
--> #define DXmSvnNpopupMenuCallback "DXmpopupMenuCallback"
DXMSVNNPOPUPMENUCALLBACK : constant STRING :=
"DXmpopupMenuCallback"&ASCII.NUL;
--> #define DXmSvnNentryTransferCallback "DXmentryTransferCallback"
DXMSVNNENTRYTRANSFERCALLBACK : constant STRING :=
"DXmentryTransferCallback"&ASCII.NUL;
------------------------------------*
-- Position Display constants *
------------------------------------*
--> #define DXmSvnKpositionTop 1
DXMSVNKPOSITIONTOP : constant := 1;
--> #define DXmSvnKpositionMiddle 2
DXMSVNKPOSITIONMIDDLE : constant := 2;
--> #define DXmSvnKpositionBottom 3
DXMSVNKPOSITIONBOTTOM : constant := 3;
--> #define DXmSvnKpositionPreviousPage 4
DXMSVNKPOSITIONPREVIOUSPAGE : constant := 4;
--> #define DXmSvnKpositionNextPage 5
DXMSVNKPOSITIONNEXTPAGE : constant := 5;
--> #define DXmSVN_POSITION_TOP DXmSvnKpositionTop
DXMSVN_POSITION_TOP : constant := 1;
--> #define DXmSVN_POSITION_MIDDLE DXmSvnKpositionMiddle
DXMSVN_POSITION_MIDDLE : constant := 2;
--> #define DXmSVN_POSITION_BOTTOM DXmSvnKpositionBottom
DXMSVN_POSITION_BOTTOM : constant := 3;
--> #define DXmSVN_POSITION_PREVIOUS_PAGE DXmSvnKpositionPreviousPage
DXMSVN_POSITION_PREVIOUS_PAGE : constant := 4;
--> #define DXmSVN_POSITION_NEXT_PAGE DXmSvnKpositionNextPage
DXMSVN_POSITION_NEXT_PAGE : constant := 5;
------------------------------------*
-- Display Mode constants *
------------------------------------*
--> #define DXmSvnKdisplayNone 0
DXMSVNKDISPLAYNONE : constant := 0;
--> #define DXmSvnKdisplayOutline 1
DXMSVNKDISPLAYOUTLINE : constant := 1;
--> #define DXmSvnKdisplayTree 2
DXMSVNKDISPLAYTREE : constant := 2;
--> #define DXmSvnKdisplayAllModes 3
DXMSVNKDISPLAYALLMODES : constant := 3;
--> #define DXmSvnKdisplayColumns 4
--> #define DXmSVN_DISPLAY_NONE DXmSvnKdisplayNone
DXMSVN_DISPLAY_NONE : constant := 0;
--> #define DXmSVN_DISPLAY_OUTLINE DXmSvnKdisplayOutline
DXMSVN_DISPLAY_OUTLINE : constant := 1;
--> #define DXmSVN_DISPLAY_TREE DXmSvnKdisplayTree
DXMSVN_DISPLAY_TREE : constant := 2;
--> #define DXmSVN_DISPLAY_ALL_MODES DXmSvnKdisplayAllModes
DXMSVN_DISPLAY_ALL_MODES : constant := 3;
--> #define DXmSVN_DISPLAY_COLUMNS DXmSvnKdisplayColumns
DXMSVN_DISPLAY_COLUMNS : constant := 4;
------------------------------------*
-- Selection Mode constants *
------------------------------------*
--> #define DXmSvnKselectEntry 0
DXMSVNKSELECTENTRY : constant := 0;
--> #define DXmSvnKselectComp 1
DXMSVNKSELECTCOMP : constant := 1;
--> #define DXmSvnKselectCompAndPrimary 2
DXMSVNKSELECTCOMPANDPRIMARY : constant := 2;
--> #define DXmSvnKselectEntryOrComp 3
DXMSVNKSELECTENTRYORCOMP : constant := 3;
--> #define DXmSVN_SELECT_ENTRY DXmSvnKselectEntry
DXMSVN_SELECT_ENTRY : constant := 0;
--> #define DXmSVN_SELECT_COMP DXmSvnKselectComp
DXMSVN_SELECT_COMP : constant := 1;
--> #define DXmSVN_SELECT_COMP_AND_PRIMARY DXmSvnKselectCompAndPrimary
DXMSVN_SELECT_COMP_AND_PRIMARY : constant := 2;
--> #define DXmSVN_SELECT_ENTRY_OR_COMP DXmSvnKselectEntryOrComp
DXMSVN_SELECT_ENTRY_OR_COMP : constant := 3;
------------------------------------*
-- Tree Style constants *
------------------------------------*
--> #define DXmSvnKtopTree 1
DXMSVNKTOPTREE : constant := 1;
--> #define DXmSvnKhorizontalTree 2
DXMSVNKHORIZONTALTREE : constant := 2;
--> #define DXmSvnKoutlineTree 3
DXMSVNKOUTLINETREE : constant := 3;
--> #define DXmSvnKuserDefinedTree 4
--> #define DXmSVN_TOP_TREE DXmSvnKtopTree
DXMSVN_TOP_TREE : constant := 1;
--> #define DXmSVN_HORIZONTAL_TREE DXmSvnKhorizontalTree
DXMSVN_HORIZONTAL_TREE : constant := 2;
--> #define DXmSVN_OUTLINE_TREE DXmSvnKoutlineTree
DXMSVN_OUTLINE_TREE : constant := 3;
--> #define DXmSVN_USER_DEFINED_TREE DXmSvnKuserDefinedTree
DXMSVN_USER_DEFINED_TREE : constant := 4;
------------------------------------*
-- Callback reasons *
------------------------------------*
--> #define DXmSvnCRHelpRequested XmCR_HELP /* 1 */
DXMSVNCRHELPREQUESTED : constant := 1;
--> #define DXmSvnCRSelectAndConfirm 2
DXMSVNCRSELECTANDCONFIRM : constant := 2;
--> #define DXmSvnCREntrySelected 3
DXMSVNCRENTRYSELECTED : constant := 3;
--> #define DXmSvnCREntryUnselected 4
DXMSVNCRENTRYUNSELECTED : constant := 4;
--> #define DXmSvnCRAttachToSource 5
DXMSVNCRATTACHTOSOURCE : constant := 5;
--> #define DXmSvnCRDetachFromSource 6
DXMSVNCRDETACHFROMSOURCE : constant := 6;
--> #define DXmSvnCRSelectionsDragged 8
DXMSVNCRSELECTIONSDRAGGED : constant := 8;
--> #define DXmSvnCRGetEntry 9
DXMSVNCRGETENTRY : constant := 9;
--> #define DXmSvnCRDragging 10
DXMSVNCRDRAGGING : constant := 10;
--> #define DXmSvnCRDraggingEnd 11
DXMSVNCRDRAGGINGEND : constant := 11;
--> #define DXmSvnCRExtendConfirm 13
DXMSVNCREXTENDCONFIRM : constant := 13;
--> #define DXmSvnCRTransitionsDone 14
DXMSVNCRTRANSITIONSDONE : constant := 14;
--> #define DXmSvnCRDisplayChanged 15
DXMSVNCRDISPLAYCHANGED : constant := 15;
--> #define DXmSvnCRPopupMenu 16
DXMSVNCRPOPUPMENU : constant := 16;
--> #define DXmSvnCREntryTransfer 17
DXMSVNCRENTRYTRANSFER : constant := 17;
--> #define DXmCR_SVN_SELECT_AND_CONFIRM DXmSvnCRSelectAndConfirm
DXMCR_SVN_SELECT_AND_CONFIRM : constant := 2;
--> #define DXmCR_SVN_ENTRY_SELECTED DXmSvnCREntrySelected
DXMCR_SVN_ENTRY_SELECTED : constant := 3;
--> #define DXmCR_SVN_ENTRY_UNSELECTED DXmSvnCREntryUnselected
DXMCR_SVN_ENTRY_UNSELECTED : constant := 4;
--> #define DXmCR_SVN_ATTACH_TO_SOURCE DXmSvnCRAttachToSource
DXMCR_SVN_ATTACH_TO_SOURCE : constant := 5;
--> #define DXmCR_SVN_SELECTIONS_DRAGGED DXmSvnCRSelectionsDragged
DXMCR_SVN_SELECTIONS_DRAGGED : constant := 8;
--> #define DXmCR_SVN_GET_ENTRY DXmSvnCRGetEntry
DXMCR_SVN_GET_ENTRY : constant := 9;
--> #define DXmCR_SVN_DRAGGING DXmSvnCRDragging
DXMCR_SVN_DRAGGING : constant := 10;
--> #define DXmCR_SVN_DRAGGING_END DXmSvnCRDraggingEnd
DXMCR_SVN_DRAGGING_END : constant := 11;
--> #define DXmCR_SVN_EXTEND_CONFIRM DXmSvnCRExtendConfirm
DXMCR_SVN_EXTEND_CONFIRM : constant := 13;
--> #define DXmCR_SVN_TRANSITIONS_DONE DXmSvnCRTransitionsDone
DXMCR_SVN_TRANSITIONS_DONE : constant := 14;
--> #define DXmCR_SVN_DISPLAY_CHANGED DXmSvnCRDisplayChanged
DXMCR_SVN_DISPLAY_CHANGED : constant := 15;
--> #define DXmCR_SVN_HELP_REQUESTED DXmSvnCRHelpRequested
DXMCR_SVN_HELP_REQUESTED : constant := 1;
--> #define DXmCR_SVN_POPUP_MENU DXmSvnCRPopupMenu
DXMCR_SVN_POPUP_MENU : constant := 16;
--> #define DXmCR_SVN_ENTRY_TRANSFER DXmSvnCREntryTransfer
DXMCR_SVN_ENTRY_TRANSFER : constant := 17;
------------------------------------*
-- Callback structure definition *
------------------------------------*
--> typedef struct
--> {
--> int reason; /* Used by all */
--> int entry_number; /* Used by 80% */
--> int component_number; /* Used by 40% */
--> int first_selection;
--> int x;
--> int y;
--> unsigned int entry_tag;
--> Time time; /* Used by Select */
--> int entry_level;
--> int loc_cursor_entry_number;
--> int transfer_mode; /* Used for
DXmSvnCREntryTransfer */
--> /* whether a move or copy operation */
--> int dragged_entry_number;
--> XEvent *event;
-->
--> } DXmSvnCallbackStruct;
type DXMSVNCALLBACKSTRUCT_TYPE is
record
REASON : INTEGER;
ENTRY_NUMBER : INTEGER;
COMPONENT_NUMBER : INTEGER;
FIRST_SELECTION : INTEGER;
X : INTEGER;
Y : INTEGER;
ENTRY_TAG : UNSIGNED_LONGWORD;
TIME : INTEGER;
ENTRY_LEVEL : INTEGER;
LOC_CURSOR_ENTRY_NUMBER : INTEGER;
TRANSFER_MODE : INTEGER;
DRAGGED_ENTRY_NUMBER : INTEGER;
EVENT : ADDRESS;
end record;
for DXMSVNCALLBACKSTRUCT_TYPE use
record
REASON at 0 range 0 .. 31;
ENTRY_NUMBER at 4 range 0 .. 31;
COMPONENT_NUMBER at 8 range 0 .. 31;
FIRST_SELECTION at 12 range 0 .. 31;
X at 16 range 0 .. 31;
Y at 20 range 0 .. 31;
ENTRY_TAG at 24 range 0 .. 31;
TIME at 28 range 0 .. 31;
ENTRY_LEVEL at 32 range 0 .. 31;
LOC_CURSOR_ENTRY_NUMBER at 36 range 0 .. 31;
TRANSFER_MODE at 40 range 0 .. 31;
DRAGGED_ENTRY_NUMBER at 44 range 0 .. 31;
EVENT at 48 range 0 .. 31;
end record;
for DXMSVNCALLBACKSTRUCT_TYPE'SIZE use 416;
DXMSVNCALLBACKSTRUCT_TYPE_INIT : constant DXMSVNCALLBACKSTRUCT_TYPE :=
(REASON => 0,
ENTRY_NUMBER => 0,
COMPONENT_NUMBER => 0,
FIRST_SELECTION => 0,
X => 0,
Y => 0,
ENTRY_TAG => 0,
TIME => 0,
ENTRY_LEVEL => 0,
LOC_CURSOR_ENTRY_NUMBER => 0,
TRANSFER_MODE => 0,
DRAGGED_ENTRY_NUMBER => 0,
EVENT => ADDRESS_ZERO);
------------------------------------*
-- Symbols for specific help items *
-- returned in entry_number field *
-- of help callback *
------------------------------------*
--> #define DXmSvnKhelpScroll -1
DXMSVNKHELPSCROLL : constant := -1;
--> #define DXmSvnKhelpNavButton -2
DXMSVNKHELPNAVBUTTON : constant := -2;
--> #define DXmSvnKhelpNavWindow -3
DXMSVNKHELPNAVWINDOW : constant := -3;
--> #define DXmSVN_HELP_SCROLL DXmSvnKhelpScroll
DXMSVN_HELP_SCROLL : constant := -1;
--> #define DXmSVN_HELP_NAV_BUTTON DXmSvnKhelpNavButton
DXMSVN_HELP_NAV_BUTTON : constant := -2;
--> #define DXmSVN_HELP_NAV_WINDOW DXmSvnKhelpNavWindow
DXMSVN_HELP_NAV_WINDOW : constant := -3;
------------------------------------*
-- Symbols for values returned in *
-- first_selection field of a callback *
------------------------------------*
--> #define DXmSvnKnotFirst 0
DXMSVNKNOTFIRST : constant := 0;
--> #define DXmSvnKfirstOfOne 1
DXMSVNKFIRSTOFONE : constant := 1;
--> #define DXmSvnKfirstOfMany 3
DXMSVNKFIRSTOFMANY : constant := 3;
--> #define DXmSVN_NOT_FIRST DXmSvnKnotFirst
DXMSVN_NOT_FIRST : constant := 0;
--> #define DXmSVN_FIRST_OF_ONE DXmSvnKfirstOfOne
DXMSVN_FIRST_OF_ONE : constant := 1;
--> #define DXmSVN_FIRST_OF_MANY DXmSvnKfirstOfMany
DXMSVN_FIRST_OF_MANY : constant := 3;
------------------------------------*
-- Symbols for values returned in *
-- transfer_flag field of a callback*
------------------------------------*
--> #define DXmSvnKtransferUnknown 0
DXMSVNKTRANSFERUNKNOWN : constant := 0;
--> #define DXmSvnKtransferMove 1
DXMSVNKTRANSFERMOVE : constant := 1;
--> #define DXmSvnKtransferCopy 2
DXMSVNKTRANSFERCOPY : constant := 2;
------------------------------------*
-- DXmSvn widget external routines *
------------------------------------*
--> extern Widget DXmSvnWidget();
procedure DXMSVNWIDGET (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
X : in INTEGER;
Y : in INTEGER;
WIDTH : in INTEGER;
HEIGHT : in INTEGER;
CONFIRMCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
HELPCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
ATTACHCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
DETACHCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
GETENTRYCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
EXTENDCONFIRMCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
ENTRYSELECTEDCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
ENTRYUNSELECTEDCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
SELECTIONSDRAGGEDCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
DRAGGINGCALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
DRAGGINGENDCALLBACK : in XTCALLBACKREC_TYPE_ARRAY);
pragma INTERFACE (EXTERNAL, DXMSVNWIDGET);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNWIDGET, "DXmSvnWidget",
(WIDGET_TYPE, WIDGET_TYPE, STRING, INTEGER, INTEGER, INTEGER, INTEGER,
XTCALLBACKREC_TYPE_ARRAY,
XTCALLBACKREC_TYPE_ARRAY, XTCALLBACKREC_TYPE_ARRAY,
XTCALLBACKREC_TYPE_ARRAY, XTCALLBACKREC_TYPE_ARRAY,
XTCALLBACKREC_TYPE_ARRAY, XTCALLBACKREC_TYPE_ARRAY,
XTCALLBACKREC_TYPE_ARRAY, XTCALLBACKREC_TYPE_ARRAY,
XTCALLBACKREC_TYPE_ARRAY, XTCALLBACKREC_TYPE_ARRAY),
(VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE,
REFERENCE, REFERENCE, REFERENCE, REFERENCE,
REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
--> extern Widget DXmCreateSvn();
procedure DXMCREATESVN (
WIDGET : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
ARGLIST : in ARG_TYPE_ARRAY;
ARGCOUNT : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMCREATESVN);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATESVN, "DXmCreateSvn",
(WIDGET_TYPE, WIDGET_TYPE, STRING, ARG_TYPE_ARRAY, CARDINAL_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE, VALUE));
--> extern void DXmSvnDisableDisplay();
procedure DXMSVNDISABLEDISPLAY (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNDISABLEDISPLAY);
pragma IMPORT_PROCEDURE (DXMSVNDISABLEDISPLAY, "DXmSvnDisableDisplay",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnEnableDisplay();
procedure DXMSVNENABLEDISPLAY (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNENABLEDISPLAY);
pragma IMPORT_PROCEDURE (DXMSVNENABLEDISPLAY, "DXmSvnEnableDisplay",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnMapPosition();
procedure DXMSVNMAPPOSITION (
SVNW : in WIDGET_TYPE;
FINDX : in INTEGER;
FINDY : in INTEGER;
ENTRY_NUMBER : in out INTEGER;
COMPONENT : in out INTEGER;
TAG : in out UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, DXMSVNMAPPOSITION);
pragma IMPORT_PROCEDURE (DXMSVNMAPPOSITION, "DXmSvnMapPosition",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE));
--> extern int DXmSvnGetNumSelections();
procedure DXMSVNGETNUMSELECTIONS (
RESULT : out INTEGER; --
return value
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNGETNUMSELECTIONS);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETNUMSELECTIONS,
"DXmSvnGetNumSelections",
(INTEGER, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmSvnGetSelections();
procedure DXMSVNGETSELECTIONS (
SVNW : in WIDGET_TYPE;
SELECTIONS : in out INTEGER;
COMPS : in out INTEGER;
ENTRY_TAGS : in out UNSIGNED_LONGWORD;
NUM_ARRAY_ENTRIES : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETSELECTIONS);
pragma IMPORT_PROCEDURE (DXMSVNGETSELECTIONS, "DXmSvnGetSelections",
(WIDGET_TYPE, INTEGER, INTEGER, UNSIGNED_LONGWORD, INTEGER),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE));
--> extern void DXmSvnClearSelection();
procedure DXMSVNCLEARSELECTION (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNCLEARSELECTION);
pragma IMPORT_PROCEDURE (DXMSVNCLEARSELECTION, "DXmSvnClearSelection",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void DXmSvnClearSelections();
procedure DXMSVNCLEARSELECTIONS (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNCLEARSELECTIONS);
pragma IMPORT_PROCEDURE (DXMSVNCLEARSELECTIONS, "DXmSvnClearSelections",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnSelectAll();
procedure DXMSVNSELECTALL (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNSELECTALL);
pragma IMPORT_PROCEDURE (DXMSVNSELECTALL, "DXmSvnSelectAll",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnSelectComponent();
procedure DXMSVNSELECTCOMPONENT (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
COMP_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSELECTCOMPONENT);
pragma IMPORT_PROCEDURE (DXMSVNSELECTCOMPONENT, "DXmSvnSelectComponent",
(WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnSelectEntry();
procedure DXMSVNSELECTENTRY (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSELECTENTRY);
pragma IMPORT_PROCEDURE (DXMSVNSELECTENTRY, "DXmSvnSelectEntry",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void DXmSvnAddEntries();
procedure DXMSVNADDENTRIES (
SVNW : in WIDGET_TYPE;
AFTER_ENTRY : in INTEGER;
NUMBER_OF_ENTRIES : in INTEGER;
LEVEL : in INTEGER;
ENTRY_TAGS : in out UNSIGNED_LONGWORD;
INDEX_WINDOW : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNADDENTRIES);
pragma IMPORT_PROCEDURE (DXMSVNADDENTRIES, "DXmSvnAddEntries",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, UNSIGNED_LONGWORD, INTEGER),
(VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE));
--> extern void DXmSvnDeleteEntries();
procedure DXMSVNDELETEENTRIES (
SVNW : in WIDGET_TYPE;
AFTER_ENTRY : in INTEGER;
NUMBER_OF_ENTRIES : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNDELETEENTRIES);
pragma IMPORT_PROCEDURE (DXMSVNDELETEENTRIES, "DXmSvnDeleteEntries",
(WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnInvalidateEntry();
procedure DXMSVNINVALIDATEENTRY (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNINVALIDATEENTRY);
pragma IMPORT_PROCEDURE (DXMSVNINVALIDATEENTRY, "DXmSvnInvalidateEntry",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void DXmSvnSetEntrySensitivity();
procedure DXMSVNSETENTRYSENSITIVITY (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
SENSITIVITY : in BOOLEAN);
pragma INTERFACE (EXTERNAL, DXMSVNSETENTRYSENSITIVITY);
pragma IMPORT_PROCEDURE (DXMSVNSETENTRYSENSITIVITY,
"DXmSvnSetEntrySensitivity",
(WIDGET_TYPE, INTEGER, BOOLEAN),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnSetEntry();
procedure DXMSVNSETENTRY (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
WIDTH : in INTEGER;
HEIGHT : in INTEGER;
NUM_COMPONENTS : in INTEGER;
SENSITIVITY : in BOOLEAN;
ENTRY_TAG : in UNSIGNED_LONGWORD;
INDEX_WINDOW : in BOOLEAN);
pragma INTERFACE (EXTERNAL, DXMSVNSETENTRY);
pragma IMPORT_PROCEDURE (DXMSVNSETENTRY, "DXmSvnSetEntry",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER, BOOLEAN,
UNSIGNED_LONGWORD, BOOLEAN),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void DXmSvnSetComponentPixmap();
procedure DXMSVNSETCOMPONENTPIXMAP (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
COMP_NUMBER : in INTEGER;
X : in INTEGER;
Y : in INTEGER;
PIXMAP : in PIXMAP_TYPE;
WIDTH : in INTEGER;
HEIGHT : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSETCOMPONENTPIXMAP);
pragma IMPORT_PROCEDURE (DXMSVNSETCOMPONENTPIXMAP,
"DXmSvnSetComponentPixmap",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER, PIXMAP_TYPE, INTEGER,
INTEGER),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void DXmSvnSetComponentText();
procedure DXMSVNSETCOMPONENTTEXT (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
COMP_NUMBER : in INTEGER;
X : in INTEGER;
Y : in INTEGER;
CS : in XMSTRING_TYPE;
FONTLIST : in XMFONTLIST_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNSETCOMPONENTTEXT);
pragma IMPORT_PROCEDURE (DXMSVNSETCOMPONENTTEXT, "DXmSvnSetComponentText",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER, XMSTRING_TYPE,
XMFONTLIST_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void DXmSvnSetComponentWidget();
procedure DXMSVNSETCOMPONENTWIDGET (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
COMP_NUMBER : in INTEGER;
X : in INTEGER;
Y : in INTEGER;
SUBW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNSETCOMPONENTWIDGET);
pragma IMPORT_PROCEDURE (DXMSVNSETCOMPONENTWIDGET,
"DXmSvnSetComponentWidget",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER, INTEGER, WIDGET_TYPE),
(VALUE, VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern int DXmSvnPositionDisplay();
procedure DXMSVNPOSITIONDISPLAY (
RESULT : out INTEGER; --
return value
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
POSITION : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNPOSITIONDISPLAY);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNPOSITIONDISPLAY,
"DXmSvnPositionDisplay",
(INTEGER, WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE));
--> extern unsigned int DXmSvnGetEntryTag();
procedure DXMSVNGETENTRYTAG (
RESULT : out UNSIGNED_LONGWORD; --
return value
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETENTRYTAG);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETENTRYTAG, "DXmSvnGetEntryTag",
(UNSIGNED_LONGWORD, WIDGET_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern unsigned int DXmSvnGetEntryNumber();
procedure DXMSVNGETENTRYNUMBER (
RESULT : out UNSIGNED_LONGWORD; --
return value
SVNW : in WIDGET_TYPE;
TAG : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, DXMSVNGETENTRYNUMBER);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETENTRYNUMBER, "DXmSvnGetEntryNumber",
(UNSIGNED_LONGWORD, WIDGET_TYPE, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnHideSelections();
procedure DXMSVNHIDESELECTIONS (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNHIDESELECTIONS);
pragma IMPORT_PROCEDURE (DXMSVNHIDESELECTIONS, "DXmSvnHideSelections",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnShowSelections();
procedure DXMSVNSHOWSELECTIONS (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNSHOWSELECTIONS);
pragma IMPORT_PROCEDURE (DXMSVNSHOWSELECTIONS, "DXmSvnShowSelections",
(WIDGET_TYPE),
(VALUE));
--> extern int DXmSvnAutoScrollCheck();
procedure DXMSVNAUTOSCROLLCHECK (
RESULT : out INTEGER; --
return value
SVNW : in WIDGET_TYPE;
X : in INTEGER;
Y : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNAUTOSCROLLCHECK);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNAUTOSCROLLCHECK,
"DXmSvnAutoScrollCheck",
(INTEGER, WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE));
--> extern void DXmSvnAutoScrollDisplay();
procedure DXMSVNAUTOSCROLLDISPLAY (
SVNW : in WIDGET_TYPE;
X : in INTEGER;
Y : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNAUTOSCROLLDISPLAY);
pragma IMPORT_PROCEDURE (DXMSVNAUTOSCROLLDISPLAY, "DXmSvnAutoScrollDisplay",
(WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE));
--> extern Widget DXmSvnGetPrimaryWorkWidget();
procedure DXMSVNGETPRIMARYWORKWIDGET (
RESULT : out WIDGET_TYPE; --
return value
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNGETPRIMARYWORKWIDGET);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETPRIMARYWORKWIDGET,
"DXmSvnGetPrimaryWorkWidget",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern Widget DXmSvnGetSecondaryWorkWidget();
procedure DXMSVNGETSECONDARYWORKWIDGET (
RESULT : out WIDGET_TYPE; --
return value
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNGETSECONDARYWORKWIDGET);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETSECONDARYWORKWIDGET,
"DXmSvnGetSecondaryWorkWidget",
(WIDGET_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmSvnSetApplDragging();
procedure DXMSVNSETAPPLDRAGGING (
SVNW : in WIDGET_TYPE;
VALUE : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSETAPPLDRAGGING);
pragma IMPORT_PROCEDURE (DXMSVNSETAPPLDRAGGING, "DXmSvnSetApplDragging",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern int DXmSvnGetNumHighlighted();
procedure DXMSVNGETNUMHIGHLIGHTED (
RESULT : out INTEGER; --
return value
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNGETNUMHIGHLIGHTED);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETNUMHIGHLIGHTED,
"DXmSvnGetNumHighlighted",
(INTEGER, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmSvnGetHighlighted();
procedure DXMSVNGETHIGHLIGHTED (
SVNW : in WIDGET_TYPE;
HIGHLIGHTED : in out INTEGER;
ENTRY_TAGS : in out INTEGER;
NUM_ARRAY_ENTRIES : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETHIGHLIGHTED);
pragma IMPORT_PROCEDURE (DXMSVNGETHIGHLIGHTED, "DXmSvnGetHighlighted",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER),
(VALUE, REFERENCE, REFERENCE, VALUE));
--> extern int DXmSvnGetNumDisplayed();
procedure DXMSVNGETNUMDISPLAYED (
RESULT : out INTEGER; --
return value
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNGETNUMDISPLAYED);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETNUMDISPLAYED,
"DXmSvnGetNumDisplayed",
(INTEGER, WIDGET_TYPE),
(VALUE, VALUE));
--> extern void DXmSvnGetDisplayed();
procedure DXMSVNGETDISPLAYED (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in out INTEGER;
ENTRY_TAGS : in out UNSIGNED_LONGWORD;
Y_COORDS : in out INTEGER;
NUM_ARRAY_ENTRIES : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETDISPLAYED);
pragma IMPORT_PROCEDURE (DXMSVNGETDISPLAYED, "DXmSvnGetDisplayed",
(WIDGET_TYPE, INTEGER, UNSIGNED_LONGWORD, INTEGER, INTEGER),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE));
--> extern void DXmSvnClearHighlight();
procedure DXMSVNCLEARHIGHLIGHT (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNCLEARHIGHLIGHT);
pragma IMPORT_PROCEDURE (DXMSVNCLEARHIGHLIGHT, "DXmSvnClearHighlight",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void DXmSvnClearHighlighting();
procedure DXMSVNCLEARHIGHLIGHTING (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNCLEARHIGHLIGHTING);
pragma IMPORT_PROCEDURE (DXMSVNCLEARHIGHLIGHTING, "DXmSvnClearHighlighting",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnHighlightAll();
procedure DXMSVNHIGHLIGHTALL (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNHIGHLIGHTALL);
pragma IMPORT_PROCEDURE (DXMSVNHIGHLIGHTALL, "DXmSvnHighlightAll",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnHighlightEntry();
procedure DXMSVNHIGHLIGHTENTRY (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNHIGHLIGHTENTRY);
pragma IMPORT_PROCEDURE (DXMSVNHIGHLIGHTENTRY, "DXmSvnHighlightEntry",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void DXmSvnShowHighlighting();
procedure DXMSVNSHOWHIGHLIGHTING (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNSHOWHIGHLIGHTING);
pragma IMPORT_PROCEDURE (DXMSVNSHOWHIGHLIGHTING, "DXmSvnShowHighlighting",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnHideHighlighting();
procedure DXMSVNHIDEHIGHLIGHTING (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNHIDEHIGHLIGHTING);
pragma IMPORT_PROCEDURE (DXMSVNHIDEHIGHLIGHTING, "DXmSvnHideHighlighting",
(WIDGET_TYPE),
(VALUE));
--> extern unsigned int DXmSvnInitializeForMRM();
--> ENTRY DXmSvnInitializeForMRM
--> RETURNS LONGWORD UNSIGNED NAMED value;
-->
--> Obsolete - svn is now part of dxm
--> extern void DXmSvnValidateAll();
procedure DXMSVNVALIDATEALL (
SVNW : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNVALIDATEALL);
pragma IMPORT_PROCEDURE (DXMSVNVALIDATEALL, "DXmSvnValidateAll",
(WIDGET_TYPE),
(VALUE));
--> extern void DXmSvnSetComponentHidden();
procedure DXMSVNSETCOMPONENTHIDDEN (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
COMP_NUMBER : in INTEGER;
HIDDEN_MODE : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSETCOMPONENTHIDDEN);
pragma IMPORT_PROCEDURE (DXMSVNSETCOMPONENTHIDDEN,
"DXmSvnSetComponentHidden",
(WIDGET_TYPE, INTEGER, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE));
--> extern void DXmSvnSetEntryTag();
procedure DXMSVNSETENTRYTAG (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
ENTRY_TAG : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, DXMSVNSETENTRYTAG);
pragma IMPORT_PROCEDURE (DXMSVNSETENTRYTAG, "DXmSvnSetEntryTag",
(WIDGET_TYPE, INTEGER, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnSetEntryIndexWindow();
procedure DXMSVNSETENTRYINDEXWINDOW (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
INDEX_WINDOW : in BOOLEAN);
pragma INTERFACE (EXTERNAL, DXMSVNSETENTRYINDEXWINDOW);
pragma IMPORT_PROCEDURE (DXMSVNSETENTRYINDEXWINDOW,
"DXmSvnSetEntryIndexWindow",
(WIDGET_TYPE, INTEGER, BOOLEAN),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnSetEntryNumComponents();
procedure DXMSVNSETENTRYNUMCOMPONENTS (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
NUM_COMPONENTS : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSETENTRYNUMCOMPONENTS);
pragma IMPORT_PROCEDURE (DXMSVNSETENTRYNUMCOMPONENTS,
"DXmSvnSetEntryNumComponents",
(WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnGetTreePosition();
procedure DXMSVNGETTREEPOSITION (
SVNW : in WIDGET_TYPE;
X : out INTEGER;
Y : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETTREEPOSITION);
pragma IMPORT_PROCEDURE (DXMSVNGETTREEPOSITION, "DXmSvnGetTreePosition",
(WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, REFERENCE, REFERENCE));
--> extern void DXmSvnSetTreePosition();
procedure DXMSVNSETTREEPOSITION (
SVNW : in WIDGET_TYPE;
X : in INTEGER;
Y : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSETTREEPOSITION);
pragma IMPORT_PROCEDURE (DXMSVNSETTREEPOSITION, "DXmSvnSetTreePosition",
(WIDGET_TYPE, INTEGER, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnSetEntryPosition();
procedure DXMSVNSETENTRYPOSITION (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
WINDOW_MODE : in BOOLEAN;
X : in INTEGER;
Y : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNSETENTRYPOSITION);
pragma IMPORT_PROCEDURE (DXMSVNSETENTRYPOSITION, "DXmSvnSetEntryPosition",
(WIDGET_TYPE, INTEGER, BOOLEAN, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, VALUE, VALUE));
--> extern void DXmSvnGetEntryPosition();
procedure DXMSVNGETENTRYPOSITION (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER;
WINDOW_MODE : in BOOLEAN;
X : out INTEGER;
Y : out INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETENTRYPOSITION);
pragma IMPORT_PROCEDURE (DXMSVNGETENTRYPOSITION, "DXmSvnGetEntryPosition",
(WIDGET_TYPE, INTEGER, BOOLEAN, INTEGER, INTEGER),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> extern void DXmSvnFlushEntry();
procedure DXMSVNFLUSHENTRY (
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNFLUSHENTRY);
pragma IMPORT_PROCEDURE (DXMSVNFLUSHENTRY, "DXmSvnFlushEntry",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void DXmSvnInsertComponent();
procedure DXMSVNINSERTCOMPONENT (
SVNW : in WIDGET_TYPE;
COMP_NUMBER : in INTEGER;
WIDTH : in DIMENSION_TYPE;
TAG : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, DXMSVNINSERTCOMPONENT);
pragma IMPORT_PROCEDURE (DXMSVNINSERTCOMPONENT, "DXmSvnInsertComponent",
(WIDGET_TYPE, INTEGER, DIMENSION_TYPE, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE, VALUE));
--> extern void DXmSvnRemoveComponent();
procedure DXMSVNREMOVECOMPONENT (
SVNW : in WIDGET_TYPE;
COMP_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNREMOVECOMPONENT);
pragma IMPORT_PROCEDURE (DXMSVNREMOVECOMPONENT, "DXmSvnRemoveComponent",
(WIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> extern void DXmSvnSetComponentWidth();
procedure DXMSVNSETCOMPONENTWIDTH (
SVNW : in WIDGET_TYPE;
COMP_NUMBER : in INTEGER;
WIDTH : in DIMENSION_TYPE);
pragma INTERFACE (EXTERNAL, DXMSVNSETCOMPONENTWIDTH);
pragma IMPORT_PROCEDURE (DXMSVNSETCOMPONENTWIDTH, "DXmSvnSetComponentWidth",
(WIDGET_TYPE, INTEGER, DIMENSION_TYPE),
(VALUE, VALUE, VALUE));
--> extern Dimension DXmSvnGetComponentWidth();
procedure DXMSVNGETCOMPONENTWIDTH (
RESULT : out DIMENSION_TYPE; --
return value
SVNW : in WIDGET_TYPE;
COMP_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETCOMPONENTWIDTH);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETCOMPONENTWIDTH,
"DXmSvnGetComponentWidth",
(DIMENSION_TYPE, WIDGET_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern void DXmSvnSetComponentTag();
procedure DXMSVNSETCOMPONENTTAG (
SVNW : in WIDGET_TYPE;
COMP_NUMBER : in INTEGER;
TAG : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, DXMSVNSETCOMPONENTTAG);
pragma IMPORT_PROCEDURE (DXMSVNSETCOMPONENTTAG, "DXmSvnSetComponentTag",
(WIDGET_TYPE, INTEGER, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE));
--> extern unsigned int DXmSvnGetComponentTag();
procedure DXMSVNGETCOMPONENTTAG (
RESULT : out UNSIGNED_LONGWORD; --
return value
SVNW : in WIDGET_TYPE;
COMP_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETCOMPONENTTAG);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETCOMPONENTTAG,
"DXmSvnGetComponentTag",
(UNSIGNED_LONGWORD, WIDGET_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern int DXmSvnGetComponentNumber();
procedure DXMSVNGETCOMPONENTNUMBER (
RESULT : out INTEGER; --
return value
SVNW : in WIDGET_TYPE;
COMP_TAG : in UNSIGNED_LONGWORD);
pragma INTERFACE (EXTERNAL, DXMSVNGETCOMPONENTNUMBER);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETCOMPONENTNUMBER,
"DXmSvnGetComponentNumber",
(INTEGER, WIDGET_TYPE, UNSIGNED_LONGWORD),
(VALUE, VALUE, VALUE));
--> extern unsigned int DXmSvnGetEntryLevel();
procedure DXMSVNGETENTRYLEVEL (
RESULT : out UNSIGNED_LONGWORD; --
return value
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETENTRYLEVEL);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETENTRYLEVEL, "DXmSvnGetEntryLevel",
(UNSIGNED_LONGWORD, WIDGET_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> extern unsigned int DXmSvnGetEntrySensitivity();
procedure DXMSVNGETENTRYSENSITIVITY (
RESULT : out UNSIGNED_LONGWORD; --
return value
SVNW : in WIDGET_TYPE;
ENTRY_NUMBER : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMSVNGETENTRYSENSITIVITY);
pragma IMPORT_VALUED_PROCEDURE (DXMSVNGETENTRYSENSITIVITY,
"DXmSvnGetEntrySensitivity",
(UNSIGNED_LONGWORD, WIDGET_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> End of DXmSvn.h
--> Declared in .c files but not .h files
--> Cardinal DXmNumChildren(w)
--> CompositeWidget w;
procedure DXMNUMCHILDREN (
RESULT : out CARDINAL_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMNUMCHILDREN);
pragma IMPORT_VALUED_PROCEDURE (DXMNUMCHILDREN, "DXmNumChildren",
(CARDINAL_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> WidgetList DXmChildren(w)
--> CompositeWidget w;
procedure DXMCHILDREN (
RESULT : out WIDGETLIST_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCHILDREN);
pragma IMPORT_VALUED_PROCEDURE (DXMCHILDREN, "DXmChildren",
(WIDGETLIST_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> void DXmActivateWidget(w)
--> Widget w;
procedure DXMACTIVATEWIDGET (
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMACTIVATEWIDGET);
pragma IMPORT_PROCEDURE (DXMACTIVATEWIDGET, "DXmActivateWidget",
(WIDGET_TYPE),
(VALUE));
--> XmString DXmGetLocaleString (ascii)
--> char * ascii;
procedure DXMGETLOCALESTRING (
RESULT : out XMSTRING_TYPE; --
return value
ASCII : in STRING);
pragma INTERFACE (EXTERNAL, DXMGETLOCALESTRING);
pragma IMPORT_VALUED_PROCEDURE (DXMGETLOCALESTRING, "DXmGetLocaleString",
(XMSTRING_TYPE, STRING),
(VALUE, REFERENCE));
--> Widget
--> DXmDisplayVmsMessage( Parent, Name, Pos, X, Y, Style, Msgvec, Widget_id,
--> User_routine, Ok_callback, Help_callback )
--> Widget Parent; /*Widget id of parent widget
*/
--> char *Name; /* Name used to define message box
*/
--> int Pos; /* Flag indicating pos */
--> int X; /* Placement of left side of message box
*/
--> int Y; /* Placement of upper side of message box
*/
--> int Style; /* Flag indicating modal or modeless
*/
--> int *Msgvec;
--> Widget *Widget_id; /* Widget id of existing msg box or 0 if non
*/
--> int (*User_routine)(); /* Routine called after each message is
*/
--> XtCallbackList Ok_callback; /* Callback executed when "Acknowledged"
*/
--> /* button is selected
*/
--> XtCallbackList Help_callback;/* Callback executed when help is requested
*/
procedure DXMDISPLAYVMSMESSAGE (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
POS : in INTEGER;
X : in INTEGER;
Y : in INTEGER;
STYLE : in INTEGER;
MSGVEC : in ADDRESS_ARRAY;
WIDGET : in out WIDGET_TYPE;
USER_ROUTINE : in ADDRESS;
OK_CALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
HELP_CALLBACK : in XTCALLBACKREC_TYPE_ARRAY);
pragma INTERFACE (EXTERNAL, DXMDISPLAYVMSMESSAGE);
pragma IMPORT_VALUED_PROCEDURE (DXMDISPLAYVMSMESSAGE, "DXmDisplayVmsMessage",
(WIDGET_TYPE, WIDGET_TYPE, STRING, INTEGER, INTEGER, INTEGER, INTEGER,
ADDRESS_ARRAY, WIDGET_TYPE, ADDRESS,
XTCALLBACKREC_TYPE_ARRAY, XTCALLBACKREC_TYPE_ARRAY),
(VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE,
REFERENCE, VALUE, REFERENCE, REFERENCE));
--> Widget
--> DXmDisplayCSMessage( Parent, Name, Pos, X, Y, Style, Msgvec, Widget_id,
--> User_routine, Ok_callback, Help_callback )
--> Widget Parent; /*Widget id of parent widget
*/
--> char *Name; /* Name used to define message box
*/
--> int Pos; /* Flag indicating pos */
--> int X; /* Placement of left side of message box
*/
--> int Y; /* Placement of upper side of message box
*/
--> int Style; /* Flag indicating modal or modeless
*/
--> int *Msgvec;
--> Widget *Widget_id; /* Widget id of existing msg box or 0 if non
*/
--> int (*User_routine)(); /* Routine called after each message is
*/
--> XtCallbackList Ok_callback; /* Callback executed when "Acknowledged"
*/
--> /* button is selected
*/
--> XtCallbackList Help_callback;/* Callback executed when help is requested
*/
procedure DXMDISPLAYCSMESSAGE (
RESULT : out WIDGET_TYPE; --
return value
PARENT : in WIDGET_TYPE;
NAME : in STRING;
POS : in INTEGER;
X : in INTEGER;
Y : in INTEGER;
STYLE : in INTEGER;
MSGVEC : in ADDRESS_ARRAY;
WIDGET : in out WIDGET_TYPE;
USER_ROUTINE : in ADDRESS;
OK_CALLBACK : in XTCALLBACKREC_TYPE_ARRAY;
HELP_CALLBACK : in XTCALLBACKREC_TYPE_ARRAY);
pragma INTERFACE (EXTERNAL, DXMDISPLAYCSMESSAGE);
pragma IMPORT_VALUED_PROCEDURE (DXMDISPLAYCSMESSAGE, "DXmDisplayCSMessage",
(WIDGET_TYPE, WIDGET_TYPE, STRING, INTEGER, INTEGER, INTEGER, INTEGER,
ADDRESS_ARRAY, WIDGET_TYPE, ADDRESS,
XTCALLBACKREC_TYPE_ARRAY, XTCALLBACKREC_TYPE_ARRAY),
(VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE,
REFERENCE, VALUE, REFERENCE, REFERENCE));
--> Boolean DXmCSTextCut(widget, time)
--> Widget widget;
--> Time time;
procedure DXMCSTEXTCUT (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTCUT);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTCUT, "DXmCSTextCut",
(BOOLEAN, WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE));
--> Boolean DXmCSTextCopy(widget, time)
--> Widget widget;
--> Time time;
procedure DXMCSTEXTCOPY (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTCOPY);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTCOPY, "DXmCSTextCopy",
(BOOLEAN, WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE));
--> void DXmCSTextSetHighlight();
--> DXmCSTextWidget widget;
--> DXmCSTextPosition left;
--> DXmCSTextPosition right;
--> XmHighlightMode mode;
procedure DXMCSTEXTSETHIGHLIGHT (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
LEFT : in DXMCSTEXTPOSITION_TYPE;
RIGHT : in DXMCSTEXTPOSITION_TYPE;
MODE : in XMHIGHLIGHTMODE_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETHIGHLIGHT);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETHIGHLIGHT, "DXmCSTextSetHighlight",
(DXMCSTEXTWIDGET_TYPE, DXMCSTEXTPOSITION_TYPE, DXMCSTEXTPOSITION_TYPE,
XMHIGHLIGHTMODE_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> Boolean DXmCSTextPaste(widget)
--> DXmCSTextWidget widget;
procedure DXMCSTEXTPASTE (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
TIME : in TIME_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTPASTE);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTPASTE, "DXmCSTextPaste",
(BOOLEAN, WIDGET_TYPE, TIME_TYPE),
(VALUE, VALUE, VALUE));
--> Boolean DXmCSTextRemove(widget)
--> DXmCSTextWidget widget;
procedure DXMCSTEXTREMOVE (
RESULT : out BOOLEAN; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTREMOVE);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTREMOVE, "DXmCSTextRemove",
(BOOLEAN, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> void DXmCSTextSetAddMode();
--> DXmCSTextWidget widget;
--> Boolean state;
procedure DXMCSTEXTSETADDMODE (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
STATE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETADDMODE);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETADDMODE, "DXmCSTextSetAddMode",
(DXMCSTEXTWIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
-- Boolean DXmCSTextHasSelection();
-- DXmCSTextWidget widget;
procedure DXMCSTEXTHASSELECTION (
RESULT : out BOOLEAN; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTHASSELECTION);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTHASSELECTION,
"DXmCSTextHasSelection",
(BOOLEAN, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> Boolean DXmCSTextGetSelectionInfo();
--> Widget widget;
--> DXmCSTextPosition *left;
--> DXmCSTextPosition *right;
procedure DXMCSTEXTGETSELECTIONINFO (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
LEFT : in out DXMCSTEXTPOSITION_TYPE;
RIGHT : in out DXMCSTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETSELECTIONINFO);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETSELECTIONINFO,
"DXmCSTextGetSelectionInfo",
(BOOLEAN, WIDGET_TYPE, DXMCSTEXTPOSITION_TYPE, DXMCSTEXTPOSITION_TYPE),
(VALUE, VALUE, REFERENCE, REFERENCE));
--> DXmCSTextPosition DXmCSTextGetTopPosition();
--> DXmCSTextWidget widget;
procedure DXMCSTEXTGETTOPPOSITION (
RESULT : out DXMCSTEXTPOSITION_TYPE; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTGETTOPPOSITION);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTGETTOPPOSITION,
"DXmCSTextGetTopPosition",
(DXMCSTEXTPOSITION_TYPE, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> void DXmCSTextSetTopPosition();
--> DXmCSTextWidget widget;
--> DXmCSTextPosition top_position;
procedure DXMCSTEXTSETTOPPOSITION (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
TOP_POSITION : in DXMCSTEXTPOSITION_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTSETTOPPOSITION);
pragma IMPORT_PROCEDURE (DXMCSTEXTSETTOPPOSITION, "DXmCSTextSetTopPosition",
(DXMCSTEXTWIDGET_TYPE, DXMCSTEXTPOSITION_TYPE),
(VALUE, VALUE));
--> void
--> DXmCSTextVerticalScroll (widget, n)
--> DXmCSTextWidget widget;
--> int n;
procedure DXMCSTEXTVERTICALSCROLL (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
N : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMCSTEXTVERTICALSCROLL);
pragma IMPORT_PROCEDURE (DXMCSTEXTVERTICALSCROLL, "DXmCSTextVerticalScroll",
(DXMCSTEXTWIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> void
--> DXmCSTextHorizontalScroll (widget, n)
--> DXmCSTextWidget widget;
--> int n;
procedure DXMCSTEXTHORIZONTALSCROLL (
WIDGET : in DXMCSTEXTWIDGET_TYPE;
N : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMCSTEXTHORIZONTALSCROLL);
pragma IMPORT_PROCEDURE (DXMCSTEXTHORIZONTALSCROLL,
"DXmCSTextHorizontalScroll",
(DXMCSTEXTWIDGET_TYPE, INTEGER),
(VALUE, VALUE));
--> int DXmCSTextNumLines(widget)
--> DXmCSTextWidget widget;
procedure DXMCSTEXTNUMLINES (
RESULT : out INTEGER; --
return value
WIDGET : in DXMCSTEXTWIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTNUMLINES);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTNUMLINES, "DXmCSTextNumLines",
(INTEGER, DXMCSTEXTWIDGET_TYPE),
(VALUE, VALUE));
--> DXmCSTextPosition DXmCSTextXYToPos( Widget widget, Position x,
--> Position y)
procedure DXMCSTEXTXYTOPOS (
RESULT : out DXMCSTEXTPOSITION_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
X : in POSITION_TYPE;
Y : in POSITION_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTXYTOPOS);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTXYTOPOS, "DXmCSTextXYToPos",
(DXMCSTEXTPOSITION_TYPE, WIDGET_TYPE, POSITION_TYPE, POSITION_TYPE),
(VALUE, VALUE, VALUE, VALUE));
--> Boolean DXmCSTextPosToXY ( Widget widget, DXmCSTextPosition position,
--> Position *x, Position *y )
procedure DXMCSTEXTPOSTOXY (
RESULT : out BOOLEAN; --
return value
WIDGET : in WIDGET_TYPE;
POSITION : in DXMCSTEXTPOSITION_TYPE;
X : out POSITION_TYPE;
Y : out POSITION_TYPE);
pragma INTERFACE (EXTERNAL, DXMCSTEXTPOSTOXY);
pragma IMPORT_VALUED_PROCEDURE (DXMCSTEXTPOSTOXY, "DXmCSTextPosToXY",
(BOOLEAN, WIDGET_TYPE, DXMCSTEXTPOSITION_TYPE, POSITION_TYPE,
POSITION_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, REFERENCE));
--> New convenience routines
--> void DXmHelpOnContext (w, confine)
--> Widget w;
--> Boolean confine;
procedure DXMHELPONCONTEXT (
WIDGET : in WIDGET_TYPE;
CONFINE : in BOOLEAN);
pragma INTERFACE (EXTERNAL, DXMHELPONCONTEXT);
pragma IMPORT_PROCEDURE (DXMHELPONCONTEXT, "DXmHelpOnContext",
(WIDGET_TYPE, BOOLEAN),
(VALUE, VALUE));
--> Cursor DXmCreateCursor(w, cursorkind)
--> Widget w;
--> int cursorkind;
procedure DXMCREATECURSOR (
RESULT : out CURSOR_TYPE; --
return value
WIDGET : in WIDGET_TYPE;
CURSORKIND : in INTEGER);
pragma INTERFACE (EXTERNAL, DXMCREATECURSOR);
pragma IMPORT_VALUED_PROCEDURE (DXMCREATECURSOR, "DXmCreateCursor",
(CURSOR_TYPE, WIDGET_TYPE, INTEGER),
(VALUE, VALUE, VALUE));
--> void DXmFormSpaceButtonsEqually (parent, widget_list, num_widgets)
--> Widget parent;
--> Widget *widget_list;
--> Cardinal num_widgets;
procedure DXMFORMSPACEBUTTONSEQUALLY (
PARENT : in WIDGET_TYPE;
WIDGET_LIST : in WIDGET_TYPE;
NUM_WIDGETS : in CARDINAL_TYPE);
pragma INTERFACE (EXTERNAL, DXMFORMSPACEBUTTONSEQUALLY);
pragma IMPORT_PROCEDURE (DXMFORMSPACEBUTTONSEQUALLY,
"DXmFormSpaceButtonsEqually",
(WIDGET_TYPE, WIDGET_TYPE, CARDINAL_TYPE),
(VALUE, REFERENCE, VALUE));
--> I18N routines
--> XmStringCharSet DXmGetLocaleCharset( )
procedure DXMGETLOCALECHARSET (
RESULT : out XMSTRINGCHARSET_TYPE); --
return value
pragma INTERFACE (EXTERNAL, DXMGETLOCALECHARSET);
pragma IMPORT_VALUED_PROCEDURE (DXMGETLOCALECHARSET, "DXmGetLocaleCharset",
(XMSTRINGCHARSET_TYPE),
(VALUE));
--> XmStringCharSet *DXmGetLocaleCharsets( )
procedure DXMGETLOCALECHARSETS (
RESULT : out ADDRESS); --
return value
pragma INTERFACE (EXTERNAL, DXMGETLOCALECHARSETS);
pragma IMPORT_VALUED_PROCEDURE (DXMGETLOCALECHARSETS, "DXmGetLocaleCharsets",
(ADDRESS),
(VALUE));
--> KeySym DXmGetLocaleMnemonic(context,w,mnemonic,charset)
--> I18nContext context;
--> Widget w; /* Widget to help I18N layer to translate */
--> char * mnemonic; /* mnemonic string */
--> XmStringCharSet charset; /* The requested charset of the mnemonic */
procedure DXMGETLOCALEMNEMONIC (
RESULT : out KEYSYM_TYPE; --
return value
CONTEXT : in I18NCONTEXT_TYPE;
WIDGET : in WIDGET_TYPE;
MNEMONIC : in STRING;
CHARSET : in XMSTRINGCHARSET_TYPE);
pragma INTERFACE (EXTERNAL, DXMGETLOCALEMNEMONIC);
pragma IMPORT_VALUED_PROCEDURE (DXMGETLOCALEMNEMONIC, "DXmGetLocaleMnemonic",
(KEYSYM_TYPE, I18NCONTEXT_TYPE, WIDGET_TYPE, STRING,
XMSTRINGCHARSET_TYPE),
(VALUE, VALUE, VALUE, REFERENCE, VALUE));
--> XmFontList DXmFontListCreateDefault (widget)
--> Widget widget;
procedure DXMFONTLISTCREATEDEFAULT (
RESULT : out XMFONTLIST_TYPE; --
return value
WIDGET : in WIDGET_TYPE);
pragma INTERFACE (EXTERNAL, DXMFONTLISTCREATEDEFAULT);
pragma IMPORT_VALUED_PROCEDURE (DXMFONTLISTCREATEDEFAULT,
"DXmFontListCreateDefault",
(XMFONTLIST_TYPE, WIDGET_TYPE),
(VALUE, VALUE));
--> HyperHelp routines
--> void DXmHelpSystemOpen( help_context, main_window, help_file, routine, tag )
--> Opaque *help_context;
--> Widget main_window;
--> char *help_file;
--> void ( (*routine) () );
--> char *tag;
procedure DXMHELPSYSTEMOPEN (
HELP_CONTEXT : out XTPOINTER_TYPE;
MAIN_WINDOW : in WIDGET_TYPE;
HELP_FILE : in STRING;
ROUTINE : in ADDRESS;
TAG : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, DXMHELPSYSTEMOPEN);
pragma IMPORT_PROCEDURE (DXMHELPSYSTEMOPEN, "DXmHelpSystemOpen",
(XTPOINTER_TYPE, WIDGET_TYPE, STRING, ADDRESS, XTPOINTER_TYPE),
(REFERENCE, VALUE, REFERENCE, VALUE, VALUE));
--> void DXmHelpSystemDisplay( help_context, help_file, keyword, name, routine,
tag )
--> Opaque help_context;
--> char *help_file;
--> char *keyword;
--> char *name;
--> void ( (*routine) () );
--> char *tag;
procedure DXMHELPSYSTEMDISPLAY (
HELP_CONTEXT : in XTPOINTER_TYPE;
HELP_FILE : in STRING;
KEYWORD : in STRING;
NAME : in STRING;
ROUTINE : in ADDRESS;
TAG : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, DXMHELPSYSTEMDISPLAY);
pragma IMPORT_PROCEDURE (DXMHELPSYSTEMDISPLAY, "DXmHelpSystemDisplay",
(XTPOINTER_TYPE, STRING, STRING, STRING, ADDRESS, XTPOINTER_TYPE),
(VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE));
--> void DXmHelpSystemClose( help_context, routine, tag )
--> Opaque help_context;
--> void ( (*routine) () );
--> char *tag;
procedure DXMHELPSYSTEMCLOSE (
HELP_CONTEXT : in XTPOINTER_TYPE;
ROUTINE : in ADDRESS;
TAG : in XTPOINTER_TYPE);
pragma INTERFACE (EXTERNAL, DXMHELPSYSTEMCLOSE);
pragma IMPORT_PROCEDURE (DXMHELPSYSTEMCLOSE, "DXmHelpSystemClose",
(XTPOINTER_TYPE, ADDRESS, XTPOINTER_TYPE),
(VALUE, VALUE, VALUE));
------------------------------------------------------------------------------
-- Routines added by 6033.
------------------------------------------------------------------------------
procedure XtResizeWidget(
W : in Widget_Type;
Width : in Dimension_Type;
Height : in Dimension_Type;
Border_Width : in Dimension_Type);
pragma Interface(External,XtResizeWidget);
pragma Import_Procedure(
XtResizeWidget,"XtResizeWidget",
(Widget_Type,Dimension_Type,Dimension_Type,Dimension_Type),
(Value,Value,Value,Value));
end MOTIF;
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 5955.1 | | GRIM::MESSENGER | Bob Messenger | Tue Apr 22 1997 17:35 | 9 |
| Instead of posting a 24,000 line note it would probably have been better to
post a network pointer to a directory with the source file etc.
I don't have time to look at such a long program right now (especially
since I don't know Ada), but I will point out that the Motif toolkit is
not AST reentrant, and if Motif calls are being made in the main program
they should not be made in any of the AST routines.
-- Bob
|
| 5955.2 | Motif and AST... | TAV02::AMIT | Amit Margalit | Wed Apr 23 1997 08:34 | 17 |
| Hello!
I apologize for the long posting. I realized that your way is better a bit too
late.
I know that Motif is not AST reentrant. It is obvious from ANA/PROC that the
hung process has entered a Motif routine, and disabled ASTs for User mode,
but somehow forgot to re-enable them. The trace shows that this happens in
XtAppCreateShell, which is extremely illogical, because if there was a bug
in there, I'd wager it would have been noticed before!
What we're looking for is perhaps an idea what could cause Motif to hang
like this. Perhaps I should open an IPMT on this?
Thanks for the response.
Amit
|
| 5955.3 | | GRIM::MESSENGER | Bob Messenger | Wed Apr 23 1997 13:11 | 11 |
| What version of DECwindows Motif is the customer running? There was a bug
in Xlib's AST handling in DECwindows Motif V1.2-3 (and earlier versions, I
think) which is fixed in DECwindows Motif V1.2-4 and in the
ALPMOTF07_U03012 and VAXMOTF07_U3012 patch kits. The patch kits are
available on-line in BULOVA::DISK$TRANSFER:[DECW$MOTIF_PATCHES.V123]. I
didn't work on the problem so I'm familiar with the exact details.
If upgrading to V1.2-4 or installing the V1.2-3 patch kit doesn't fix the
problem then yes, I'd suggest entering an IPMT case.
-- Bob
|