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