--- CV/bin/cv	2006/01/13 01:08:06	1.65
+++ CV/bin/cv	2006/02/15 19:47:20	1.66
@@ -105,6 +105,7 @@
    } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
       my $w = new Gtk2::Window;
 
+      $w->set_role ("schnauzer");
       $w->set_title ("CV: Schnauzer");
       $w->add (my $s = new_schnauzer);
       $s->set_dir (File::Spec->curdir);
@@ -116,6 +117,7 @@
          require Gtk2::PodViewer;
 
          $help = new Gtk2::Window;
+         $w->set_role ("help");
          $help->set_title ("CV: Help");
          $help->set_default_size (500, 300);
          $help->signal_connect (delete_event => sub { $help->hide; 1 });
@@ -142,6 +144,7 @@
    $schnauzer = new_schnauzer;
 
    $mainwin = new Gtk2::Window;
+   $mainwin->set_role ("main");
    $mainwin->set_title ("CV");
    $mainwin->add (my $vbox = new Gtk2::VBox);
    $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });