equal
deleted
inserted
replaced
4599 ^ self |
4599 ^ self |
4600 ]. |
4600 ]. |
4601 aView sensor mappedView:aView |
4601 aView sensor mappedView:aView |
4602 ! |
4602 ! |
4603 |
4603 |
4604 mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:aView |
4604 mouseWheelMotion:buttonState x:x y:y amount:amountArg deltaTime:dTime view:aView |
4605 "the mousewheel was moved by some amount (signed). |
4605 "the mousewheel was moved by some amount (signed). |
4606 This event is sent to the current pointer view (like keyPress/release)." |
4606 This event is sent to the current pointer view (like keyPress/release)." |
4607 |
4607 |
|
4608 |amount| |
|
4609 |
4608 aView isNil ifTrue:[ |
4610 aView isNil ifTrue:[ |
4609 "/ event arrived, after I destroyed it myself |
4611 "/ event arrived, after I destroyed it myself |
4610 ^ self |
4612 ^ self |
4611 ]. |
4613 ]. |
|
4614 amount := amountArg. |
|
4615 UserPreferences current mouseWheelDirectionReversed ifTrue:[ |
|
4616 amount := amount negated |
|
4617 ]. |
4612 aView sensor |
4618 aView sensor |
4613 mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:aView |
4619 mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:aView |
4614 |
4620 |
|
4621 " |
|
4622 UserPreferences current mouseWheelDirectionReversed:true |
|
4623 UserPreferences current mouseWheelDirectionReversed:false |
|
4624 " |
4615 "Modified: / 21.5.1999 / 13:05:53 / cg" |
4625 "Modified: / 21.5.1999 / 13:05:53 / cg" |
4616 ! |
4626 ! |
4617 |
4627 |
4618 noExposeView:aView |
4628 noExposeView:aView |
4619 "forward a noExpose event for some view" |
4629 "forward a noExpose event for some view" |
8425 ! ! |
8435 ! ! |
8426 |
8436 |
8427 !DeviceWorkstation class methodsFor:'documentation'! |
8437 !DeviceWorkstation class methodsFor:'documentation'! |
8428 |
8438 |
8429 version |
8439 version |
8430 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.627 2015-01-31 13:05:12 cg Exp $' |
8440 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.628 2015-02-10 12:53:50 cg Exp $' |
8431 ! |
8441 ! |
8432 |
8442 |
8433 version_CVS |
8443 version_CVS |
8434 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.627 2015-01-31 13:05:12 cg Exp $' |
8444 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.628 2015-02-10 12:53:50 cg Exp $' |
8435 ! ! |
8445 ! ! |
8436 |
8446 |
8437 |
8447 |
8438 DeviceWorkstation initialize! |
8448 DeviceWorkstation initialize! |