説明
ControlContainer は、非ローカルオプション control-container を自身に設定します。それにより、保持されているコントロールはコントロールを見つけ、ControlContainer.register-control を使用してそのコントロールを登録することができます。
ControlContainer.controls 反復子は、ControlContainer 内のコントロールを返します。これは、保持されているコントロールをグループとして操作するために使用されます。たとえば、次のコードはそれを反映した API を使用した例です。editable? プロパティを持つコントロールを配置し、値を設定します。
| 例 | |
 | |
{let d:Dialog =
{Dialog
{spaced-vbox
{TextField value = "Hello"},
{Slider},
{SpinControl value = 25}
}
}
}
{value d}
{CheckButton
value = true,
{on ValueFinished at c:CheckButton do
{for control in d.controls do
{type-switch {type-of control}
case type:ClassType do
{if-non-null prop =
{type.get-property-for-set "editable?"}
then
{if prop.public-set? and prop.type == bool then
{prop.set-value control, c.value}
}
}
}
}
}
}
|