UIObjectView.st
changeset 149 e652608690b1
parent 145 163258b9561d
child 153 4be1d6d20a35
--- a/UIObjectView.st	Mon Jun 16 11:34:16 1997 +0200
+++ b/UIObjectView.st	Mon Jun 16 11:36:46 1997 +0200
@@ -451,7 +451,6 @@
         setOfViews notNil ifTrue:[^ Array with:setOfViews]
                          ifFalse:[^ nil]
     ].
-
   ^ setOfViews select:[:aView|
         (setOfViews detect:[:v|aView isComponentOf:v] ifNone:nil) isNil
     ]
@@ -1269,6 +1268,12 @@
 
 !
 
+selection:something
+    "change selection to something
+    "
+    self select:something
+!
+
 selectionChanged
     "called whenever the selection changed
     "
@@ -1659,15 +1664,6 @@
 
 !
 
-setDimension:aLayout
-    "change layout for all selected objects
-    "
-    self transaction:#layout dimensionDo:[:v|
-        v geometryLayout:(aLayout copy)
-    ].    
-
-!
-
 setExtent:anExtent
     "change extent for all selected objects
     "
@@ -1679,11 +1675,21 @@
     "Modified: 28.2.1997 / 12:49:00 / cg"
 !
 
+setLayout:aLayout
+    "change layout for all selected objects
+    "
+    self transaction:#layout dimensionDo:[:v|
+        v geometryLayout:(aLayout copy)
+    ].    
+
+!
+
 setToDefaultExtent
     "change extent of all selected views to their default extent
     "
     self transaction:#defaultExtent dimensionDo:[:v|
-        self resize:v corner:(v computeOrigin + (v preferredExtent))
+        self resize:v corner:(v computeOrigin + (v preferredExtent)).
+        self halt.
     ]    
 
 !
@@ -2289,7 +2295,7 @@
 openUndoMenu
     "open undo menu
     "
-    self selection:nil.
+    self select:nil.
     undoHistory openUndoMenu
 !