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.54 by root, Fri Aug 19 00:19:52 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
144=head1 NAME 148=head1 NAME
145 149
146cv - a fast gtk+ image viewer modeled after xv 150cv - a fast gtk+ image viewer loosely modeled after XV
147 151
148=head1 SYNOPSIS 152=head1 SYNOPSIS
149 153
150 cv [file...] 154 cv [file...]
151 155
156=head1 FEATURES
157
158CV is supposed to work similar to the venerable XV image viewer, just
159faster. Why faster?
160
161=over 4
162
163=item * optimized directory scanning algorithm
164
165The directory scanning in CV plays some tricks that - on most modern
166filesystems - makes it possible to detect filetypes faster than stat()'ing
167every file. This makes CV suitable for directories with lots of files
168(10000+).
169
170This algorithm is quite unprecise - it doesn't make a difference between
171files, device nodes, symlinks and the like, and filetype detection is done
172using the file extension only.
173
174=item * queuing for all time-consuming background tasks
175
176All tasks, such as unlinking files or generating thumbnails, that can be
177done in the background will be done so - no waiting required, even when
178changing directories.
179
180=item * use of asynchronous I/O
181
182CV tries to use asynchronous I/O whereever it makes sense, for example
183while scanning directories, waiting for stat data, unlinking files or
184generating thumbnails. This usually decreases scanning times for large
185directories a bit (especially on RAID devices and over NFS) and makes CV
186much more interactive.
187
188=item * fast image loading
189
190The time span between the user issuing a command and displaying the new
191image should be as small as possible. CV uses optimized (especially
192for JPEG) loading functions and sacrifices some quality (e.g no gamma
193correction) to achieve this speed.
194
195=item * fast thumbnail creation
196
197Thumbnail creation is crucial for me, so it's better be fast. Thumbnail
198creation for JPEGs has been specially optimized.
199
200=item * minimum optical clutter
201
202CV has no menus or other user interface elements that take up a lot of
203screen space. The schnauzer windows can also be somewhat crowded.
204
205The point of an image viewer is viewing images, not a nice GUI. This is
206similar to XV's behaviour.
207
208=item * efficient (and hard to learn) user interface
209
210CV uses key combinations. A lot. If you are an experienced XV user, you
211will find most of these keys familiar. If not, CV might be hard to use at
212first, but will be an efficient tool later.
213
214=item * i18n'ed filename handling throughout
215
216As long as glib can recognize your filename encoding (either UTF-8 or
217locale-specific, depending on your settings) and you have the relevant
218fonts, CV will display your filenames correctly.
219
220=item * extensible through plug-ins
221
222I have weird plug-ins that access remote databases to find a
223directory. This is not likely to be of any use to other people. Likewise,
224others might have weird requirements I cannot dream of.
225
226=item * filename clustering
227
228Among the standard plug-ins is a filename clustering plug-in, that (in
229case of tens of thousands images in one directory) might be able to
230cluster similar names together.
231
232=back
233
152=head1 DESCRIPTION 234=head1 DESCRIPTION
153 235
154None yet.
155
156=head2 THE IMAGE WINDOW 236=head2 THE IMAGE WINDOW
157 237
158You can use the following keys in the image window: 238You can use the following keys in the image window:
159 239
160 q quit the program 240 q quit the program
161 < half the image size 241 < half the image size
162 > double the image size 242 > double the image size
163 , shrink the image by 10% 243 , shrink the image by 10%
164 . enlarge the image by 10% 244 . enlarge the image by 10%
165 n reset to normal size 245 n reset to normal size
166 m maximize to screensize 246 m maximize to screensize
167 M maxime to screensize, respecting image aspect 247 M maximize to screensize, respecting image aspect
168 ctrl-m toggle maxpect-always mode 248 ctrl-m toggle maxpect-always mode
169 u uncrop 249 u uncrop
170 r set scaling mode to 'nearest' (fastest) 250 r set scaling mode to 'nearest' (fastest)
171 s set scaling mode to 'bilinear' (default) 251 s set scaling mode to 'bilinear' (default)
172 S set scaling mode to 'hyper' (slowest) 252 shift-s set scaling mode to 'hyper' (slowest)
173 t rotate clockwise 90° 253 t rotate clockwise 90°
174 T rotate counterclockwise° 254 T rotate counterclockwise°
175 ctrl-v open a new visual schnauzer window for the current dir 255 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. 256 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
257 ctrl-p fire up the print fialog
258 escape cancel a crop action
178 259
179And when playing movies, these additional keys are active: 260And when playing movies, these additional keys are active:
180 261
181 left rewind by 10 seconds 262 left rewind by 10 seconds
182 right forward by 10 seconds 263 right forward by 10 seconds
183 down rewind by 60 seconds 264 down rewind by 60 seconds
184 up forward by 60 seconds 265 up forward by 60 seconds
185 pg_up rewind by 600 seconds 266 pg_up rewind by 600 seconds
186 pg_down forward by 600 seconds 267 pg_down forward by 600 seconds
187 o toggle on-screen display 268 o toggle on-screen display
188 p pause/unpause 269 p pause/unpause
189 escape stop playing 270 escape stop playing
190 9 turn volume down 271 9 turn volume down
191 0 turn volume up 272 0 turn volume up
192 273
193The following keys are redirected to the default visual schnauzer window: 274Any other keys will be sent to the default schnauzer window, which can be
275toggled on and off by right-clicking into the image window.
194 276
195 space next image 277Left-clicking into the image window will let you crop the image (usually
196 backspace last image 278to zoom into large images that CV scales down).
197 279
198=head2 THE VISUAL SCHNAUZER 280=head2 THE VISUAL SCHNAUZER
199 281
200You can use the following keys in the schnauzer window: 282You can use the following keys in the schnauzer window:
201 283
284 ctrl-space,
202 space move to and display next image 285 space move to and display next image
286 ctrl-backspace,
203 backspace move to and display previous image 287 backspace move to and display previous image
288 ctrl-return,
204 return display selected picture 289 return display selected picture, or enter directory
205 290
206 cursor keys move selection 291 cursor keys move selection
207 page-up move one page up 292 page-up move one page up
208 page-down move one page down 293 page-down move one page down
209 home move to first file 294 home move to first file
210 end move to last file 295 end move to last file
211 296
297 ctrl-a select all files
298 ctrl-shift-a select all files currently displayed in the schnauzer window
212 ctrl-d delete selected files WITHOUT ASKING AGAIN 299 ctrl-d delete selected files WITHOUT ASKING AGAIN
213 ctrl-g generate icons for the selected files 300 ctrl-g force generation of thumbnais for the selected files
301 ctrl-s rescan current direcory or files updates/deletes etc.
214 ctrl-u update selected (or all) icons if neccessary 302 ctrl-u update selected (or all) icons if neccessary
215 ctrl-a select all files 303 ctrl-l don't use, will become a plug-in eventually
304
305 0-9,
306 a-z find the first filename beginning with this letter
307
308Right-clicking into the schnauzer window displays a pop-up menu with
309additional actions.
310
311=head1 FILES
312
313When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
314it were a perl script. in that, you will mostly load plug-ins.
315
316Example:
317
318 system "fping -q -t 10 ether"
319 or require "/fs/cv/cvplugin.pl";
320
321This will load a plug-in, but only if the machine I<ether> is reachable
322(supposedly the plug-in is networked in some way :).
216 323
217=head1 ENVIRONMENT 324=head1 ENVIRONMENT
218 325
219=over 4 326=over 4
220 327
… …
234 341
235=back 342=back
236 343
237=head1 SECURITY CONSIDERATIONS 344=head1 SECURITY CONSIDERATIONS
238 345
239CV uses Pixbuf to load images. Pixbuf is not considered safe for this 346CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
240purpose, though (from the gtk-2.2 release notes): 347this purpose, though (from the gtk-2.2 release notes):
241 348
242"While efforts have been made to make gdk-pixbuf robust against invalid 349"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 350images, using gdk-pixbuf to load untrusted data is not recommended, due to
244the likelyhood that there are additional problems where an invalid image 351the likelyhood that there are additional problems where an invalid image
245could cause gdk-pixbuf to crash or worse." 352could cause gdk-pixbuf to crash or worse."
246 353
247=head1 BUGS/TODO 354=head1 BUGS/TODO
248 355
356 Lots of functionality is missing.
357
249 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names 358 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
250 incompatible with utf-8 fails. 359 names incompatible with utf-8 might fail.
251 360
252 rotate on disk 361 rotate on disk
253 print
254 lots of ui issues 362 lots of ui issues
255 save(?) 363 save(?)
256 preferences 364 preferences
257 ctrl-u in schnauzer
258 shift-cursor in schnauzer
259 365
260=head1 AUTHOR 366=head1 AUTHOR
261 367
262Marc Lehmann <cv@plan9.de>. 368Marc Lehmann <cv@plan9.de>.
263 369

Diff Legend

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