Help for this page

Select Code to Download

Select or download this

my $obj_A = A->new ; #creating object of A.pm

...
$label->bind("<Button-1>", 
              sub { $self->onEnter($label, $obj_A) ; }
            )

Select or download this
```
$label->bind("<Button-1>", undef );
```