Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package Tk::X; |
2 | ||
3 | use strict; | |
4 | use Carp; | |
5 | use vars qw($VERSION @EXPORT $AUTOLOAD); | |
6 | $VERSION = '3.016'; # $Id: //depot/Tk8/Xlib/X/X.pm#16 $ | |
7 | use Tk qw($XS_VERSION); | |
8 | ||
9 | require Exporter; | |
10 | require DynaLoader; | |
11 | require AutoLoader; | |
12 | ||
13 | ||
14 | use base qw(Exporter DynaLoader); | |
15 | # Items to export into callers namespace by default. Note: do not export | |
16 | # names by default without a very good reason. Use EXPORT_OK instead. | |
17 | # Do not simply export all your public functions/methods/constants. | |
18 | @EXPORT = qw( | |
19 | Above | |
20 | AllTemporary | |
21 | AllocAll | |
22 | AllocNone | |
23 | AllowExposures | |
24 | AlreadyGrabbed | |
25 | Always | |
26 | AnyButton | |
27 | AnyKey | |
28 | AnyModifier | |
29 | AnyPropertyType | |
30 | ArcChord | |
31 | ArcPieSlice | |
32 | AsyncBoth | |
33 | AsyncKeyboard | |
34 | AsyncPointer | |
35 | AutoRepeatModeDefault | |
36 | AutoRepeatModeOff | |
37 | AutoRepeatModeOn | |
38 | BadAccess | |
39 | BadAlloc | |
40 | BadAtom | |
41 | BadColor | |
42 | BadCursor | |
43 | BadDrawable | |
44 | BadFont | |
45 | BadGC | |
46 | BadIDChoice | |
47 | BadImplementation | |
48 | BadLength | |
49 | BadMatch | |
50 | BadName | |
51 | BadPixmap | |
52 | BadRequest | |
53 | BadValue | |
54 | BadWindow | |
55 | Below | |
56 | BottomIf | |
57 | Button1 | |
58 | Button1Mask | |
59 | Button1MotionMask | |
60 | Button2 | |
61 | Button2Mask | |
62 | Button2MotionMask | |
63 | Button3 | |
64 | Button3Mask | |
65 | Button3MotionMask | |
66 | Button4 | |
67 | Button4Mask | |
68 | Button4MotionMask | |
69 | Button5 | |
70 | Button5Mask | |
71 | Button5MotionMask | |
72 | ButtonMotionMask | |
73 | ButtonPress | |
74 | ButtonPressMask | |
75 | ButtonRelease | |
76 | ButtonReleaseMask | |
77 | CWBackPixel | |
78 | CWBackPixmap | |
79 | CWBackingPixel | |
80 | CWBackingPlanes | |
81 | CWBackingStore | |
82 | CWBitGravity | |
83 | CWBorderPixel | |
84 | CWBorderPixmap | |
85 | CWBorderWidth | |
86 | CWColormap | |
87 | CWCursor | |
88 | CWDontPropagate | |
89 | CWEventMask | |
90 | CWHeight | |
91 | CWOverrideRedirect | |
92 | CWSaveUnder | |
93 | CWSibling | |
94 | CWStackMode | |
95 | CWWidth | |
96 | CWWinGravity | |
97 | CWX | |
98 | CWY | |
99 | CapButt | |
100 | CapNotLast | |
101 | CapProjecting | |
102 | CapRound | |
103 | CenterGravity | |
104 | CirculateNotify | |
105 | CirculateRequest | |
106 | ClientMessage | |
107 | ClipByChildren | |
108 | ColormapChangeMask | |
109 | ColormapInstalled | |
110 | ColormapNotify | |
111 | ColormapUninstalled | |
112 | Complex | |
113 | ConfigureNotify | |
114 | ConfigureRequest | |
115 | ControlMapIndex | |
116 | ControlMask | |
117 | Convex | |
118 | CoordModeOrigin | |
119 | CoordModePrevious | |
120 | CopyFromParent | |
121 | CreateNotify | |
122 | CurrentTime | |
123 | CursorShape | |
124 | DefaultBlanking | |
125 | DefaultExposures | |
126 | DestroyAll | |
127 | DestroyNotify | |
128 | DirectColor | |
129 | DisableAccess | |
130 | DisableScreenInterval | |
131 | DisableScreenSaver | |
132 | DoBlue | |
133 | DoGreen | |
134 | DoRed | |
135 | DontAllowExposures | |
136 | DontPreferBlanking | |
137 | EastGravity | |
138 | EnableAccess | |
139 | EnterNotify | |
140 | EnterWindowMask | |
141 | EvenOddRule | |
142 | Expose | |
143 | ExposureMask | |
144 | FamilyChaos | |
145 | FamilyDECnet | |
146 | FamilyInternet | |
147 | FillOpaqueStippled | |
148 | FillSolid | |
149 | FillStippled | |
150 | FillTiled | |
151 | FirstExtensionError | |
152 | FocusChangeMask | |
153 | FocusIn | |
154 | FocusOut | |
155 | FontChange | |
156 | FontLeftToRight | |
157 | FontRightToLeft | |
158 | ForgetGravity | |
159 | GCArcMode | |
160 | GCBackground | |
161 | GCCapStyle | |
162 | GCClipMask | |
163 | GCClipXOrigin | |
164 | GCClipYOrigin | |
165 | GCDashList | |
166 | GCDashOffset | |
167 | GCFillRule | |
168 | GCFillStyle | |
169 | GCFont | |
170 | GCForeground | |
171 | GCFunction | |
172 | GCGraphicsExposures | |
173 | GCJoinStyle | |
174 | GCLastBit | |
175 | GCLineStyle | |
176 | GCLineWidth | |
177 | GCPlaneMask | |
178 | GCStipple | |
179 | GCSubwindowMode | |
180 | GCTile | |
181 | GCTileStipXOrigin | |
182 | GCTileStipYOrigin | |
183 | GXand | |
184 | GXandInverted | |
185 | GXandReverse | |
186 | GXclear | |
187 | GXcopy | |
188 | GXcopyInverted | |
189 | GXequiv | |
190 | GXinvert | |
191 | GXnand | |
192 | GXnoop | |
193 | GXnor | |
194 | GXor | |
195 | GXorInverted | |
196 | GXorReverse | |
197 | GXset | |
198 | GXxor | |
199 | GrabFrozen | |
200 | GrabInvalidTime | |
201 | GrabModeAsync | |
202 | GrabModeSync | |
203 | GrabNotViewable | |
204 | GrabSuccess | |
205 | GraphicsExpose | |
206 | GravityNotify | |
207 | GrayScale | |
208 | HostDelete | |
209 | HostInsert | |
210 | IncludeInferiors | |
211 | InputFocus | |
212 | InputOnly | |
213 | InputOutput | |
214 | IsUnmapped | |
215 | IsUnviewable | |
216 | IsViewable | |
217 | JoinBevel | |
218 | JoinMiter | |
219 | JoinRound | |
220 | KBAutoRepeatMode | |
221 | KBBellDuration | |
222 | KBBellPercent | |
223 | KBBellPitch | |
224 | KBKey | |
225 | KBKeyClickPercent | |
226 | KBLed | |
227 | KBLedMode | |
228 | KeyPress | |
229 | KeyPressMask | |
230 | KeyRelease | |
231 | KeyReleaseMask | |
232 | KeymapNotify | |
233 | KeymapStateMask | |
234 | LASTEvent | |
235 | LSBFirst | |
236 | LastExtensionError | |
237 | LeaveNotify | |
238 | LeaveWindowMask | |
239 | LedModeOff | |
240 | LedModeOn | |
241 | LineDoubleDash | |
242 | LineOnOffDash | |
243 | LineSolid | |
244 | LockMapIndex | |
245 | LockMask | |
246 | LowerHighest | |
247 | MSBFirst | |
248 | MapNotify | |
249 | MapRequest | |
250 | MappingBusy | |
251 | MappingFailed | |
252 | MappingKeyboard | |
253 | MappingModifier | |
254 | MappingNotify | |
255 | MappingPointer | |
256 | MappingSuccess | |
257 | Mod1MapIndex | |
258 | Mod1Mask | |
259 | Mod2MapIndex | |
260 | Mod2Mask | |
261 | Mod3MapIndex | |
262 | Mod3Mask | |
263 | Mod4MapIndex | |
264 | Mod4Mask | |
265 | Mod5MapIndex | |
266 | Mod5Mask | |
267 | MotionNotify | |
268 | NoEventMask | |
269 | NoExpose | |
270 | NoSymbol | |
271 | Nonconvex | |
272 | None | |
273 | NorthEastGravity | |
274 | NorthGravity | |
275 | NorthWestGravity | |
276 | NotUseful | |
277 | NotifyAncestor | |
278 | NotifyDetailNone | |
279 | NotifyGrab | |
280 | NotifyHint | |
281 | NotifyInferior | |
282 | NotifyNonlinear | |
283 | NotifyNonlinearVirtual | |
284 | NotifyNormal | |
285 | NotifyPointer | |
286 | NotifyPointerRoot | |
287 | NotifyUngrab | |
288 | NotifyVirtual | |
289 | NotifyWhileGrabbed | |
290 | Opposite | |
291 | OwnerGrabButtonMask | |
292 | ParentRelative | |
293 | PlaceOnBottom | |
294 | PlaceOnTop | |
295 | PointerMotionHintMask | |
296 | PointerMotionMask | |
297 | PointerRoot | |
298 | PointerWindow | |
299 | PreferBlanking | |
300 | PropModeAppend | |
301 | PropModePrepend | |
302 | PropModeReplace | |
303 | PropertyChangeMask | |
304 | PropertyDelete | |
305 | PropertyNewValue | |
306 | PropertyNotify | |
307 | PseudoColor | |
308 | RaiseLowest | |
309 | ReparentNotify | |
310 | ReplayKeyboard | |
311 | ReplayPointer | |
312 | ResizeRedirectMask | |
313 | ResizeRequest | |
314 | RetainPermanent | |
315 | RetainTemporary | |
316 | RevertToNone | |
317 | RevertToParent | |
318 | RevertToPointerRoot | |
319 | ScreenSaverActive | |
320 | ScreenSaverReset | |
321 | SelectionClear | |
322 | SelectionNotify | |
323 | SelectionRequest | |
324 | SetModeDelete | |
325 | SetModeInsert | |
326 | ShiftMapIndex | |
327 | ShiftMask | |
328 | SouthEastGravity | |
329 | SouthGravity | |
330 | SouthWestGravity | |
331 | StaticColor | |
332 | StaticGravity | |
333 | StaticGray | |
334 | StippleShape | |
335 | StructureNotifyMask | |
336 | SubstructureNotifyMask | |
337 | SubstructureRedirectMask | |
338 | Success | |
339 | SyncBoth | |
340 | SyncKeyboard | |
341 | SyncPointer | |
342 | TileShape | |
343 | TopIf | |
344 | TrueColor | |
345 | UnmapGravity | |
346 | UnmapNotify | |
347 | Unsorted | |
348 | VisibilityChangeMask | |
349 | VisibilityFullyObscured | |
350 | VisibilityNotify | |
351 | VisibilityPartiallyObscured | |
352 | VisibilityUnobscured | |
353 | WestGravity | |
354 | WhenMapped | |
355 | WindingRule | |
356 | XYBitmap | |
357 | XYPixmap | |
358 | X_H | |
359 | X_PROTOCOL | |
360 | X_PROTOCOL_REVISION | |
361 | YSorted | |
362 | YXBanded | |
363 | YXSorted | |
364 | ZPixmap | |
365 | ); | |
366 | ||
367 | sub AUTOLOAD { | |
368 | # This AUTOLOAD is used to 'autoload' constants from the constant() | |
369 | # XS function. If a constant is not found then control is passed | |
370 | # to the AUTOLOAD in AutoLoader. | |
371 | ||
372 | my $constname; | |
373 | ($constname = $AUTOLOAD) =~ s/.*:://; | |
374 | my $val = constant($constname, @_ ? $_[0] : 0); | |
375 | if ($! != 0) { | |
376 | if ($! =~ /Invalid/) { | |
377 | $AutoLoader::AUTOLOAD = $AUTOLOAD; | |
378 | goto &AutoLoader::AUTOLOAD; | |
379 | } | |
380 | else { | |
381 | croak "Your vendor has not defined X macro $constname"; | |
382 | } | |
383 | } | |
384 | eval "sub $AUTOLOAD { $val }"; | |
385 | goto &$AUTOLOAD; | |
386 | } | |
387 | ||
388 | bootstrap Tk::X; | |
389 | ||
390 | # Preloaded methods go here. | |
391 | ||
392 | # Autoload methods go after =cut, and are processed by the autosplit program. | |
393 | ||
394 | 1; | |
395 | __END__ | |
396 | # Below is the stub of documentation for your module. You better edit it! | |
397 | ||
398 | =cut |