$w-> insert( "InputLine",
	pack      => { pady => 20, padx => 20, fill => 'x', side => 'bottom'},
	text      => $w-> text,
	maxLen    => 200,
	onChange  => sub {
#~         warn "@_";
#~         use Data::Dump;dd(\@_);
#~         use Data::Dump;dd( $inputine->{undo}->[-1][1][1] );
        use Data::Dump;dd( $_[0]->{undo}[-1][1][1] , $_[0]->text );
		$_[0]-> owner-> text( $_[0]-> text);
		$_[0]-> owner-> Label1-> text( $_[0]-> text);
		$_[0]-> owner-> menu-> coexistentor-> text( $_[0]-> text)
			if $_[0]-> owner-> menu-> has_item( 'coexistentor');
	},
);