Professional Web Applications Themes

perlTk/inquiry - PERL Beginners

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 ...

  1. #1

    Default perlTk/inquiry

    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.monteseu.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
    >}
    >
    >
    >
    >
    >
    >
    >

    Unknown Sender Guest

  2. #2

    Default Re: perlTk/inquiry


    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.monteseu.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 Guest

Similar Threads

  1. inquiry-perltk
    By Unknown Sender in forum PERL Beginners
    Replies: 0
    Last Post: December 30th, 12:31 PM
  2. PERLTK
    By Eric Walker in forum PERL Beginners
    Replies: 0
    Last Post: September 16th, 05:04 PM
  3. new user inquiry
    By Barbara Brundage in forum Adobe Photoshop Elements
    Replies: 2
    Last Post: August 12th, 12:37 PM
  4. Databinding Inquiry
    By Leon Shaw in forum ASP.NET General
    Replies: 1
    Last Post: July 11th, 07:11 PM
  5. Setting the mode for trees in PerlTk
    By A Epstein in forum PERL Miscellaneous
    Replies: 1
    Last Post: July 9th, 08:00 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139