The following source creates a TextCtrl in a HtmlWindow. Everything looks fine except that the TextCtrl does not correspond to Copy or Cut (keyboard short cut or the right-click context menu) correctly. On the other hand, a RichTextCtrl in a HtmlWindow has no such problems. Is there any hint to solve the problem? Thanks. 
#!/usr/bin/perl -w
use strict;
use warnings;
use Wx qw/:everything/;

package MyApp;
use base 'Wx::App';
use Wx::Html;
sub OnInit {
  my $frame = Wx::Frame->new( undef,-1,'TextCtrl in HtmlWindow');
  my $html=Wx::HtmlWindow->new($frame,-1);

  $html->GetParser->AddTagHandler(MyHtmlTagHandler->new);
  $html->SetPage('<html><body><wxperledit /></body></html>');

  $frame->Show( 1 );
}

package MyHtmlTagHandler;
use base 'Wx::PlHtmlTagHandler';

sub new {
  my $class = shift;
  my $this = $class->SUPER::new;
  return $this;
}

sub GetSupportedTags {
  return 'WXPERLEDIT';
}

sub HandleTag {
  my( $this, $htmltag ) = @_;
  my $parser = $this->GetParser;
  my $htmlwin = $parser->GetWindow;
  my $entry=Wx::TextCtrl->new($htmlwin,-1,'text');
  my $cell=Wx::HtmlWidgetCell->new($entry);
  my $cnt = $parser->GetContainer;
  $cnt->InsertCell( $cell ) if $cell;

  return 1;
}

package main;
MyApp->new->MainLoop;

[download]

In reply to wxperl's TextCtrl in HtmlWindow won't do Copy or Cut by enroute

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.