RE: how to use iWidgets?

[Konovalov, Vadim Vladimirovich (Vadim)** CTR **]

> 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', );

Nice try!
You was almost there, the only error was 'iwidgets' instead of  'Iwidgets'

Tcl/Tk is case-sensitive, like perl and c and ...

here:

use Tcl::Tk qw(:widgets :perlTk);
my $mw = tkinit;
$mw->Declare('Labelframe', 'iwidgets::labeledframe', -require=>'Iwidgets');
my $tagButtons = $mw->Frame()->pack(
    -fill => 'both',
    -padx => '2',
    -pady => '2'
);

my $ne = $tagButtons->Labelframe(
    -labeltext  => 'Pojmenovan? entity',
    -background => 'white',
)->pack( -side => 'left',  -fill=>'both',-expand=>1);
#$ne->Button(-text=>'qwerty')->pack;

Tcl::Tk::MainLoop;


But you'll better use LabelFrame from BWidgets, as it is better maintained.


Best regards,
Vadim.