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: > 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 > >} > > > > > > > > > > > > > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
