Select Code to Download

sub ClassInit {
    my ($class,$mw) = @_;
...
    $mw->bind($class,'<Control-c>','_copyAll');
    $mw->bind($class,'<Control-C>','_copyAll');
}

sub _copyAll {
    my ($w) = @_;
...
            }
    }
}