—
—

              
package Oak::Web::HTML::Iframe;
use strict;
use Error qw(:try);
use base qw(Oak::Web::Container);
HideShow 19 lines of Pod
=head1 NAME
Oak::Web::HTML::Iframe - A Iframe tag
=head1 HIERARCHY
  Oak::Object
  Oak::Persistent
  Oak::Component
  Oak::Web::Visual
  Oak::Web::Container
  Oak::Web::HTML::Iframe
=head1 PROPERTIES
The Oak::Web::HTML::IFrame object has the properties defined by W3C
=cut
sub valid_html_attributes {
        my $self = shift;
        (
         $self->core_attributes,
         $self->i18n_attributes,
         $self->events_attributes,
         "longdesc",
         "name",
         "src",
         "frameborder",
         "marginwidth",
         "marginheight",
         "scrolling",
         "align",
         "height",
         "width"
        );
}
sub start_container {
        my $self = shift;
        print "<IFRAME";
        print $self->print_html_attributes;
        print ">\n";
}
sub end_container {
        print "</IFRAME>";
}
1;
__END__
HideShow 12 lines of Pod
=head1 BUGS
Too early to determine. :)
=head1 COPYRIGHT
Copyright (c) 2001
Daniel Ruoso <daniel@ruoso.com>
All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.