--- a/UIObjectView.st Mon May 18 15:28:47 2009 +0200
+++ b/UIObjectView.st Mon May 18 15:51:32 2009 +0200
@@ -486,6 +486,13 @@
self shouldNotImplement
! !
+!UIObjectView methodsFor:'enumerating'!
+
+contentsDo:aBlock
+ self subViews do:aBlock.
+ self components do:aBlock.
+! !
+
!UIObjectView methodsFor:'event handling'!
doublePressed:pressPoint
@@ -934,7 +941,9 @@
viewOperatedUpon isNil ifTrue:[
clickedView isNil ifTrue:[
+ "/ clicked outside - start a rectangle drag.
self select:nil.
+ self startRectangleDrag:aPoint.
^ self.
].
@@ -1840,6 +1849,10 @@
].
^ false
+!
+
+object:anObject isContainedIn:aRectangle
+ ^ anObject bounds isContainedIn:aRectangle
! !
!UIObjectView methodsFor:'transaction'!
@@ -2159,15 +2172,14 @@
aligning ifTrue:[
n := ((aView computeOrigin x) \\ gridX).
n == 0 ifTrue:[n := gridX].
- n := n negated.
] ifFalse:[
- n := -1.
+ n := 1.
self sensor shiftDown ifTrue:[
- n := -8.
+ n := 8.
].
].
n := n * howMany.
- self shiftLayout:aView horizontal:n
+ self shiftLayout:aView horizontal:n negated
]
!
@@ -2188,9 +2200,7 @@
self moveDo:[:aView|
aligning ifTrue:[
n := ((aView computeCorner x) \\ gridX).
-
- n ~~ 0 ifTrue:[n := n negated]
- ifFalse:[n := gridX]
+ n == 0 ifTrue:[n := gridX].
] ifFalse:[
n := 1.
self sensor shiftDown ifTrue:[