diff -Naurd Gtk2-Html2-0.03.orig/examples/mupzilla Gtk2-Html2-0.03/examples/mupzilla
--- Gtk2-Html2-0.03.orig/examples/mupzilla 2004-04-03 07:03:43.000000000 +0200
+++ Gtk2-Html2-0.03/examples/mupzilla 2004-09-01 14:41:32.000000000 +0200
@@ -7,6 +7,7 @@
use Gtk2;
use Gtk2::Html2;
use Gnome2::VFS;
+use Encode;
my $gnomevfsinitialized = FALSE;
@@ -41,7 +42,7 @@
$address->signal_connect (activate => sub {
my ($entry, $mupzilla) = @_;
my $uri = $entry->get_text;
- if ($uri !~ m{^https?://}) {
+ if ($uri !~ m{^(https?|file)://}) {
$uri = "http://".$uri;
$entry->set_text ($uri);
}
@@ -100,6 +101,7 @@
my ($self, $uri) = @_;
# mangle it to be a full url. FIXME this is terrible.
warn "mangle_uri -- '$uri'\n";
+ return $uri if ($uri =~ m{://});
if ($self->{base_uri}) {
warn " base_uri -- '".$self->{base_uri}->get_scheme."'\n";
warn " -- '".$self->{base_uri}->get_host_name."'\n";
@@ -176,7 +178,8 @@
Gnome2::VFS::URI->new ($uri);
},
read_chunk => sub {
- $self->{doc}->write_stream ($_[0])
+ Encode::_utf8_on($_[0]);
+ $self->{doc}->write_stream ($_[0])
if length $_[0];
Gtk2->main_iteration
while Gtk2->events_pending;