package HTMLWidget::MessageView;
use strict;

sub new {
  my $class = shift;

  my $self = {};

  return bless $self, $class;
}

sub insert {
  my ($self, $font, undef, undef, $body) = @_;

  $self->{body} = $body;
}

sub draw {
  my $self = shift;

  print $self->{body};
}

sub AUTOLOAD {
}

1;