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

Comparing CV/bin/cv (file contents):
Revision 1.39 by root, Sun May 1 05:53:40 2005 UTC vs.
Revision 1.58 by root, Wed Sep 7 20:17:25 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 25
… …
32 (File::Spec->splitpath ($_[1]))[2], 40 (File::Spec->splitpath ($_[1]))[2],
33 -s $_[1]; 41 -s $_[1];
34 $info->set_label ($label); 42 $info->set_label ($label);
35 $viewer->load_image ($_[1]); 43 $viewer->load_image ($_[1]);
36 }); 44 });
37 $s->signal_connect (chdir => sub {
38 my ($self, $dir) = @_;
39 45
40 my $path = Cwd::abs_path $dir; 46 Gtk2::CV::Plugin->call (new_schnauzer => $s);
41 47
42 $self->realize;
43 $self->window->property_change (
44 Gtk2::Gdk::Atom->intern ("_X_CWD", 0),
45 Gtk2::Gdk::Atom->intern ("UTF8_STRING", 0),
46 Gtk2::Gdk::CHARS, 'replace',
47 Encode::encode_utf8 $path,
48 );
49 });
50
51 $s; 48 $s
52} 49}
53 50
54sub std_keys { 51sub std_keys {
55 my $key = $_[1]->keyval; 52 my $key = $_[1]->keyval;
56 my $state = $_[1]->state; 53 my $state = $_[1]->state;
… …
84 $h->load_string (do { local $/; <DATA> }); 81 $h->load_string (do { local $/; <DATA> });
85 } 82 }
86 83
87 $help->show_all; 84 $help->show_all;
88 } else { 85 } else {
89 #$mainwin->show_all; 86 return 0;
90 $schnauzer->handle_key ($key, $state);
91 } 87 }
92 88
93 1; 89 1
94} 90}
95 91
96{ 92{
97 $viewer = new Gtk2::CV::ImageWindow; 93 $viewer = new Gtk2::CV::ImageWindow;
98 94
99 $viewer->set_title ("CV: Image"); 95 $viewer->set_title ("CV: Image");
100 96
101 $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 });
102 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 101 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
103 102
104 $viewer->signal_connect (button3_press_event => sub { 103 $viewer->signal_connect (button3_press_event => sub {
105 $mainwin->visible 104 $mainwin->visible
106 ? $mainwin->hide 105 ? $mainwin->hide
107 : $mainwin->show_all; 106 : $mainwin->show_all;
108 1; 107 1
109 }); 108 });
109
110 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
110 111
111 $schnauzer = new_schnauzer; 112 $schnauzer = new_schnauzer;
112 113
113 $mainwin = new Gtk2::Window; 114 $mainwin = new Gtk2::Window;
114 $mainwin->set_title ("CV"); 115 $mainwin->set_title ("CV");
115 $mainwin->add (my $vbox = new Gtk2::VBox); 116 $mainwin->add (my $vbox = new Gtk2::VBox);
116 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; }); 117 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
117 118
118 $vbox->add ($schnauzer); 119 $vbox->add ($schnauzer);
119 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); 120 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
120 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 121 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
121 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); 122 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
122 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); 123 $hbox->pack_end (my $labelwindow = new Gtk2::EventBox, 1, 1, 0);
123 $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");
124 127
125 $schnauzer->set_geometry_hints; 128 $schnauzer->set_geometry_hints;
126} 129}
127 130
128if (@ARGV) { 131if (@ARGV) {
132 @ARGV == 1 && -d $ARGV[0]
133 ? $schnauzer->set_dir (Glib::filename_to_unicode shift)
129 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]); 134 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
130 $schnauzer->show_all; 135 $schnauzer->show_all;
131 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 136 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
132} else { 137} else {
133 $schnauzer->set_dir (File::Spec->curdir); 138 $schnauzer->set_dir (File::Spec->curdir);
134 $mainwin->show_all; 139 $mainwin->show_all;
135 $viewer->show_all;
136} 140}
137 141
138$viewer->show_all; 142$viewer->show_all;
139 143
140main Gtk2; 144main Gtk2;
141 145
142__DATA__ 146__DATA__
143 147
148=encoding utf-8
149
144=head1 NAME 150=head1 NAME
145 151
146cv - a fast gtk+ image viewer modeled after xv 152cv - a fast gtk+ image viewer loosely modeled after XV
147 153
148=head1 SYNOPSIS 154=head1 SYNOPSIS
149 155
150 cv [file...] 156 cv [file...]
151 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
152=head1 DESCRIPTION 249=head1 DESCRIPTION
153 250
154None yet.
155
156=head2 THE IMAGE WINDOW 251=head2 THE IMAGE WINDOW
157 252
158You can use the following keys in the image window: 253You can use the following keys in the image window:
159 254
160 q quit the program 255 q quit the program
161 < half the image size 256 < half the image size
162 > double the image size 257 > double the image size
163 , shrink the image by 10% 258 , shrink the image by 10%
164 . enlarge the image by 10% 259 . enlarge the image by 10%
165 n reset to normal size 260 n reset to normal size
166 m maximize to screensize 261 m maximize to screensize
167 M maxime to screensize, respecting image aspect 262 M maximize to screensize, respecting image aspect
168 ctrl-m toggle maxpect-always mode 263 ctrl-m toggle maxpect-always mode
169 u uncrop 264 u uncrop
170 r set scaling mode to 'nearest' (fastest) 265 r set scaling mode to 'nearest' (fastest)
171 s set scaling mode to 'bilinear' (default) 266 s set scaling mode to 'bilinear' (default)
172 S set scaling mode to 'hyper' (slowest) 267 shift-s set scaling mode to 'hyper' (slowest)
173 t rotate clockwise 90° 268 t rotate clockwise 90°
174 T rotate counterclockwise° 269 T rotate counterclockwise°
175 ctrl-v open a new visual schnauzer window for the current dir 270 ctrl-v open a new visual schnauzer window for the current dir
176 ctrl-s rescan visual schnauzer files for updates/deletes etc.
177 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image. 271 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
272 ctrl-p fire up the print dialog
273 escape cancel a crop action
178 274
179And when playing movies, these additional keys are active: 275And when playing movies, these additional keys are active:
180 276
181 left rewind by 10 seconds 277 left rewind by 10 seconds
182 right forward by 10 seconds 278 right forward by 10 seconds
183 down rewind by 60 seconds 279 down rewind by 60 seconds
184 up forward by 60 seconds 280 up forward by 60 seconds
185 pg_up rewind by 600 seconds 281 pg_up rewind by 600 seconds
186 pg_down forward by 600 seconds 282 pg_down forward by 600 seconds
187 o toggle on-screen display 283 o toggle on-screen display
188 p pause/unpause 284 p pause/unpause
189 escape stop playing 285 escape stop playing
190 9 turn volume down 286 9 turn volume down
191 0 turn volume up 287 0 turn volume up
192 288
193The following keys are redirected to the default visual schnauzer window: 289Any other keys will be sent to the default schnauzer window, which can be
290toggled on and off by right-clicking into the image window.
194 291
195 space next image 292Left-clicking into the image window will let you crop the image (usually
196 backspace last image 293to zoom into large images that CV scales down).
197 294
198=head2 THE VISUAL SCHNAUZER 295=head2 THE VISUAL SCHNAUZER
199 296
200You can use the following keys in the schnauzer window: 297You can use the following keys in the schnauzer window:
201 298
299 ctrl-space,
202 space move to and display next image 300 space move to and display next image
301 ctrl-backspace,
203 backspace move to and display previous image 302 backspace move to and display previous image
303 ctrl-return,
204 return display selected picture 304 return display selected picture, or enter directory
205 305
206 cursor keys move selection 306 cursor keys move selection
207 page-up move one page up 307 page-up move one page up
208 page-down move one page down 308 page-down move one page down
209 home move to first file 309 home move to first file
210 end move to last file 310 end move to last file
211 311
312 ctrl-a select all files
313 ctrl-shift-a select all files currently displayed in the schnauzer window
212 ctrl-d delete selected files WITHOUT ASKING AGAIN 314 ctrl-d delete selected files WITHOUT ASKING AGAIN
213 ctrl-g generate icons for the selected files 315 ctrl-g force generation of thumbnais for the selected files
316 ctrl-s rescan current direcory or files updates/deletes etc.
214 ctrl-u update selected (or all) icons if neccessary 317 ctrl-u update selected (or all) icons if neccessary
215 ctrl-a select all files 318 ctrl-l don't use, will become a plug-in eventually
319
320 ^ go to parent directory (caret).
321
322 0-9,
323 a-z find the first filename beginning with this letter
324
325Right-clicking into the schnauzer window displays a pop-up menu with
326additional actions.
327
328=head1 FILES
329
330When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
331it were a perl script. in that, you will mostly load plug-ins.
332
333Example:
334
335 system "fping -q -t 10 ether"
336 or require "/fs/cv/cvplugin.pl";
337
338This will load a plug-in, but only if the machine I<ether> is reachable
339(supposedly the plug-in is networked in some way :).
216 340
217=head1 ENVIRONMENT 341=head1 ENVIRONMENT
218 342
219=over 4 343=over 4
220 344
… …
234 358
235=back 359=back
236 360
237=head1 SECURITY CONSIDERATIONS 361=head1 SECURITY CONSIDERATIONS
238 362
239CV uses Pixbuf to load images. Pixbuf is not considered safe for this 363CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
240purpose, though (from the gtk-2.2 release notes): 364this purpose, though (from the gtk-2.2 release notes):
241 365
242"While efforts have been made to make gdk-pixbuf robust against invalid 366"While efforts have been made to make gdk-pixbuf robust against invalid
243images, using gdk-pixbuf to load untrusted data is not recommended, due to 367images, using gdk-pixbuf to load untrusted data is not recommended, due to
244the likelyhood that there are additional problems where an invalid image 368the likelyhood that there are additional problems where an invalid image
245could cause gdk-pixbuf to crash or worse." 369could cause gdk-pixbuf to crash or worse."
246 370
247=head1 BUGS/TODO 371=head1 BUGS/TODO
248 372
373 Lots of functionality is missing.
374
249 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names 375 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
250 incompatible with utf-8 fails. 376 names incompatible with utf-8 might fail.
251 377
252 rotate on disk 378 rotate on disk
253 print
254 lots of ui issues 379 lots of ui issues
255 save(?) 380 save(?)
256 preferences 381 preferences
257 ctrl-u in schnauzer
258 shift-cursor in schnauzer
259 382
260=head1 AUTHOR 383=head1 AUTHOR
261 384
262Marc Lehmann <cv@plan9.de>. 385Marc Lehmann <cv@plan9.de>.
263 386

Diff Legend

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