Added hints.

[anim.git] / AA / Net.pm

diff --git a/AA/Net.pm b/AA/Net.pm
index d0d074a7d534c38bd2f827621166e01c9599f4e9..3b17fdb1b1fdb3a47d675ab7df6538ab5d47ef7c 100644 (file)
--- a/AA/Net.pm
+++ b/AA/Net.pm
@@ -9,6 +9,7 @@ sub new($$$$) {
        $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(
@@ -16,7 +17,10 @@ sub new($$$$) {
                '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;
 }