Curses::UI et set_binding()

Bonjour tout le monde,

Je me permet de poster ici car je n'ai pas trouvé de réponse à mon problème, ni sur le Net d'une façon générale, ni dans vos documentations pourtant nombreuses.

J'essaye d'utiliser Curses::UI en Perl, pour construire une interface en mode texte.
Je n'ai pas trouvé beaucoup de documentation sur Curses en Perl, mais j'ai essayé de suivre un tutorial CPAN: http://search.cpan.org/dist/Curses-U...I/Tutorial.pod

Lorsque je lance mon script, mon interface apparait bien. En revanche, aucune touche n'est bindée.

J'utilise par exemple le code suivant:

$win1->set_binding(\&quit, "q", "Q", "\cQ");

ou $win1 est une fenetre qui semble correctement initialisée puisqu'elle s'affiche.

J'ai bien sur auparavant créée une sub tout bête:
sub quit {
exit;
}

Mes questions sont donc les suivantes:
- Est ce que quelqu'un a une bonne documentation sur le sujet? J'ai essayé les exemples de perldoc sans plus de succès.
- Est ce que quelqu'un sait binder une touche sous Curses? :)

J'utilise ActivePerl v5.10.0 build 1004 (v5.10.0 built for MSWin32-x86-multi-thread)

Je vous remercie par avance pour toute idée,


asx.