1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
|
package OpenGL::GLX;
=head1 NAME
OpenGL::GLX - module encapsulating GLX functions
=cut
use strict;
use warnings;
use Exporter 'import';
require DynaLoader;
our $VERSION = '0.7003';
our @ISA = qw(DynaLoader);
our @const_common = qw(
GLX_ACCUM_ALPHA_SIZE
GLX_ACCUM_BLUE_SIZE
GLX_ACCUM_GREEN_SIZE
GLX_ACCUM_RED_SIZE
GLX_ALPHA_SIZE
GLX_AUX_BUFFERS
GLX_BLUE_SIZE
GLX_BUFFER_SIZE
GLX_DEPTH_SIZE
GLX_DOUBLEBUFFER
GLX_GREEN_SIZE
GLX_LEVEL
GLX_RED_SIZE
GLX_RGBA
GLX_STENCIL_SIZE
GLX_STEREO
GLX_USE_GL
);
our @const_old_functions = qw(
AlreadyGrabbed
AnyModifier
AsyncBoth
AsyncKeyboard
AsyncPointer
Button1
Button1Mask
Button1MotionMask
Button2
Button2Mask
Button2MotionMask
Button3
Button3Mask
Button3MotionMask
Button4
Button4Mask
Button4MotionMask
Button5
Button5Mask
Button5MotionMask
ButtonMotionMask
ButtonPress
ButtonPressMask
ButtonRelease
ButtonReleaseMask
CirculateNotify
CirculateRequest
ClientMessage
ColormapChangeMask
ColormapInstalled
ColormapNotify
ColormapUninstalled
ConfigureNotify
ConfigureRequest
ControlMapIndex
ControlMask
CreateNotify
DestroyNotify
DirectColor
EnterNotify
EnterWindowMask
Expose
ExposureMask
FamilyChaos
FamilyDECnet
FamilyInternet
FocusChangeMask
FocusIn
FocusOut
GrabFrozen
GrabInvalidTime
GrabModeAsync
GrabModeSync
GrabNotViewable
GrabSuccess
GraphicsExpose
GravityNotify
GrayScale
KeyPress
KeyPressMask
KeyRelease
KeyReleaseMask
KeymapNotify
KeymapStateMask
LASTEvent
LeaveNotify
LeaveWindowMask
LockMapIndex
LockMask
MapNotify
MapRequest
MappingNotify
Mod1MapIndex
Mod1Mask
Mod2MapIndex
Mod2Mask
Mod3MapIndex
Mod3Mask
Mod4MapIndex
Mod4Mask
Mod5MapIndex
Mod5Mask
MotionNotify
NoEventMask
NoExpose
NotifyAncestor
NotifyDetailNone
NotifyGrab
NotifyHint
NotifyInferior
NotifyNonlinear
NotifyNonlinearVirtual
NotifyNormal
NotifyPointer
NotifyPointerRoot
NotifyUngrab
NotifyVirtual
NotifyWhileGrabbed
OwnerGrabButtonMask
PlaceOnBottom
PlaceOnTop
PointerMotionHintMask
PointerMotionMask
PropertyChangeMask
PropertyDelete
PropertyNewValue
PropertyNotify
PseudoColor
ReparentNotify
ReplayKeyboard
ReplayPointer
ResizeRedirectMask
ResizeRequest
SelectionClear
SelectionNotify
SelectionRequest
ShiftMapIndex
ShiftMask
StaticColor
StaticGray
StructureNotifyMask
SubstructureNotifyMask
SubstructureRedirectMask
SyncBoth
SyncKeyboard
SyncPointer
TrueColor
UnmapNotify
VisibilityChangeMask
VisibilityFullyObscured
VisibilityNotify
VisibilityPartiallyObscured
VisibilityUnobscured
X_PROTOCOL
X_PROTOCOL_REVISION
);
our @const = (@const_common, qw(
GLX_X_VISUAL_TYPE_EXT
GLX_TRANSPARENT_TYPE_EXT
GLX_TRANSPARENT_INDEX_VALUE_EXT
GLX_TRANSPARENT_RED_VALUE_EXT
GLX_TRANSPARENT_GREEN_VALUE_EXT
GLX_TRANSPARENT_BLUE_VALUE_EXT
GLX_TRANSPARENT_ALPHA_VALUE_EXT
), @const_old_functions);
our @func = qw(
glXSwapBuffers
XPending
glpXNextEvent
glpXQueryPointer
);
our @EXPORT_OK = (@const, @func, qw(_have_glp _have_glx glpcOpenWindow __had_dbuffer_hack glpReadTex));
our %EXPORT_TAGS = (
all => \@EXPORT_OK,
constants => \@const,
glxconstants => \@const,
functions => \@func,
glxfunctions => \@func,
);
__PACKAGE__->bootstrap;
1;
|
