UIGalleryView.st
changeset 3263 7fd9c7c5f70c
parent 3260 f7b43e21cef8
child 3300 0df87ed0b795
equal deleted inserted replaced
3262:3168fe296011 3263:7fd9c7c5f70c
   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