Skip to content

Instantly share code, notes, and snippets.

@jnbek
Created May 4, 2011 16:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jnbek/955523 to your computer and use it in GitHub Desktop.
Save jnbek/955523 to your computer and use it in GitHub Desktop.
Mini Webkit browser in Perl GTK
#!/usr/bin/perl -w
use strict;
use warnings;
use Gtk2 -init;
use Gtk2::WebKit;
my $url = 'http://google.com';
my $window = Gtk2::Window->new;
$window->set_default_size(320,160);
$window->signal_connect(destroy => sub { Gtk2->main_quit });
my $sw = Gtk2::ScrolledWindow->new;
my $view = Gtk2::WebKit::WebView->new;
$sw->add($view);
$window->add($sw);
$view->open($url);
$window->show_all;
Gtk2->main;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment