$v->DefSet('y0', 100);
$v->DefSet('h', 0);
$v->DefSet('xs', '');
+ $v->DefSet('hint', 0);
$v->Bind('y', sub { $v->Get("y0") - 50*$v->Get("h") });
$v->{XS} = AA::Label->new("$id-label");
$v->{XS}->MultiSet(
'y' => sub { $v->Get('y') + 80 },
'size' => 50,
'text' => sub { $v->Get('xs') },
- 'color' => sub { $v->Get('xs') ? [1,0,0] : [1,1,1] },
+ 'color' => sub {
+ $v->Get('hint') ? [0,1,0] :
+ $v->Get('xs') ? [1,0,0] : [1,1,1]
+ },
);
return $v;
}