1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
# -*- coding: utf-8 -*-
# ウィンドウパーツ階層構造の親
# これをincludeするクラスは、クラスメソッドとしてactiveを実装している必要がある
module Plugin::GUI::HierarchyParent
class << self
def included(klass)
klass.extend(Extended)
end
end
attr_reader :active_child
# 子を追加する
# ==== Args
# [child] 子のインスタンス
# [index] 挿入するインデックス
# ==== Return
# self
def add_child(child, index=children.size)
type_strict child => Plugin::GUI::HierarchyChild
return self if child.parent == self
children.insert(index, child)
child.set_parent(self)
@active_child ||= child
self end
alias << add_child
# _child_ のn順番を変更する。 _new_index_ 以降はひとつづつシフトする
# ==== Args
# [child] 子
# [new_index] 新しく入れるインデックス
def reorder_child(child, new_index)
type_strict child => Plugin::GUI::HierarchyChild
if children.include?(child)
@children.delete(child)
@children.insert(new_index, child)
Plugin.call(:gui_child_reordered, self, child, new_index)
else
error "the widget #{child.inspect} is not child of #{self.inspect}" end
self end
# 子を削除する
# ==== Args
# [child] 削除する子
# ==== Return
# self
def remove(child)
children.delete(child)
if @active_child == child
@active_child = nil end
self end
# 子の配列を返す
# ==== Return
# 子の配列
def children
@children ||= [] end
# 子 _child_ をアクティブに設定する
# ==== Args
# [child] アクティブにする子
# [by_toolkit] UIツールキットの入力でアクティブになった場合真
# ==== Return
# self
def set_active_child(child, by_toolkit=false)
type_strict child => tcor(Plugin::GUI::HierarchyChild, NilClass)
@active_child = child
Plugin.call(:gui_child_activated, self, child, by_toolkit) if child
self end
# このインスタンス以下の、アクティブな祖先のリストを返す。
# ==== Return
# アクティブな子、孫、…のリスト 又は空の配列
def active_chain
if @active_child
result = [@active_child]
ancestors = @active_child.respond_to?(:active_chain) && @active_child.active_chain
ancestors ? result + ancestors : result
else
[] end end
# active_chain が返すインスタンスのうち、最初に _klass_ とis_a関係にあるものを返す。
# ==== Args
# [klass] クラス
# ==== Return
# 一致する祖先か見つからなければnil
def active_class_of(klass)
active_chain.find{ |child| child.is_a? klass } end
module Extended
# 子を追加するデフォルトのインスタンスを返す
def add_default
active end
end
end
|
