I am new to Tcl/Tk (from Perl/Tk) and I can't figure out, how to use
use LabeledFrame (or anything else) from iWidgets.
This is what I have tried and the result:
------------------
use Tcl::Tk qw(:widgets :perlTk);
my $mw = tkinit;
$mw->Declare('Labelframe', 'iwidgets::labeledframe', -
require=>'iwidgets');
my $tagButtons = $mw->Frame(qw/-padx 2 -pady 2/)->pack(
-side => 'bottom',
-fill => 'x',
-padx => '2',
-pady => '2'
);
my $ne = $tagButtons->Labelframe(
# -text => 'Pojmenované entity',
#my $ne = $tagButtons->iWidgets::LabeledFrame(
-labeltext => 'Pojmenované entity',
-background => 'white',
-padx => '2',
-pady => '2',
)->pack( -side => 'left', -padx => '2', -pady => '2', );
------------------
[37] aleph:~% ./tcl-demo.pl
Tcl error 'invalid command name "iwidgets::labeledframe" at /Library/
Perl/5.8.6/darwin-thread-multi-2level/Tcl.pm line 540.
' while invoking array result call:
"iwidgets::labeledframe .f36.iwidgetslabeledframe40 -
labeltext Pojmenované entity -background white -padx 2 -pady 2" at /
Library/Perl/5.8.6/darwin-thread-multi-2level/Tcl.pm line 541
Tcl::call('Tcl::Tk=SCALAR(0x18b97e4)',
'iwidgets::labeledframe', '.f36.iwidgetslabeledframe40', '-
labeltext', 'Pojmenovan\x{e9} entity', '-background', 'white', '-
padx', 2, ...) called at /Library/Perl/5.8.6/Tcl/Tk.pm line 1626
Tcl::Tk::Widget::__ANON__('Tcl::Tk::Widget::Frame=SCALAR
(0x19c449c)', '-labeltext', 'Pojmenovan\x{e9} entity', '-background',
'white', '-padx', 2, '-pady', 2, ...) called at /Library/Perl/5.8.6/
Tcl/Tk.pm line 2259
Tcl::Tk::Widget::AUTOLOAD called at (eval 3) line 11
Tcl::Tk::Widget::Frame::AUTOLOAD
('Tcl::Tk::Widget::Frame=SCALAR(0x19c449c)', '-labeltext', 'Pojmenovan
\x{e9} entity', '-background', 'white', '-padx', 2, '-pady', 2, ...)
called at ./tcl-demo.pl line 186
