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