package Tie::Textfield;						
                                             
sub TIEHANDLE {                              
	my ($class, $control) = @_;              
	bless { control => $control }, $class;    
	}                                        
                                             
sub PRINT {                                  
	my ($self, $text) = @_;                  
	$self->{'control'}->{'-text'} .= $text;  
	}