Skip Menu |
 

This queue is for tickets about the Curses-UI CPAN distribution.

Report information
The Basics
Id: 71474
Status: new
Priority: 0/
Queue: Curses-UI

People
Owner: Nobody in particular
Requestors: piotr.rogoza [...] wp.eu
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.9609
Fixed in: (no value)



Subject: Undefined subroutine &main::loose_focus for widget Notebook
Download (untitled) / with headers
text/plain 1.2k
The widget Notebook doesn't support function loose_focus. For example: #v+ #!/usr/bin/perl use strict; use warnings; use Curses::UI; my ( $cui, $window, $notebook, %pages, $button); $cui = new Curses::UI( -clear_on_exit => 1, -mouse_support => 1, -debug => 1, ); my $fh = "binding.log"; open STDERR, ">$fh"; $window = $cui->add( 'window','Window', -border => 1, ); $notebook = $window->add( 'notebook','Notebook', -height => $window->height - 10, ); $pages{1} = $notebook->add_page( 'test1' ); $pages{2} = $notebook->add_page( 'test2' ); $button = $window->add( 'button', 'Buttonbox', -y => -1, -x => 1, -buttons => [ { -label => '< Button1 >', }, { -label => '< Button2 >', } ], ); sub loose_focus1 { my $this = shift; $this->parent->getobj('button')->focus(); } my $rbindings = $notebook->{-bindings}; my $rroutines = $notebook->{-routines}; ${$rroutines}{'loose-focus'} = \&loose_focus1; ${$rbindings}{"\t"} = 'loose-focus'; $cui->set_binding( sub{exit(0)} , "\cq", "\cc"); $cui->mainloop; #v- For loose_focus I get: #v+ DEBUG: get_key() -> [ ] Undefined subroutine &main::loose_focus called at /usr/share/perl5/vendor_perl/Curses/UI/Widget.pm line 1001. #v- For loose_focus1 it works, but loosing focus in this way is ugly.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.