ツリー構造について

[rom]

こんにちは！

ツリー構造について再び質問です。

ツリーの階層毎にイベントアクションの動作を変えたいのですが
やり方がわかりません・・・

ご教授お願いいたします。

[rom]

現在このようにして階層を取得していますが
他に方法があればご教授ください。

よろしくおねがいします。

Code:

{if-non-null current = tree.current-node then
                        {let rank:int=1}
                        {let rank_node:#TreeNode=current}
                        {while rank_node.parent != null do
                            {set rank_node = rank_node.parent}
                            {inc rank}
                        }
                        {popup-message rank&"階層です"}
                    }

[e.kou]

今の方法が一番シンプルでいいとおもいますが、
別の方法としては、
TreeControl部品を継承してカスタマイズ(プロパティ追加)するのもいいと思います。
ツリー構造が変更されない前提条件であれば
ツリー作成時に階層情報を持ったせることで、毎回ループ処理を行わないで抽出できます。

[e.kou]

romさん
サンプルソース作成したので、合わせて確認してみてください。

Code:

||++  TreeNode拡張
||++  TreeNodeに階層フィールドを追加
{define-class public ExTreeNode {inherits DefaultTreeNode}
  field public node-level:int  {constructor public {default
                          ...
                      }
    {construct-super
        {splice ...}
    }
  }
}||++  TreeControl生成
{TreeControl
    data-model =
        {TreeModel
            root =
                {ExTreeNode node-data="Food",
                    {ExTreeNode node-data="Fruit",
                        {ExTreeNode node-data="Apples",
                            {ExTreeNode node-data="Macintosh"},
                            {ExTreeNode node-data="Cortland"},
                            {ExTreeNode node-data="Gala"},
                            {ExTreeNode node-data="Delicious"}
                        },
                        {ExTreeNode node-data="Oranges"}
                    },
                    {ExTreeNode node-data="Vegetables",
                        {ExTreeNode node-data="Squash"},
                        {ExTreeNode node-data="Tomatoes"},
                        {ExTreeNode node-data="Cucumbers"}
                    }
                }
        },    ||++ tree-item-creation-procに階層値を設定
    tree-item-creation-proc ={proc {node:TreeNode}:TreeItem
                                 {type-switch node
                                  case et:ExTreeNode do
                                     {if et.parent == null then
                                         set et.node-level = 1
                                      else
                                         def par = et.parent
                                         {type-switch et.parent
                                          case etp:ExTreeNode do
                                             set et.node-level = etp.node-level+1
                                         }
                                     }
                                 }
                                 {return {DefaultTreeItem node}}
                             },    ||++ アクションイベント
    {on Action at tc:TreeControl do
        {type-switch tc.current-node
         case et:ExTreeNode do
            {popup-message et.node-level&"階層です。"}
        }
    }
}

[umemura]

階層の取得についてはromさんの取得方法で大きな問題はないと思います。


e.kouさんのサンプルにもあるように、
クラスの継承だけでなく、tree-item-creation-proc を使うことで、
いろいろな実装方法が考えられそうですね。

個人的には、ExTreeNode に「階層情報」のフィールドを持たせたのであれば、
ExTreeNode の責任範囲をかんがえたときには、
自分自身で階層情報を取得したほうが、よりシンプルかなと思いました。

また、ツリー生成のタイミングと、表示のタイミングが異なるケースはあまりなさそうですが、
サンプルのように、TreeItem の位置が変更されることも考えて、
一応、ゲッターの中で再取得するようにしてみました。
（サンプルでは、ExTreeItem を利用して、ドラッグでツリーを移動することができます）

Code:

||++  TreeNode拡張
||++  TreeNodeに階層フィールドを追加
{define-class public ExTreeNode {inherits DefaultTreeNode}
  ||現在の階層を返すゲッター
  {getter public {node-level}:int
    let rank:int = 1
    let rank_node:#TreeNode=self
    {while rank_node.parent != null do
        {set rank_node = rank_node.parent}
        {inc rank}
    }
    {return rank}
  }
  {constructor public {default  ... }
    {construct-super  {splice ...} }
  }
}

||ドラッグで移動可能なTreeItem
||※実用には「もとに戻す」機能が必要
{define-class public ExTreeItem {inherits DefaultTreeItem }

  {constructor public {default ...}
    {construct-super {splice ...}}

    set self.dragee = {ImageDragee}

    {self.add-event-handler
        {on e:DragOver do
            {e.will-accept-drop?
                {proc {type:Type, x:Distance, y:Distance,
                       effect:#DragEffect}:DragEffect
                    {return drag-effect-copy}
                }
            }
        }
    }

    {self.add-event-handler
        {on e:Drop do
            {e.accept-drop
                {proc {a:any, x:Distance, y:Distance,
                       effect:#DragEffect}:DropResult
                    {return
                        {DropResultCopy
                            action =
                                {proc {}:void
                                    {type-switch a
                                     case ti:DefaultTreeItem do
                                        {self.node.append ti.node}
                                        {if not self.expanded? then
                                            {self.toggle-node}
                                        }
                                    }
                                }
                        }
                    }
                }
            }
        }
    }
  }
}

||++  TreeControl生成
{TreeControl
    data-model =
        {TreeModel
            root =
                {ExTreeNode node-data="Food",
                    {ExTreeNode node-data="Fruit",
                        {ExTreeNode node-data="Apples",
                            {ExTreeNode node-data="Macintosh"},
                            {ExTreeNode node-data="Cortland"},
                            {ExTreeNode node-data="Gala"},
                            {ExTreeNode node-data="Delicious"}
                        },
                        {ExTreeNode node-data="Oranges"}
                    },
                    {ExTreeNode node-data="Vegetables",
                        {ExTreeNode node-data="Squash"},
                        {ExTreeNode node-data="Tomatoes"},
                        {ExTreeNode node-data="Cucumbers"}
                    }
                }
        },
    tree-item-creation-proc ={proc {node:TreeNode}:TreeItem
                                 {return {ExTreeItem node}}
                             },
    ||++ アクションイベント
    {on Action at tc:TreeControl do
        {type-switch tc.current-node
         case et:ExTreeNode do
            {popup-message et.node-level&"階層です。"}
        }
    }
}

[rom]

>e.kou さん
>>今の方法が一番シンプルでいいとおもいますが

何だか褒められたみたいで嬉しいです！有難うございます！

>TreeControl部品を継承してカスタマイズ(プロパティ追加)
上記のような考えが出てこなくて困ってます！
やりたいことがあった時はどのように調べてるのでしょうか＞＜？


>umemura さん
いつも回答ありがとうございます！
「責任範囲」を考えたり質問に対してより深く
回答してくれて、とても勉強になります！

継承してカスタマイズすると色々出来るんだなと実感しました！