use strict; use warnings; package ExportReader::View::ExportReader; use base 'XUL::App::View::Base'; use Template::Declare::Tags #'HTML' => { namespace => 'html' }, # HTML namespace support 'XUL'; template main => sub { show 'header'; # from XUL::App::View::Base window { attr { id => "exportreader-exportwin", xmlns => $::XUL_NAME_SPACE, #'xmlns:html' => $::HTML_NAME_SPACE, # HTML namespace support title => 'ExportReader', width => 800, height => 600, persist => 'sizemode screenX screenY width height', } hbox { button { attr { id => 'extract-button', label => 'Extract!' } } spacer { attr { flex => 1 } } } hbox { attr { flex => 1 } browser { attr { id => 'reader-browser', type => 'content', flex => 4, src => 'http://www.google.com/reader', } } splitter {} textbox { attr { id => 'output-box', multiline => "true", flex => 1, } } } } }; 1;