Hello,
I tried a simple code to access Tk through Tcl extension but get the
following errors.
___________________
Tcl error 'invalid command name "ScrolledWindow::Pane" at
C:/Perl/site/lib/Tcl.pm line 548.
' while invoking scalar result call:
".sc02 Pane" at C:/Perl/site/lib/Tcl.pm line 549
Tcl::call('Tcl::Tk=SCALAR(0x275294)', '.sc02', 'Pane') called at
C:/Perl/site/lib/Tcl/Tk.pm line 2348
Tcl::Tk::Widget::__ANON__('Tcl::Tk::Widget=SCALAR(0x190c574)')
called at C:/Perl/site/lib/Tcl/Tk.pm line 2354
Tcl::Tk::Widget::AUTOLOAD('Tcl::Tk::Widget=SCALAR(0x190c574)')
called at C:/Perl/site/lib/Tcl/Tk.pm line 2097
Tcl::Tk::Widget::Scrolled('Tcl::Tk::Widget::MainWindow=SCALAR(0x1900388)',
'Pane', '-scrollbars', 'osoe')
called at Tcltest.pl line 13
___________________
Code snippet:
use Tcl::Tk qw/:perlTk/;
use Tk::Pane;
use warnings;
use strict;
my ($mw,$pane_fr);
$mw = MainWindow->new();
$mw->geometry("300x100");
$pane_fr = $mw->Scrolled('Pane',
-scrollbars=>'osoe',
)->pack(-fill=>'both',
-expand=>1,
);
MainLoop;
Can someone tell what's wrong? ActiveState Perl 5.8.6 & Tcl 8.4.11.1.
Thanks.
--
Radek