diff -r 99e70b6c02e5 -r 4faf081e981d UIGalleryView.st
--- a/UIGalleryView.st	Wed Apr 22 23:26:07 1998 +0200
+++ b/UIGalleryView.st	Thu Apr 23 09:05:19 1998 +0200
@@ -677,15 +677,13 @@
 for:aView specification:aSpec
     "create drop object for a view derived from a specification
     "
-    |point extent root device|
+    |point extent root device inst displayObject|
 
     device := aView device.
     root   := device rootView.
     extent := aView extent.
     point  := device translatePoint:0@0 from:(aView id) to:(root id).
 
-    DisplayObject := nil.
-
     (point x > 0 and:[point y > 0]) ifTrue:[
         point := point + extent.
         (point x < root width and:[point y < root height]) ifTrue:[
@@ -693,22 +691,24 @@
             device sync.
             aView invalidate.
             aView windowGroup processExposeEvents.
-            DisplayObject := Image fromView:aView grab:false.
+            displayObject := Image fromView:aView grab:false.
         ]
     ].
-    DisplayObject isNil ifTrue:[
-        DisplayObject := Form extent:extent depth:1.
-        DisplayObject colorMap:(Array with:Color white with:Color black).
-        DisplayObject fill:(Color colorId:0).
-        DisplayObject paint:(Color colorId:1).
-        DisplayObject displayRectangleX:0 y:0 width:aView extent x height:aView extent y.
+    displayObject isNil ifTrue:[
+        displayObject := Form extent:extent depth:1.
+        displayObject colorMap:(Array with:Color white with:Color black).
+        displayObject fill:(Color colorId:0).
+        displayObject paint:(Color colorId:1).
+        displayObject displayRectangleX:0 y:0 width:aView extent x height:aView extent y.
     ].
     aSpec class == UISubSpecification ifTrue:[
         aSpec layout:(LayoutOrigin fromPoint:0@0)
     ].
-  ^ self new theObject:aSpec
 
-    "Modified: 26.7.1997 / 20:27:40 / cg"
+    inst := self new.
+    inst displayObject:displayObject.
+    inst theObject:aSpec.
+  ^ inst.
 ! !
 
 !UIGalleryView class methodsFor:'documentation'!