Subversion Repositories tendra.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 7u83 1
#   		 Crown Copyright (c) 1997
2
#   
3
#   This TenDRA(r) Computer Program is subject to Copyright
4
#   owned by the United Kingdom Secretary of State for Defence
5
#   acting through the Defence Evaluation and Research Agency
6
#   (DERA).  It is made available to Recipients with a
7
#   royalty-free licence for its use, reproduction, transfer
8
#   to other parties and amendment for any purpose not excluding
9
#   product development provided that any such use et cetera
10
#   shall be deemed to be acceptance of the following conditions:-
11
#   
12
#       (1) Its Recipients shall ensure that this Notice is
13
#       reproduced upon any copies or amended versions of it;
14
#   
15
#       (2) Any amended version of it shall be clearly marked to
16
#       show both the nature of and the organisation responsible
17
#       for the relevant amendment or amendments;
18
#   
19
#       (3) Its onward transfer from a recipient to another
20
#       party shall be deemed to be that party's acceptance of
21
#       these conditions;
22
#   
23
#       (4) DERA gives no warranty or assurance as to its
24
#       quality or suitability for any purpose and DERA accepts
25
#       no liability whatsoever in relation to any use to which
26
#       it may be put.
27
#
28
%%
29
#ifndef __X11_P_HEADERS
30
#error Unauthorized access to X11 P headers
31
#endif
32
%%
33
 
34
+USE "x5/t", "X11/RectObj.h" ;
35
+USE "x5/t", "X11/IntrinsicP.h", "intrinsix" ;
36
+USE "x5/t", "X11/ObjectP.h" (!?) ;
37
 
38
 
39
# RectObjClassPart Definition (12.3.1)
40
 
41
+FIELD ( struct ) RectObjClassPart := {
42
    WidgetClass superclass ;
43
    String class_name ;
44
    Cardinal widget_size ;
45
    XtProc class_initialize ;
46
    XtWidgetClassProc class_part_initialize ;
47
    XtEnum class_inited ;
48
    XtInitProc initialize ;
49
    XtArgsProc initialize_hook ;
50
    XtProc rect1 ;
51
    XtPointer rect2 ;
52
    Cardinal rect3 ;
53
    XtResourceList resources ;
54
    Cardinal num_resources ;
55
    XrmClass xrm_class ;
56
    Boolean rect4 ;
57
    XtEnum rect5 ;
58
    Boolean rect6 ;
59
    Boolean rect7 ;
60
    XtWidgetProc destroy ;
61
    XtWidgetProc resize ;
62
    XtExposeProc expose ;
63
    XtSetValuesFunc set_values ;
64
    XtArgsFunc set_values_hook ;
65
    XtAlmostProc set_values_almost ;
66
    XtArgsProc get_values_hook ;
67
    XtProc rect9 ;
68
    XtVersionType version ;
69
    XtPointer callback_private ;
70
    String rect10 ;
71
    XtGeometryHandler query_geometry ;
72
    XtProc rect11 ;
73
    XtPointer extension ;
74
} ;
75
 
76
+FIELD RectObjClassRec := {
77
    RectObjClassPart rect_class ;
78
} ;
79
 
80
+EXP lvalue RectObjClassRec rectObjClassRec ;
81
 
82
 
83
# RectObjPart Definition (12.3.2)
84
 
85
+FIELD ( struct ) RectObjPart {
86
    Position x, y ;
87
    Dimension width, height ;
88
    Dimension border_width ;
89
    Boolean managed ;
90
    Boolean sensitive ;
91
    Boolean ancestor_sensitive ;
92
} ;
93
 
94
+FIELD RectObjRec := {
95
    ObjectPart object ;
96
    RectObjPart rectangle ;
97
} ;