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

Comparing CV/bin/cv (file contents):
Revision 1.12 by root, Wed Nov 5 01:30:33 2003 UTC vs.
Revision 1.13 by root, Wed Nov 5 02:05:25 2003 UTC

15 15
16 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) }); 16 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
17 $s->signal_connect_after (key_press_event => \&std_keys); 17 $s->signal_connect_after (key_press_event => \&std_keys);
18 18
19 $s->set_dir ("."); 19 $s->set_dir (".");
20 $w->show_all;
21 20
22 $s; 21 $s;
23} 22}
24 23
25sub std_keys { 24sub std_keys {
29 my $ctrl = grep $_ eq "control-mask", @$state; 28 my $ctrl = grep $_ eq "control-mask", @$state;
30 29
31 if ($key == $Gtk2::Gdk::Keysyms{q}) { 30 if ($key == $Gtk2::Gdk::Keysyms{q}) {
32 main_quit Gtk2; 31 main_quit Gtk2;
33 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 32 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
34 new_schnauzer; 33 new_schnauzer->get_toplevel->show_all;
35 } else { 34 } else {
36 $schnauzer->handle_key ($key, $state); 35 $schnauzer->handle_key ($key, $state);
37 } 36 }
38 37
39 1; 38 1;
42$viewer = new Gtk2::CV::ImageWindow; 41$viewer = new Gtk2::CV::ImageWindow;
43$viewer->signal_connect (key_press_event => \&std_keys); 42$viewer->signal_connect (key_press_event => \&std_keys);
44$viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 43$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
45 44
46$schnauzer = new_schnauzer; 45$schnauzer = new_schnauzer;
46
47my $mainwin = $schnauzer->get_toplevel;
48
49$viewer->signal_connect (button3_press_event => sub {
50 $mainwin->visible
51 ? $mainwin->hide
52 : $mainwin->show_all;
53});
47 54
48if (@ARGV) { 55if (@ARGV) {
49 $viewer->load_image ($ARGV[0]); 56 $viewer->load_image ($ARGV[0]);
50 57
51 if (@ARGV > 1) { 58 if (@ARGV > 1) {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines