Adding ActiveX Control to Tk Window

[tcf22]

I need to add an ActiveX control to a Tk window. Its a simple window. The object is created correctly, but i'm not quite sure how to get it to show up. This is what i got so far.

#!/usr/local/bin/perl

use strict;

use Win32::OLE;
use Tk;

my $main = MainWindow->new();
$main->minsize(400,400);
$main->title("STK/X Demo for Perl/Tk");
$main->configure(-background => 'black');

# Add ActiveX Component Here
my $stkx = Win32::OLE->new('...') || die"Can't create STKX\n";
my $vo   = Win32::OLE->new('...') || die "Can't create VO\n";
$stkx->ExecuteCommand('...');
MainLoop();

[Mr. Muskrat]

I haven't seen a Tk ActiveX component but Wx already has Wx::ActiveX.

[Courage]

You can do ActiveX with Tk only using http://search.cpan.org/~vkon/Tcl-Tk/ as seen at bottom of http://vkonovalov.ru/perl-tcltk.htm

However better yet doing without such way of embedding ActiveX but with other way round...
Will provide more details if needed

[Grygonos]

To my knowledge you can only add Tk widgets onto a Tk window. Thus, you'll have to roll your own Tk widget for this based on the methods and attributes of the OLE object. Something like Win32::GUI might be more what you need than Tk

---

Grygonos

[didier]

Here an example from: AxWindow
You can host the Win32::GUI window in a Toplevel Tk Win using the 'use' arg with the hexa id of the win32 window.


use Win32::GUI;
use Win32::GUI::AxWindow;

# Main Window
$Window = new Win32::GUI::Window (
               -name     => "Window",
               -title    => "Win32::GUI::AxWindow test",
               -post     => [100, 100],
               -size     => [400, 400],
 );

# Add a WebBrowser AxtiveX
$Control = new Win32::GUI::AxWindow  (
                -parent  => $Window,
                -name    => "Control",
                -control => "Shell.Explorer.2",
                # -control => "{8856F961-340A-11D0-A96B-00C04FD705A2}"
+,
                -pos     => [0, 0],
                -size    => [400, 400],
);

# Register some event
$Control->RegisterEvent("StatusTextChange",
                           sub {
                               $self    = shift;
                               $eventid = shift;
                               print "Event : ", @_, "\n";
                            } );

# Call Method
$Control->CallMethod("Navigate", 'http://www.perl.com/');

# Event loop
  $Window->Show();
  Win32::GUI::Dialog();

  # Main window event handler

  sub Window_Terminate {

    return -1;
  }

  sub Window_Resize {

    if (defined $Window) {
      ($width, $height) = ($Window->GetClientRect)[2..3];
      $Control->Move   (0, 0);
      $Control->Resize ($width, $height);
    }
  }



Hope this help.

[Courage]

Given that you gave complete code sample on Win32::GUI side, can you please provide complete example on Tk side?

IMHO this really worth trying, but trying with pseudo-code is not easy