Serialization message subtype handling

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

source/WMSimpleGraphs.Mod

@@ -48,13 +48,17 @@ TYPE
 		VAR filename: Files.FileName; f:Files.File; w:Files.Writer;
 		BEGIN
 			IF (x.msgType = WMMessages.MsgSerialize) THEN
-				GenerateName(GetTitle(),filename);
-				Strings.Append(filename, ".MtA"); (* file type "MathArray" *)
-				f:=Files.New(filename);
-				Files.OpenWriter(w,f,0);
-				StoreLR(w, data);
-				w.Update;
-				Files.Register(f);	
+				IF x.msgSubType= WMMessages.MsgSubSerializeData THEN
+					GenerateName(GetTitle(),filename);
+					Strings.Append(filename, ".MtA"); (* file type "MathArray" *)
+					f:=Files.New(filename);
+					Files.OpenWriter(w,f,0);
+					StoreLR(w, data);
+					w.Update;
+					Files.Register(f);	
+				ELSIF x.msgSubType=WMMessages.MsgSubSerializeComponent THEN
+					(*TBD*)
+				END;
 			ELSE Handle^(x)
 			END
 		END Handle;