Pass messages on to main window

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

source/ComponentViewer.Mod

@@ -63,7 +63,8 @@ TYPE
 		BEGIN
 			lastX := bounds.l + x; lastY:=bounds.t + y;
 			IF (keys = {0}) & (FlagMoveable IN flags) THEN
-				dragging := TRUE
+				dragging := TRUE;
+				PointerDown^(x,y,keys);
 			ELSE
 				PointerDown^(x,y,keys); 
 			END;