#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	$this->super(@_) || $this->croak("super failed");

	if ($_{onchange}) {
		$this->onchange($_{onchange});
	}
	
	return $this;
}
