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

Comparing CV/bin/cv (file contents):
Revision 1.41 by root, Mon Jun 27 19:42:53 2005 UTC vs.
Revision 1.61 by root, Sat Sep 24 00:51:28 2005 UTC

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

Diff Legend

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