Utilisation de JSON Resolve pointers

Je voudrais fusionner des objets avec un mécanisme d’héritage ; exemple d’application : fusionner une variante de présentation générale en remplaçant certaines propriétés par celles de l’utilisateur.

La commande JSON Resolve pointers paraît adaptée pour cela mais elle n’autorise que des pointeurs vers un fichier ou vers un sous-objet de l’objet courant. Il ne semble pas possible de pointer vers un autre objet.
Dans l’exemple ci-dessous adapté de la doc, j’ai été obligé d’emballer dans un même objet l’objet défaut et l’objet que l’on veut obtenir en résultat.

Est-ce la bonne façon de faire ? Avez-vous mieux à proposer ?

<code 4D>
C_OBJECT($Global_o;$Rights_default_o;$Rights_o;$Options_o;$Rights_user_o)

$Rights_default_o:=New object("edit";True;"add";False;"delete";False)
$Rights_o:=New object("$ref";"#/Rights_default";"delete";True;"id";456)
$Global_o:=New object("Rights";$Rights_o;"Rights_default";$Rights_default_o)

$Options_o:=New object("merge";True)  //remplacer le contenu
$Global_o:=JSON Resolve pointers(OB Copy($Global_o);$Options_o)
$Rights_user_o:=$Global_o.value.Rights 

</code 4D>

Je relance ce sujet ; personne n’utilise un mécanisme d’héritage ?
Question complémentaire : y a-t-il des choses dans les tuyaux ?
Bon, c’est secret…