Front page | perl.beginners |
Postings from December 2003
perlTk/inquiry
Thread Previous
|
Thread Next
From:
Unknown Sender
Date:
December 30, 2003 06:06
Subject:
perlTk/inquiry
Message ID:
3FF1878B.5080106@accefyn.org.co
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 , ruben.montes@eu.didata.com (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
>}
>
>
>
>
>
>
>
Thread Previous
|
Thread Next