Menu
▾
▴
[Perl-win32-gui-cvscommit] Win32-GUI-AxWindow AxWindow.html,NONE,1.1 AxWindow.pm,NONE,1.1 AxWindow.xs,NONE,1.1 Changes,NONE,1.1 MANIFEST,NONE,1.1 Makefile.PL,NONE,1.1 README,NONE,1.1 TYPEMAP,NONE,1.1
Update of /cvsroot/perl-win32-gui/Win32-GUI-AxWindow In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15455 Added Files: AxWindow.html AxWindow.pm AxWindow.xs Changes MANIFEST Makefile.PL README TYPEMAP Log Message: Added to repository --- NEW FILE: AxWindow.pm --- package Win32::GUI::AxWindow; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use Win32::GUI; require Exporter; require DynaLoader; require AutoLoader; @ISA = qw(Exporter DynaLoader Win32::GUI::Window); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. @EXPORT = qw(); $VERSION = '0.07'; bootstrap Win32::GUI::AxWindow $VERSION; # Preloaded methods go here. # Initialise Win32::GUI::AxWindow::_Initialise(); # DeInitialise END { Win32::GUI::AxWindow::_DeInitialise(); } # Autoload methods go after =cut, and are processed by the autosplit program. # # new : Create a new ActiveX Window # sub new { my $class = shift; my %in = @_; ### Control option croak("-parent undefined") unless exists $in{-parent}; croak("-name undefined") unless exists $in{-name}; croak("-control undefined") unless exists $in{-control}; my $parent = $in{-parent}; my $name = $in{-name}; my $clsid = $in{-control}; # print "Parent = $parent->{-name}\n"; # print "Name = $name\n"; # print "Control = $clsid\n"; ### Size my ($x, $y, $w, $h) = (0,0,1,1); $x = $in{-left} if exists $in{-left}; $y = $in{-top} if exists $in{-top}; $w = $in{-width} if exists $in{-width}; $h = $in{-height} if exists $in{-height}; ($x, $y) = ($in{-pos}[0] , $in{-pos}[1]) if exists $in{-pos}; ($w, $h) = ($in{-size}[0],$in{-size}[1]) if exists $in{-size}; # print "(x,y) = ($x,$y)\n(w,h) = ($w,$h)\n"; ### Window Style my $style = WS_CHILD | WS_CLIPCHILDREN; $style = $in{-style} if exists $in{-style}; $style |= $in{-pushstyle} if exists $in{-pushstyle}; $style ^= $in{-popstyle} if exists $in{-popstyle}; $style |= $in{-addstyle} if exists $in{-addstyle}; $style ^= $in{-remstyle} if exists $in{-remstyle}; $style |= WS_VISIBLE unless exists $in{-visible} && $in{-visible} == 0; $style |= WS_TABSTOP unless exists $in{-tabstop} && $in{-tabstop} == 0; $style |= WS_DISABLED if exists $in{-enable} && $in{-enable} == 0; $style |= WS_HSCROLL if exists $in{-hscroll} && $in{-hscroll} == 1; $style |= WS_VSCROLL if exists $in{-vscroll} && $in{-vscroll} == 1; # print "Style = $style\n"; ### Window ExStyle my $exstyle = 0; $exstyle = $in{-exstyle} if exists $in{-exstyle}; $exstyle |= $in{-pushexstyle} if exists $in{-pushexstyle}; $exstyle ^= $in{-popexstyle} if exists $in{-popexstyle}; $exstyle |= $in{-addexstyle} if exists $in{-addexstyle}; $exstyle ^= $in{-remexstyle} if exists $in{-remexstyle}; # print "ExStyle = $exstyle\n"; ### Create Window and ActiveX Object my $self = {}; bless $self, $class; if ( $self->_Create($parent, $clsid, $style, $exstyle, $x, $y, $w, $h) ) { ### Store Data (Win32::GUI glue) $self->{-name} = $in{-name}; $parent->{$name} = $self; return $self; } return undef; } # # CallMethod : Use Invoke with DISPATCH_METHOD # sub CallMethod { my $self = shift; return $self->Invoke (0x01, @_); } # # GetProperty : Use Invoke with DISPATCH_PROPERTYGET # sub GetProperty { my $self = shift; return $self->Invoke (0x02, @_); } # # PutProperty : Use Invoke with DISPATCH_PROPERTYPUT # sub SetProperty { my $self = shift; return $self->Invoke (0x04, @_); } 1; __END__ # Below is the stub of documentation for your module. You better edit it! =head1 NAME Win32::GUI::AxWindow - Perl extension for Hosting ActiveX Control in Win32::GUI =head1 SYNOPSIS 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); } } =head1 DESCRIPTION =head2 AxWindow =item C<new> (...) Create a new ActiveX window. options : -parent => parent window (Required) -name => window name (Required) -size => window size [ width, heigth ] -pos => window pos [ left, top ] -width => window width -height => window height -left => window left -top => window top -control => clisd (see below) (Required). clsid is a string identifier to create the control. Must be formatted in one of the following ways: - A ProgID such as "MSCAL.Calendar.7" - A CLSID such as "{8E27C92B-1264-101C-8A2F-040224009C02}" - A URL such as "http://www.microsoft.com" - A reference to an Active document such as 'file://Documents/MyDoc.doc' - A fragment of HTML such as "MSHTML:<HTML><BODY>This is a line of text</BODY></HTML>" Note "MSHTML:" must precede the HTML fragment so that it is designated as being an MSHTML stream. styles: -visible => 0/1 -tabstop => 0/1 -hscroll => 0/1 -vscroll => 0/1 -style, -addstyle, -pushstyle, -remstyle, -popstyle -exstyle, -exaddstyle, -expushstyle, -exremstyle, -expopstyle Default style is : WS_CHILD | WS_VISIBLE | WS_TABSTOP | WS_CLIPCHILDREN =item C<Release> () If have crash when exiting, call this function before all the window are destroy (before Win32::GUI::Dialog(); exit). Generaly, call this function in the Window_Terminate handle. =head2 Property =item C<EnumPropertyID> () Return a list of all the Property ID of the control. =item C<EnumPropertyName> () Return a list of all the Property name of the control. =item C<GetPropertyInfo> (ID_or_Name) Return a hash with information about the Property from ID or Name. Hash entry : -Name => Property Name. -ID => Property ID. -VarType => Property Type (Variant type). -EnumValue => A formated string of enum value ( enum1=value1,enum2=value2,... ). -ReadOnly => Indicate if a property can only be read. -Description => Property Description. -Prototype => Prototype =item C<GetProperty> (ID_or_Name, [index, ...]) Get property value. For indexed property, add index list. =item C<SetProperty> (ID_or_Name, [index, ...], value) Set property value For indexed property, add index list before value. =head2 Method =item C<EnumMethodID> () Return a list of all the Method ID of the control. =item C<EnumMethodName> () Return a list of all the Method name of the control. =item C<GetMethodInfo> (ID_Name) Return a hash with information about the Method from ID or Name. Hash entry : -Name => Method Name. -ID => Method ID. -Description => Method Description. -Prototype => Method Prototype. =item C<CallMethod> (ID_or_Name, ...) Invoke a method of an ActiveX control. =head2 Event =item C<EnumEventID> () Return a list of all the Event ID of the control. =item C<EnumEventName> () Return a list of all the Event Name of the control. =item C<GetEventInfo> (ID_or_Name) Return a hash with information about the Event from ID or Name. Hash entry : -Name => Method Name. -ID => Method ID. -Description => Method Description. -Prototype => Method Prototype. =item C<RegisterEvent> (ID_or_Name, Callback) Associate a Callback for an ActiveX Event. =head2 Win32::OLE =item C<GetOLE> () Return a Win32::OLE object of Hosted ActiveX Control. You MUST add use Win32::OLE in your script. =head1 AUTHOR Laurent Rocher (lr...@cp...) HomePage :http://perso.club-internet.fr/rocherl/Win32GUI.html =head1 SEE ALSO Win32::GUI =cut --- NEW FILE: Makefile.PL --- use ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( 'NAME' => 'Win32::GUI::AxWindow', 'VERSION_FROM' => 'AxWindow.pm', # finds $VERSION 'XS' => { 'AxWindow.xs' => 'AxWindow.cpp' }, 'LIBS' => ['atl.lib'], # e.g., '-lm' 'INC' => '', # e.g., '-I/usr/include/other' ($] eq '5.00503') ? ( 'DEFINE' => '-DPERL_5005', # e.g., '-DHAVE_SOMETHING' ) : ( 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING' ), ($] ge '5.005') ? ( 'AUTHOR' => 'ROCHER Laurent (ro...@cl...)', 'ABSTRACT' => 'Add ActiveX Control Hosting in Win32::GUI', ) : (), ); sub MY::xs_c { ' .xs.c: $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c .xs.cpp: $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.cpp '; } --- NEW FILE: MANIFEST --- Makefile.PL Changes AxWindow.pm AxWindow.xs MANIFEST TYPEMAP Samples/WebBrowser.pl Samples/InfoControl.pl Samples/DHtmlEdit.pl Samples/DHtmlEdit.pm Samples/DHtmlEditor.pl Samples/MsFlexGrid.pl Samples/TestOLE.pl --- NEW FILE: AxWindow.xs --- /**********************************************************************/ /* C o n t a i n e r . x s */ /**********************************************************************/ #include <atlbase.h> CComModule _Module; #include <atlcom.h> #include <atlhost.h> #include <atlctl.h> #include <winbase.h> /*====================================================================*/ /* Perl Compatibility */ /*====================================================================*/ #ifdef PERL_5005 [...2660 lines suppressed...] void Release (container) CContainer* container CODE: // printf("Release\n"); container->Clean(); // printf("Release\n"); ################################################################## # # DESTROY # void DESTROY(container) CContainer* container CODE: // printf("DESTROY\n"); delete container; // printf("DESTROY\n"); --- NEW FILE: README --- Win32::GUI::AxWindow 0.07 ========================= Win32::GUI::AxWindow - Perl extension for Hosting ActiveX Control in Win32::GUI INSTALLATION To install this module type the following: perl Makefile.PL make make install DEPENDENCIES This module requires these other modules and libraries: Win32::GUI Active Template Library (ATL) WEB PAGE AND PPM REPOSITORY See: http://perso.club-internet.fr/rocherl/Win32GUI.html COPYRIGHT AND LICENCE Copyright 2003 by Laurent Rocher (lr...@cp...). This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See <http://www.perl.com/perl/misc/Artistic.html>. --- NEW FILE: Changes --- Revision history for Perl extension AxWindow. 0.07 03/02/2004 - Correct GetOLE() method when using PAR and PerlApp. 0.06 28/09/2003 - Rewrite creation method (Remove AttachControl method). - No more need to call Release Method before exit. - Correct bug in GetPropertyInfo with VARTYPE property. - Correct -heigth option. - Update and add samples. 0.05 15/10/2002 - Add GetOLE method (return a Win32::OLE object of Hosted ActiveX Control). - Add TestOle.pl Sample. 0.04 14/09/2002 - Add indexed property support. - Change code organisation (Invoke method, CProperty child of CMethod). - Add MSFlexGrid Sample. 0.03 30/05/2002 - Add VARTYPE property support. - Add output parameter for event support. - Accept control without event. - Correct DHTMLEdit.pm wrapper class. 0.02 25/03/2002 - Correct ReadOnly value for Properties. - Add =value for Enum string list for Properties. - Test ReadOnly attribut in SetProperty. - SetProperty handle Enum property by value or string constant. - Add a Release method for clean ActiveX reference before window destroy. - Manage VT_USERDEFINED as enum in CallMethod. - Add some documentation (sorry for my english ;-). - Add DHTML Edit sample (basic and a wrapper class). 0.01 22/03/2002 - original version; created by h2xs 1.19 - ActiveX control information (Properties, Metods, Events). - Set/Get property. - Call a Method. - Event Support. - Support of basic variant type. --- NEW FILE: TYPEMAP --- TYPEMAP CContainer* T_CONTAINER HWND T_HANDLE HMENU T_HANDLE HICON T_HANDLE HCURSOR T_HANDLE HBITMAP T_HANDLE HFONT T_HANDLE HGDIOBJ T_HANDLE HIMAGELIST T_HANDLE HDC T_HANDLE HBRUSH T_HANDLE HPEN T_HANDLE HTREEITEM T_IV LONG T_IV LPCTSTR T_PV LPTSTR T_PV DWORD T_IV UINT T_IV BOOL T_IV WPARAM T_IV LPARAM T_IV LRESULT T_IV HINSTANCE T_IV COLORREF T_COLOR LPCSTR T_PV HENHMETAFILE T_IV FLOAT T_FLOAT LPVOID T_PV HACCEL T_IV ################################################################################ INPUT T_HANDLE if(SvROK($arg)) { if(hv_fetch((HV*)SvRV($arg), \"-handle\", 7, 0) != NULL) $var = ($type) SvIV(*(hv_fetch((HV*)SvRV($arg), \"-handle\", 7, 0))); else $var = NULL; } else $var = ($type) SvIV($arg); T_COLOR $var = SvCOLORREF($arg); T_CONTAINER $var = ($type) SvIV(*(hv_fetch((HV*)SvRV($arg), \"-CContainer\", 11, 0))); ################################################################################ OUTPUT T_HANDLE sv_setiv($arg, (IV) $var); T_COLOR sv_setiv($arg, (IV) $var); --- NEW FILE: AxWindow.html --- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Win32::GUI::AxWindow - Perl extension for Hosting ActiveX Control in Win32::GUI</title> <link rev="made" href="mailto:" /> </head> <body style="background-color: white"> <p><a name="__index__"></a></p> <!-- INDEX BEGIN --> <ul> <li><a href="#name">NAME</a></li> <li><a href="#synopsis">SYNOPSIS</a></li> <li><a href="#description">DESCRIPTION</a></li> <ul> <li><a href="#axwindow">AxWindow</a></li> <li><a href="#property">Property</a></li> <li><a href="#method">Method</a></li> <li><a href="#event">Event</a></li> <li><a href="#win32::ole">Win32::OLE</a></li> </ul> <li><a href="#author">AUTHOR</a></li> <li><a href="#see_also">SEE ALSO</a></li> </ul> <!-- INDEX END --> <hr /> <p> </p> <h1><a name="name">NAME</a></h1> <p>Win32::GUI::AxWindow - Perl extension for Hosting ActiveX Control in Win32::GUI</p> <p> </p> <hr /> <h1><a name="synopsis">SYNOPSIS</a></h1> <pre> use Win32::GUI; use Win32::GUI::AxWindow;</pre> <pre> # Main Window $Window = new Win32::GUI::Window ( -name => "Window", -title => "Win32::GUI::AxWindow test", -post => [100, 100], -size => [400, 400], );</pre> <pre> # 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], );</pre> <pre> # Register some event $Control->RegisterEvent("StatusTextChange", sub { $self = shift; $eventid = shift; print "Event : ", @_, "\n"; } );</pre> <pre> # Call Method $Control->CallMethod("Navigate", '<a href="http://www.perl.com/">http://www.perl.com/</a>');</pre> <pre> # Event loop $Window->Show(); Win32::GUI::Dialog();</pre> <pre> # Main window event handler</pre> <pre> sub Window_Terminate {</pre> <pre> return -1; }</pre> <pre> sub Window_Resize {</pre> <pre> if (defined $Window) { ($width, $height) = ($Window->GetClientRect)[2..3]; $Control->Move (0, 0); $Control->Resize ($width, $height); } }</pre> <p> </p> <hr /> <h1><a name="description">DESCRIPTION</a></h1> <p> </p> <h2><a name="axwindow">AxWindow</a></h2> <dl> <dt><strong><a name="item_new"><code>new</code> (...)</a></strong><br /> </dt> <dd> <pre> Create a new ActiveX window.</pre> </dd> <dd> <pre> options :</pre> </dd> <dd> <pre> -parent => parent window (Required) -name => window name (Required) -size => window size [ width, heigth ] -pos => window pos [ left, top ] -width => window width -height => window height -left => window left -top => window top -control => clisd (see below) (Required).</pre> </dd> <dd> <pre> clsid is a string identifier to create the control. Must be formatted in one of the following ways:</pre> </dd> <dd> <pre> - A ProgID such as "MSCAL.Calendar.7" - A CLSID such as "{8E27C92B-1264-101C-8A2F-040224009C02}" - A URL such as "<a href="http://www.microsoft.com"">http://www.microsoft.com"</a>; - A reference to an Active document such as '<a href="file://Documents/MyDoc.doc">file://Documents/MyDoc.doc</a>' - A fragment of HTML such as "MSHTML:<HTML><BODY>This is a line of text</BODY></HTML>" Note "MSHTML:" must precede the HTML fragment so that it is designated as being an MSHTML stream.</pre> </dd> <dd> <pre> styles:</pre> </dd> <dd> <pre> -visible => 0/1 -tabstop => 0/1 -hscroll => 0/1 -vscroll => 0/1</pre> </dd> <dd> <pre> -style, -addstyle, -pushstyle, -remstyle, -popstyle -exstyle, -exaddstyle, -expushstyle, -exremstyle, -expopstyle</pre> </dd> <dd> <pre> Default style is : WS_CHILD | WS_VISIBLE | WS_TABSTOP | WS_CLIPCHILDREN</pre> </dd> <dt><strong><a name="item_release"><code>Release</code> ()</a></strong><br /> </dt> <dd> <pre> If have crash when exiting, call this function before all the window are destroy (before Win32::GUI::Dialog(); exit). Generaly, call this function in the Window_Terminate handle.</pre> </dd> </dl> <p> </p> <h2><a name="property">Property</a></h2> <dl> <dt><strong><a name="item_enumpropertyid"><code>EnumPropertyID</code> ()</a></strong><br /> </dt> <dd> <pre> Return a list of all the Property ID of the control.</pre> </dd> <dt><strong><a name="item_enumpropertyname"><code>EnumPropertyName</code> ()</a></strong><br /> </dt> <dd> <pre> Return a list of all the Property name of the control.</pre> </dd> <dt><strong><a name="item_getpropertyinfo"><code>GetPropertyInfo</code> (ID_or_Name)</a></strong><br /> </dt> <dd> <pre> Return a hash with information about the Property from ID or Name.</pre> </dd> <dd> <pre> Hash entry : -Name => Property Name. -ID => Property ID. -VarType => Property Type (Variant type). -EnumValue => A formated string of enum value ( enum1=value1,enum2=value2,... ). -ReadOnly => Indicate if a property can only be read. -Description => Property Description. -Prototype => Prototype</pre> </dd> <dt><strong><a name="item_getproperty"><code>GetProperty</code> (ID_or_Name, [index, ...])</a></strong><br /> </dt> <dd> <pre> Get property value. For indexed property, add index list.</pre> </dd> <dt><strong><a name="item_setproperty"><code>SetProperty</code> (ID_or_Name, [index, ...], value)</a></strong><br /> </dt> <dd> <pre> Set property value For indexed property, add index list before value.</pre> </dd> </dl> <p> </p> <h2><a name="method">Method</a></h2> <dl> <dt><strong><a name="item_enummethodid"><code>EnumMethodID</code> ()</a></strong><br /> </dt> <dd> <pre> Return a list of all the Method ID of the control.</pre> </dd> <dt><strong><a name="item_enummethodname"><code>EnumMethodName</code> ()</a></strong><br /> </dt> <dd> <pre> Return a list of all the Method name of the control.</pre> </dd> <dt><strong><a name="item_getmethodinfo"><code>GetMethodInfo</code> (ID_Name)</a></strong><br /> </dt> <dd> <pre> Return a hash with information about the Method from ID or Name.</pre> </dd> <dd> <pre> Hash entry : -Name => Method Name. -ID => Method ID. -Description => Method Description. -Prototype => Method Prototype.</pre> </dd> <dt><strong><a name="item_callmethod"><code>CallMethod</code> (ID_or_Name, ...)</a></strong><br /> </dt> <dd> <pre> Invoke a method of an ActiveX control.</pre> </dd> </dl> <p> </p> <h2><a name="event">Event</a></h2> <dl> <dt><strong><a name="item_enumeventid"><code>EnumEventID</code> ()</a></strong><br /> </dt> <dd> <pre> Return a list of all the Event ID of the control.</pre> </dd> <dt><strong><a name="item_enumeventname"><code>EnumEventName</code> ()</a></strong><br /> </dt> <dd> <pre> Return a list of all the Event Name of the control.</pre> </dd> <dt><strong><a name="item_geteventinfo"><code>GetEventInfo</code> (ID_or_Name)</a></strong><br /> </dt> <dd> <pre> Return a hash with information about the Event from ID or Name.</pre> </dd> <dd> <pre> Hash entry : -Name => Method Name. -ID => Method ID. -Description => Method Description. -Prototype => Method Prototype.</pre> </dd> <dt><strong><a name="item_registerevent"><code>RegisterEvent</code> (ID_or_Name, Callback)</a></strong><br /> </dt> <dd> <pre> Associate a Callback for an ActiveX Event.</pre> </dd> </dl> <p> </p> <h2><a name="win32::ole">Win32::OLE</a></h2> <dl> <dt><strong><a name="item_getole"><code>GetOLE</code> ()</a></strong><br /> </dt> <dd> <pre> Return a Win32::OLE object of Hosted ActiveX Control.</pre> </dd> <dd> <pre> You MUST add use Win32::OLE in your script.</pre> </dd> </dl> <p> </p> <hr /> <h1><a name="author">AUTHOR</a></h1> <pre> Laurent Rocher (lr...@cp...) HomePage :<a href="http://perso.club-internet.fr/rocherl/Win32GUI.html">http://perso.club-internet.fr/rocherl/Win32GUI.html</a></pre> <p> </p> <hr /> <h1><a name="see_also">SEE ALSO</a></h1> <pre> Win32::GUI</pre> </body> </html> |
