--- a/DropContext.st Thu Sep 12 17:46:48 2002 +0200
+++ b/DropContext.st Fri Sep 13 15:44:30 2002 +0200
@@ -15,7 +15,7 @@
Object subclass:#DropContext
instanceVariableNames:'dropObjects rootPoint dropSource sourceWidget dropTarget
- targetWidget targetId hasDropped dragHandler'
+ targetWidget targetId hasDropped dragHandler manager'
classVariableNames:''
poolDictionaries:''
category:'Interface-DragAndDrop'
@@ -73,6 +73,10 @@
^ dropObjects ? #()
!
+manager:something
+ manager := something.
+!
+
rootPoint
"returns the absolute point on the screen (rootPoint)
"
@@ -167,6 +171,14 @@
"/
dropSource feedBack:self
].
+!
+
+saveDraw:aBlock
+ "evaluate aBlock with the drag temporarily being undrawn
+ (i.e. restore original picture, evaluate the block, and draw dragged objects again).
+ Return blocks value."
+
+ ^ manager saveDraw:aBlock
! !
!DropContext methodsFor:'change & update'!
@@ -253,5 +265,5 @@
!DropContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.4 2000-11-17 00:43:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.5 2002-09-13 13:44:30 penk Exp $'
! !