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

Comparing CV/bin/cv (file contents):
Revision 1.48 by root, Fri Jul 22 05:43:53 2005 UTC vs.
Revision 1.62 by root, Tue Oct 4 04:55:47 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 (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
49} 91}
50 92
51sub std_keys { 93sub std_keys {
52 my $key = $_[1]->keyval; 94 my $key = $_[1]->keyval;
53 my $state = $_[1]->state; 95 my $state = $_[1]->state;
54 96
55 my $ctrl = $state * "control-mask"; 97 my $ctrl = $state * "control-mask";
56 98
57 if ($key == $Gtk2::Gdk::Keysyms{q}) { 99 if ($key == $Gtk2::Gdk::Keysyms{q}) {
58 main_quit Gtk2; 100 $viewer->destroy;
59 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 101 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
60 my $w = new Gtk2::Window; 102 my $w = new Gtk2::Window;
61 103
62 $w->set_title ("CV: Schnauzer"); 104 $w->set_title ("CV: Schnauzer");
63 $w->add (my $s = new_schnauzer); 105 $w->add (my $s = new_schnauzer);
… …
88 130
89 1 131 1
90} 132}
91 133
92{ 134{
93 $viewer = new Gtk2::CV::ImageWindow; 135 $viewer = new_viewer;
94 136 $::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 137
112 $schnauzer = new_schnauzer; 138 $schnauzer = new_schnauzer;
113 139
114 $mainwin = new Gtk2::Window; 140 $mainwin = new Gtk2::Window;
115 $mainwin->set_title ("CV"); 141 $mainwin->set_title ("CV");
116 $mainwin->add (my $vbox = new Gtk2::VBox); 142 $mainwin->add (my $vbox = new Gtk2::VBox);
117 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; }); 143 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
118 144
119 $vbox->add ($schnauzer); 145 $vbox->add ($schnauzer);
120 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); 146 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
121 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 147 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
122 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0); 148 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
… …
127 153
128 $schnauzer->set_geometry_hints; 154 $schnauzer->set_geometry_hints;
129} 155}
130 156
131if (@ARGV) { 157if (@ARGV) {
158 @ARGV == 1 && -d $ARGV[0]
159 ? $schnauzer->set_dir (Glib::filename_to_unicode shift)
132 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]); 160 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
133 $schnauzer->show_all; 161 $schnauzer->show_all;
134$viewer->show_all;
135 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 162 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
136} else { 163} else {
137 $schnauzer->set_dir (File::Spec->curdir); 164 $schnauzer->set_dir (File::Spec->curdir);
138 $mainwin->show_all; 165 $mainwin->show_all;
139 $viewer->show_all;
140} 166}
141 167
142$viewer->show_all; 168$viewer->show_all;
143 169
144main Gtk2; 170main Gtk2;
145 171
146__DATA__ 172__DATA__
173
174=encoding utf-8
147 175
148=head1 NAME 176=head1 NAME
149 177
150cv - a fast gtk+ image viewer loosely modeled after XV 178cv - a fast gtk+ image viewer loosely modeled after XV
151 179
… …
160 188
161=over 4 189=over 4
162 190
163=item * optimized directory scanning algorithm 191=item * optimized directory scanning algorithm
164 192
165The directory scanning in CV plays some tricks that - on most modern 193The directory scanning in CV uses some tricks that - on most modern
166filesystems - makes it possible to detect filetypes faster than stat()'ing 194filesystems - makes it possible to detect filetypes faster than stat()'ing
167every file. This makes CV suitable for directories with lots of files 195every file. This makes CV suitable for directories with lots of files
168(10000+). 196(10000+).
169 197
170This algorithm is quite unprecise - it doesn't make a difference between 198This algorithm is quite unprecise - it doesn't make a difference between
171files, device nodes, symlinks and the like, and filetype detection is done 199files, device nodes, symlinks and the like, and filetype detection is done
172using the file extension only. 200using the file extension only.
173 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
174=item * use of asynchronous I/O 212=item * use of asynchronous I/O
175 213
176CV tries to use asynchronous I/O whereever it makes sense, for example 214CV tries to use asynchronous I/O whereever it makes sense, for example
177while scanning directories, waiting for stat data or unlinking files. This 215while scanning directories, waiting for stat data, unlinking files or
178usually decreases scanning times for large directories a bit (especially 216generating thumbnails. This usually decreases scanning times for large
179on RAID devices and over NFS). 217directories a bit (especially on RAID devices and over NFS) and makes CV
218much more interactive.
180 219
181=item * fast image loading 220=item * fast image loading
182 221
183The time span between the user issuing a command and displaying the new 222The time span between the user issuing a command and displaying the new
184image should be as small as possible. CV uses optimized (especially 223image should be as small as possible. CV uses optimized (especially
185for JPEG) loading functions and sacrifices some quality (e.g no gamma 224for JPEG) loading functions and sacrifices some quality (e.g no gamma
186correction) to achieve this speed. 225correction, although this might change) to achieve this speed.
187 226
188=item * fast thumbnail creation 227=item * fast thumbnail creation
189 228
190Thumbnail creation is crucial for me, so it's better be fast. Thumbnail 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
191creation for JPEGs has been specially optimized. 231creation for JPEGs has been specially optimized and can even take
232advantage of multiple CPUs.
192 233
193=item * minimum optical clutter 234=item * minimum optical clutter
194 235
195CV has no menus or other user interface elements that take up a lot of 236CV has no menus or other user interface elements that take up a lot of
196screen space. The schnauzer windows can also be somewhat crowded. 237screen space (or are useful for beginning users). The schnauzer windows
238can also be somewhat crowded.
197 239
198The point of an image viewer is viewing images, not a nice GUI. This is 240The point of an image viewer is viewing images, not a nice GUI. This is
199similar to XV's behaviour. 241similar to XV's behaviour.
200 242
201=item * efficient (and hard to learn) user interface 243=item * efficient (and hard to learn) user interface
202 244
203CV uses key combinations. A lot. If you are an experienced XV user, you 245CV 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 246will find most of these keys familiar. If not, CV might be hard to use at
205first, but will be an efficient tool later. 247first, but will be an efficient tool later.
206 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
207=item * i18n'ed filename handling throughout 255=item * i18n'ed filename handling throughout
208 256
209As long as glib can recognize your filename encoding (either UTF-8 or 257As long as glib can recognize your filename encoding (either UTF-8 or
210locale-specific, depending on your settings) and you have the relevant 258locale-specific, depending on the setting of G_BROKEN_FILENAMES) and you
211fonts, CV will display your filenames correctly. 259have the relevant fonts, CV will display your filenames correctly.
212 260
213=item * extensible through plug-ins 261=item * extensible through plug-ins
214 262
215I have weird plug-ins that access remote databases to find a 263I 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, 264directory. This is not likely to be of any use to other people. Likewise,
… …
228 276
229=head2 THE IMAGE WINDOW 277=head2 THE IMAGE WINDOW
230 278
231You can use the following keys in the image window: 279You can use the following keys in the image window:
232 280
233 q quit the program 281 q quit the program
234 < half the image size 282 < half the image size
235 > double the image size 283 > double the image size
236 , shrink the image by 10% 284 , shrink the image by 10%
237 . enlarge the image by 10% 285 . enlarge the image by 10%
238 n reset to normal size 286 n reset to normal size
239 m maximize to screensize 287 m maximize to screensize
240 M maximize to screensize, respecting image aspect 288 M maximize to screensize, respecting image aspect
241 ctrl-m toggle maxpect-always mode 289 ctrl-m toggle maxpect-always mode
290 ctrl-sift-m toggle using current image size as max image size
242 u uncrop 291 u uncrop
243 r set scaling mode to 'nearest' (fastest) 292 r set scaling mode to 'nearest' (fastest)
244 s set scaling mode to 'bilinear' (default) 293 s set scaling mode to 'bilinear' (default)
245 shift-s set scaling mode to 'hyper' (slowest) 294 shift-s set scaling mode to 'hyper' (slowest)
246 t rotate clockwise 90° 295 t rotate clockwise 90°
247 T rotate counterclockwise° 296 T rotate counterclockwise°
248 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
249 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image 298 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
250 ctrl-p fire up the print fialog 299 ctrl-p fire up the print dialog
251 escape cancel a crop action 300 escape cancel a crop action
252 301
253And when playing movies, these additional keys are active: 302And when playing movies, these additional keys are active:
254 303
255 left rewind by 10 seconds 304 left rewind by 10 seconds
256 right forward by 10 seconds 305 right forward by 10 seconds
257 down rewind by 60 seconds 306 down rewind by 60 seconds
258 up forward by 60 seconds 307 up forward by 60 seconds
259 pg_up rewind by 600 seconds 308 pg_up rewind by 600 seconds
260 pg_down forward by 600 seconds 309 pg_down forward by 600 seconds
261 o toggle on-screen display 310 o toggle on-screen display
262 p pause/unpause 311 p pause/unpause
263 escape stop playing 312 escape stop playing
264 9 turn volume down 313 9 turn volume down
265 0 turn volume up 314 0 turn volume up
266 315
267Any other keys will be sent to the default schnauzer window, which can be 316Any other keys will be sent to the default schnauzer window, which can be
268toggled on and off by right-clicking into the image window. 317toggled on and off by right-clicking into the image window.
269 318
270Left-clicking into the image window will let you crop the image (usually 319Left-clicking into the image window will let you crop the image (usually
… …
273=head2 THE VISUAL SCHNAUZER 322=head2 THE VISUAL SCHNAUZER
274 323
275You can use the following keys in the schnauzer window: 324You can use the following keys in the schnauzer window:
276 325
277 ctrl-space, 326 ctrl-space,
278 space move to and display next image 327 space move to and display next image
279 ctrl-backspace, 328 ctrl-backspace,
280 backspace move to and display previous image 329 backspace move to and display previous image
281 ctrl-return, 330 ctrl-return,
282 return display selected picture, or enter directory 331 return display selected picture, or enter directory
283 332
284 cursor keys move selection 333 cursor keys move selection
285 page-up move one page up 334 page-up move one page up
286 page-down move one page down 335 page-down move one page down
287 home move to first file 336 home move to first file
288 end move to last file 337 end move to last file
289 338
290 ctrl-a select all files 339 ctrl-a select all files
340 ctrl-shift-a select all files currently displayed in the schnauzer window
291 ctrl-d delete selected files WITHOUT ASKING AGAIN 341 ctrl-d delete selected files WITHOUT ASKING AGAIN
292 ctrl-g force generation of thumbnais for the selected files 342 ctrl-g force generation of thumbnais for the selected files
293 ctrl-s rescan current direcory or files updates/deletes etc. 343 ctrl-s rescan current direcory or files updates/deletes etc.
294 ctrl-u update selected (or all) icons if neccessary 344 ctrl-u update selected (or all) icons if neccessary
295 ctrl-l don't use, will become a plug-in eventually 345 ctrl-l don't use, will become a plug-in eventually
346
347 ^ go to parent directory (caret).
296 348
297 0-9, 349 0-9,
298 a-z find the first filename beginning with this letter 350 a-z find the first filename beginning with this letter
299 351
300Right-clicking into the schnauzer window displays a pop-up menu with 352Right-clicking into the schnauzer window displays a pop-up menu with
301additional actions. 353additional actions.
302 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
303=head1 FILES 392=head1 FILES
304 393
305When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if 394When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
306it were a perl script. in that, you will mostly load plug-ins. 395it were a perl script. in that, you will mostly load plug-ins.
307 396
… …
333 422
334=back 423=back
335 424
336=head1 SECURITY CONSIDERATIONS 425=head1 SECURITY CONSIDERATIONS
337 426
338CV uses Pixbuf to load images. Pixbuf is not considered safe for this 427CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
339purpose, though (from the gtk-2.2 release notes): 428this purpose, though (from the gtk-2.2 release notes):
340 429
341"While efforts have been made to make gdk-pixbuf robust against invalid 430"While efforts have been made to make gdk-pixbuf robust against invalid
342images, using gdk-pixbuf to load untrusted data is not recommended, due to 431images, using gdk-pixbuf to load untrusted data is not recommended, due to
343the likelyhood that there are additional problems where an invalid image 432the likelyhood that there are additional problems where an invalid image
344could cause gdk-pixbuf to crash or worse." 433could cause gdk-pixbuf to crash or worse."
… …
346=head1 BUGS/TODO 435=head1 BUGS/TODO
347 436
348 Lots of functionality is missing. 437 Lots of functionality is missing.
349 438
350 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with 439 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
351 names incompatible might utf-8 fail. 440 names incompatible with utf-8 might fail.
352 441
353 rotate on disk 442 rotate on disk
354 lots of ui issues 443 lots of ui issues
355 save(?) 444 save(?)
356 preferences 445 preferences
357 shift-cursor in schnauzer
358 446
359=head1 AUTHOR 447=head1 AUTHOR
360 448
361Marc Lehmann <cv@plan9.de>. 449Marc Lehmann <cv@plan9.de>.
362 450

Diff Legend

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