[ViewVC] Diff of: cvs/CV/bin/cv

Comparing CV/bin/cv (file contents):
Revision 1.20 by root, Fri Nov 7 14:01:45 2003 UTC vs.
Revision 1.21 by root, Sat Nov 8 01:00:08 2003 UTC

 my $mainwin;
 my $viewer;
 my $schnauzer;
 my $info;
+my $help;
 sub new_schnauzer {
    my $s = new Gtk2::CV::Schnauzer;
    $s->signal_connect_after (key_press_event => \&std_keys);
 sub std_keys {
    my $key = $_[1]->keyval;
    my $state = $_[1]->state;
-   my $ctrl = grep $_ eq "control-mask", @$state;
+   my $ctrl = $state * "control-mask";
    if ($key == $Gtk2::Gdk::Keysyms{q}) {
       main_quit Gtk2;
    } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
       my $w = new Gtk2::Window;
       $w->add (my $s = new_schnauzer);
       $s->set_dir (File::Spec->curdir);
-      $w->show_all
+      $w->show_all;
+   } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
+      unless ($help) {
+         require Gtk2::PodViewer;
+         $help = new Gtk2::Window;
+         $help->set_title ("CV Help");
+         $help->set_default_size (500, 300);
+         $help->signal_connect (delete_event => sub { $help->hide; 1 });
+         $help->add (my $sw = new Gtk2::ScrolledWindow);
+         $sw->add (my $h = new Gtk2::PodViewer);
+         #binmode DATA, ":utf8";
+         $h->load_string (do { local $/; <DATA> });
+      }
+      $help->show_all;
    } else {
       #$mainwin->show_all;
       $schnauzer->handle_key ($key, $state);
    }
 }
 $viewer->show_all;
 main Gtk2;
+__DATA__
 =head1 NAME
 cv - a fast gtk+ image viewer modeled after xv

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines