| Mozilla-Mechanize documentation | Contained in the Mozilla-Mechanize distribution. |
Copyright 2005,2009 Scott Lanning <slanning@cpan.org>. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
| Mozilla-Mechanize documentation | Contained in the Mozilla-Mechanize distribution. |
package Mozilla::Mechanize::Browser::Gtk2MozEmbed; use strict; use warnings; use Gtk2; use Gtk2::MozEmbed; use Glib::Object::Subclass Gtk2::Window::; sub INIT_INSTANCE { my $self = shift; $self->set_title('Mozilla::Mechanize'); Gtk2::MozEmbed->set_profile_path("$ENV{HOME}/.mozilla-mechanize", 'Mozilla::Mechanize'); my $embed = Gtk2::MozEmbed->new(); $self->add($embed); $self->{embed} = $embed; } 1; __END__