linux-l: Perl-Tk-Example

[Jens Dreger]

On Fri, Mar 10, 2000 at 05:34:40PM +0100, Oliver Bandel wrote:
> Hi!
> 
> 
> Kann mir mal jemand ein Beispiel-Script
> schicken, mit dem man mit Perl-Tk Fenster
> auf den Schirm zaubern kann?

use Tk;
$MW = MainWindow->new;
$hello = $MW->Button(
    -text    => 'Hello, world', 
    -command => sub {print STDOUT "Hello, world\n"; exit;},
);
$hello->pack;
MainLoop;

Ansonsten direkt die demos aus der PerlTk-Distribution
(Tk800.xxx/demos/...). Da habe ich auch mal schnell obigen Code
geklaut ;-)

> Habe nach drei Tagen tcl schon wider die Nase voll...

Klar. Alles andere waere ein Wunder...
 
> Vielen Dank im Voraus.

Gern geschehen,

Jens.