equal
deleted
inserted
replaced
1553 ignoreUserInput == true ifTrue:[ |
1553 ignoreUserInput == true ifTrue:[ |
1554 ^ self |
1554 ^ self |
1555 ]. |
1555 ]. |
1556 args := Array with:state with:x with:y with:amount with:dTime. |
1556 args := Array with:state with:x with:y with:amount with:dTime. |
1557 |
1557 |
|
1558 "Do we really want the focusView here? |
|
1559 A unexpected (worng) view may scroll, when the mouse is over a scrollbar!!" |
|
1560 |
1558 focusView := aView windowGroup focusView. |
1561 focusView := aView windowGroup focusView. |
1559 |
1562 |
1560 ev := WindowEvent inputEvent |
1563 ev := WindowEvent inputEvent |
1561 for:focusView |
1564 for:focusView |
1562 type:#mouseWheelMotion:x:y:amount:deltaTime: |
1565 type:#mouseWheelMotion:x:y:amount:deltaTime: |
1563 arguments:args. |
1566 arguments:args. |
1564 |
1567 |
1565 ev hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown |
1568 ev hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown |
1566 button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown. |
1569 button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown. |
|
1570 |
|
1571 "/ any eventListener |
|
1572 (self notifyEventListenersAbout:ev) ifTrue:[^ self]. |
1567 self pushEvent:ev. |
1573 self pushEvent:ev. |
1568 |
1574 |
1569 "Created: / 21.5.1999 / 13:05:18 / cg" |
1575 "Created: / 21.5.1999 / 13:05:18 / cg" |
1570 "Modified: / 21.5.1999 / 13:12:40 / cg" |
1576 "Modified: / 21.5.1999 / 13:12:40 / cg" |
1571 ! |
1577 ! |
3056 ! ! |
3062 ! ! |
3057 |
3063 |
3058 !WindowSensor class methodsFor:'documentation'! |
3064 !WindowSensor class methodsFor:'documentation'! |
3059 |
3065 |
3060 version |
3066 version |
3061 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.187 2000-09-28 12:51:05 stefan Exp $' |
3067 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.188 2000-10-20 11:13:54 stefan Exp $' |
3062 ! ! |
3068 ! ! |
3063 WindowSensor initialize! |
3069 WindowSensor initialize! |