]> mj.ucw.cz Git - anim.git/blobdiff - AA/Net.pm
Vsechny tri.
[anim.git] / AA / Net.pm
index 3b17fdb1b1fdb3a47d675ab7df6538ab5d47ef7c..6d23d3d6460ae37ea9cd24d0bad93e1a479e54b2 100644 (file)
--- a/AA/Net.pm
+++ b/AA/Net.pm
@@ -17,11 +17,9 @@ sub new($$$$) {
                'y' => sub { $v->Get('y') + 80 },
                'size' => 50,
                'text' => sub { $v->Get('xs') },
-               'color' => sub {
-                       $v->Get('hint') ? [0,1,0] :
-                       $v->Get('xs') ? [1,0,0] : [1,1,1]
-               },
+               'color' => sub { $v->Get('xs') ? [1,0,0] : [1,1,1] },
        );
+       $v->Bind('color', sub { $v->Get('hint') ? [0,0.7,0] : [0.7,0,0.7] });
        return $v;
 }