File Coverage

blib/lib/Wx/DemoModules/wxHtmlTag.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

#############################################################################
## Name:        lib/Wx/DemoModules/wxHtmlTag.pm
## Purpose:     wxPerl demo hlper for wxHtmlWindow custom tags
## Author:      Mattia Barbon
## Modified by:
## Created:     20/12/2003
## RCS-ID:      $Id: wxHtmlTag.pm 3120 2011-11-18 18:50:54Z mdootson $
## Copyright:   (c) 2003-2004, 2006 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

use Wx::Html;

package Wx::DemoModules::wxHtmlTag::Handler;

use strict;
use base 'Wx::PlHtmlTagHandler';
use Wx::Calendar;

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

  return $this;
}

sub GetSupportedTags {
  return 'WXPERLCTRL';
}

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

  return 1;
}

package Wx::DemoModules::wxHtmlTag;

use strict;
use base 'Wx::HtmlWindow';

sub new {
  my $class = shift;
  my $this = $class->SUPER::new( $_[0], -1 );

  $this->GetParser->AddTagHandler( Wx::DemoModules::wxHtmlTag::Handler->new );
  $this->SetPage( <

Title

  Heading



Calendar Control using custom tag.


EOT

  return $this;
}

sub add_to_tags { 'windows/html' }
sub title { 'Custom tags' }

1;