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

[umemura]

「開いているかどうか」は、TreeItem で取得できるようですね。

Code:

{value
    let tree:TreeControl={TreeControl data-model = tree_model}
    {VBox
        tree,
        {CommandButton
            label = "選択ノードの状態",
            takes-focus? = false,
            {on Action do

                def tc-ui = tree.ui-object asa SkinnableTreeControlUI


                {if-non-null crr-node = tree.current-node then

||++                || SkinnableTreeControlUI.cells からも取れるみたいだが、面倒
||++                || SkinnableTreeControlUI.get-item-for-node のほうが楽
||++                let current-item:#TreeItem = null
||++                {for c in tc-ui.cells do
||++                    def itm = c.item
||++                    {if itm.current? then
||++                        set current-item = itm
||++                        {break}
||++                    }
||++                }

                    {if-non-null current-item=  {tc-ui.get-item-for-node crr-node} then
                        {if current-item.expanded? then
                            {popup-message "開いている"}
                         else
                            {popup-message "閉じている"}
                        }
                    }
                 else
                    {popup-message "現在選択ノードなし"}
                }
            }
        }
    }
}