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

Comparing CV/bin/cv (file contents):
Revision 1.50 by root, Sat Aug 13 15:19:10 2005 UTC vs.
Revision 1.67 by root, Mon Mar 20 04:18:01 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);
120 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); 153 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
121 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 154 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
122 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0); 155 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
127 160
128 $schnauzer->set_geometry_hints; 161 $schnauzer->set_geometry_hints;
129} 162}
130 163
131if (@ARGV) { 164if (@ARGV) {
165 @ARGV == 1 && -d $ARGV[0]
166 ? $schnauzer->set_dir (Glib::filename_to_unicode shift)
132 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]); 167 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV], 1);
133 $schnauzer->show_all; 168 $schnauzer->show_all;
134 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 169 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
135 $viewer->show_all;
136} else { 170} else {
137 $schnauzer->set_dir (File::Spec->curdir); 171 $schnauzer->set_dir (File::Spec->curdir);
138 $mainwin->show_all; 172 $mainwin->show_all;
139 $viewer->show_all;
140} 173}
141 174
142$viewer->show_all; 175$viewer->show_all;
143 176
144main Gtk2; 177main Gtk2;
145 178
146__DATA__ 179__DATA__
180
181=encoding utf-8
147 182
148=head1 NAME 183=head1 NAME
149 184
150cv - a fast gtk+ image viewer loosely modeled after XV 185cv - a fast gtk+ image viewer loosely modeled after XV
151 186
160 195
161=over 4 196=over 4
162 197
163=item * optimized directory scanning algorithm 198=item * optimized directory scanning algorithm
164 199
165The directory scanning in CV plays some tricks that - on most modern 200The directory scanning in CV uses some tricks that - on most modern
166filesystems - makes it possible to detect filetypes faster than stat()'ing 201filesystems - makes it possible to detect filetypes faster than stat()'ing
167every file. This makes CV suitable for directories with lots of files 202every file. This makes CV suitable for directories with lots of files
168(10000+). 203(10000+).
169 204
170This algorithm is quite unprecise - it doesn't make a difference between 205This algorithm is quite unprecise - it doesn't make a difference between
171files, device nodes, symlinks and the like, and filetype detection is done 206files, device nodes, symlinks and the like, and filetype detection is done
172using the file extension only. 207using the file extension only.
173 208
209On the positive side, it is usually many orders of magnitude faster than
210traditional scanning techniques (good for directories with 10000 or
211100000+ files).
212
213=item * queuing for all time-consuming background tasks
214
215All tasks, such as unlinking files or generating thumbnails, that can be
216done in the background will be done so - no waiting required, even when
217changing directories.
218
174=item * use of asynchronous I/O 219=item * use of asynchronous I/O
175 220
176CV tries to use asynchronous I/O whereever it makes sense, for example 221CV tries to use asynchronous I/O whereever it makes sense, for example
177while scanning directories, waiting for stat data or unlinking files. This 222while scanning directories, waiting for stat data, unlinking files or
178usually decreases scanning times for large directories a bit (especially 223generating thumbnails. This usually decreases scanning times for large
179on RAID devices and over NFS). 224directories a bit (especially on RAID devices and over NFS) and makes CV
225much more interactive.
180 226
181=item * fast image loading 227=item * fast image loading
182 228
183The time span between the user issuing a command and displaying the new 229The time span between the user issuing a command and displaying the new
184image should be as small as possible. CV uses optimized (especially 230image should be as small as possible. CV uses optimized (especially
185for JPEG) loading functions and sacrifices some quality (e.g no gamma 231for JPEG) loading functions and sacrifices some quality (e.g no gamma
186correction) to achieve this speed. 232correction, although this might change) to achieve this speed.
187 233
188=item * fast thumbnail creation 234=item * fast thumbnail creation
189 235
190Thumbnail creation is crucial for me, so it's better be fast. Thumbnail 236Thumbnail creation uses both CPU and Disk-I/O. CV interleaves both, so
237on modern CPUs, thumbnailing is usually limited by I/O speed. Thumbnail
191creation for JPEGs has been specially optimized. 238creation for JPEGs has been specially optimized and can even take
239advantage of multiple CPUs.
192 240
193=item * minimum optical clutter 241=item * minimum optical clutter
194 242
195CV has no menus or other user interface elements that take up a lot of 243CV has no menus or other user interface elements that take up a lot of
196screen space. The schnauzer windows can also be somewhat crowded. 244screen space (or are useful for beginning users). The schnauzer windows
245can also be somewhat crowded.
197 246
198The point of an image viewer is viewing images, not a nice GUI. This is 247The point of an image viewer is viewing images, not a nice GUI. This is
199similar to XV's behaviour. 248similar to XV's behaviour.
200 249
201=item * efficient (and hard to learn) user interface 250=item * efficient (and hard to learn) user interface
202 251
203CV uses key combinations. A lot. If you are an experienced XV user, you 252CV uses key combinations. A lot. If you are an experienced XV user, you
204will find most of these keys familiar. If not, CV might be hard to use at 253will find most of these keys familiar. If not, CV might be hard to use at
205first, but will be an efficient tool later. 254first, but will be an efficient tool later.
206 255
256=item * multi-window GUI
257
258CV doesn't force you to use a specific layout, instead it relies on your
259window manager, thus enabling you to chose whatever layout that suits you
260most.
261
207=item * i18n'ed filename handling throughout 262=item * i18n'ed filename handling throughout
208 263
209As long as glib can recognize your filename encoding (either UTF-8 or 264As long as glib can recognize your filename encoding (either UTF-8 or
210locale-specific, depending on your settings) and you have the relevant 265locale-specific, depending on the setting of G_BROKEN_FILENAMES) and you
211fonts, CV will display your filenames correctly. 266have the relevant fonts, CV will display your filenames correctly.
212 267
213=item * extensible through plug-ins 268=item * extensible through plug-ins
214 269
215I have weird plug-ins that access remote databases to find a 270I have weird plug-ins that access remote databases to find a
216directory. This is not likely to be of any use to other people. Likewise, 271directory. This is not likely to be of any use to other people. Likewise,
237 . enlarge the image by 10% 292 . enlarge the image by 10%
238 n reset to normal size 293 n reset to normal size
239 m maximize to screensize 294 m maximize to screensize
240 M maximize to screensize, respecting image aspect 295 M maximize to screensize, respecting image aspect
241 ctrl-m toggle maxpect-always mode 296 ctrl-m toggle maxpect-always mode
297 ctrl-sift-m toggle using current image size as max image size
242 u uncrop 298 u uncrop
243 r set scaling mode to 'nearest' (fastest) 299 r set scaling mode to 'nearest' (fastest)
244 s set scaling mode to 'bilinear' (default) 300 s set scaling mode to 'bilinear' (default)
245 shift-s set scaling mode to 'hyper' (slowest) 301 shift-s set scaling mode to 'hyper' (slowest)
246 t rotate clockwise 90° 302 t rotate clockwise 90°
247 T rotate counterclockwise° 303 T rotate counterclockwise°
304 a apply all rotations loslessly to a jpeg file (using exiftran)
248 ctrl-v open a new visual schnauzer window for the current dir 305 ctrl-v open a new visual schnauzer window for the current dir
306 ctrl-c clone the current image window
249 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image 307 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
250 ctrl-p fire up the print fialog 308 ctrl-p fire up the print dialog
251 escape cancel a crop action 309 escape cancel a crop action
252 310
253And when playing movies, these additional keys are active: 311And when playing movies, these additional keys are active:
254 312
255 left rewind by 10 seconds 313 left rewind by 10 seconds
270Left-clicking into the image window will let you crop the image (usually 328Left-clicking into the image window will let you crop the image (usually
271to zoom into large images that CV scales down). 329to zoom into large images that CV scales down).
272 330
273=head2 THE VISUAL SCHNAUZER 331=head2 THE VISUAL SCHNAUZER
274 332
333Any image-loading action in a schnauzer window acts on the
334"last-recently-activated" imagewindow, which currently is simply the last
335image window that received a keypress.
336
275You can use the following keys in the schnauzer window: 337You can use the following keys in the schnauzer window:
276 338
277 ctrl-space, 339 ctrl-space,
278 space move to and display next image 340 space move to and display next image
279 ctrl-backspace, 341 ctrl-backspace,
293 ctrl-g force generation of thumbnais for the selected files 355 ctrl-g force generation of thumbnais for the selected files
294 ctrl-s rescan current direcory or files updates/deletes etc. 356 ctrl-s rescan current direcory or files updates/deletes etc.
295 ctrl-u update selected (or all) icons if neccessary 357 ctrl-u update selected (or all) icons if neccessary
296 ctrl-l don't use, will become a plug-in eventually 358 ctrl-l don't use, will become a plug-in eventually
297 359
360 ^ go to parent directory (caret).
361
298 0-9, 362 0-9,
299 a-z find the first filename beginning with this letter 363 a-z find the first filename beginning with this letter
300 364
301Right-clicking into the schnauzer window displays a pop-up menu with 365Right-clicking into the schnauzer window displays a pop-up menu with
302additional actions. 366additional actions.
303 367
368=head3 SELECTION
369
370You can select entries in the Schnauzer in a variety of ways:
371
372=over 4
373
374=item Keyboard
375
376Moving the cursor with the keyboard will first deselect all files and then
377select the file you moved to.
378
379=item Clicking
380
381Clicking on an entry will select the one you clicked and deselect all
382others.
383
384=item Shift-Clicking
385
386Shift-clicking will toggle the selection on the entry under the mouse.
387
388=item Dragging
389
390Dragging will select all entries between the one selected when pushing the
391button and the one selected when releasing the button. If you move above
392or below the schnauzer area while drag-selecting, the schnauzer will move
393up/down one row twice per second. In addition, horizontal mouse movement
394acts as a kind of invisible horizontal scrollbar.
395
396=item Hint: double-click works while click-selecting
397
398You can double-click any image while click-selecting to display it
399without stopping the selection process. This will act as if you normally
400double-clicked the image to display it, and will toggle the selection
401twice, resulting in no change.
402
403=back
404
304=head1 FILES 405=head1 FILES
305 406
306When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if 407When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
307it were a perl script. in that, you will mostly load plug-ins. 408it were a perl script. in that, you will mostly load plug-ins.
308 409
334 435
335=back 436=back
336 437
337=head1 SECURITY CONSIDERATIONS 438=head1 SECURITY CONSIDERATIONS
338 439
339CV uses Pixbuf to load images. Pixbuf is not considered safe for this 440CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
340purpose, though (from the gtk-2.2 release notes): 441this purpose, though (from the gtk-2.2 release notes):
341 442
342"While efforts have been made to make gdk-pixbuf robust against invalid 443"While efforts have been made to make gdk-pixbuf robust against invalid
343images, using gdk-pixbuf to load untrusted data is not recommended, due to 444images, using gdk-pixbuf to load untrusted data is not recommended, due to
344the likelyhood that there are additional problems where an invalid image 445the likelyhood that there are additional problems where an invalid image
345could cause gdk-pixbuf to crash or worse." 446could cause gdk-pixbuf to crash or worse."
347=head1 BUGS/TODO 448=head1 BUGS/TODO
348 449
349 Lots of functionality is missing. 450 Lots of functionality is missing.
350 451
351 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with 452 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
352 names incompatible might utf-8 fail. 453 names incompatible with utf-8 might fail.
353 454
354 rotate on disk 455 rotate on disk
355 lots of ui issues 456 lots of ui issues
356 save(?) 457 save(?)
357 preferences 458 preferences
358 shift-cursor in schnauzer
359 459
360=head1 AUTHOR 460=head1 AUTHOR
361 461
362Marc Lehmann <cv@plan9.de>. 462Marc Lehmann <cv@plan9.de>.
363 463

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines