David Davis > POE-Component-XUL-0.02 > POE::Component::XUL

Download:
POE-Component-XUL-0.02.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  3
Open  0
View/Report Bugs
Module Version: 0.02   Source  

NAME ^

POE::Component::XUL - Easier use of XUL::Node when using POE

DESCRIPTION ^

POE::Component::XUL uses POE::XUL::SessionManager and POE::XUL::Session in a slightly different way to allow poe callbacks to your session for XUL application calls.

SYNOPSIS

        use POE qw( Component::XUL );
        use XUL::Node;
        use XUL::Node::Application;

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

        POE::Session->create(
                inline_states => {
                        _start => sub {
                                my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];

                                POE::Component::XUL->spawn({
                                        port => 8001,
                                        root => '/usr/local/xul-node',
                                        apps => {
                                                # a callback
                                                Test => $session->callback("client_start"),
                                                # or a sub
                                                Test2 => sub {
                                                        # code for app Test2 here
                                                        # see client_start below
                                                },
                                        },
                                });
                        },
                        client_start => sub {
                                my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
                                # the label object is kept in the heap to use it on callbacks
                                return Window(
                                        VBox(FILL, $heap->{label} = Label(value => 'select item from list'),
                                                ListBox(FILL,
                                                        (map { ListItem(label => "item #$_") } 1..10),
                                                        Select => $session->callback('listbox_select')
                                                ),
                                        ),
                                );
                        },
                        listbox_select => sub {
                                my ($kernel, $heap, $session, $event) = (@_[KERNEL, HEAP, SESSION], $_[ARG1]->[0]);
                                print "[".$event->{session}."] picked #".($event->{selectedIndex}+1)."\n";
                                # example of doing 2 or more things in request
                                # set the label text and make it change colors
                                my @colors = ('red','blue','green','yellow','white','black');
                                return $heap->{label}->value("you selected #".($event->{selectedIndex}+1)).
                                        $heap->{label}->style('color:'.$colors[(int(rand($#colors)))]);         
                        },
                },
        );

        $poe_kernel->run();

DESCRIPTION ^

POE::Component::XUL allows you to use poe callbacks in your XUL::Node apps. In its current state, XUL::Node doesn't give you a way to use POE easily in your apps, but with this component you will have the control you need.

AUTHOR ^

David Davis, <xantus@cpan.org>

THANKS ^

Rocco Caputo, for pushing me. :)

SEE ALSO ^

perl(1), XUL::Node, XUL::Node::Application.

syntax highlighting: