🚀 go-pugleaf

Witam
Piszę sobie taką mała aplikację w Curses::UI no i w między czasie wynikł 
problem z przełączania skupienia pomiędzy widgetami.
Dla przykładu taki kod:
#v+
#!/usr/bin/perl 
use strict;
use warnings;

use Term::ReadKey;
use Curses::UI;
use Curses;
my @screensize = GetTerminalSize();
my $cui = new Curses::UI(
		-clear_on_exit => 0,
);
my $window = $cui->add(
	'window','Window',
	-border => 1,
);
my $notebook = $window->add(
	'notebook','Notebook',
	-height => $window->height - 10,
);
my $page1 = $notebook->add_page(
	'test1'
);
my $page2 = $notebook->add_page(
	'test2'
);
my $button = $window->add(
	'button', 'Buttonbox',
	-y =>  -1,
	-buttons => [
		{
			-label => '< Start session >',
			-value => 'startsession',
			-shortcut => 's',
		}, 
		{
			-label => '< Quit >',
			-shortcut => 'q',
			-value => 'quit',
			-onpress => sub{exit},
		}
	],
	-onfocus => sub{
		$cui->set_binding( sub{$notebook->focus()}, "\t");
	},
);
$cui->set_binding( sub{exit(0)} , "\cq");
$cui->set_binding( sub{$button->focus()}, "\t");
$cui->mainloop;
#v-
Tab przełącza skupienie, pomiędzy przyciskami a notebookiem. Jednak w 
przypadku dodania następnego widgetu ten sposób się nie sprawdzi.
No chyba że samemu trzeba będzie jednocześnie ustalać kolejność 
przełączania i obsłużyć skupienie.

Domyślnie dodanie notebooka do tego samego okna w którym są już przyciski 
spowoduje, że nie będzie można przełączać skupienia tabulatorem pomiędzy 
nimi.

Pytanie jak to sensowniej zrobić?

ps. powyższy przykład nie jest za bardzo poprawny, bo przełączanie 
tabulatorem nie działa w kółko.

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