[[ PI ]] Allow editors to control multiple props delimited by ;

Author: livecodeali

Toolset/libraries/revideextensionlibrary.livecodescript

@@ -523,6 +523,16 @@ private command __ProcessInspectorMetadata @xMetadataA
          put true into xMetadataA[tKey]["user_visible"]
       end if
 
+      if xMetadataA[tKey]["properties"] is not empty then
+         -- If there is a 'properties' value, delete the key
+         -- and replace it with that value
+         local tInfo, tNewKey
+         put xMetadataA[tKey] into tInfo
+         put tInfo["properties"] into tNewKey
+         delete variable xMetadataA[tKey]
+         delete variable tInfo["properties"]
+         put tInfo into xMetadataA[tNewKey]
+      end if
    end repeat
 end __ProcessInspectorMetadata
 

Toolset/libraries/revidelibrary.8.livecodescript

@@ -1318,8 +1318,15 @@ on __readGroupedPropertiesOfControl pGroupsA, @pDataA
    end repeat
 
    local tDataA
+   set the itemdelimiter to ";"
    repeat for each key tKey in tPropMappingA
-      __fetchPropertyOfControl tKey, tDataA
+      if the number of items in tKey > 1 then
+         repeat for each item tRealProp in tKey
+            __fetchPropertyOfControl tRealProp, tDataA[tRealProp]
+         end repeat
+      else
+         __fetchPropertyOfControl tKey, tDataA
+      end if
    end repeat
 
    local tValue, tEffective
@@ -1428,8 +1435,17 @@ end __fetchPropertyOfControl
 # for each of the properties
 function __readPropertiesOfControl pList, @pData
    local tError
+   set the itemdelimiter to ";"
    repeat for each line tProp in pList
-      __fetchPropertyOfControl tProp, pData
+      -- If this pseudo-property is actually multiple properties,
+      -- the value is an array with keys the real property names
+      if the number of items in tProp > 1 then
+         repeat for each item tRealProp in tProp
+            __fetchPropertyOfControl tRealProp, pData[tRealProp]
+         end repeat
+      else
+         __fetchPropertyOfControl tProp, pData
+      end if
    end repeat
 end __readPropertiesOfControl
 

Toolset/palettes/inspector/behaviors/revinspectoreditorbehavior.livecodescript

@@ -119,9 +119,17 @@ getProp editorValue[pKey]
 end editorValue
 
 on updateProperty pForce
-  if pForce or (sAllowUpdate is true and not sPropertyInfo["read_only"]) then
-     dispatch "editorValueChanged" with sPropertyInfo["property_name"], sValue, false
-     put false into sAllowUpdate
+   if pForce or (sAllowUpdate is true and not sPropertyInfo["read_only"]) then
+      set the itemdelimiter to ";"
+      -- Single editors can control multiple properties delimited by ;
+      if the number of items in sPropertyInfo["property_name"] > 1 then
+         repeat for each item tProp in sPropertyInfo["property_name"]
+            dispatch "editorValueChanged" with tProp, sValue[tProp], false
+         end repeat
+      else
+         dispatch "editorValueChanged" with sPropertyInfo["property_name"], sValue, false
+      end if
+      put false into sAllowUpdate
    end if
 end updateProperty