--- a/UIObjectView.st Thu May 14 23:47:16 2009 +0200
+++ b/UIObjectView.st Mon May 18 12:10:10 2009 +0200
@@ -907,11 +907,11 @@
clickedView := self findObjectAt:aPoint.
clickedView notNil ifTrue:[
(clickedView isComponentOf:selectedView) ifTrue:[
- self unselect.
+ "/ self unselect.
selectedView := nil.
viewOperatedUpon := nil
] ifFalse:[
- self unselect.
+ "/ self unselect.
selectedView := nil.
viewOperatedUpon := clickedView
].
@@ -1839,27 +1839,7 @@
self transaction:#pasteHeight dimensionDo:[:v|
self resize:v bottom:(v computeOrigin + heightToPaste)
].
- ^ self.
].
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
!
pasteLayout