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

Comparing CV/bin/cv (file contents):
Revision 1.21 by root, Sat Nov 8 01:00:08 2003 UTC vs.
Revision 1.40 by root, Mon Jun 27 18:25:50 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);
… …
27 (File::Spec->splitpath ($_[1]))[2], 35 (File::Spec->splitpath ($_[1]))[2],
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 });
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
54 Gtk2::CV::Plugin->call (new_schnauzer => $s);
32 55
33 $s; 56 $s;
34} 57}
35 58
36sub std_keys { 59sub std_keys {
… …
41 64
42 if ($key == $Gtk2::Gdk::Keysyms{q}) { 65 if ($key == $Gtk2::Gdk::Keysyms{q}) {
43 main_quit Gtk2; 66 main_quit Gtk2;
44 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 67 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
45 my $w = new Gtk2::Window; 68 my $w = new Gtk2::Window;
69
70 $w->set_title ("CV: Schnauzer");
46 $w->add (my $s = new_schnauzer); 71 $w->add (my $s = new_schnauzer);
47 $s->set_dir (File::Spec->curdir); 72 $s->set_dir (File::Spec->curdir);
73 $s->set_geometry_hints;
48 $w->show_all; 74 $w->show_all;
75
49 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { 76 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
50 unless ($help) { 77 unless ($help) {
51 require Gtk2::PodViewer; 78 require Gtk2::PodViewer;
52 79
53 $help = new Gtk2::Window; 80 $help = new Gtk2::Window;
54 $help->set_title ("CV Help"); 81 $help->set_title ("CV: Help");
55 $help->set_default_size (500, 300); 82 $help->set_default_size (500, 300);
56 $help->signal_connect (delete_event => sub { $help->hide; 1 }); 83 $help->signal_connect (delete_event => sub { $help->hide; 1 });
57 84
58 $help->add (my $sw = new Gtk2::ScrolledWindow); 85 $help->add (my $sw = new Gtk2::ScrolledWindow);
59 $sw->add (my $h = new Gtk2::PodViewer); 86 $sw->add (my $h = new Gtk2::PodViewer);
… …
81 108
82 $viewer->signal_connect (button3_press_event => sub { 109 $viewer->signal_connect (button3_press_event => sub {
83 $mainwin->visible 110 $mainwin->visible
84 ? $mainwin->hide 111 ? $mainwin->hide
85 : $mainwin->show_all; 112 : $mainwin->show_all;
113 1;
86 }); 114 });
115
116 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
87 117
88 $schnauzer = new_schnauzer; 118 $schnauzer = new_schnauzer;
89 119
90 $mainwin = new Gtk2::Window; 120 $mainwin = new Gtk2::Window;
91 $mainwin->set_title ("CV"); 121 $mainwin->set_title ("CV");
92 $mainwin->add (my $vbox = new Gtk2::VBox); 122 $mainwin->add (my $vbox = new Gtk2::VBox);
123 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
93 124
94 $vbox->add ($schnauzer); 125 $vbox->add ($schnauzer);
95 $vbox->add (my $frame = new Gtk2::Frame); 126 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
96 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 127 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
97 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); 128 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
98 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); 129 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
130 $info->set (wrap => 1);
131
132 $schnauzer->set_geometry_hints;
99} 133}
100 134
101if (@ARGV) { 135if (@ARGV) {
102 $schnauzer->set_paths (\@ARGV); 136 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
137 $schnauzer->show_all;
103 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 138 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
104} else { 139} else {
105 $schnauzer->set_dir (File::Spec->curdir); 140 $schnauzer->set_dir (File::Spec->curdir);
106 $mainwin->show_all; 141 $mainwin->show_all;
142 $viewer->show_all;
107} 143}
108 144
109$viewer->show_all; 145$viewer->show_all;
110 146
111main Gtk2; 147main Gtk2;
… …
134 , shrink the image by 10% 170 , shrink the image by 10%
135 . enlarge the image by 10% 171 . enlarge the image by 10%
136 n reset to normal size 172 n reset to normal size
137 m maximize to screensize 173 m maximize to screensize
138 M maxime to screensize, respecting image aspect 174 M maxime to screensize, respecting image aspect
175 ctrl-m toggle maxpect-always mode
139 u uncrop 176 u uncrop
140 r set scaling mode to 'nearest' (fastest) 177 r set scaling mode to 'nearest' (fastest)
141 s set scaling mode to 'bilinear' (default) 178 s set scaling mode to 'bilinear' (default)
142 S set scaling mode to 'hyper' (slowest) 179 S set scaling mode to 'hyper' (slowest)
143 t rotate clockwise 90° 180 t rotate clockwise 90°
144 T rotate counterclockwise° 181 T rotate counterclockwise°
145 ctrl-v open a new visual schnauzer window for the current dir 182 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.
185
186And when playing movies, these additional keys are active:
187
188 left rewind by 10 seconds
189 right forward by 10 seconds
190 down rewind by 60 seconds
191 up forward by 60 seconds
192 pg_up rewind by 600 seconds
193 pg_down forward by 600 seconds
194 o toggle on-screen display
195 p pause/unpause
196 escape stop playing
197 9 turn volume down
198 0 turn volume up
146 199
147The following keys are redirected to the default visual schnauzer window: 200The following keys are redirected to the default visual schnauzer window:
148 201
149 space next image 202 space next image
150 backspace last image 203 backspace last image
… …
161 page-up move one page up 214 page-up move one page up
162 page-down move one page down 215 page-down move one page down
163 home move to first file 216 home move to first file
164 end move to last file 217 end move to last file
165 218
219 ctrl-d delete selected files WITHOUT ASKING AGAIN
166 ctrl-g generate icons for the selected files 220 ctrl-g generate icons for the selected files
167 ctrl-d delete selected files WITHOUT ASKING AGAIN 221 ctrl-u update selected (or all) icons if neccessary
222 ctrl-a select all files
223
224=head1 ENVIRONMENT
225
226=over 4
227
228=item CV_EDITOR
229
230The program that gets executed when the user presses C<CTRL-e> in the
231Schnauzer or image window. The default is C<gimp>.
232
233=item CV_PRINT_DESTINATION
234
235The default (perl-style) destination to use in the print dialog.
236
237=item CV_TRASHCAN
238
239When set, must point to a directory where all files that are deleted are
240moved to. If unset, files that are deleted are really being deleted.
241
242=back
243
244=head1 SECURITY CONSIDERATIONS
245
246CV uses Pixbuf to load images. Pixbuf is not considered safe for this
247purpose, though (from the gtk-2.2 release notes):
248
249"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
251the likelyhood that there are additional problems where an invalid image
252could cause gdk-pixbuf to crash or worse."
168 253
169=head1 BUGS/TODO 254=head1 BUGS/TODO
255
256 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
257 incompatible with utf-8 fails.
170 258
171 rotate on disk 259 rotate on disk
172 print 260 print
173 lots of ui issues 261 lots of ui issues
174 save(?) 262 save(?)

Diff Legend

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