equal
deleted
inserted
replaced
4318 "forward a button-press event for some view" |
4318 "forward a button-press event for some view" |
4319 |
4319 |
4320 |sensor button| |
4320 |sensor button| |
4321 |
4321 |
4322 aView isNil ifTrue:[ |
4322 aView isNil ifTrue:[ |
4323 "/ event arrived, after I destroyed it myself |
4323 "/ event arrived, after I destroyed it myself |
4324 ^ self |
4324 ^ self |
4325 ]. |
4325 ]. |
4326 |
4326 |
4327 button := buttonArg. |
4327 button := buttonArg. |
|
4328 "/ used that for X on a mac, with a single button. |
|
4329 "/ No longer done automatically. |
4328 (metaDown and:[button == 1]) ifTrue:[ |
4330 (metaDown and:[button == 1]) ifTrue:[ |
4329 button := 2. |
4331 UserPreferences current button2WithAltKey ifTrue:[ |
|
4332 button := 2. |
|
4333 ]. |
4330 ]. |
4334 ]. |
4331 |
4335 |
4332 sensor := aView sensor. |
4336 sensor := aView sensor. |
4333 WindowsRightButtonBehavior == true ifTrue:[ |
4337 WindowsRightButtonBehavior == true ifTrue:[ |
4334 button >= 2 ifTrue:[ |
4338 button >= 2 ifTrue:[ |
4335 sensor buttonPress:1 x:x y:y view:aView. |
4339 sensor buttonPress:1 x:x y:y view:aView. |
4336 ^ self. |
4340 ^ self. |
4337 ] |
4341 ] |
4338 ]. |
4342 ]. |
4339 sensor buttonPress:button x:x y:y view:aView |
4343 sensor buttonPress:button x:x y:y view:aView |
4340 ! |
4344 ! |
4341 |
4345 |
4342 buttonRelease:button x:x y:y view:aView |
4346 buttonRelease:button x:x y:y view:aView |
8231 ! ! |
8235 ! ! |
8232 |
8236 |
8233 !DeviceWorkstation class methodsFor:'documentation'! |
8237 !DeviceWorkstation class methodsFor:'documentation'! |
8234 |
8238 |
8235 version |
8239 version |
8236 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.577 2013-01-21 13:55:23 cg Exp $' |
8240 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.578 2013-01-30 17:44:57 cg Exp $' |
8237 ! |
8241 ! |
8238 |
8242 |
8239 version_CVS |
8243 version_CVS |
8240 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.577 2013-01-21 13:55:23 cg Exp $' |
8244 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.578 2013-01-30 17:44:57 cg Exp $' |
8241 ! ! |
8245 ! ! |
8242 |
8246 |
8243 |
8247 |
8244 DeviceWorkstation initialize! |
8248 DeviceWorkstation initialize! |