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

Thread View: pl.comp.lang.perl

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by piecia aka dracorp Wed, 06 Jul 2011 15:19

#52265

Author: 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

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

#52266

Author: piecia aka dracorp
Date: Mon, 18 Jul 2011 11:16

23 lines
1522 bytes

Pomogło oderwanie się całkowicie od tego problemu i przypomnieniu sobie o 
istnieniu domknięć.
Jakby kogoś interesowało, fragment ale zawsze coś:
#v+
sub generatemenuplaylist {
	my ( $menuplaylist, $page ) = @_;
	my $sub_callback = sub {
		print "Zrób coś z $page";
	};
	push @$menuplaylist, { -label => $_, -value => $sub_callback };
}
my @menuplaylist;
foreach(keys %{$Playlist}){
	if(/_/){
		next;
	}
	generatemenuplaylist(\@menuplaylist,$_);
}
#v-

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads