[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

Reply via email to