5471 ] |
5471 ] |
5472 |
5472 |
5473 "Modified: / 17-10-2006 / 18:00:46 / cg" |
5473 "Modified: / 17-10-2006 / 18:00:46 / cg" |
5474 ! |
5474 ! |
5475 |
5475 |
|
5476 buttonMotion:state x:x y:y |
|
5477 "button was moved" |
|
5478 |
|
5479 self topView == TopView currentWindowBeingMoved ifTrue:[ |
|
5480 self topView doWindowMove. |
|
5481 ^ self. |
|
5482 ]. |
|
5483 |
|
5484 "Created: / 03-03-2011 / 19:11:11 / cg" |
|
5485 ! |
|
5486 |
5476 buttonMultiPress:button x:x y:y |
5487 buttonMultiPress:button x:x y:y |
5477 "button was pressed quickly again - check my components for a hit." |
5488 "button was pressed quickly again - check my components for a hit." |
5478 |
5489 |
5479 components notNil ifTrue:[ |
5490 components notNil ifTrue:[ |
5480 self componentsContainingX:x y:y do:[:comp :cx :cy | |
5491 self componentsContainingX:x y:y do:[:comp :cx :cy | |
5491 |
5502 |
5492 buttonPress:button x:x y:y |
5503 buttonPress:button x:x y:y |
5493 "button was pressed - check my components for a hit." |
5504 "button was pressed - check my components for a hit." |
5494 |
5505 |
5495 components notNil ifTrue:[ |
5506 components notNil ifTrue:[ |
5496 self componentsContainingX:x y:y do:[:comp :cx :cy | |
5507 self componentsContainingX:x y:y do:[:comp :cx :cy | |
5497 comp buttonPress:button x:cx y:cy. |
5508 comp buttonPress:button x:cx y:cy. |
5498 ^ self |
5509 ^ self |
5499 ] |
5510 ] |
|
5511 ]. |
|
5512 |
|
5513 "/ an undecorated (but modeless) topView -> do a window move |
|
5514 self topView startWindowMoveOnButtonPress ifTrue:[ |
|
5515 self topView startWindowMove. |
|
5516 ^ self. |
5500 ]. |
5517 ]. |
5501 |
5518 |
5502 super buttonPress:button x:x y:y |
5519 super buttonPress:button x:x y:y |
5503 |
5520 |
5504 "Modified: 8.5.1996 / 23:43:41 / cg" |
5521 "Modified: / 03-03-2011 / 19:31:37 / cg" |
5505 ! |
5522 ! |
5506 |
5523 |
5507 buttonRelease:button x:x y:y |
5524 buttonRelease:button x:x y:y |
5508 "button was released - check my components for a hit." |
5525 "button was released - check my components for a hit." |
5509 |
5526 |
5510 components notNil ifTrue:[ |
5527 components notNil ifTrue:[ |
5511 self componentsContainingX:x y:y do:[:comp :cx :cy | |
5528 self componentsContainingX:x y:y do:[:comp :cx :cy | |
5512 comp buttonRelease:button x:cx y:cy. |
5529 comp buttonRelease:button x:cx y:cy. |
5513 ^ self |
5530 ^ self |
5514 ] |
5531 ] |
|
5532 ]. |
|
5533 |
|
5534 self topView == TopView currentWindowBeingMoved ifTrue:[ |
|
5535 self topView endWindowMove. |
|
5536 ^ self. |
5515 ]. |
5537 ]. |
5516 |
5538 |
5517 super buttonRelease:button x:x y:y |
5539 super buttonRelease:button x:x y:y |
5518 |
5540 |
5519 "Modified: 8.5.1996 / 23:41:58 / cg" |
5541 "Created: / 08-05-1996 / 23:43:25 / cg" |
5520 "Created: 8.5.1996 / 23:43:25 / cg" |
5542 "Modified: / 03-03-2011 / 19:23:48 / cg" |
5521 ! |
5543 ! |
5522 |
5544 |
5523 changeScaleForMouseWheelZoom:amount |
5545 changeScaleForMouseWheelZoom:amount |
5524 "CTRL-wheel action. |
5546 "CTRL-wheel action. |
5525 ignored here - redefined in views which can zoom" |
5547 ignored here - redefined in views which can zoom" |
10824 ! ! |
10846 ! ! |
10825 |
10847 |
10826 !SimpleView class methodsFor:'documentation'! |
10848 !SimpleView class methodsFor:'documentation'! |
10827 |
10849 |
10828 version |
10850 version |
10829 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.691 2011-02-07 13:33:31 ca Exp $' |
10851 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.692 2011-03-03 18:32:18 cg Exp $' |
10830 ! |
10852 ! |
10831 |
10853 |
10832 version_CVS |
10854 version_CVS |
10833 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.691 2011-02-07 13:33:31 ca Exp $' |
10855 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.692 2011-03-03 18:32:18 cg Exp $' |
10834 ! ! |
10856 ! ! |
10835 |
10857 |
10836 SimpleView initialize! |
10858 SimpleView initialize! |