URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 2252
[ Назад ]

Исходное сообщение
"Размер главного окна в PerlTk"

Отправлено tony , 06-Ноя-03 11:35 
Пытаюсь создать графический интерфейс для своей проги, пользуясь
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);
...<и так далее>
  


Содержание

Сообщения в этом обсуждении
"Размер главного окна в PerlTk"
Отправлено Mif , 06-Ноя-03 13:15 
>$Glavn=MainWindow->new( -menu => $Menu1);

$Glavn->geometry("500x400");