perlTk/inquiry

[awongxi]

I am running linux redhat ver 8. perl v5.8.0. I downloaded perltk from: 
http://xbeams.chem.yale.edu/~loria/perltk.html and rpm it. I then tried 
to run the example script from http://www.pconline.com/~erc/perltk.htm 
but I am getting this error msg:

Can't locate auto/Tk/findINC.al in @INC (@INC contains: 
/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi 
/usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl 
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi 
/usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at 
/usr/lib/perl5/5.8.0/Tk.pm line 51
Compilation failed in require at tkmenu.pl line 5.
BEGIN failed--compilation aborted at tkmenu.pl line 5.

I guess it has to do with the creation of the dinamic loadable 
libraries... but I am not sure, and I do not knwo how to get this to 
work, if some one could please tell me what am I doing wrong? how to 
correct it.. cheers.

zentara wrote:

On Fri, 9 May 2003 10:13:16 +0200 , [EMAIL PROTECTED] (Ruben
Montes) wrote:
 

HI, 
I want to write a simple script to generate a pop-up window that should
beclicked to get it closed... Where should I start?
Thanks,
   

Here's a start:
##################################################################
#!/usr/bin/perl
# test prg for notification window
use Tk;
use strict;
my $mw_bdw = 2;  #mainwindow border width
### Create a Mainwindow ###
my $main = new MainWindow(-borderwidth=>$mw_bdw,
                         -relief=>'ridge',
                         -bg => "#0000FF");
$main->geometry("150x100+0+0"); # displaying at top left on any
resolution
$main->overrideredirect(1); # Remove window decorations and keep on all
screens
### create a text widget ###
my $imstr = "THIS IS A TEST NOTIFICTION LONG ENOUGH TO WRAP";
my $TEXT = $main->Text(
                      -foreground=> 'white',
                      -background=> '#0000FF',
                      -wrap => 'word',
                      -height => 7,
                      -width => 50)->pack;
$TEXT->insert('end', "$imstr", );

#$main-> after(5000, \&exitprg); # autoclose in 5000 milisecs
$main->bind('<ButtonRelease>',sub{$main->destroy}); #or sub exitprg
MainLoop; 

#### FUNCTIONS ####
sub exitprg {
print STDERR "CALLED EXIT\n";
$main-> destroy; # to kill the window and exit from prog
}