TK DialogBox Exit Button - #112974 (Graphische Oberflächen)

Ted

2008-08-01 13:33

User since
2008-01-09
22 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich nutze die DialogBox und würde gerne, dass der Exit (X) Button oben in der Ecke deaktiviert wird.

messageBox möchte ich nicht verwenden, da die Antwortbutton nicht alle meine Antworten abdecken

Code (perl): (dl )

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?);

MfG