[wxperl-users] Wx::ActiveX and my own ActiveX

[James L. <ja...@mi...>]

Hi everyone,
=20
I'm using Wx::ActiveX to embed my own ActiveX control in my Wx app.
=20
However, I'm getting a problem with setting properties.
=20
Here's my constructor:
=20
package Wx::ActiveX::RoutePlus ;
use Wx::ActiveX ;
use strict ;
=20
use vars qw(@ISA $VERSION);
@ISA =3D qw(Wx::ActiveX);
$VERSION =3D '0.02';
=20
#######
# NEW #
#######
=20
sub new {
  my $class =3D shift ;
  my $parent =3D shift ;
  print "=3D=3D=3D=3D=3D=3D=3D=3D=3D !!!! New RoutePlus created\n";
  my $activex =3D Wx::ActiveX->new( $parent , "RoutePlus.RoutePlus" , @_ =
)
;
  $activex =3D Wx::ActiveX::hash_ref($activex,'Wx::ActiveX::RoutePlus') =
;
  return( $activex ) ;
}
=20
#######
# END #
#######
=20
1;

=20
And my calling code is:
  my $rp =3D $this->{RoutePlus} =3D Wx::ActiveX::RoutePlus->new( $this ,
$html_id , wxDefaultPosition , wxDefaultSize );
=20
# (blah blah)
     my $p =3D "J:\\P4_ws\\klinozoisite\\projects\\config\\";
     $rp->PropSet("serverConfigPath",$p);

However, even though I can see the changed property value using
$rp->PropVal("serverConfigPath"), the ActiveX itself does not seem to
have received the property value - it displays errors to the effect that
the "serverConfigPath" property should not be blank.
=20
Any ideas?
=20
Thanks,
=20
James
=20
Versions:
Perl 5.6.1
wxPerl 0.18
Wx::ActiveX 0.05
wxWindows 2.4.2
Windows XP
=20
=20