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

Comparing CV/bin/cv (file contents):
Revision 1.56 by root, Mon Aug 22 03:33:33 2005 UTC vs.
Revision 1.69 by root, Thu Nov 2 00:09:15 2006 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
108 $w->set_role ("schnauzer");
62 $w->set_title ("CV: Schnauzer"); 109 $w->set_title ("CV: Schnauzer");
63 $w->add (my $s = new_schnauzer); 110 $w->add (my $s = new_schnauzer);
64 $s->set_dir (File::Spec->curdir); 111 $s->set_dir (File::Spec->curdir);
65 $s->set_geometry_hints; 112 $s->set_geometry_hints;
66 $w->show_all; 113 $w->show_all;
… …
68 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { 115 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
69 unless ($help) { 116 unless ($help) {
70 require Gtk2::PodViewer; 117 require Gtk2::PodViewer;
71 118
72 $help = new Gtk2::Window; 119 $help = new Gtk2::Window;
120 $help->set_role ("help");
73 $help->set_title ("CV: Help"); 121 $help->set_title ("CV: Help");
74 $help->set_default_size (500, 300); 122 $help->set_default_size (500, 300);
75 $help->signal_connect (delete_event => sub { $help->hide; 1 }); 123 $help->signal_connect (delete_event => sub { $help->hide; 1 });
76 124
77 $help->add (my $sw = new Gtk2::ScrolledWindow); 125 $help->add (my $sw = new Gtk2::ScrolledWindow);
… …
88 136
89 1 137 1
90} 138}
91 139
92{ 140{
93 $viewer = new Gtk2::CV::ImageWindow; 141 $viewer = new_viewer;
94 142 $::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 143
112 $schnauzer = new_schnauzer; 144 $schnauzer = new_schnauzer;
113 145
114 $mainwin = new Gtk2::Window; 146 $mainwin = new Gtk2::Window;
147 $mainwin->set_role ("main");
115 $mainwin->set_title ("CV"); 148 $mainwin->set_title ("CV");
116 $mainwin->add (my $vbox = new Gtk2::VBox); 149 $mainwin->add (my $vbox = new Gtk2::VBox);
117 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 }); 150 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
118 151
119 $vbox->add ($schnauzer); 152 $vbox->add ($schnauzer);
… …
127 160
128 $schnauzer->set_geometry_hints; 161 $schnauzer->set_geometry_hints;
129} 162}
130 163
131if (@ARGV) { 164if (@ARGV) {
165 my $show_first = sub {
166 $schnauzer->show_all;
167 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
168 $viewer->show_all;
169 };
170
132 @ARGV == 1 && -d $ARGV[0] 171 @ARGV == 1 && -d $ARGV[0]
133 ? $schnauzer->set_dir (Glib::filename_to_unicode shift) 172 ? $schnauzer->set_dir (Glib::filename_to_unicode shift, $show_first)
134 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]); 173 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV], 1, $show_first);
135 $schnauzer->show_all;
136 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
137} else { 174} else {
138 $schnauzer->set_dir (File::Spec->curdir); 175 $schnauzer->set_dir (File::Spec->curdir, sub {
139 $mainwin->show_all; 176 $mainwin->show_all;
140}
141
142$viewer->show_all; 177 $viewer->show_all;
178 });
179}
143 180
144main Gtk2; 181main Gtk2;
145 182
183Gtk2::CV::flush_aio;
184
146__DATA__ 185__DATA__
186
187=encoding utf-8
147 188
148=head1 NAME 189=head1 NAME
149 190
150cv - a fast gtk+ image viewer loosely modeled after XV 191cv - a fast gtk+ image viewer loosely modeled after XV
151 192
… …
257 . enlarge the image by 10% 298 . enlarge the image by 10%
258 n reset to normal size 299 n reset to normal size
259 m maximize to screensize 300 m maximize to screensize
260 M maximize to screensize, respecting image aspect 301 M maximize to screensize, respecting image aspect
261 ctrl-m toggle maxpect-always mode 302 ctrl-m toggle maxpect-always mode
303 ctrl-sift-m toggle using current image size as max image size
262 u uncrop 304 u uncrop
263 r set scaling mode to 'nearest' (fastest) 305 r set scaling mode to 'nearest' (fastest)
264 s set scaling mode to 'bilinear' (default) 306 s set scaling mode to 'bilinear' (default)
265 shift-s set scaling mode to 'hyper' (slowest) 307 shift-s set scaling mode to 'hyper' (slowest)
266 t rotate clockwise 90° 308 t rotate clockwise 90°
267 T rotate counterclockwise° 309 T rotate counterclockwise°
310 a apply all rotations loslessly to a jpeg file (using exiftran)
268 ctrl-v open a new visual schnauzer window for the current dir 311 ctrl-v open a new visual schnauzer window for the current dir
312 ctrl-c clone the current image window
269 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image 313 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
270 ctrl-p fire up the print fialog 314 ctrl-p fire up the print dialog
271 escape cancel a crop action 315 escape cancel a crop action
272 316
273And when playing movies, these additional keys are active: 317And when playing movies, these additional keys are active:
274 318
275 left rewind by 10 seconds 319 left rewind by 10 seconds
… …
290Left-clicking into the image window will let you crop the image (usually 334Left-clicking into the image window will let you crop the image (usually
291to zoom into large images that CV scales down). 335to zoom into large images that CV scales down).
292 336
293=head2 THE VISUAL SCHNAUZER 337=head2 THE VISUAL SCHNAUZER
294 338
339Any image-loading action in a schnauzer window acts on the
340"last-recently-activated" imagewindow, which currently is simply the last
341image window that received a keypress.
342
295You can use the following keys in the schnauzer window: 343You can use the following keys in the schnauzer window:
296 344
297 ctrl-space, 345 ctrl-space,
298 space move to and display next image 346 space move to and display next image
299 ctrl-backspace, 347 ctrl-backspace,
… …
321 a-z find the first filename beginning with this letter 369 a-z find the first filename beginning with this letter
322 370
323Right-clicking into the schnauzer window displays a pop-up menu with 371Right-clicking into the schnauzer window displays a pop-up menu with
324additional actions. 372additional actions.
325 373
374=head3 SELECTION
375
376You can select entries in the Schnauzer in a variety of ways:
377
378=over 4
379
380=item Keyboard
381
382Moving the cursor with the keyboard will first deselect all files and then
383select the file you moved to.
384
385=item Clicking
386
387Clicking on an entry will select the one you clicked and deselect all
388others.
389
390=item Shift-Clicking
391
392Shift-clicking will toggle the selection on the entry under the mouse.
393
394=item Dragging
395
396Dragging will select all entries between the one selected when pushing the
397button and the one selected when releasing the button. If you move above
398or below the schnauzer area while drag-selecting, the schnauzer will move
399up/down one row twice per second. In addition, horizontal mouse movement
400acts as a kind of invisible horizontal scrollbar.
401
402=item Hint: double-click works while click-selecting
403
404You can double-click any image while click-selecting to display it
405without stopping the selection process. This will act as if you normally
406double-clicked the image to display it, and will toggle the selection
407twice, resulting in no change.
408
409=back
410
326=head1 FILES 411=head1 FILES
327 412
328When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if 413When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
329it were a perl script. in that, you will mostly load plug-ins. 414it were a perl script. in that, you will mostly load plug-ins.
330 415

Diff Legend

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