Accept drag from component, not window.

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7209 8c9fc860-2736-0410-a75d-ab315db34111

source/WMTextView.Mod

@@ -3216,7 +3216,14 @@ TYPE
 				text.ReleaseRead
 			END;
 		END DragOver;
-
+		
+		PROCEDURE ConfirmDrag(accept: BOOLEAN; dragInfo: WMWindowManager.DragInfo);
+		BEGIN
+			IF dragInfo.onAccept # NIL THEN 
+				dragInfo.onAccept(SELF, dragInfo) 
+			END;
+		END ConfirmDrag;
+		
 		PROCEDURE DragDropped*(x, y : LONGINT; dragInfo : WMWindowManager.DragInfo);
 		VAR dropTarget : TextDropTarget;
 			pos, internalPos : LONGINT;