summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Properties.hs15
1 files changed, 6 insertions, 9 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs
index 364a579..2b59a6b 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -401,12 +401,6 @@ checkTileLayerProperty p@(Property name _value) = case name of
"audioVolume" -> do
isOrdInRange unwrapFloat 0 1 p
requireProperty "playAudio"
- "openWebsite" -> do
- uselessEmptyLayer
- suggestProperty $ Property "openWebsiteTrigger" (StrProp "onaction")
- unwrapURI (Proxy @"website") p
- (dependsOn . Link)
- (const $ forbid "using openWebsite to access local html files is disallowed.")
"openWebsiteTrigger" -> do
isString p
requireProperty "openWebsite"
@@ -416,9 +410,6 @@ checkTileLayerProperty p@(Property name _value) = case name of
"openWebsiteTriggerMessage" -> do
isString p
requireProperty "openWebsiteTrigger"
- "openTab" -> do
- isString p
- requireProperty "openWebsite"
"url" -> complain "the property \"url\" defining embedded iframes must be \
\set on an object in an objectgroup layer."
"exitUrl" -> do
@@ -480,6 +471,12 @@ checkTileLayerProperty p@(Property name _value) = case name of
, "openwebsitepolicy", "openwebsiteallowapi"
, "allowapi" ]
-> forbidProperty name
+ | name `elem` [ "openWebsite", "openTab" ] -> do
+ uselessEmptyLayer
+ suggestProperty $ Property "openWebsiteTrigger" (StrProp "onaction")
+ unwrapURI (Proxy @"website") p
+ (dependsOn . Link)
+ (const $ forbid "accessing local html files is disallowed.")
| otherwise ->
warnUnknown p knownTileLayerProperites
where