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

Comparing CV/bin/cv (file contents):
Revision 1.61 by root, Sat Sep 24 00:51:28 2005 UTC vs.
Revision 1.63 by root, Tue Oct 4 05:06:39 2005 UTC

… …
23 23
24use File::Spec; 24use File::Spec;
25 25
26my $mainwin; 26my $mainwin;
27my $viewer; 27my $viewer;
28my $viewer_count;
28my $schnauzer; 29my $schnauzer;
29my $info; 30my $info;
30my $help; 31my $help;
31 32
32my $schnauzer_idx = 0; 33my $schnauzer_idx = 0;
… …
38 $s->signal_connect (activate => sub { 39 $s->signal_connect (activate => sub {
39 my $label = sprintf "%s (%d)", 40 my $label = sprintf "%s (%d)",
40 (File::Spec->splitpath ($_[1]))[2], 41 (File::Spec->splitpath ($_[1]))[2],
41 -s $_[1]; 42 -s $_[1];
42 $info->set_label ($label); 43 $info->set_label ($label);
43 $viewer->load_image ($_[1]); 44 $viewer->load_image ($_[1]) if $viewer; # TODO: error, or chose ANY viewer
44 }); 45 });
45 46
46 Gtk2::CV::Plugin->call (new_schnauzer => $s); 47 Gtk2::CV::Plugin->call (new_schnauzer => $s);
47 48
48 $s 49 $s
50}
51
52sub new_viewer {
53 my $self = new Gtk2::CV::ImageWindow;
54
55 $viewer_count++;
56
57 $self->set_title ("CV: Image");
58
59 $self->signal_connect (key_press_event => sub {
60 $viewer = $_[0];
61
62 my $key = $_[1]->keyval;
63 my $state = $_[1]->state;
64
65 if ($state * "control-mask" && $key == $Gtk2::Gdk::Keysyms{c}) {
66 my $viewer = new_viewer ();
67 $viewer->set_image ($_[0]->{image});
68 $viewer->show_all;
69 1
70 } else {
71 &std_keys
72 or $schnauzer->signal_emit (key_press_event => $_[1])
73 }
74 });
75 $self->signal_connect (delete_event => sub { $_[0]->destroy; 0 });
76 $self->signal_connect (destroy => sub {
77 $viewer = undef if $viewer == $_[0];
78
79 main_quit Gtk2 unless --$viewer_count;
80
81 0
82 });
83
84 $self->signal_connect (button3_press_event => sub {
85 $mainwin->visible
86 ? $mainwin->hide
87 : $mainwin->show_all;
88
89 1
90 });
91
92 Gtk2::CV::Plugin->call (new_imagewindow => $self);
93
94 $self
49} 95}
50 96
51sub std_keys { 97sub std_keys {
52 my $key = $_[1]->keyval; 98 my $key = $_[1]->keyval;
53 my $state = $_[1]->state; 99 my $state = $_[1]->state;
54 100
55 my $ctrl = $state * "control-mask"; 101 my $ctrl = $state * "control-mask";
56 102
57 if ($key == $Gtk2::Gdk::Keysyms{q}) { 103 if ($key == $Gtk2::Gdk::Keysyms{q}) {
58 main_quit Gtk2; 104 $viewer->destroy;
59 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 105 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
60 my $w = new Gtk2::Window; 106 my $w = new Gtk2::Window;
61 107
62 $w->set_title ("CV: Schnauzer"); 108 $w->set_title ("CV: Schnauzer");
63 $w->add (my $s = new_schnauzer); 109 $w->add (my $s = new_schnauzer);
… …
88 134
89 1 135 1
90} 136}
91 137
92{ 138{
93 $viewer = new Gtk2::CV::ImageWindow; 139 $viewer = new_viewer;
94 140 $::cur_viewer = $viewer;
95 $viewer->set_title ("CV: Image");
96
97 $viewer->signal_connect (key_press_event => sub {
98 &std_keys
99 or $schnauzer->signal_emit (key_press_event => $_[1])
100 });
101 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
102
103 $viewer->signal_connect (button3_press_event => sub {
104 $mainwin->visible
105 ? $mainwin->hide
106 : $mainwin->show_all;
107 1
108 });
109
110 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
111 141
112 $schnauzer = new_schnauzer; 142 $schnauzer = new_schnauzer;
113 143
114 $mainwin = new Gtk2::Window; 144 $mainwin = new Gtk2::Window;
115 $mainwin->set_title ("CV"); 145 $mainwin->set_title ("CV");
… …
267 s set scaling mode to 'bilinear' (default) 297 s set scaling mode to 'bilinear' (default)
268 shift-s set scaling mode to 'hyper' (slowest) 298 shift-s set scaling mode to 'hyper' (slowest)
269 t rotate clockwise 90° 299 t rotate clockwise 90°
270 T rotate counterclockwise° 300 T rotate counterclockwise°
271 ctrl-v open a new visual schnauzer window for the current dir 301 ctrl-v open a new visual schnauzer window for the current dir
302 ctrl-c clone the current image window
272 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image 303 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
273 ctrl-p fire up the print dialog 304 ctrl-p fire up the print dialog
274 escape cancel a crop action 305 escape cancel a crop action
275 306
276And when playing movies, these additional keys are active: 307And when playing movies, these additional keys are active:
… …
293Left-clicking into the image window will let you crop the image (usually 324Left-clicking into the image window will let you crop the image (usually
294to zoom into large images that CV scales down). 325to zoom into large images that CV scales down).
295 326
296=head2 THE VISUAL SCHNAUZER 327=head2 THE VISUAL SCHNAUZER
297 328
329Any image-loading action in a schnauzer window acts on the
330"last-recently-activated" imagewindow, which currently is simply the last
331image window that received a keypress.
332
298You can use the following keys in the schnauzer window: 333You can use the following keys in the schnauzer window:
299 334
300 ctrl-space, 335 ctrl-space,
301 space move to and display next image 336 space move to and display next image
302 ctrl-backspace, 337 ctrl-backspace,

Diff Legend

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