[EMAIL PROTECTED] wrote:
> Through much digging I found AddScrollbars was defined in Tk::Frame..
>
> #!perl -w
> # Pchopler.pl
> use strict;
> use Tk 800.000;
> # These are all the modules that we are using in this script.
> use Tk::Frame;
> use Tk::TextUndo;
> use Tk::Text;
> use Tk::Scrollbar;
> use Tk::Menu;
> use Tk::Menubutton;
> use Tk::Adjuster;
> use Tk::DialogBox;
> use Net::FTP;
>
> . . .
> # this is where things are failing..
> # from the debug frame:
> #Can't locate Tk/AddScrollbars.pm in @INC (@INC contains c:/Perl/lib
> C:/Perl/site/lib) at C:/Perl/lib/Tk/Widget.pm line 261.
> #Tk::Widget::_AutoloadTkWidget('Tk::Frame=HASH(0x22f1734)','AddScrollbars')
> called at C:/Perl/llib/Tk/Widget.pm line 1118
> #Tk::Widget::Scrolled('Tk::Frame=HASH(0x1d14000)','Text','-height',1,'-width
> ',1,'-scrollbars','osoe') called at pchopler.pl line 27
> # line 27 v
> my($OutputText) = $rf->Scrolled('Text',
> -height => '1',
> -width => '1',
> -scrollbars => 'osoe',
> );
>
> my($PegText) = $rf->Scrolled('TextUndo',
Is the TextUndo widget documented among the Tk widgets? If not this is your
problem. That parameter must be the class name of a widget you wish to scroll.
Another thing that helps is to have Tk::Derived before the name of the scrolled
widget in @INC:
@INC = ('Tk::Derived', 'Tk::Text', 'Tk::Frame');
I would also suggest reblessing the created object, or using the Tk::Construct
function. Read about it under Tk::composite.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
