perlTk/inquiry

[Unknown Sender]

I am running linux redhat ver 8. perl v5.8.0. I downloaded perltk from:
[url]http://xbeams.chem.yale.edu/~loria/perltk.html[/url] and rpm it. I then tried
to run the example script from [url]http://www.pconline.com/~erc/perltk.htm[/url]
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]ruben.montes@eu.didata.com[/email] (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
>}
>
>
>
>
>
>
>

[denis@teachlinux.com]

I know that RH 9 has major problems running TK. Something to do with the
way the lib's where linked. Try a google search for more info.

HTH..

Denis

On Wed, 31 Dec 2003, awongxi wrote:

> I am running linux redhat ver 8. perl v5.8.0. I downloaded perltk from:
> [url]http://xbeams.chem.yale.edu/~loria/perltk.html[/url] and rpm it. I then tried
> to run the example script from [url]http://www.pconline.com/~erc/perltk.htm[/url]
> 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]ruben.montes@eu.didata.com[/email] (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
> >}
> >
> >
> >
> >
> >
> >
> >

>
>