
Wx::ActiveX - ActiveX interface. (Beta) (only Wx:ActiveX::IE is stable)

use Wx::ActiveX ; my $activex = Wx::ActiveX->new( $this , "ShockwaveFlash.ShockwaveFlash" , 101 , wxDefaultPosition , wxDefaultSize );

This is only the basics to load an ActiveX control inside Wx. For now it only handle events. Still can't use methods of a control! ;-/ (Maybe you can help in this part of the development. ;-P)
Create the ActiveX control.

All the events use EVT_ACTIVEX.
EVT_ACTIVEX($parent , $activex , "EventName" , sub{...} ) ;
You can get the list of ActiveX events using GetEventName():
for(0..($activex->GetEventCount)) {
my $evt_name = $activex->GetEventName($_) ;
print "$_> $evt_name\n" ;
}
Eache ActiveX event has their own argument list (hash), and the Key 'Cancel' can be used to ignore the event. In this example any new window will be canceled, seting $evt->{Cancel} to true:
EVT_ACTIVEX($this,$activex,sub{
my ( $obj , $evt ) = @_ ;
$evt->{Cancel} = 1 ;
}) ;

This package only works for Win32, since it use AtiveX.


Graciliano M. P. <gm@virtuasites.com.br> Thanks to wxWindows peoples and Mattia Barbon for wxPerl! :P Thanks to Justin Bradford <justin@maxwell.ucsf.edu> and Lindsay Mathieson <lmathieson@optusnet.com.au>, that wrote the C classes for wxActiveX and wxIEHtmlWin.

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