The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

package YahooFavorites::View::About;
use base 'XUL::App::View::Base';
use Template::Declare::Tags
    #'HTML' => { namespace => 'html' },  # HTML namespace support
    'XUL';
use YahooFavorites::App;

template main => sub {
    show 'header';  # from XUL::App::View::Base
    window {
        attr {
            id => "yahoofavorites-about",
            xmlns => $::XUL_NAME_SPACE,
            #'xmlns:html' => $::HTML_NAME_SPACE,  # HTML namespace support
            onload => 'sizeToContent()',
            title => _("About Yahoo! Favorites"),
            class => 'dialog',
        }
        groupbox {
            attr { align => "center", orient => "horizontal" }
            vbox {
                description {
                    attr {
                        value => _("Yahoo Favorites"),
                        style => "font-weight: bold; font-size: x-large;",
                    }
                }
                description {
                    attr {
                        value => $YahooFavorites::App::VERSION .
                            " - " . _("Copyright (c) 2006, 2007, 2008.")
                    }
                }
                spacer { attr { style => "height:15px" } }
                description {
                    attr {
                        value => _("Home Page"),
                        style => "font-weight: bold;"
                    }
                }
                description {
                    attr {
                        value => "http://www.yahoo.com.cn",
                        style => "cursor: pointer !important;color : blue;",
                        onclick => "window.open(event.target.value);",
                    }
                }
                spacer { attr { style => "height:15px" } }
                description {
                    attr {
                        value => "",
                        style => "font-weight: bold;",
                    }
                }
                description {
                    attr {
                        value => _("Yahoo! China, Aliaba Inc."),
                        style => "cursor: pointer !important;color : blue;",
                        onclick => "window.open('http://www.yahoo.com.cn/');",
                    }
                }
            }
            image {
                attr {
                    src => "chrome://yahoofavorites/content/about-webdigest.png",
                    style => "padding: 0px 5px 0px 5px"
                }
            }
        }

        box {
            attr {
                align => "right",
                pack => "center",
                flex => "1",
            }
            button {
                attr {
                    label => _("Close window"),
                    oncommand => "window.close();",
                }
            }
        }
    }
};

1;