Пытаюсь создать графический интерфейс для своей проги, пользуясь
ActivePerl. Не могу найти, как задать размер главного окна в пикселях или сантиметрах. Другая проблема: создал вверху окна меню, а метки входов полностью не выводятся, только несколько первых букв. Помогите бедному чайнику!
Код такой:
use Tk;
use Tk::Menu;
my($Glavn);
$Glavn=MainWindow->new( -menu => $Menu1);
$Menu1=$Glavn->Menu( -type =>'menubar')->pack;
$Menu_Options=$Menu1->Menu ();
$Menu_File=$Menu1->Menu ();
$Menu1->add ('cascade', -label =>'File');
$Menu1->add ('cascade', -label =>'Options',
-columnbreak =>1,
-menu =>$Menu_Options);
$Menu_Options->add ('command', -label =>'Сохранить настройки',
-command =>\&Save_Options);
...<и так далее>
|