--- a/DragHandler.st	Mon May 30 18:38:33 2005 +0200
+++ b/DragHandler.st	Mon May 30 18:40:14 2005 +0200
@@ -138,6 +138,9 @@
 
 !
 
+flushSaveArea
+!
+
 postDragging
     "after dragging; restore root view ...
     "
@@ -151,6 +154,9 @@
     "
     rootView := aSourceWidget device rootView.
 
+!
+
+rereadSaveArea
 ! !
 
 !DragHandler::Generic class methodsFor:'documentation'!
@@ -395,6 +401,10 @@
 
 !
 
+flushSaveArea
+    saveArea := nil
+!
+
 postDragging
     "restore from saveUnder for a generic opaque drag
     "
@@ -411,7 +421,6 @@
 
         saveArea := nil.
     ]
-
 !
 
 preDraggingIn:aSourceWidget
@@ -457,5 +466,5 @@
 !DragHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.5 2003-10-28 15:33:26 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.6 2005-05-30 16:40:14 ab Exp $'
 ! !