Thanks for this advice... I will definately take it and research it, and see how I can incorporate it into my stuff.. "R. Joseph Newton" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > [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]
