Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: GUI > Tk::Table

Автор: OutlawZ 12.5.2010, 11:35

Народ а как вы таблицу выводите? у меня что то не получается ее показать на форме:

Код


use Tk;
use Tk::Table;

my ($mw,%wg, );

$mw = MainWindow->new('-title' => "Table");

$wg{'Table1'} = $mw->Table(
 -rows             => 5,
 -columns        => 5,
 -scrollbars      => 'oe',
 -fixedrows      => 5,
 -fixedcolumns => 5,
)->pack();
                          

$wg{'Table1'}->put(5,5,"Table");

MainLoop;

Выводит тока надпись Table и scrollbar, использовал методы see и get но так же не помогло.