/usr/local/CPAN/XUL-Node/XUL/Node/Application/PeriodicTable/Welcome.pm

• package XUL::Node::Application::PeriodicTable::Welcome
  • get_demo_box
• EOF

package XUL::Node::Application::PeriodicTable::Welcome;

use strict;
use warnings;
use Carp;
use XUL::Node;

use base 'XUL::Node::Application::PeriodicTable::Base';

sub get_demo_box {
	my $self = shift;
	VBox(
		HTML_H3(textNode => 'A demonstration of all XUL-Node widgets'),
		Description(top => '3em', textNode => '
						Adapted from the original Mozilla XUL periodic table, by Alice J.
						Corbin. It is the definitive example of all xul widgets. You can
						find it at:
				'),
		Box(HTML_Div(HTML_A(
			style    => 'padding-left: 4em; padding-bottom: 3em',
			textNode => 'http://www.hevanet.com/acorbin/xul/top.xul',
			href     => 'http://www.hevanet.com/acorbin/xul/top.xul',
			target   => 'new_browser',
		))),
		GroupBox(
			style => 'color: red; font-weight: bold; border-color: red',
			Caption(label => 'CAVEATS'),
			HTML_Pre(textNode => << 'CAVEATS_TEXT'),

CAVEATS
			
  * multiple selection is not supported
  * trees are not supported yet
  * popups are not supported yet

CAVEATS_TEXT
		),
	);
}

1;