ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/bin/cv
(Generate patch)

Comparing CV/bin/cv (file contents):
Revision 1.74 by root, Sat Mar 1 02:33:04 2008 UTC vs.
Revision 1.75 by root, Sat Mar 1 04:11:26 2008 UTC

37 my $s = new Gtk2::CV::Schnauzer; 37 my $s = new Gtk2::CV::Schnauzer;
38 38
39 $s->signal_connect_after (key_press_event => \&std_keys); 39 $s->signal_connect_after (key_press_event => \&std_keys);
40 $s->signal_connect (activate => sub { 40 $s->signal_connect (activate => sub {
41 my $label = sprintf "%s (%d)", 41 my $label = sprintf "%s (%d)",
42 (File::Spec->splitpath ($_[1]))[2], 42 (Glib::filename_display_name +(File::Spec->splitpath ($_[1]))[2]),
43 -s $_[1]; 43 -s $_[1];
44 $info->set_label ($label); 44 $info->set_label ($label);
45 $viewer->load_image ($_[1]) if $viewer; # TODO: error, or chose ANY viewer 45 $viewer->load_image ($_[1]) if $viewer; # TODO: error, or chose ANY viewer
46 }); 46 });
47 47

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines