The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

AAC::Pvoice::Input - A class that handles the input that controls a pVoice-like application

SYNOPSIS

  # this module will normally not be called directly. It's called from
  # AAC::Pvoice::Panel by default

DESCRIPTION

The module now uses Device::ParallelPort, so it should be able to run on Win32 as well as Linux platforms.

new(panel)

This constructor takes the panel (AAC::Pvoice::Panel typically) on which the events and timer will be called as a parameter. If the configuration (read using Wx::ConfigBase::Get) has a key called 'Device' (which can be set to 'icon' or 'adremo') is set to 'adremo', it will start polling the parallel port every x milliseconds, where x is the value of the key 'Interval'. This setting is only useful if you connect an "Adremo" electrical wheelchair to the parallel port of your PC.

=Next(sub)

This method takes a coderef as parameter. This coderef will be invoked when the 'Next' event happens.

If the Device (see 'new') is set to 'icon', and a right mousebutton is clicked, a 'Next' event is generated. If the Device is set to 'adremo' and the headsupport of the wheelchair is moved to the right, that will also generate a 'Next' event.

=Select(sub)

This method takes a coderef as parameter. This coderef will be invoked when the 'Select' event happens.

If the Device (see 'new') is set to 'icon', and a left mousebutton is clicked, a 'Select' event is generated. If the Device is set to 'adremo' and the headsupport of the wheelchair is moved to the left, that will also generate a 'Select' event.

This method will stop the timer that monitors the parallel port.

USAGE

BUGS

probably a lot, patches welcome!

AUTHOR

        Jouke Visser
        jouke@pvoice.org
        http://jouke.pvoice.org

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

perl(1), Wx

1 POD Error

The following errors were encountered while parsing the POD:

Around line 158:

Unknown directive: =Quit