summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2021-12-23 19:05:15 +0100
committerstuebinm2021-12-23 19:05:15 +0100
commit9f9d5834092d7b3ae74e30227a17d06904caf994 (patch)
treef4bd54e7c947a4f9bd1779646d8b28ea7d567ec1
parentdcdbec32d495fa5252f2c8a949edca547310e2f4 (diff)
openTab's semantics are the same as openWebsite's
(it's not a modifier for openWebsite, as I had previously though)
-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