Browse Source

Solved the problem where dragging from a file list to a text view would insert text twice

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7207 8c9fc860-2736-0410-a75d-ab315db34111
skoster 8 years ago
parent
commit
4c83fc0a94
1 changed files with 0 additions and 2 deletions
  1. 0 2
      source/WMTextView.Mod

+ 0 - 2
source/WMTextView.Mod

@@ -3240,10 +3240,8 @@ TYPE
 				IF ~hasFocus & ~alwaysShowCursorI THEN cursor.SetVisible(FALSE) END;
 				IF ~hasFocus & ~alwaysShowCursorI THEN cursor.SetVisible(FALSE) END;
 				dragInfo.data := dropTarget;
 				dragInfo.data := dropTarget;
 				ConfirmDrag(TRUE, dragInfo);
 				ConfirmDrag(TRUE, dragInfo);
-				IF dragInfo.onAccept # NIL THEN dragInfo.onAccept(SELF, dragInfo) END;
 			ELSE
 			ELSE
 				ConfirmDrag(FALSE, dragInfo);
 				ConfirmDrag(FALSE, dragInfo);
-				IF dragInfo.onReject # NIL THEN dragInfo.onReject(SELF, dragInfo) END;
 			END;
 			END;
 		END DragDropped;
 		END DragDropped;