--- 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'!