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

Reply via email to