The simple example, but you may have to get the TK.pm module.
#!/usr/bin/perl5
#
# Perl/Tk Button widget with "exit" callback action
#
use Tk;
# Create main window top-level container
$top = new MainWindow;
# Create a single pushbutton with a perl "exit" callback action
$b1 = $top->Button( -text => "Press", -command => sub{exit} );
# Pack widget to make it visible
$b1->pack;
# Enter event loop for handling user input events
MainLoop;
# button1.pl
RWW
----- Original Message -----
From: "Mohammed Khatib" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Sunday, December 23, 2001 7:33 PM
Subject: RE: PERL TK
> Yeah, I did.
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> [EMAIL PROTECTED]
> Sent: Saturday, December 22, 2001 4:33 AM
> To: [EMAIL PROTECTED]
> Subject: PERL TK
>
>
> Anyone ever get PERL TK to run on Windows? Kim Zuber SEPG PVCS Support
ext.
> 1048
>
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/activeperl
>
>
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
