sub ClassInit {
    my ($class,$mw) = @_;
    $mw->bind($class,'<Configure>',['_yscrollCallback']);
    $mw->bind($class,'<Down>',['_upDown',1]);
    $mw->bind($class,'<Up>',  ['_upDown',-1]);
    $mw->bind($class,'<Shift-Up>',  ['_extendUpDown',-1]);
    $mw->bind($class,'<Shift-Down>',['_extendUpDown',1]);
    $mw->bind($class,'<Control-Home>','_cntrlHome');
    $mw->bind($class,'<Control-End>','_cntrlEnd');
    $mw->bind($class,'<Shift-Control-Home>',['_dataExtend',0]);
    $mw->bind($class,'<Shift-Control-End>',['_dataExtend',Ev('index', 'end')]);
    $mw->bind($class,'<Control-slash>','_selectAll');
    $mw->bind($class,'<Control-backslash>','_deselectAll');
    $mw->bind($class,'<Control-c>','_copyAll');
    $mw->bind($class,'<Control-C>','_copyAll');
}

##</code><code>##

sub _copyAll {
	my ($w) = @_;
    my @sel = $w->curselection;
    if (scalar(@sel) > 0){
	    $w->clipboardClear;
	    foreach(@sel){
	    	my ($name) = ($w->getRow($_))[6];
    		$w->clipboardAppend($name);
    	    }
    }
}