--- CV/bin/cv	2005/02/12 17:23:41	1.36
+++ CV/bin/cv	2005/03/18 03:45:29	1.37
@@ -1,5 +1,8 @@
 #!/opt/bin/perl
 
+use Cwd ();
+use Encode ();
+
 use Gtk2 -init;
 use Gtk2::Gdk::Keysyms;
 
@@ -31,6 +34,19 @@
       $info->set_label ($label);
       $viewer->load_image ($_[1]);
    });
+   $s->signal_connect (chdir => sub {
+      my ($self, $dir) = @_;
+
+      my $path = Cwd::abs_path $dir;
+
+      $self->realize;
+      $self->window->property_change (
+         Gtk2::Gdk::Atom->intern ("_X_CWD", 0),
+         Gtk2::Gdk::Atom->intern ("UTF8_STRING", 0),
+         Gtk2::Gdk::CHARS, 'replace',
+         Encode::encode_utf8 $path,
+      );
+   });
 
    $s;
 }