tkinit

Hallo,

Slaven Rezic hat in einer Antwort zum Posting "Bestätigungsbox" folgende
Tk-Routine vorgeschlagen:

sub bestaetigung {
use Tk;
my $mw = tkinit;
$mw->withdraw;
return lc $mw->messageBox(-message => "Tatsächlich?", -type => "YesNo")
eq 'yes';
}

Hierzu meine Frage: Was ist tkinit? In "Mastering Perl/Tk" konnte ich nichts
finden, auch nicht in der von ActiveState mitgelieferten Doku, außer einer
kurzen Erwähnung in Tcl-perl.html. Von obigem Kode her scheint es eine
Teilmenge von MainWindow zu sein.

Gruß

Klaus

Re: tkinit

K. Wittrock schrieb:
> Hallo,
>
> Slaven Rezic hat in einer Antwort zum Posting "Bestätigungsbox" folgende
> Tk-Routine vorgeschlagen:
>
> sub bestaetigung {
> use Tk;
> my $mw = tkinit;
> $mw->withdraw;
> return lc $mw->messageBox(-message => "Tatsächlich?", -type =>
> "YesNo") eq 'yes';
> }
>
> Hierzu meine Frage: Was ist tkinit? In "Mastering Perl/Tk" konnte ich
> nichts finden, auch nicht in der von ActiveState mitgelieferten Doku,
> außer einer kurzen Erwähnung in Tcl-perl.html. Von obigem Kode her
> scheint es eine Teilmenge von MainWindow zu sein.
>
> Gruß
>
> Klaus
>
Hallo Klaus,

aus Tk.pm :

sub tkinit { return MainWindow->new(@_) }

das ist alles...

Christoph

--

perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"

Re: tkinit

"Ch Lamprecht" schrieb im Newsbeitrag
news:e0h3us$389$1@online.de...

>>
>> Hierzu meine Frage: Was ist tkinit? In "Mastering Perl/Tk" konnte ich
>> nichts finden, auch nicht in der von ActiveState mitgelieferten Doku,
>> außer einer kurzen Erwähnung in Tcl-perl.html. Von obigem Kode her
>> scheint es eine Teilmenge von MainWindow zu sein.
>>

>
> aus Tk.pm :
>
> sub tkinit { return MainWindow->new(@_) }
>
> das ist alles...
>

Danke.

Klaus