とりあえず、参照関係をツリーにすれば確認しやすいかもですね。
Code:
{curl 8.0 applet}
{curl-file-attributes character-encoding = "utf8"}
{applet manifest = "manifest.mcurl",
{compiler-directives careful? = true}
}
{def parent-vbox = {VBox border-width = 2pt, border-color = "orange"}}
{def child-vbox = {VBox border-width = 2pt, border-color = "blue"}}
{import * from COM.CURL.LIB.ENVIRONMENT}
{def applet = {get-the-applet}}
{def current-package = {get-current-package}}
{def current-manifest = {get-current-manifest}}
{define-class public PackageTreeItemLabel {inherits Frame}
field public label:String
{constructor public {default label:String, ...}
set self.label = label
{construct-super
label,
margin = 2px,
{splice ...}}
}
field _self-highlight?:bool = false
{getter public {self-highlight?}:bool
{return self._self-highlight?}
}
{setter public {self-highlight? val:bool}:void
set self._self-highlight? = val
{if val then
set self.border-color = "blue"
set self.border-width = 1px
else
{unset self.border-color}
{unset self.border-width}
}
}
{setter public {parent-highlight? val:bool}:void
{if val then
set self.border-color = "orange"
set self.border-width = 2px
else
{unset self.border-color}
{unset self.border-width}
}
}
}
{define-class package PackageTreeItem {inherits DefaultTreeItem}
{constructor package {default node:TreeNode}
{construct-super node}
{self.add-event-handler
{on PointerPress do
set self.highlight? =true
{if-non-null tree = self.control then
{tree.walk-nodes
{proc {node:TreeNode}:bool
{type-switch node.node-data
case ptil:PackageTreeItemLabel do
def self-label = (self.node.node-data asa PackageTreeItemLabel).label
set ptil.self-highlight? = (self-label == ptil.label) true
{if ptil.self-highlight? then
{if-non-null parent = node.parent then
{tree.expand-node parent}
def parent-label = parent.node-data asa PackageTreeItemLabel
set parent-label.parent-highlight? = ptil.self-highlight?
}
}
}
{return false}
},
enter-collapsed-nodes? = true
}
}
}
}
}
}
{define-proc {make-tree-node p:Package}:#TreeNode
let tree:#TreeNode = null
{if-non-null prj-name = current-manifest.name, p-name = p.name then
||プロジェクト名＋パッケージ名になっていることが前提
def found-index = {p-name.find-string prj-name}
{if found-index > -1 then
def start = found-index + prj-name.size
def length = p-name.size - start
set tree = {TreeNode node-data =
{PackageTreeItemLabel {p-name.substr start, length}}}
{for ip in p.imported-packages do
{if-non-null node = {make-tree-node ip} then
{tree.append node}
}
}
}
}
{return tree}
}
{CommandButton
label= "パッケージツリーの表示",
{on Action do
let tree:TreeNode = {TreeNode node-data = {PackageTreeItemLabel current-manifest.name asa String}}
{for cs in current-manifest do
{switch cs.component-type
case "package" do
{try
let p:Package =
{import-package
{ComponentSelector name = cs.name}
}
{dump p}
{if-non-null node = {make-tree-node p} then
{tree.append node}
}
catch e:Exception do
{tree.append {TreeNode node-data = "[" & cs.name & "]:読み込みエラー"} }
}
}
}
def v =
{View
width = 5in, height = 4in,
{ScrollBox
hstretch? = true, vstretch? = true,
{TreeControl
data-model =
{TreeModel
root = tree
},
tree-item-creation-proc =
{proc {node:TreeNode}:TreeItem
{return {PackageTreeItem node}}
}
}
}
}
{v.show}
}
}
