← Back to branch summary

~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to pTk/mTk/generic/tkBind.c

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Zander
  • Date: 2004-03-14 13:54:44 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040314135444-prc09u2or4dbr3to
Tags: 1:800.025-2
http://bugs.debian.org/237942
Add xlibs-dev to Build-Depends:,
Closes: #237942

Show diffs side-by-side

added added

removed removed

Lines of Context:
pTk/mTk/generic/tkBind.c
5052
5052
        }
5053
5053
        keysym = XKeycodeToKeysym(dispPtr->display, *codePtr, 0);
5054
5054
        if (keysym == XK_Mode_switch) {
5055
 
            dispPtr->modeModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
 
5055
            if (strstr(ServerVendor(dispPtr->display), "XFree86") &&
 
5056
                VendorRelease(dispPtr->display) == 3360) {
 
5057
                dispPtr->modeModMask = 0x2000;
 
5058
            } else {
 
5059
                dispPtr->modeModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
 
5060
            }
5056
5061
        }
5057
5062
        if ((keysym == XK_Meta_L) || (keysym == XK_Meta_R)) {
5058
5063
            dispPtr->metaModMask |= ShiftMask << (i/modMapPtr->max_keypermod);