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

[dyoshida]

フォーカスと選択状態は別のもので、画面に１つしか存在しないのはフォーカスの方ですね。
（破線で囲われているのがフォーカス、青くなっているのが選択と思って操作してみると
違いがわかるかも。）

ツリーを２つ表示させた場合は、フォーカスが別のツリーへ移動しても選択状態は維持
されているので、ツリーの項目が選択された際に他のツリーの選択を解除するという
処理が必要になりそうです。

選択は"selection"をキーワードにアクセッサやメソッドを探すとそれらしいものが
ありますが、selectionの変更イベントを受けてselectionを変更すると堂々巡りに
なってしまうので、ここはPointerReleaseイベントをつかってこんな感じではどうでしょう

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"}
                }
            }
    }
}
{value
    {let tree1:TreeControl={TreeControl data-model = tree_model}}
    {let tree2:TreeControl={TreeControl data-model = tree_model}}
    {do
        {tree1.add-event-handler
            {on pr:PointerRelease do
                {tree2.select-nothing}
            }
        }
        {tree2.add-event-handler
            {on pr:PointerRelease do
                {tree1.select-nothing}
            }
        }
    }
    {VBox
        tree1,tree2
    }
}