Skip Menu |
 

This queue is for tickets about the Device-Ericsson-AccessoryMenu CPAN distribution.

Report information
The Basics
Id: 11368
Status: new
Priority: 0/
Queue: Device-Ericsson-AccessoryMenu

People
Owner: Nobody in particular
Requestors: wouter.hobers [...] freeler.nl
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 0.8
Fixed in: (no value)



Subject: Can't re-enter menu after bailing out by long-pressing the "Back" key
Download (untitled) / with headers
text/plain 1.5k
Distribution: Device-Ericsson-AccessoryMenu-0.8 Perl version: v5.6.1 OS: FreeBSD 5.2.1-RELEASE i386 Mobile phone: Sony Ericsson T630 Precondition: Create a Perl script that creates a (any) menu structure. Set up Bluetooth stuff and such to find the menu provided by the script under the Connectivity->Accessories menu. Actions: Enter this menu, browse around, then long-press the Back key to go back to the idle screen (showing operator, time, etc.). Then try to enter the menu provided by the Perl script again via the Connectivity->Accessories menu. Expected: The menu should come up again. Noted: The script's menu is listed under Accessories, but if you press Select, its menu won't come up anymore. You have to terminate and restart the script for things to work again. Normally, pressing the Back key once will send "AT*EAMI:0" to the script. But a long-press of the Back key will send only "AT*EAMI", nothing more. If you then try to enter the menu again, the mobile will send "AT*EAAI" but nothing is sent back to the mobile. Example short script: #!/usr/bin/perl use strict; use Device::SerialPort; use Device::Ericsson::AccessoryMenu; my $remote; my $PORT = "/dev/ttyS1"; $remote = Device::Ericsson::AccessoryMenu->new( debug => 1 ); $remote->menu( [ 'Computer' => [ 'Item #1' => sub { return "Feedback #1" }, 'Item #2' => sub { return "Feedback #2" } ], ]); my $port = Device::SerialPort->new($PORT) or die "Couldn't open $PORT: $!"; $remote->port($port); $remote->register_menu(); $remote->control() while(1);


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.