17 whitepixel protocolsAtom deleteWindowAtom saveYourselfAtom |
17 whitepixel protocolsAtom deleteWindowAtom saveYourselfAtom |
18 quitAppAtom primaryAtom secondaryAtom cutBuffer0Atom stringAtom |
18 quitAppAtom primaryAtom secondaryAtom cutBuffer0Atom stringAtom |
19 lengthAtom wmStateAtom listOfXFonts buttonsPressed eventRootX |
19 lengthAtom wmStateAtom listOfXFonts buttonsPressed eventRootX |
20 eventRootY displayName eventTrace dispatchingExpose rgbVisual |
20 eventRootY displayName eventTrace dispatchingExpose rgbVisual |
21 virtualRootId rootId eventBuffer altModifierMask metaModifierMask |
21 virtualRootId rootId eventBuffer altModifierMask metaModifierMask |
22 multiClickTime |
22 multiClickTime deviceIOTimeoutErrorSignal activateOnClick' |
23 deviceIOTimeoutErrorSignal activateOnClick' |
|
24 classVariableNames:'RawKeysymTranslation ConservativeSync' |
23 classVariableNames:'RawKeysymTranslation ConservativeSync' |
25 poolDictionaries:'' |
24 poolDictionaries:'' |
26 category:'Interface-Graphics' |
25 category:'Interface-Graphics' |
27 ! |
26 ! |
28 |
27 |
7384 %} |
7383 %} |
7385 ! |
7384 ! |
7386 |
7385 |
7387 initializeDefaultValues |
7386 initializeDefaultValues |
7388 activateOnClick := false. |
7387 activateOnClick := false. |
7389 buttonTranslation := ButtonTranslation. |
7388 super initializeDefaultValues. |
7390 multiClickTimeDelta := MultiClickTimeDelta. |
|
7391 |
|
7392 self initializeModifierMappings |
|
7393 ! |
7389 ! |
7394 |
7390 |
7395 initializeDeviceSignals |
7391 initializeDeviceSignals |
7396 super initializeDeviceSignals. |
7392 super initializeDeviceSignals. |
7397 |
7393 |
7482 "/ altModifiers := #(Alt_L Alt_R). |
7478 "/ altModifiers := #(Alt_L Alt_R). |
7483 "/ metaModifiers := #(Meta_L Meta_R). |
7479 "/ metaModifiers := #(Meta_L Meta_R). |
7484 "/ ctrlModifiers := #(Control_L Control_R). |
7480 "/ ctrlModifiers := #(Control_L Control_R). |
7485 "/ shiftModifiers := #(Shift_L Shift_R). |
7481 "/ shiftModifiers := #(Shift_L Shift_R). |
7486 |
7482 |
7487 shiftModifiers := ctrlModifiers := altModifiers := metaModifiers := nil. |
7483 super initializeModifierMappings. |
7488 altModifierMask := metaModifierMask := nil. |
7484 altModifierMask := metaModifierMask := nil. |
7489 |
7485 |
7490 map := self modifierMapping. |
7486 map := self modifierMapping. |
7491 map isNil ifTrue:[ |
7487 map isNil ifTrue:[ |
7492 "/ |
7488 "/ |
7493 "/ mhmh - a crippled Xlib which does not provide modifier mappings |
7489 "/ mhmh - a crippled Xlib which does not provide modifier mappings |
7494 "/ setup some reasonable default. If that is not sufficient, |
7490 "/ setup some reasonable default. If that is not sufficient, |
7495 "/ you have to change things from your display.rc file. |
7491 "/ you have to change things from your display.rc file. |
7496 "/ |
7492 "/ |
7497 altModifierMask := self modifier1Mask. |
7493 altModifierMask := self modifier1Mask. |
7498 metaModifierMask := self modifier2Mask. |
7494 metaModifierMask := self modifier2Mask. |
7499 |
|
7500 shiftModifiers := #(Shift_L Shift_R Shift). |
|
7501 ctrlModifiers := #(Control_L Control_R Control). |
|
7502 metaModifiers := #(Alt_L Meta_L Meta_R Meta). |
|
7503 altModifiers := #(Alt_R Alt). |
|
7504 ] ifFalse:[ |
7495 ] ifFalse:[ |
7505 altModifierMask := 0. |
7496 altModifierMask := 0. |
7506 metaModifierMask := 0. |
7497 metaModifierMask := 0. |
7507 |
7498 |
7508 mod := map at:1. |
7499 mod := map at:1. |
7509 mod notNil ifTrue:[ |
7500 mod notNil ifTrue:[ |
7510 shiftModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7501 shiftModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7511 ]. |
7502 ]. |
7512 mod := map at:3. |
7503 mod := map at:3. |
7513 mod notNil ifTrue:[ |
7504 mod notNil ifTrue:[ |
7514 ctrlModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7505 ctrlModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7515 ]. |
7506 ]. |
7516 mod := map at:4. |
7507 mod := map at:4. |
7517 mod notNil ifTrue:[ |
7508 mod notNil ifTrue:[ |
7518 metaModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7509 metaModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7519 metaModifierMask := 1 bitShift:(4-1). |
7510 metaModifierMask := 1 bitShift:(4-1). |
7520 ]. |
7511 ]. |
7521 mod := map at:5. |
7512 mod := map at:5. |
7522 mod notNil ifTrue:[ |
7513 mod notNil ifTrue:[ |
7523 altModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7514 altModifiers := mod collect:[ :key | self stringFromKeycode:key ]. |
7524 altModifierMask := 1 bitShift:(5-1). |
7515 altModifierMask := 1 bitShift:(5-1). |
7525 ] |
7516 ] |
7526 ]. |
7517 ]. |
7527 |
7518 |
7528 "Modified: 1.12.1995 / 23:44:40 / stefan" |
7519 "Modified: 1.12.1995 / 23:44:40 / stefan" |
7529 ! |
7520 ! |
7530 |
7521 |