1package Tk::X; 2 3use strict; 4use Carp; 5use vars qw($VERSION @EXPORT $AUTOLOAD); 6$VERSION = '4.005'; # $Id: //depot/Tkutf8/Xlib/X/X.pm#4 $ 7use Tk qw($XS_VERSION); 8 9require Exporter; 10require DynaLoader; 11require AutoLoader; 12 13 14use 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 367sub 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 388bootstrap Tk::X; 389 3901; 391__END__ 392