my $dialog = $Ptk{Main_window}->Dialog(
                             -text    => $txt,
                             -font    => $Ptk{Bigfont},
                             -justify => 'left',
                             -title   => $titel,
                             -default_button => $button[$default_button],
                             -buttons => \@button,
                             
                            );
    
    
my $eingabe = $dialog->Show(?-global?);