From c5479ceab49a14f592b16883f912bccc371e2e9e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ars=C3=A8ne=20von=20Wyss?= <arsene.vonwyss@sirius.ch>
Date: Tue, 12 Sep 2017 17:13:34 +0200
Subject: [PATCH] mfiles: Added support for application platform property

---
 types/mfiles/index.d.ts      | 3 +++
 types/mfiles/mfiles-tests.ts | 5 ++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/types/mfiles/index.d.ts b/types/mfiles/index.d.ts
index db31565309..c82377d1fe 100644
--- a/types/mfiles/index.d.ts
+++ b/types/mfiles/index.d.ts
@@ -3,6 +3,8 @@
 // Definitions by: Arsène von Wyss <https://github.com/avonwyss>
 // Definitions: https://github.com/DefinitelyTyped/DefinitelyTyped
 
+declare const MFExtApplicationPlatformWeb: any;
+
 interface IAccessControlEntry {
 	ChangePermissionsPermission: MFiles.MFPermission;
 	EditPermission: MFiles.MFPermission;
@@ -6175,6 +6177,7 @@ declare namespace MFiles {
 
 	const ApplicationPath: string;
 	const CLSID: ICLSIDs;
+	const CurrentApplicationPlatform: any;
 
 	function CreateInstance(name: string): any;
 	function CreateObjectCLR(assemblyFile: string, className: string): any;
diff --git a/types/mfiles/mfiles-tests.ts b/types/mfiles/mfiles-tests.ts
index 4271042137..8c0dcd45aa 100644
--- a/types/mfiles/mfiles-tests.ts
+++ b/types/mfiles/mfiles-tests.ts
@@ -72,7 +72,10 @@ function setTheme(shellFrame: IShellFrame) {
 function OnNewShellUI(shellUI: IShellUI) {
 	shellUI.Events.Register(MFiles.Event.NewShellFrame, newShellFrameHandler);
 	shellUI.Events.Register(MFiles.Event.NewNormalShellFrame, newShellFrameHandler);
-	const html = `<object classid='clsid:${MFiles.CLSID.ShellListingCtrl}' style='width: 400px; height: 300px;'> </object>`;
+	if (MFiles.CurrentApplicationPlatform !== MFExtApplicationPlatformWeb) {
+		// We are not executing on the web, AxtiveX is available
+		const html = `<object classid='clsid:${MFiles.CLSID.ShellListingCtrl}' style='width: 400px; height: 300px;'> </object>`;
+	}
 }
 
 function newShellFrameHandler(shellFrame: IShellFrame) {