Select Code to Download

# first way with tags, all outer balls will be bound
# to same callback
...
}

$zinc->bind( 'outerring', '<1>',  \&ro6);

my %refitems;
my $refitem = $zinc->add('arc',$centergroup2, [ [10,20], [20,30] ],
...
   #pass extra info to the callback 
   $zinc->bind( $refitem{$_}, '<1>',  [  \&ro6, $_  ]    ) ;  
}

my $refitem = $zinc->add('arc',$centergroup2, [ [10,20], [20,30] ],
               -filled => 1,
...
   #pass extra info to the callback 
   $zinc->bind( $refitem{$_}, '<1>',  [  \&ro6, $_  ]    ) ;  
}