|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ruslan Bondarev 2:4624/1.65 24 Jan 2001 14:22:09
To : alexander smishlajev
Subject : Re: тут вот про МРЕ говорили
--------------------------------------------------------------------------------
Вторник Январь 23 2001 15:43, alexander smishlajev -> Ruslan Bondarev:
RB>> оставил после себя огромное пустое место, а второй фрейм - под
RB>> этим пустым местом.
as> тебе нyжен дpyгой менеджеp геометpии главного окна -- не packer, а
as> placer.
Все равно куча вопросов и непоняток. Просветите, чем сумеете, сами мы не
местные...
Вот упрощенный пример, результат его работы, как не сложно проверить - окно лишь
со строкой меню, если окно растянуть, появится содержимое фрейма editw. Может
задать ширину фрейма явно при плэйсе? Кстати относительная высота и ширина
(relwidth и relheight) в чем измеряется? В числе от 0 до 1? Или в процентах?
use Tk;
$mw = MainWindow->new(-bd=>2, -relief=>ridge);
# меню
$level = $mw->toplevel;
$menu = $level->Menu(-type => 'menubar');
$level->configure(-menu => $menu);
$entry = $menu->cascade(-label => "~Запись", -tearoff => 0);
$entry->command(-command => \&search, -label => 'Искать');
$entry->separator;
$entry->command(-command => \&edit, -label => 'Редактировать');
# тебю - окно поиска - упаковано
$searchw = $mw->Frame;
$searchw->Label(-text=>'by')->pack;
# окно редактирования - упаковано
$editw = $mw->Frame;
$editw->Label(-text=>'yb')->pack;
# по дефолту окно редактирования
$editw->place(-x=>0, -y=>0);
MainLoop;
# проце-дурки - суть лишь в подмене окна
sub search() {
$editw->placeForget;
$searchw->place(-x=>0, -y=>0);
}
sub edit() {
$searchw->placeForget;
$editw->place(-x=>0, -y=>0);
}
... bye.
--- What can change the nature of a man?..
* Origin: (2:4624/1.65)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
