patch "Line" display when component window is loaded from ComponentWindow stored in .Cwd file .

WMComponents.Open FigureExample.Cwd
Adapt example file name in WMComponents.Mod

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

source/WMComponents.Mod

@@ -3721,7 +3721,7 @@ BEGIN
 	NEW(selection);
 END WMComponents.
 
-WMComponents.Open Test.Cwd ~
+WMComponents.Open FigureExample.Cwd ~
 WMComponents.Open DictEntry.wm ~
 
 The message sequencer contains a reader writer lock that can be used to block the hierarchy.

source/WMFigures.Mod

@@ -320,6 +320,8 @@ TYPE
 			IF arrow.Get() THEN INCL(state,Arrow) ELSE EXCL(state, Arrow) END;
 			RecacheProperties^;
 			RecachePoints;
+			Normalize;
+			Resized;(* implied Invalidate - that is redundant*)
 		END RecacheProperties;
 		
 		PROCEDURE RecachePoints; (*build point list in parent coordinates*)
@@ -729,7 +731,7 @@ TYPE
 				RecacheProperties;
 				SplineToPoly(points, Closed IN state, pointArray, nSegments); 
 				Normalize;
-				Resized;(* implied Invalidate *)
+				Resized;(* implied Invalidate - that is redundant*)
 				IF ~(property IS WMProperties.PointProperty) & ~(property=closed) THEN
 					PropertyChanged^(sender,property);
 				END;
@@ -1173,4 +1175,4 @@ END TestFigures.
 TestFigures.Do
 TestFigures.Do1
 
-SystemTools.FreeDownTo TestFigures ~
+SystemTools.FreeDownTo WMFigures TestFigures ~