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