[EMAIL PROTECTED] (Vadim Konovalov) writes:
> So, if you'll post here more complete GUI part of your code, I can expand
> perl/Tk support in Tcl::Tk module to cover your widgets usage.
>
> But generally - when writing new programs with Tcl::Tk you will not face
> this problem, but your widget library will be larger from the very start.
>
Follows another chunk of code.
It produces errors as stated before.
_______________________
#!/usr/local/perl
use Tcl::Tk qw/:perlTk/;
use warnings;
use strict;
my ($mw,$pane_fr,$tb);
$mw = MainWindow->new();
$mw->geometry("300x100");
$mw->Declare('Pane','ScrollableFrame',-require=>'BWidget');
$pane_fr = $mw->Scrolled('Pane',
-scrollbars=>'osoe',
-sticky=>'nw',
)->pack(-fill=>'both',
-expand=>1,
);
$tb = $pane_fr->ToolBar;
$tb->ToolButton(-image=>'filenew22',
-tip=>'new',
-command=>\&new,
);
$tb->ToolButton(-image=>'actexit22',
-tip=>'Exit',
-command=>\&exit,
);
$tb->ToolLabel(-text=>"\t\t");
$tb->ToolButton(-image=>'nav2leftarrow16',
-tip=>'first',
-command=>\&first,
);
MainLoop;
--
Radek
