[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-AxWindow/demos/UnComplete DHtmlEdit.pm, NONE, 1.1 D

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-AxWindow/demos/UnComplete
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22088/demos/UnComplete

Added Files:
	DHtmlEdit.pm DHtmlEditor.pl Google.pl MsFlexGrid.pm 
Log Message:
Merge AxWindow into core distribution

--- NEW FILE: DHtmlEditor.pl ---
# perl -w
#
#  Hosting DHtmlEdit and use wrapper package
#
#
use Cwd;
use Win32::GUI;
use DHtmlEdit;

my $HtmlFile  = "";
my $Directory = cwd;

# main menu
my $Menu =  Win32::GUI::MakeMenu(
    "&File"                   => "File",
    "   > &New..."            => "FileNew",
    "   > &Open..."           => "FileOpen",
    "   > -"                  => 0,
    "   > &Save"              => "FileSave",
    "   > Save &As..."        => "FileSaveAs",
    "   > -"                  => 0,
    "   > &Print"             => "FilePrint",
    "   > -"                  => 0,
    "   > &Directory..."      => "FileDirectory",
    "   > -"                  => 0,
    "   > E&xit"              => "FileExit",
    "&Edit"                   => "Edit",
    "   > &Undo"              => "EditUndo",
    "   > &Redo"              => "EditRedo",
    "   > -"                  => 0,
    "   > Cu&t"               => "EditCut",
    "   > &Copy"              => "EditCopy",
    "   > &Paste"             => "EditPaste",
    "   > -"                  => 0,
    "   > &Select All"        => "EditSelectAll",
    "   > &Delete"            => "EditDelete",
    "   > -"                  => 0,
    "   > &Find "             => "EditFind",
    "&Format"                 => "Format",
    "   > &Bold"              => "FormatBold",
    "   > &Italic"            => "FormatItalic",
    "   > &Underline"         => "FormatUnderline",
    "   > &Font..."           => "FormatFont",
    "   > -"                  => 0,
    "   > Justify &Left"      => "FormatJustifyLeft",
    "   > Justify &Center"    => "FormatJustifyCenter",
    "   > Justify &Right"     => "FormatJustifyRight",
    "   > -"                  => 0,
    "   > &Indent"            => "FormatIndent",
    "   > &Outdent"           => "FormatOutdent",
    "&Insert"                 => "Insert",
    "   > &HyperLink..."      => "InsertHyperLink",
    "   > &Image..."          => "InsertImage",
    "   > -"                  => 0,
    "   > &OrderList"         => "InsertOrderList",
    "   > &UnOrderList"       => "InsertUnOrderList",
    "   > -"                  => 0,
    "   > &Unlink"            => "InsertUnlink",
    "&Help"                   => "Help",
    "   > &About"             => "HelpAbout",
    );

# main Window
$Window = new Win32::GUI::Window (
    -name     => "Window",
    -title    => "Win32::GUI::AxWindow test",
    -pos      => [100, 100],
    -size     => [400, 400],
    -menu     => $Menu,
) or die "new Window";

# Create AxWindow
$Control = new Win32::GUI::DHtmlEdit  (
               -parent  => $Window,
               -name    => "Control",
               -pos     => [0, 0],
               -size    => [400, 400],
 ) or die "new Control";

# Method call
$Control->DocumentHTML('<HTML><BODY><B>Hello World !!!</B></BODY></HTML>');

# Event handler

$Control->OnDisplayChanged ( "Event_DisplayChanged" );

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

sub Event_DisplayChanged {

  my $self = shift;

  # Check Edit menu

  if ($Control->QueryUndo() == 3) { $Menu->{EditUndo}->Enabled(1); }
                             else { $Menu->{EditUndo}->Enabled(0); }

  if ($Control->QueryRedo() == 3) { $Menu->{EditRedo}->Enabled(1); }
                             else { $Menu->{EditRedo}->Enabled(0); }

  if ($Control->QueryCut() == 3)  { $Menu->{EditCut}->Enabled(1);  }
                             else { $Menu->{EditCut}->Enabled(0);  }

  if ($Control->QueryCopy() == 3) { $Menu->{EditCopy}->Enabled(1); }
                             else { $Menu->{EditCopy}->Enabled(0); }

  if ($Control->QueryPaste() == 3) { $Menu->{EditPaste}->Enabled(1); }
                              else { $Menu->{EditPaste}->Enabled(0); }

  if ($Control->QuerySelectAll() == 3) { $Menu->{EditSelectAll}->Enabled(1); }
                                  else { $Menu->{EditSelectAll}->Enabled(0); }

  if ($Control->QueryDelete() == 3) { $Menu->{EditDelete}->Enabled(1); }
                               else { $Menu->{EditDelete}->Enabled(0); }

}

# Finish method
sub Finish {

  # Change after last save.
  if ($Control->IsDirty()) {
    FileSave_Click();
  }

  return -1;
}

# Main window event handler

sub Window_Terminate {

  return Finish ();
}

sub Window_Resize {

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

#######################################################################
#
#  File Menu
#
#######################################################################

# New
sub FileNew_Click {

  $Control->NewDocument ();
  $HtmlFile = "";
}

# Open
sub FileOpen_Click {

  my $ret = Win32::GUI::GetOpenFileName(
                 -title     => "Open html File",
                 -filter    => [
                     "Html Document (*.htm, *.html)" => "*.htm;*.html",
                     "All files", "*.*",
                               ],
                 -directory => $Directory,
                 );
  if ($ret) {

    $HtmlFile = $ret;
    $Control->LoadDocument ($HtmlFile);

  }
  elsif (Win32::GUI::CommDlgExtendedError()) {
     Win32::GUI::MessageBox (0, "ERROR : ".Win32::GUI::CommDlgExtendedError(),
                            "GetOpenFileName Error");
  }
}

# Save
sub FileSave_Click {

  unless ($HtmlFile eq "") {
    my $ret = Win32::GUI::MessageBox (0, "Overwrite existing file ?",
                           "Save",MB_ICONQUESTION | MB_YESNOCANCEL);
    if ($ret == 6) {
      $ret = $Control->SaveDocument ($HtmlFile);
      unless ($ret) {
        Win32::GUI::MessageBox (0, "ERROR : SaveDocument ", "Save Error");
      }
    }
    elsif ($ret == 7) {
      FileSaveAs_Click();
    }
  }
  else {
    FileSaveAs_Click();
  }
}

# SaveAs
sub FileSaveAs_Click {

  my $ret = Win32::GUI::GetSaveFileName(
                 -title     => "Save html File As",
                 -filter    => ["Html Document (*.htm, *.html)" => "*.htm;*.html"],
                 -directory => $Directory,
                 );

  if ($ret) {
    $HtmlFile = $ret;
    $ret = $Control->SaveDocument ($HtmlFile);
    unless ($ret) {
      Win32::GUI::MessageBox (0, "ERROR : SaveDocument ", "Save Error");
    }
  }
  elsif (Win32::GUI::CommDlgExtendedError()) {
     Win32::GUI::MessageBox (0, "ERROR : ".Win32::GUI::CommDlgExtendedError(),
                            "GetSaveFileName Error");
  }

}

# Print
sub FilePrint_Click {

  $ret = $Control->PrintDocument (1);
}

# Directory
sub FileDirectory_Click {

  my $ret = Win32::GUI::BrowseForFolder (
                        -title      => "Select default directory",
                        -directory  => $Directory,
                        -folderonly => 1,
                        );
  $Directory = $ret if ($ret);
}

# Exit
sub FileExit_Click {

  return Finish();
}

#######################################################################
#
#  Edit Menu
#
#######################################################################

sub EditUndo_Click {
  $Control->Undo();
}

sub EditRedo_Click {
  $Control->Redo();
}

sub EditCut_Click {
  $Control->Cut();
}

sub EditCopy_Click {
  $Control->Copy();
}

sub EditPaste_Click {
  $Control->Paste();
}

sub EditSelectAll_Click {
  $Control->SelectAll();
}

sub EditDelete_Click {
  $Control->Delete();
}

sub EditFind_Click {
  $Control->FindText();
}

#######################################################################
#
#  Format Menu
#
#######################################################################

sub FormatBold_Click {
  $Control->Bold();
}

sub FormatItalic_Click {
  $Control->Italic();
}

sub FormatUnderline_Click {
  $Control->Underline();
}

sub FormatFont_Click {
  $Control->Font();
}

sub FormatJustifyLeft_Click {
  $Control->JustifyLeft();
}

sub FormatJustifyCenter_Click {
  $Control->JustifyCenter();
}

sub FormatJustifyRight_Click {
  $Control->JustifyRight();
}

sub FormatIndent_Click {
  $Control->Indent();
}

sub FormatOutdent_Click {
  $Control->Outdent();
}

#######################################################################
#
#  Insert Menu
#
#######################################################################

sub InsertHyperLink_Click {
  $Control->HyperLink();
}

sub InsertImage_Click {
  $Control->Image();
}

sub InsertOrderList {
  $Control->OrderList();
}

sub InsertUnOrderList {
  $Control->UnOrderList();
}

sub InsertUnlink_Click {
  $Control->Unlink();
}

#######################################################################
#
#  Help Menu
#
#######################################################################

sub HelpAbout_Click {

  Win32::GUI::MessageBox (0, "Perl Html Editor 0.1 by Laurent Rocher",
                         "About",MB_ICONINFORMATION);

}

--- NEW FILE: MsFlexGrid.pm ---
#
#  Win32::GUI::MsFlexGrid: wrapper package for MsFlexGrid ActiveX
#    by Laurent Rocher.
#
#

use strict;
use vars qw(@ISA $VERSION);
use Carp 'croak','carp';

use Win32::GUI::AxWindow;

@ISA = qw(Win32::GUI::AxWindow Exporter);

$VERSION = "1.0";

BEGIN {
        use Exporter();
        use vars qw(@EXPORT);
[...1680 lines suppressed...]

# VARIANT_BOOL RightToLeft() / void RightToLeft([in] VARIANT_BOOL rhs)
# Determines text display direction and control visual appearance on a bidirectional system.
sub RightToLeft {

  croak("Usage: VARIANT_BOOL RightToLeft() / void RightToLeft([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);

  my ($self, $value) = @_;

  if (defined $value) {
    return $self->SUPER::SetProperty (0xfffffd9d, $value);
  }
  else {
    return $self->SUPER::GetProperty (0xfffffd9d);
  }
}

1;

__END__

--- NEW FILE: DHtmlEdit.pm ---
#
#  Win32::GUI::DHtmlEdit : wrapper package for DHtmlEdit ActiveX
#    by Laurent Rocher.
#
#  TODO : Check ExecuteCommand (Some commande have parameters)
#  TODO : Check QueryStatus (Usefull for all)
#
package Win32::GUI::DHtmlEdit;

use strict;

use vars qw(@ISA $VERSION);
use Carp 'croak','carp';

use Win32::GUI::AxWindow;

@ISA = qw(Win32::GUI::AxWindow Exporter);

$VERSION = "1.0";
[...1363 lines suppressed...]

  my ($self, $callback) = @_;

  $self->RegisterEvent ("onblur", $callback);
}

#
# onreadystatechange
#

sub OnReadyStateChange {

  croak("Usage: OnReadyStateChange (CallBack)") if (@_ != 2);

  my ($self, $callback) = @_;

  $self->RegisterEvent ("onreadystatechange", $callback);
}

1;

--- NEW FILE: Google.pl ---
# perl -w
#
#  Hosting WebBrowser
#    - Create a WebBrowser control and get a Win32::OLe handler.
#    - Navigate on Google.fr
#    - When document loaded (DoucmentComplete event), set Win32::GUI::AxWindow in serach edit then submit
#       If Google Html page change, must change Item index.
#
use Cwd;
use Win32::GUI;
use Win32::OLE;
use Win32::GUI::AxWindow;

# main Window
$Window = new Win32::GUI::Window (
    -title    => "Win32::GUI::AxWindow and Win32::OLE",
    -pos     => [100, 100],
    -size    => [400, 400],
    -name     => "Window",
) or die "new Window";

# Create AxWindow with a webbrowser
$Control = new Win32::GUI::AxWindow  (
               -parent  => $Window,
               -name    => "Control",
               -pos     => [0, 100],
               -size    => [400, 300],
               -control => "Shell.Explorer.2",
 ) or die "new Control";

# Register Event
$Control->RegisterEvent ("DocumentComplete", "DocumentComplete_Event" );

# Get Ole object
$OLEControl = $Control->GetOLE();

# Navigate to google
$Control->CallMethod("Navigate", 'http://www.google.fr/');

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

# Event handler
sub DocumentComplete_Event { 

  # print $OLEControl->{LocationUrl}, "\n";
  return unless $OLEControl->{LocationUrl} eq 'http://www.google.fr/';

  print "Search Win32::GUI::AXWindow\n";

  my $all = $OLEControl->{Document}->{all};

  # List all HTML TAG
  # for $i (0..$all->length) {
  #  my $item = $all->item($i);
  #   print "$i = ", $item->outerHTML , "\n\n";    	
  # }

  # Input text
  my $inputText = $all->item(49);    
  $inputText->{value} = "Win32::GUI::AxWindow";

  # Submit
  my $Submit     = $all->item(55);
  $Submit->click;
}	

# Main window event handler

sub Window_Terminate {

  # Release all before destroy window
  undef $OLEControl;
  # $Control->Release();

  return -1;
}

sub Window_Resize {

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

[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-AxWindow/demos/UnComplete DHtmlEdit.pm, NONE, 1.1 D

[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-AxWindow/demos/UnComplete DHtmlEdit.pm, NONE, 1.1 DHtmlEditor.pl, NONE, 1.1 Google.pl, NONE, 1.1 MsFlexGrid.pm, NONE, 1.1