ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alex Ott                             2:5020/400     01 Sep 2000  14:32:55
 To : All
 Subject : [q] perl/Tk and menus
 -------------------------------------------------------------------------------- 
 

 Hi all
 
 Есть такой вопрос -- создаю меею в perl/Tk:
 
 my $FileMenus = $menu_bar->cascade(-label=>'Файл', 
     -tearoff => 0,
     -foreground => $configs{'menu'}->{'foreground'},
     -background => $configs{'menu'}->{'background'},
       -menuitems=> [
        [
         command => "Сохранить курсы", 
         -command=>[sub {print "save file\n";}]
        ],
       '',
        [
         command => "Выход", 
         -command=>[\&exit]
        ]
       ]
      );
 
 Так вот цвет фона сепаратора остается дефолтным для perl/Tk (серым). Можно
 ли его как нибудь сменить.
 
 ЗЫ. Отдельное создание каждого пункта через $FileMenus->command(..) и
 $FileMenus->separator(...) не помогает
 
 -- 
 With best wishes, Alex Ott
 -------------------------------
 FTF, TPU, Russia, mailto: ott@phtd.tpu.edu.ru, 
 http://www.phtd.tpu.edu.ru/~ott/   http://ott.hycube.ru ICQ #22005116
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор