Wx::DialUpManager - perl extension for wxDialUpManager

Wx-DialUpManager documentation Contained in the Wx-DialUpManager distribution.

Index

Code Index:

NAME

Top

Wx::DialUpManager - perl extension for wxDialUpManager

SYNOPSIS

Top

    use Wx::DialUpManager qw[ EVT_DIALUP_CONNECTED EVT_DIALUP_DISCONNECTED ];
    EVT_DIALUP_CONNECTED( sub {warn "you're connected"});
    EVT_DIALUP_CONNECTED( sub {warn "you're dis-connected"});
    ...

DESCRIPTION

Top

This is an example of writing an extension for wxPerl (a more complete sample than Wx::Sample::XS).

If you want to use this module, please refer to the wxWindows documentation for wxDialUpManager.

BUGS

Top

Please don't report bugs ;) But if you really really need to, go to <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Wx-DialUpManager> or send mail to <bug-Wx-DialUpManager#rt.cpan.org>

AUTHOR

Top

D. H. (PODMASTER)

COPYRIGHT

Top

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 distribution.

SEE ALSO

Top

Wx, Wx::GLCanvas, Wx::ActiveX, Wx::Sample::XS (Wx::Sample::XS), Wx::Metafile

Wx-DialUpManager documentation Contained in the Wx-DialUpManager distribution. 

package Wx::DialUpManager;
use strict;
use Wx();
use Exporter();
use base qw( Exporter Wx::EvtHandler );
use vars qw[ $VERSION @EXPORT_OK %EXPORT_TAGS ];
$VERSION = '0.03',
@EXPORT_OK = qw[ EVT_DIALUP_CONNECTED EVT_DIALUP_DISCONNECTED ];


$EXPORT_TAGS{'everything'} = \@EXPORT_OK;
$EXPORT_TAGS{'all'}        = \@EXPORT_OK;

Wx::wx_boot( 'Wx::DialUpManager', $VERSION );

# https://sourceforge.net/mailarchive/message.php?msg_id=4242508
sub EVT_DIALUP_CONNECTED($) {
    Wx::wxTheApp()->Connect( -1, -1, &Wx::wxEVT_DIALUP_CONNECTED, $_[0] );
}


sub EVT_DIALUP_DISCONNECTED($) {
    Wx::wxTheApp()->Connect( -1, -1, &Wx::wxEVT_DIALUP_CONNECTED, $_[0] )
}


package Wx::DialUpEvent;
use vars '@ISA';
@ISA = qw(Wx::Event);

1;