[Curses::UI]jak pobrać etykietę z menu

Article View: pl.comp.lang.perl

Article #52265

#52265

From: piecia aka dracorp
Date: Wed, 06 Jul 2011 15:19

22 lines
1593 bytes

Witam
Mam menu generowane dynamicznie w zależności od zawartości pliku.
#v+
foreach(keys %{$Playlist}){
 if(/_/){
  next;
 }
 push @$menuplaylist, { -label => $_, -value => \&displayplaylist };
}
#v-
zmienna $Playlist jest typu Config::Tiny. Jako klucze są sekcje z pliku 
konfiguracyjnego. W displayplaylist pierwszy argument to:
Curses::UI::Menubar=HASH(0xa13ae18) czyli obiekt typu 
Curses::UI::Menubar. 
Jak się teraz dobrać do etykiety odpowiadającej wybranej pozycji w menu?
Myślałem żeby przypisać do menu procedurę z już nadanym argumentem tj. 
\&displaplaylist($_) ale to odpada.
Jakaś rada?

-- 
piecia aka dracorp
pisz na: piotr kropka rogoza at wp kropka eu

Technical Details

Message-ID: <pan.2011.07.06.15.19.28@dracorp.one.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!.POSTED!not-for-mail
From: piecia aka dracorp <imie.nazwisko@wp.eu>
Newsgroups: pl.comp.lang.perl
Subject: [Curses::UI]jak pobrać etykietę z menu
Date: Wed, 6 Jul 2011 15:19:28 +0000 (UTC)
Organization: http://onet.pl
Lines: 22
Message-ID: <pan.2011.07.06.15.19.28@dracorp.one.pl>
NNTP-Posting-Host: host-175-241.ds.tu.koszalin.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1309965568 15275 62.108.175.241 (6 Jul 2011 15:19:28 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Wed, 6 Jul 2011 15:19:28 +0000 (UTC)
User-Agent: Pan/0.134 (Wait for Me; GIT cb32159 master)
X-face: &O(G<?G0x[)D}ri@2r:nnqjWG"C%v#'ES"T|m>Gaw3JWL>[XKRh^(75y8=DvLC1QXn9Vtc= !QWAS}|{A97ADU]x0*KE-Z>sKRlHMqyJ7c!=^wW,f#RXJ%e_@(U2YaNV10ucCf
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit