複数のツリー表示について

[rom]

>dyoshida さん

フォーカスと選択について分かりやすい説明ありがとうございます！
破線と青状態を意識してみることが無かったですが
見てみると簡単にわかりました！

>umemura さん

要件に合わせてFOCUS-IN/OUTを使って
想定していた動作が出来ました！ありがとうございます！


しかしながらもう一つ質問事項が出来ました・・・

要素のAction時に子が存在していて且つ、
展開されていない状態なら展開する
展開されていたら閉じる

をやってみたいのですが
.has-children?を使えば子があるかは判定できるのですが
展開されているか？という判定ができません！

ご教示よろしくおねがいします！

Code:

{let tree_model:TreeModel=
    {TreeModel
            root =
                {TreeNode node-data="animal",
                    {TreeNode node-data="cat",
                        {TreeNode node-data="tama"},
                        {TreeNode node-data="mike"},
                        {TreeNode node-data="nyanko"}
                    },
                    {TreeNode node-data="dog",
                        {TreeNode node-data="poti"},
                        {TreeNode node-data="siba"},
                        {TreeNode node-data="wanko"}
                    }
                }
    }
}

{let tree:TreeControl={TreeControl data-model = tree_model}}

{tree.add-event-handler
    {on Action do
        {if-non-null current = tree.current-node then
            {if current.has-children? == true then
                {tree.expand-node current}
            }
        }
    }

}

{value tree}