-textvariable =>$mockOb->search

sub search{
	my $self = shift();
	if(@_) {
		$self->{search} = shift();
		$self->{search} =~ s/^\s+|\s+$//g;
	}
	return $self->{search};
}