[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