equal
deleted
inserted
replaced
507 anEvent isButtonReleaseEvent ifTrue:[ ^ true ]. |
507 anEvent isButtonReleaseEvent ifTrue:[ ^ true ]. |
508 |
508 |
509 anEvent isButtonMotionEvent ifTrue:[ |
509 anEvent isButtonMotionEvent ifTrue:[ |
510 (lastClickPoint notNil and:[anEvent state ~~ 0]) ifTrue:[ |
510 (lastClickPoint notNil and:[anEvent state ~~ 0]) ifTrue:[ |
511 p := Point x:(anEvent x) y:(anEvent y). |
511 p := Point x:(anEvent x) y:(anEvent y). |
512 p := self graphicsDevice translatePoint:p fromView:evView toView:self. |
512 p := device translatePoint:p fromView:evView toView:self. |
513 |
513 |
514 (lastClickPoint dist:p) > 20.0 ifTrue:[ |
514 (lastClickPoint dist:p) > 20.0 ifTrue:[ |
515 self startDragFrom:evView. |
515 self startDragFrom:evView. |
516 lastClickPoint := nil. |
516 lastClickPoint := nil. |
517 ] |
517 ] |
524 |
524 |
525 button := anEvent button. |
525 button := anEvent button. |
526 |
526 |
527 (button == 1 or:[button == #select]) ifTrue:[ |
527 (button == 1 or:[button == #select]) ifTrue:[ |
528 p := Point x:(anEvent x) y:(anEvent y). |
528 p := Point x:(anEvent x) y:(anEvent y). |
529 p := self graphicsDevice translatePoint:p fromView:evView toView:self. |
529 p := device translatePoint:p fromView:evView toView:self. |
530 |
530 |
531 self selection:(self findObjectAt:p). |
531 self selection:(self findObjectAt:p). |
532 |
532 |
533 selection notNil ifTrue:[ |
533 selection notNil ifTrue:[ |
534 lastClickPoint := p. |
534 lastClickPoint := p. |
588 findObjectAt:aPoint |
588 findObjectAt:aPoint |
589 |seeIfWidgetIsHit p x y| |
589 |seeIfWidgetIsHit p x y| |
590 |
590 |
591 seeIfWidgetIsHit := |
591 seeIfWidgetIsHit := |
592 [:v | |
592 [:v | |
593 p := self graphicsDevice translatePoint:aPoint fromView:self toView:v. |
593 p := device translatePoint:aPoint fromView:self toView:v. |
594 x := p x. |
594 x := p x. |
595 y := p y. |
595 y := p y. |
596 |
596 |
597 ( x >= 0 and:[x <= v width |
597 ( x >= 0 and:[x <= v width |
598 and:[y >= 0 and:[y <= v height |
598 and:[y >= 0 and:[y <= v height |
780 |
780 |
781 !UIGalleryView class methodsFor:'documentation'! |
781 !UIGalleryView class methodsFor:'documentation'! |
782 |
782 |
783 version |
783 version |
784 ^ '$Header$' |
784 ^ '$Header$' |
785 ! ! |
785 ! |
786 |
786 |
|
787 version_CVS |
|
788 ^ '$Header$' |
|
789 ! ! |
|
790 |