[Tk] GUI für eine Konsolenanwendung implementieren - #174746 (Allgemeines zu Perl)

vitek

2014-04-14 14:05

User since
2009-12-02
36 Artikel
BenutzerIn
[default_avatar]

Hi nochmal,

wie würdest Du es anstellen wenn jetzt das Ausgabefenster wieder geleert werden soll?
Ich habe das mal in deinem Bsp. eingebaut.
Beim drücken auf den neuen Button bekomme ich leider eine Fehlermeldung mit der ich nix anfangen kann...

Code: (dl )

   my $empty_button=$mw->Button(
      -text => 'EMPTY',
      -command => sub{
    		if($out_text and $running) {
      			$out_text->delete(0,'end');
    		}
      });
    $empty_button->pack();

Das ist die Meldung:

Code: (dl )

Tk::Error: bad text index "0" at C:/Program Files (x86)/Perl/lib/Tk.pm line 252.
 Tk callback for .frame.frame.rotext
 Tk callback for .button1
 Tk::__ANON__ at C:/Program Files (x86)/Perl/lib/Tk.pm line 252
 Tk::Button::butUp at C:/Program Files (x86)/Perl/lib/Tk/Button.pm line 111
 <ButtonRelease-1>
 (command bound to event)