$main::widgets{textfeld}-> bind ('<Key>', sub {$main::widgets{textfeld}-> see ('insert');});