$tslist->signal_connect('button-release-event' =>    sub {        
    	my ($self, $event) = @_;
   		my ($path, $column, $cell_x, $cell_y) = $tslist->get_path_at_pos ($event->x, $event->y ); # <------- !!!!!
		my @widths;
			$widths[0] = $columns[0]->get_width();
			for my $i (1..$#columns) {
				$widths[$i] = $widths[$i-1] + $columns[$i]->get_width();
			}
   		if ($path) {
			if ($event->x > 0 and $event->x < $widths[0]) {
				my $row = $path->to_string;
				my $value = $dtslist->[$row][0];
				$dtslist->[$row][0] = $activity_list{$activity_order{$activities_rev{$value}}};
			}
   		}    
	});