--- a/UIObjectView.st Fri Feb 28 13:24:39 1997 +0100
+++ b/UIObjectView.st Fri Feb 28 13:25:51 1997 +0100
@@ -102,8 +102,8 @@
layout notNil ifTrue:[
layout isLayout ifTrue:[
layout isLayoutFrame ifTrue:[ ^ #LayoutFrame ].
+ layout isAlignmentOrigin ifTrue:[ ^ #AlignmentOrigin ].
layout isLayoutOrigin ifTrue:[ ^ #LayoutOrigin ].
- layout isAlignmentOrigin ifTrue:[ ^ #AlignmentOrigin ].
] ifFalse:[
layout isRectangle ifTrue:[ ^ #Rectangle ].
layout isPoint ifTrue:[ ^ #Point ].
@@ -115,6 +115,7 @@
].
^ nil
+ "Modified: 28.2.1997 / 13:02:16 / cg"
! !
!UIObjectView methodsFor:'accessing'!
@@ -1431,8 +1432,11 @@
"change extent for all selected objects
"
self transition:#layout dimensionDo:[:v|
+ v geometryLayout:nil.
v extent:anExtent.
- ].
+ ].
+
+ "Modified: 28.2.1997 / 12:49:00 / cg"
!
setToDefaultExtent
@@ -1859,6 +1863,33 @@
]
!
+alignSingleSelection:aBlock
+
+ |type layout|
+
+ self withSelectionHiddenDo:[
+ self transaction:#align selectionDo:[:aView|
+ type := self class layoutType:aView.
+
+ type notNil ifTrue:[
+ self undoLayoutView:aView.
+
+ layout := aView layout.
+
+ type == #LayoutFrame ifFalse:[
+ layout := aView bounds asLayout
+ ].
+ aBlock value:layout.
+ aView geometryLayout:layout.
+ ]
+ ]
+ ].
+ self changed:#layout
+
+
+
+!
+
centerSelection:aOneArgBlockXorY orientation:orientation
"center selection horizontal or vertical dependant on the block result( x or y).
The argument to the block is the point.