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