| Gtk2-MozEmbed documentation | Contained in the Gtk2-MozEmbed distribution. |
Gtk2::MozEmbed - Perl interface to the Mozilla embedding widget
#!/usr/bin/perl
use strict;
use warnings;
use Glib qw(TRUE FALSE);
use Gtk2 -init;
use Gtk2::MozEmbed;
Gtk2::MozEmbed -> set_profile_path($ENV{ HOME } . "/.mybrowser",
"MyBrowser");
my $window = Gtk2::Window -> new();
my $moz = Gtk2::MozEmbed -> new();
$window -> signal_connect(delete_event => sub {
Gtk2 -> main_quit;
return FALSE;
});
$window -> set_title("MyBrowser");
$window -> set_default_size(600, 400);
$window -> add($moz);
$window -> show_all();
$moz -> load_url("http://gtk2-perl.sf.net");
Gtk2 -> main;
See examples/pumzilla in the source tarball for a more complete example.
This module allows a Perl developer to use the Mozilla embedding widget.
Gtk2::MozEmbed::index(3pm), Gtk2(3pm), Gtk2::api(3pm).
Copyright (C) 2004-2011 by the gtk2-perl team
| Gtk2-MozEmbed documentation | Contained in the Gtk2-MozEmbed distribution. |
package Gtk2::MozEmbed; # $Id$ use 5.008; use strict; use warnings; use Gtk2; eval "use Mozilla::DOM; 1;"; require DynaLoader; our @ISA = qw(DynaLoader); our $VERSION = '0.09'; sub import { my $self = shift(); $self -> VERSION(@_); } sub dl_load_flags { $^O eq 'darwin' ? 0x00 : 0x01 } Gtk2::MozEmbed -> bootstrap($VERSION); 1; __END__