--- a/ObjectView.st Wed Jan 29 13:22:07 1997 +0100
+++ b/ObjectView.st Wed Jan 29 13:24:42 1997 +0100
@@ -1812,9 +1812,12 @@
((newLeft < width) and:[newTop < height]) ifTrue:[
((newLeft >= 0) and:[newTop >= 0]) ifTrue:[
self catchExpose.
- self copyFrom:self x:oldLeft y:oldTop
- toX:newLeft y:newTop
- width:w height:h.
+ self
+ copyFrom:self
+ x:oldLeft y:oldTop
+ toX:newLeft y:newTop
+ width:w height:h
+ async:true.
self waitForExpose
]
].
@@ -1850,7 +1853,7 @@
]
]
- "Modified: 28.5.1996 / 20:06:22 / cg"
+ "Modified: 29.1.1997 / 13:07:07 / cg"
!
objectToBack:anObject
@@ -2909,5 +2912,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.52 1997-01-20 19:41:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.53 1997-01-29 12:23:15 cg Exp $'
! !