#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldloc=$_{oldloc};
	my $loc=$this->location;
	
	if (ref $oldloc) {
		$oldloc->messagefilters->remove(object => $this);
	}
	if (ref $loc){
		$loc->messagefilters->add(object=> $this);
	}
}
