diff -r ce46eb6f92a5 -r 3f0dfabbb14d UIGalleryView.st
--- a/UIGalleryView.st	Sat Jul 26 18:43:21 1997 +0200
+++ b/UIGalleryView.st	Sat Jul 26 20:28:32 1997 +0200
@@ -29,7 +29,7 @@
 
 DropObject subclass:#DropSpec
 	instanceVariableNames:''
-	classVariableNames:''
+	classVariableNames:'DisplayObject'
 	poolDictionaries:''
 	privateIn:UIGalleryView::Canvas
 !
@@ -640,14 +640,14 @@
 for:aView specification:aSpec
     "create drop object for a view derived from a specification
     "
-    |point extent root device dO|
+    |point extent root device|
 
     device := aView device.
     root   := device rootView.
     extent := aView extent.
     point  := device translatePoint:0@0 from:(aView id) to:(root id).
 
-    dO := nil.
+    DisplayObject := nil.
 
     (point x > 0 and:[point y > 0]) ifTrue:[
         point := point + extent.
@@ -656,20 +656,22 @@
             device sync.
             aView invalidate.
             aView windowGroup processExposeEvents.
-            dO := Image fromView:aView grab:false.
+            DisplayObject := Image fromView:aView grab:false.
         ]
     ].
-    dO isNil ifTrue:[
-        dO := Form extent:extent depth:1.
-        dO colorMap:(Array with:Color white with:Color black).
-        dO fill:(Color colorId:0).
-        dO paint:(Color colorId:1).
-        dO 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"
 ! !
 
 !UIGalleryView class methodsFor:'documentation'!