view release on metacpan or  search on metacpan

examples/BrowserObjects.pm  view on Meta::CPAN

    my $embed = Gtk2::MozEmbed->new();

    # This handler dumps information on the browser objects.
    $embed->signal_connect(net_stop => \&net_stop_cb);

    # This one demonstrates History's `Back' method
    # when you double click anywhere.
    $embed->signal_connect(dom_mouse_dbl_click => \&dom_mouse_dbl_click_cb);

    # An extra feature in this demo is allowing popup windows.
    # (This also comes from pumzilla in Gtk2::MozEmbed.)
    # Try commenting this out, then clicking on the link;
    # nothing will happen.
    $embed->signal_connect(new_window => sub {
        my ($embed, $chrome) = @_;

        my $newwin = BrowserObjects->new();
        $newwin->set_default_size(600, 400);
        $newwin->show_all();

examples/EventListeners.pm  view on Meta::CPAN

    my $iid = Mozilla::DOM::EventTarget->GetIID;
    my $target = $button->QueryInterface($iid);

    # Add the event listener created in INIT_INSTANCE above
    $target->AddEventListener('click', $embed->{listener}, 0);

    return TRUE;
}

# This is invoked when you click on the button.
# It only fires after you close the popup alert box, however.
# I think the reason is that the popup window is also
# called as a result of a click-event handler, and that
# handler only returns after the alert box is gone
# (i.e., the `alert' function has returned). But I thought
# only one handler could be added per event type. Maybe this
# means one handler in addition to any handler added by JavaScript
# as an onClick handler, but I'm not sure.
sub click_listener {
    my $event = shift;

    my $type = $event->GetType;

examples/WebNav.pm  view on Meta::CPAN

    print "LOAD_FLAGS_MASK=", LOAD_FLAGS_MASK, $/;

    my $embed = Gtk2::MozEmbed->new();
    $embed->signal_connect(net_stop => \&net_stop_cb);

    # This demonstrates navigating the session history
    # with keypress events.
    $embed->signal_connect(dom_key_press => \&dom_key_press_cb);

    # This allows popup windows (c.f. BrowserObjects.pm).
    $embed->signal_connect(new_window => sub {
        my ($embed, $chrome) = @_;
        my $newwin = WebNav->new();
        $newwin->set_default_size(600, 400);
        $newwin->show_all();
        return $newwin->{_embed};
    });

    $self->add($embed);