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

Comparing CV/bin/cv (file contents):
Revision 1.24 by root, Wed Nov 12 18:10:47 2003 UTC vs.
Revision 1.47 by root, Wed Jul 20 09:06:37 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
6use Gtk2::CV::ImageWindow; 9use Gtk2::CV::ImageWindow;
… …
9use Gtk2::CV; 12use Gtk2::CV;
10 13
11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc"); 14Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
12 15
13use File::Spec; 16use File::Spec;
17
18require Gtk2::CV::Plugin;
19require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
14 20
15my $mainwin; 21my $mainwin;
16my $viewer; 22my $viewer;
17my $schnauzer; 23my $schnauzer;
18my $info; 24my $info;
19my $help; 25my $help;
26
27my $schnauzer_idx = 0;
20 28
21sub new_schnauzer { 29sub new_schnauzer {
22 my $s = new Gtk2::CV::Schnauzer; 30 my $s = new Gtk2::CV::Schnauzer;
23 31
24 $s->signal_connect_after (key_press_event => \&std_keys); 32 $s->signal_connect_after (key_press_event => \&std_keys);
… …
28 -s $_[1]; 36 -s $_[1];
29 $info->set_label ($label); 37 $info->set_label ($label);
30 $viewer->load_image ($_[1]); 38 $viewer->load_image ($_[1]);
31 }); 39 });
32 40
41 Gtk2::CV::Plugin->call (new_schnauzer => $s);
42
33 $s; 43 $s;
34} 44}
35 45
36sub std_keys { 46sub std_keys {
37 my $key = $_[1]->keyval; 47 my $key = $_[1]->keyval;
… …
41 51
42 if ($key == $Gtk2::Gdk::Keysyms{q}) { 52 if ($key == $Gtk2::Gdk::Keysyms{q}) {
43 main_quit Gtk2; 53 main_quit Gtk2;
44 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 54 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
45 my $w = new Gtk2::Window; 55 my $w = new Gtk2::Window;
56
57 $w->set_title ("CV: Schnauzer");
46 $w->add (my $s = new_schnauzer); 58 $w->add (my $s = new_schnauzer);
47 $s->set_dir (File::Spec->curdir); 59 $s->set_dir (File::Spec->curdir);
60 $s->set_geometry_hints;
48 $w->show_all; 61 $w->show_all;
62
49 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { 63 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
50 unless ($help) { 64 unless ($help) {
51 require Gtk2::PodViewer; 65 require Gtk2::PodViewer;
52 66
53 $help = new Gtk2::Window; 67 $help = new Gtk2::Window;
54 $help->set_title ("CV Help"); 68 $help->set_title ("CV: Help");
55 $help->set_default_size (500, 300); 69 $help->set_default_size (500, 300);
56 $help->signal_connect (delete_event => sub { $help->hide; 1 }); 70 $help->signal_connect (delete_event => sub { $help->hide; 1 });
57 71
58 $help->add (my $sw = new Gtk2::ScrolledWindow); 72 $help->add (my $sw = new Gtk2::ScrolledWindow);
59 $sw->add (my $h = new Gtk2::PodViewer); 73 $sw->add (my $h = new Gtk2::PodViewer);
… …
62 $h->load_string (do { local $/; <DATA> }); 76 $h->load_string (do { local $/; <DATA> });
63 } 77 }
64 78
65 $help->show_all; 79 $help->show_all;
66 } else { 80 } else {
67 #$mainwin->show_all; 81 return 0;
68 $schnauzer->handle_key ($key, $state);
69 } 82 }
70 83
71 1; 84 1
72} 85}
73 86
74{ 87{
75 $viewer = new Gtk2::CV::ImageWindow; 88 $viewer = new Gtk2::CV::ImageWindow;
76 89
77 $viewer->set_title ("CV: Image"); 90 $viewer->set_title ("CV: Image");
78 91
79 $viewer->signal_connect (key_press_event => \&std_keys); 92 $viewer->signal_connect (key_press_event => sub {
93 &std_keys
94 or $schnauzer->signal_emit (key_press_event => $_[1])
95 });
80 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 96 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
81 97
82 $viewer->signal_connect (button3_press_event => sub { 98 $viewer->signal_connect (button3_press_event => sub {
83 $mainwin->visible 99 $mainwin->visible
84 ? $mainwin->hide 100 ? $mainwin->hide
85 : $mainwin->show_all; 101 : $mainwin->show_all;
86 1; 102 1;
87 }); 103 });
88 104
105 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
106
89 $schnauzer = new_schnauzer; 107 $schnauzer = new_schnauzer;
90 108
91 $mainwin = new Gtk2::Window; 109 $mainwin = new Gtk2::Window;
92 $mainwin->set_title ("CV"); 110 $mainwin->set_title ("CV");
93 $mainwin->add (my $vbox = new Gtk2::VBox); 111 $mainwin->add (my $vbox = new Gtk2::VBox);
94 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; }); 112 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
95 113
96 $vbox->add ($schnauzer); 114 $vbox->add ($schnauzer);
97 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); 115 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
98 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 116 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
99 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); 117 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
100 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); 118 $hbox->pack_end (my $labelwindow = new Gtk2::EventBox, 1, 1, 0);
119 $labelwindow->add ($info = new Gtk2::Label);
120 $labelwindow->signal_connect_after (size_request => sub { $_[1]->width (0); 0 });
121 $info->set (selectable => 1, xalign => 0, justify => "left");
122
123 $schnauzer->set_geometry_hints;
101} 124}
102 125
103if (@ARGV) { 126if (@ARGV) {
104 $schnauzer->set_paths (\@ARGV); 127 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
128 $schnauzer->show_all;
129$viewer->show_all;
105 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 130 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
106} else { 131} else {
107 $schnauzer->set_dir (File::Spec->curdir); 132 $schnauzer->set_dir (File::Spec->curdir);
108 $mainwin->show_all; 133 $mainwin->show_all;
134 $viewer->show_all;
109} 135}
110 136
111$viewer->show_all; 137$viewer->show_all;
112 138
113main Gtk2; 139main Gtk2;
114 140
115__DATA__ 141__DATA__
116 142
117=head1 NAME 143=head1 NAME
118 144
119cv - a fast gtk+ image viewer modeled after xv 145cv - a fast gtk+ image viewer loosely modeled after XV
120 146
121=head1 SYNOPSIS 147=head1 SYNOPSIS
122 148
123 cv [file...] 149 cv [file...]
124 150
151=head1 FEATURES
152
153CV is supposed to work similar to the venerable XV image viewer, just
154faster. Why faster?
155
156=over 4
157
158=item * optimized directory scanning algorithm
159
160The directory scanning in CV plays some tricks that - on most modern
161filesystems - makes it possible to detect filetypes faster than stat()'ing
162every file. This makes CV suitable for directories with lots of files
163(10000+).
164
165This algorithm is quite unprecise - it doesn't make a difference between
166files, device nodes, symlinks and the like, and filetype detection is done
167using the file extension only.
168
169=item * use of asynchronous I/O
170
171CV tries to use asynchronous I/O whereever it makes sense, for example
172while scanning directories, waiting for stat data or unlinking files. This
173usually decreases scanning times for large directories a bit (especially
174on RAID devices and over NFS).
175
176=item * fast image loading
177
178The time span between the user issuing a command and displaying the new
179image should be as small as possible. CV uses optimized (especially
180for JPEG) loading functions and sacrifices some quality (e.g no gamma
181correction) to achieve this speed.
182
183=item * fast thumbnail creation
184
185Thumbnail creation is crucial for me, so it's better be fast. Thumbnail
186creation for JPEGs has been specially optimized.
187
188=item * minimum optical clutter
189
190CV has no menus or other user interface elements that take up a lot of
191screen space. The schnauzer windows can also be somewhat crowded.
192
193The point of an image viewer is viewing images, not a nice GUI. This is
194similar to XV's behaviour.
195
196=item * efficient (and hard to learn) user interface
197
198CV uses key combinations. A lot. If you are an experienced XV user, you
199will find most of these keys familiar. If not, CV might be hard to use at
200first, but will be an efficient tool later.
201
202=item * i18n'ed filename handling throughout
203
204As long as glib can recognize your filename encoding (either UTF-8 or
205locale-specific, depending on your settings) and you have the relevant
206fonts, CV will display your filenames correctly.
207
208=item * extensible through plug-ins
209
210I have weird plug-ins that access remote databases to find a
211directory. This is not likely to be of any use to other people. Likewise,
212others might have weird requirements I cannot dream of.
213
214=item * filename clustering
215
216Among the standard plug-ins is a filename clustering plug-in, that (in
217case of tens of thousands images in one directory) might be able to
218cluster similar names together.
219
220=back
221
125=head1 DESCRIPTION 222=head1 DESCRIPTION
126
127None yet.
128 223
129=head2 THE IMAGE WINDOW 224=head2 THE IMAGE WINDOW
130 225
131You can use the following keys in the image window: 226You can use the following keys in the image window:
132 227
… …
135 > double the image size 230 > double the image size
136 , shrink the image by 10% 231 , shrink the image by 10%
137 . enlarge the image by 10% 232 . enlarge the image by 10%
138 n reset to normal size 233 n reset to normal size
139 m maximize to screensize 234 m maximize to screensize
140 M maxime to screensize, respecting image aspect 235 M maximize to screensize, respecting image aspect
236 ctrl-m toggle maxpect-always mode
141 u uncrop 237 u uncrop
142 r set scaling mode to 'nearest' (fastest) 238 r set scaling mode to 'nearest' (fastest)
143 s set scaling mode to 'bilinear' (default) 239 s set scaling mode to 'bilinear' (default)
144 S set scaling mode to 'hyper' (slowest) 240 shift-s set scaling mode to 'hyper' (slowest)
145 t rotate clockwise 90° 241 t rotate clockwise 90°
146 T rotate counterclockwise° 242 T rotate counterclockwise°
147 ctrl-v open a new visual schnauzer window for the current dir 243 ctrl-v open a new visual schnauzer window for the current dir
244 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
245 ctrl-p fire up the print fialog
246 escape cancel a crop action
148 247
149The following keys are redirected to the default visual schnauzer window: 248And when playing movies, these additional keys are active:
150 249
151 space next image 250 left rewind by 10 seconds
152 backspace last image 251 right forward by 10 seconds
252 down rewind by 60 seconds
253 up forward by 60 seconds
254 pg_up rewind by 600 seconds
255 pg_down forward by 600 seconds
256 o toggle on-screen display
257 p pause/unpause
258 escape stop playing
259 9 turn volume down
260 0 turn volume up
261
262Any other keys will be sent to the default schnauzer window, which can be
263toggled on and off by right-clicking into the image window.
264
265Left-clicking into the image window will let you crop the image (usually
266to zoom into large images that CV scales down).
153 267
154=head2 THE VISUAL SCHNAUZER 268=head2 THE VISUAL SCHNAUZER
155 269
156You can use the following keys in the schnauzer window: 270You can use the following keys in the schnauzer window:
157 271
272 ctrl-space,
158 space move to and display next image 273 space move to and display next image
274 ctrl-backspace,
159 backspace move to and display previous image 275 backspace move to and display previous image
276 ctrl-return,
160 return display selected picture 277 return display selected picture, or enter directory
161 278
162 cursor keys move selection 279 cursor keys move selection
163 page-up move one page up 280 page-up move one page up
164 page-down move one page down 281 page-down move one page down
165 home move to first file 282 home move to first file
166 end move to last file 283 end move to last file
167 284
285 ctrl-a select all files
168 ctrl-d delete selected files WITHOUT ASKING AGAIN 286 ctrl-d delete selected files WITHOUT ASKING AGAIN
169 ctrl-g generate icons for the selected files 287 ctrl-g force generation of thumbnais for the selected files
288 ctrl-s rescan current direcory or files updates/deletes etc.
170 ctrl-u update selected (or all) icons if neccessary 289 ctrl-u update selected (or all) icons if neccessary
290 ctrl-l don't use, will become a plug-in eventually
291
292 0-9,
293 a-z find the first filename beginning with this letter
294
295Right-clicking into the schnauzer window displays a pop-up menu with
296additional actions.
297
298=head1 FILES
299
300When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
301it were a perl script. in that, you will mostly load plug-ins.
302
303Example:
304
305 system "fping -q -t 10 ether"
306 or require "/fs/cv/cvplugin.pl";
307
308This will load a plug-in, but only if the machine I<ether> is reachable
309(supposedly the plug-in is networked in some way :).
310
311=head1 ENVIRONMENT
312
313=over 4
314
315=item CV_EDITOR
316
317The program that gets executed when the user presses C<CTRL-e> in the
318Schnauzer or image window. The default is C<gimp>.
319
320=item CV_PRINT_DESTINATION
321
322The default (perl-style) destination to use in the print dialog.
323
324=item CV_TRASHCAN
325
326When set, must point to a directory where all files that are deleted are
327moved to. If unset, files that are deleted are really being deleted.
328
329=back
171 330
172=head1 SECURITY CONSIDERATIONS 331=head1 SECURITY CONSIDERATIONS
173 332
174CV uses Pixbuf to load images. Pixbuf is not considered safe for this 333CV uses Pixbuf to load images. Pixbuf is not considered safe for this
175purpose, though (from the gtk-2.2 release notes): 334purpose, though (from the gtk-2.2 release notes):
… …
179the likelyhood that there are additional problems where an invalid image 338the likelyhood that there are additional problems where an invalid image
180could cause gdk-pixbuf to crash or worse." 339could cause gdk-pixbuf to crash or worse."
181 340
182=head1 BUGS/TODO 341=head1 BUGS/TODO
183 342
343 Lots of functionality is missing.
344
184 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names 345 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
185 incompatible with utf-8 fails. 346 names incompatible might utf-8 fail.
186 347
187 rotate on disk 348 rotate on disk
188 print
189 lots of ui issues 349 lots of ui issues
190 save(?) 350 save(?)
191 preferences 351 preferences
192 ctrl-u in schnauzer
193 shift-cursor in schnauzer 352 shift-cursor in schnauzer
194 353
195=head1 AUTHOR 354=head1 AUTHOR
196 355
197Marc Lehmann <cv@plan9.de>. 356Marc Lehmann <cv@plan9.de>.

Diff Legend

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