# HG changeset patch
# User ca
# Date 857383634 -3600
# Node ID c9c4254a9ee504f90db04ee3263a52a7e881b6c8
# Parent  c9779da5ce4eb29f1823fd58fa27e7d8d7cfd732
*** empty log message ***

diff -r c9779da5ce4e -r c9c4254a9ee5 UIObjectView.st
--- a/UIObjectView.st	Mon Mar 03 11:06:01 1997 +0100
+++ b/UIObjectView.st	Mon Mar 03 11:07:14 1997 +0100
@@ -555,7 +555,11 @@
     releaseAction := [ self endCreate].
 
     object := createClass new.
-    widget addSubView:object.
+    (widget isKindOf:ScrollableView) ifTrue:[
+        widget scrolledView:object
+    ] ifFalse:[
+        widget addSubView:object.
+    ].
 
     start := self alignToGrid:aPoint.
     delta := widget originRelativeTo:self.
@@ -568,7 +572,7 @@
     self actionCreate:object frame:frame delta:delta.
     self invertOutlineOf:object.
 
-
+    "Modified: 1.3.1997 / 01:46:17 / cg"
 ! !
 
 !UIObjectView methodsFor:'object moving'!