Browse Source

updated swflib

Nicolas Cannasse 15 years ago
parent
commit
cc242b6bf2
1 changed files with 8 additions and 7 deletions
  1. 8 7
      genswf.ml

+ 8 - 7
genswf.ml

@@ -458,12 +458,13 @@ let generate com swf_header swf_lib =
 	let build_swf content =
 		let sandbox = (if com.flash_version >= 8 then
 				let net = Common.defined com "network-sandbox" in
-				[tag (TSandbox (match isf9, net with
-					| true, true -> SBUnknown 9
-					| true, false -> SBUnknown 8
-					| _, true -> SBNetwork
-					| _, false -> SBLocal
-				))]
+				[tag (TFilesAttributes {
+					fa_network = net;
+					fa_as3 = isf9;
+					fa_metadata = false;
+					fa_gpu = false;
+					fa_direct_blt = false;
+				})]
 			else
 				[]
 		) in
@@ -570,7 +571,7 @@ let generate com swf_header swf_lib =
 					end;
 				| TF9Scene _
 				| TEnableDebugger2 _
-				| TSandbox _ ->
+				| TFilesAttributes _ ->
 					loop acc l
 				| TF9Classes cl ->
 					if isf9 then add_as3_clips ctx cl;