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

Comparing CV/bin/cv (file contents):
Revision 1.21 by root, Sat Nov 8 01:00:08 2003 UTC vs.
Revision 1.62 by root, Tue Oct 4 04:55:47 2005 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
3use Cwd ();
4use Encode ();
2 5
3use Gtk2 -init; 6use Gtk2 -init;
4use Gtk2::Gdk::Keysyms; 7use Gtk2::Gdk::Keysyms;
5 8
9use Gtk2::CV;
10
6use Gtk2::CV::ImageWindow; 11use Gtk2::CV::ImageWindow;
7use Gtk2::CV::Schnauzer; 12use Gtk2::CV::Schnauzer;
8 13
9use Gtk2::CV; 14BEGIN {
15 require Gtk2::CV::Plugin;
16 require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
17}
18
19use Gtk2::CV::Plugin::NameCluster;
20use Gtk2::CV::Plugin::RCluster;
10 21
11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc"); 22Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
12 23
13use File::Spec; 24use File::Spec;
14 25
15my $mainwin; 26my $mainwin;
16my $viewer; 27my $viewer;
28my $viewer_count;
17my $schnauzer; 29my $schnauzer;
18my $info; 30my $info;
19my $help; 31my $help;
32
33my $schnauzer_idx = 0;
20 34
21sub new_schnauzer { 35sub new_schnauzer {
22 my $s = new Gtk2::CV::Schnauzer; 36 my $s = new Gtk2::CV::Schnauzer;
23 37
24 $s->signal_connect_after (key_press_event => \&std_keys); 38 $s->signal_connect_after (key_press_event => \&std_keys);
25 $s->signal_connect (activate => sub { 39 $s->signal_connect (activate => sub {
26 my $label = sprintf "%s (%d)", 40 my $label = sprintf "%s (%d)",
27 (File::Spec->splitpath ($_[1]))[2], 41 (File::Spec->splitpath ($_[1]))[2],
28 -s $_[1]; 42 -s $_[1];
29 $info->set_label ($label); 43 $info->set_label ($label);
30 $viewer->load_image ($_[1]); 44 $viewer->load_image ($_[1]) if $viewer; # TODO: error, or chose ANY viewer
31 }); 45 });
32 46
47 Gtk2::CV::Plugin->call (new_schnauzer => $s);
48
33 $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 (destroy => sub {
76 $viewer = undef if $viewer == $_[0];
77
78 main_quit Gtk2 unless --$viewer_count;
79 });
80
81 $self->signal_connect (button3_press_event => sub {
82 $mainwin->visible
83 ? $mainwin->hide
84 : $mainwin->show_all;
85 1
86 });
87
88 Gtk2::CV::Plugin->call (new_imagewindow => $self);
89
90 $self
34} 91}
35 92
36sub std_keys { 93sub std_keys {
37 my $key = $_[1]->keyval; 94 my $key = $_[1]->keyval;
38 my $state = $_[1]->state; 95 my $state = $_[1]->state;
39 96
40 my $ctrl = $state * "control-mask"; 97 my $ctrl = $state * "control-mask";
41 98
42 if ($key == $Gtk2::Gdk::Keysyms{q}) { 99 if ($key == $Gtk2::Gdk::Keysyms{q}) {
43 main_quit Gtk2; 100 $viewer->destroy;
44 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 101 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
45 my $w = new Gtk2::Window; 102 my $w = new Gtk2::Window;
103
104 $w->set_title ("CV: Schnauzer");
46 $w->add (my $s = new_schnauzer); 105 $w->add (my $s = new_schnauzer);
47 $s->set_dir (File::Spec->curdir); 106 $s->set_dir (File::Spec->curdir);
107 $s->set_geometry_hints;
48 $w->show_all; 108 $w->show_all;
109
49 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { 110 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
50 unless ($help) { 111 unless ($help) {
51 require Gtk2::PodViewer; 112 require Gtk2::PodViewer;
52 113
53 $help = new Gtk2::Window; 114 $help = new Gtk2::Window;
54 $help->set_title ("CV Help"); 115 $help->set_title ("CV: Help");
55 $help->set_default_size (500, 300); 116 $help->set_default_size (500, 300);
56 $help->signal_connect (delete_event => sub { $help->hide; 1 }); 117 $help->signal_connect (delete_event => sub { $help->hide; 1 });
57 118
58 $help->add (my $sw = new Gtk2::ScrolledWindow); 119 $help->add (my $sw = new Gtk2::ScrolledWindow);
59 $sw->add (my $h = new Gtk2::PodViewer); 120 $sw->add (my $h = new Gtk2::PodViewer);
… …
62 $h->load_string (do { local $/; <DATA> }); 123 $h->load_string (do { local $/; <DATA> });
63 } 124 }
64 125
65 $help->show_all; 126 $help->show_all;
66 } else { 127 } else {
67 #$mainwin->show_all; 128 return 0;
68 $schnauzer->handle_key ($key, $state);
69 } 129 }
70 130
71 1; 131 1
72} 132}
73 133
74{ 134{
75 $viewer = new Gtk2::CV::ImageWindow; 135 $viewer = new_viewer;
76 136 $::cur_viewer = $viewer;
77 $viewer->set_title ("CV: Image");
78
79 $viewer->signal_connect (key_press_event => \&std_keys);
80 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
81
82 $viewer->signal_connect (button3_press_event => sub {
83 $mainwin->visible
84 ? $mainwin->hide
85 : $mainwin->show_all;
86 });
87 137
88 $schnauzer = new_schnauzer; 138 $schnauzer = new_schnauzer;
89 139
90 $mainwin = new Gtk2::Window; 140 $mainwin = new Gtk2::Window;
91 $mainwin->set_title ("CV"); 141 $mainwin->set_title ("CV");
92 $mainwin->add (my $vbox = new Gtk2::VBox); 142 $mainwin->add (my $vbox = new Gtk2::VBox);
143 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
93 144
94 $vbox->add ($schnauzer); 145 $vbox->add ($schnauzer);
95 $vbox->add (my $frame = new Gtk2::Frame); 146 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
96 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 147 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
97 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); 148 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
98 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); 149 $hbox->pack_end (my $labelwindow = new Gtk2::EventBox, 1, 1, 0);
150 $labelwindow->add ($info = new Gtk2::Label);
151 $labelwindow->signal_connect_after (size_request => sub { $_[1]->width (0); 0 });
152 $info->set (selectable => 1, xalign => 0, justify => "left");
153
154 $schnauzer->set_geometry_hints;
99} 155}
100 156
101if (@ARGV) { 157if (@ARGV) {
102 $schnauzer->set_paths (\@ARGV); 158 @ARGV == 1 && -d $ARGV[0]
159 ? $schnauzer->set_dir (Glib::filename_to_unicode shift)
160 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
161 $schnauzer->show_all;
103 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 162 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
104} else { 163} else {
105 $schnauzer->set_dir (File::Spec->curdir); 164 $schnauzer->set_dir (File::Spec->curdir);
106 $mainwin->show_all; 165 $mainwin->show_all;
107} 166}
… …
110 169
111main Gtk2; 170main Gtk2;
112 171
113__DATA__ 172__DATA__
114 173
174=encoding utf-8
175
115=head1 NAME 176=head1 NAME
116 177
117cv - a fast gtk+ image viewer modeled after xv 178cv - a fast gtk+ image viewer loosely modeled after XV
118 179
119=head1 SYNOPSIS 180=head1 SYNOPSIS
120 181
121 cv [file...] 182 cv [file...]
122 183
184=head1 FEATURES
185
186CV is supposed to work similar to the venerable XV image viewer, just
187faster. Why faster?
188
189=over 4
190
191=item * optimized directory scanning algorithm
192
193The directory scanning in CV uses some tricks that - on most modern
194filesystems - makes it possible to detect filetypes faster than stat()'ing
195every file. This makes CV suitable for directories with lots of files
196(10000+).
197
198This algorithm is quite unprecise - it doesn't make a difference between
199files, device nodes, symlinks and the like, and filetype detection is done
200using the file extension only.
201
202On the positive side, it is usually many orders of magnitude faster than
203traditional scanning techniques (good for directories with 10000 or
204100000+ files).
205
206=item * queuing for all time-consuming background tasks
207
208All tasks, such as unlinking files or generating thumbnails, that can be
209done in the background will be done so - no waiting required, even when
210changing directories.
211
212=item * use of asynchronous I/O
213
214CV tries to use asynchronous I/O whereever it makes sense, for example
215while scanning directories, waiting for stat data, unlinking files or
216generating thumbnails. This usually decreases scanning times for large
217directories a bit (especially on RAID devices and over NFS) and makes CV
218much more interactive.
219
220=item * fast image loading
221
222The time span between the user issuing a command and displaying the new
223image should be as small as possible. CV uses optimized (especially
224for JPEG) loading functions and sacrifices some quality (e.g no gamma
225correction, although this might change) to achieve this speed.
226
227=item * fast thumbnail creation
228
229Thumbnail creation uses both CPU and Disk-I/O. CV interleaves both, so
230on modern CPUs, thumbnailing is usually limited by I/O speed. Thumbnail
231creation for JPEGs has been specially optimized and can even take
232advantage of multiple CPUs.
233
234=item * minimum optical clutter
235
236CV has no menus or other user interface elements that take up a lot of
237screen space (or are useful for beginning users). The schnauzer windows
238can also be somewhat crowded.
239
240The point of an image viewer is viewing images, not a nice GUI. This is
241similar to XV's behaviour.
242
243=item * efficient (and hard to learn) user interface
244
245CV uses key combinations. A lot. If you are an experienced XV user, you
246will find most of these keys familiar. If not, CV might be hard to use at
247first, but will be an efficient tool later.
248
249=item * multi-window GUI
250
251CV doesn't force you to use a specific layout, instead it relies on your
252window manager, thus enabling you to chose whatever layout that suits you
253most.
254
255=item * i18n'ed filename handling throughout
256
257As long as glib can recognize your filename encoding (either UTF-8 or
258locale-specific, depending on the setting of G_BROKEN_FILENAMES) and you
259have the relevant fonts, CV will display your filenames correctly.
260
261=item * extensible through plug-ins
262
263I have weird plug-ins that access remote databases to find a
264directory. This is not likely to be of any use to other people. Likewise,
265others might have weird requirements I cannot dream of.
266
267=item * filename clustering
268
269Among the standard plug-ins is a filename clustering plug-in, that (in
270case of tens of thousands images in one directory) might be able to
271cluster similar names together.
272
273=back
274
123=head1 DESCRIPTION 275=head1 DESCRIPTION
124 276
125None yet.
126
127=head2 THE IMAGE WINDOW 277=head2 THE IMAGE WINDOW
128 278
129You can use the following keys in the image window: 279You can use the following keys in the image window:
130 280
131 q quit the program 281 q quit the program
132 < half the image size 282 < half the image size
133 > double the image size 283 > double the image size
134 , shrink the image by 10% 284 , shrink the image by 10%
135 . enlarge the image by 10% 285 . enlarge the image by 10%
136 n reset to normal size 286 n reset to normal size
137 m maximize to screensize 287 m maximize to screensize
138 M maxime to screensize, respecting image aspect 288 M maximize to screensize, respecting image aspect
289 ctrl-m toggle maxpect-always mode
290 ctrl-sift-m toggle using current image size as max image size
139 u uncrop 291 u uncrop
140 r set scaling mode to 'nearest' (fastest) 292 r set scaling mode to 'nearest' (fastest)
141 s set scaling mode to 'bilinear' (default) 293 s set scaling mode to 'bilinear' (default)
142 S set scaling mode to 'hyper' (slowest) 294 shift-s set scaling mode to 'hyper' (slowest)
143 t rotate clockwise 90° 295 t rotate clockwise 90°
144 T rotate counterclockwise° 296 T rotate counterclockwise°
145 ctrl-v open a new visual schnauzer window for the current dir 297 ctrl-v open a new visual schnauzer window for the current dir
298 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
299 ctrl-p fire up the print dialog
300 escape cancel a crop action
146 301
147The following keys are redirected to the default visual schnauzer window: 302And when playing movies, these additional keys are active:
148 303
149 space next image 304 left rewind by 10 seconds
150 backspace last image 305 right forward by 10 seconds
306 down rewind by 60 seconds
307 up forward by 60 seconds
308 pg_up rewind by 600 seconds
309 pg_down forward by 600 seconds
310 o toggle on-screen display
311 p pause/unpause
312 escape stop playing
313 9 turn volume down
314 0 turn volume up
315
316Any other keys will be sent to the default schnauzer window, which can be
317toggled on and off by right-clicking into the image window.
318
319Left-clicking into the image window will let you crop the image (usually
320to zoom into large images that CV scales down).
151 321
152=head2 THE VISUAL SCHNAUZER 322=head2 THE VISUAL SCHNAUZER
153 323
154You can use the following keys in the schnauzer window: 324You can use the following keys in the schnauzer window:
155 325
326 ctrl-space,
156 space move to and display next image 327 space move to and display next image
328 ctrl-backspace,
157 backspace move to and display previous image 329 backspace move to and display previous image
330 ctrl-return,
158 return display selected picture 331 return display selected picture, or enter directory
159 332
160 cursor keys move selection 333 cursor keys move selection
161 page-up move one page up 334 page-up move one page up
162 page-down move one page down 335 page-down move one page down
163 home move to first file 336 home move to first file
164 end move to last file 337 end move to last file
165 338
166 ctrl-g generate icons for the selected files 339 ctrl-a select all files
340 ctrl-shift-a select all files currently displayed in the schnauzer window
167 ctrl-d delete selected files WITHOUT ASKING AGAIN 341 ctrl-d delete selected files WITHOUT ASKING AGAIN
342 ctrl-g force generation of thumbnais for the selected files
343 ctrl-s rescan current direcory or files updates/deletes etc.
344 ctrl-u update selected (or all) icons if neccessary
345 ctrl-l don't use, will become a plug-in eventually
346
347 ^ go to parent directory (caret).
348
349 0-9,
350 a-z find the first filename beginning with this letter
351
352Right-clicking into the schnauzer window displays a pop-up menu with
353additional actions.
354
355=head3 SELECTION
356
357You can select entries in the Schnauzer in a variety of ways:
358
359=over 4
360
361=item Keyboard
362
363Moving the cursor with the keyboard will first deselect all files and then
364select the file you moved to.
365
366=item Clicking
367
368Clicking on an entry will select the one you clicked and deselect all
369others.
370
371=item Shift-Clicking
372
373Shift-clicking will toggle the selection on the entry under the mouse.
374
375=item Dragging
376
377Dragging will select all entries between the one selected when pushing the
378button and the one selected when releasing the button. If you move above
379or below the schnauzer area while drag-selecting, the schnauzer will move
380up/down one row twice per second. In addition, horizontal mouse movement
381acts as a kind of invisible horizontal scrollbar.
382
383=item Hint: double-click works while click-selecting
384
385You can double-click any image while click-selecting to display it
386without stopping the selection process. This will act as if you normally
387double-clicked the image to display it, and will toggle the selection
388twice, resulting in no change.
389
390=back
391
392=head1 FILES
393
394When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
395it were a perl script. in that, you will mostly load plug-ins.
396
397Example:
398
399 system "fping -q -t 10 ether"
400 or require "/fs/cv/cvplugin.pl";
401
402This will load a plug-in, but only if the machine I<ether> is reachable
403(supposedly the plug-in is networked in some way :).
404
405=head1 ENVIRONMENT
406
407=over 4
408
409=item CV_EDITOR
410
411The program that gets executed when the user presses C<CTRL-e> in the
412Schnauzer or image window. The default is C<gimp>.
413
414=item CV_PRINT_DESTINATION
415
416The default (perl-style) destination to use in the print dialog.
417
418=item CV_TRASHCAN
419
420When set, must point to a directory where all files that are deleted are
421moved to. If unset, files that are deleted are really being deleted.
422
423=back
424
425=head1 SECURITY CONSIDERATIONS
426
427CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
428this purpose, though (from the gtk-2.2 release notes):
429
430"While efforts have been made to make gdk-pixbuf robust against invalid
431images, using gdk-pixbuf to load untrusted data is not recommended, due to
432the likelyhood that there are additional problems where an invalid image
433could cause gdk-pixbuf to crash or worse."
168 434
169=head1 BUGS/TODO 435=head1 BUGS/TODO
170 436
437 Lots of functionality is missing.
438
439 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
440 names incompatible with utf-8 might fail.
441
171 rotate on disk 442 rotate on disk
172 print
173 lots of ui issues 443 lots of ui issues
174 save(?) 444 save(?)
175 preferences 445 preferences
176 ctrl-u in schnauzer
177 shift-cursor in schnauzer
178 446
179=head1 AUTHOR 447=head1 AUTHOR
180 448
181Marc Lehmann <cv@plan9.de>. 449Marc Lehmann <cv@plan9.de>.
182 450

Diff Legend

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