use lib qw(../lib/);
 use strict;
 use HTML::Window qw(:all);
 use CGI::CMS qw(:all);
 print header;
 print start_html(
         -title => 'Window',
         -script => [{-type => 'text/javascript', -src => '/javascript/window.js'}],
         -style => '/style/Crystal/window.css',
 );
 my %parameter = (
         path => "../templates/",
         server => "http://localhost",
         id => "a",
         style => 'Crystal'
 );
 set_closeable(1);
 set_moveable(1);
 set_resizeable(1);
 set_class('min');
 set_style('Crystal');
 set_title('Test');
 initWindow(\%parameter);
 print windowHeader();
 print "Body", br();
 use showsource;&showSource($0);
 print windowFooter();
 print a({href => 'javascript:displayWindows()', style => "display:none", id => "showWindows"}, "show Window");
 print end_html;