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

Comparing CV/bin/cv (file contents):
Revision 1.10 by root, Tue Nov 4 02:48:09 2003 UTC vs.
Revision 1.44 by root, Fri Jul 15 03:25:57 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;
7use Gtk2::CV::Schnauzer; 10use Gtk2::CV::Schnauzer;
8 11
12use Gtk2::CV;
13
14Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
15
16use File::Spec;
17
18require Gtk2::CV::Plugin;
19require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
20
21my $mainwin;
9my $viewer; 22my $viewer;
10my $schnauzer; 23my $schnauzer;
24my $info;
25my $help;
26
27my $schnauzer_idx = 0;
11 28
12sub new_schnauzer { 29sub new_schnauzer {
13 my $w = new Gtk2::Window;
14 $w->add (my $s = new Gtk2::CV::Schnauzer); 30 my $s = new Gtk2::CV::Schnauzer;
15 31
16 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
17 $s->signal_connect_after (key_press_event => \&std_keys); 32 $s->signal_connect_after (key_press_event => \&std_keys);
33 $s->signal_connect (activate => sub {
34 my $label = sprintf "%s (%d)",
35 (File::Spec->splitpath ($_[1]))[2],
36 -s $_[1];
37 $info->set_label ($label);
38 $viewer->load_image ($_[1]);
39 });
18 40
19 $s->set_dir ("."); 41 Gtk2::CV::Plugin->call (new_schnauzer => $s);
20 $w->show_all;
21 42
22 $s; 43 $s;
23} 44}
24 45
25sub std_keys { 46sub std_keys {
26 my $key = $_[1]->keyval; 47 my $key = $_[1]->keyval;
27 my $state = $_[1]->state; 48 my $state = $_[1]->state;
28 49
29 my $ctrl = grep $_ eq "control-mask", @$state; 50 my $ctrl = $state * "control-mask";
30 51
31 if ($key == $Gtk2::Gdk::Keysyms{q}) { 52 if ($key == $Gtk2::Gdk::Keysyms{q}) {
32 main_quit Gtk2; 53 main_quit Gtk2;
33 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 54 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
34 new_schnauzer; 55 my $w = new Gtk2::Window;
56
57 $w->set_title ("CV: Schnauzer");
58 $w->add (my $s = new_schnauzer);
59 $s->set_dir (File::Spec->curdir);
60 $s->set_geometry_hints;
61 $w->show_all;
62
63 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
64 unless ($help) {
65 require Gtk2::PodViewer;
66
67 $help = new Gtk2::Window;
68 $help->set_title ("CV: Help");
69 $help->set_default_size (500, 300);
70 $help->signal_connect (delete_event => sub { $help->hide; 1 });
71
72 $help->add (my $sw = new Gtk2::ScrolledWindow);
73 $sw->add (my $h = new Gtk2::PodViewer);
74
75 #binmode DATA, ":utf8";
76 $h->load_string (do { local $/; <DATA> });
77 }
78
79 $help->show_all;
35 } else { 80 } else {
36 $schnauzer->handle_key ($key, $state); 81 return 0;
37 } 82 }
38 83
39 1; 84 1
40} 85}
41 86
87{
42$viewer = new Gtk2::CV::ImageWindow; 88 $viewer = new Gtk2::CV::ImageWindow;
89
90 $viewer->set_title ("CV: Image");
91
43$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 });
44$viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 96 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
45 97
98 $viewer->signal_connect (button3_press_event => sub {
99 $mainwin->visible
100 ? $mainwin->hide
101 : $mainwin->show_all;
102 1;
103 });
104
105 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
106
46$schnauzer = new_schnauzer; 107 $schnauzer = new_schnauzer;
108
109 $mainwin = new Gtk2::Window;
110 $mainwin->set_title ("CV");
111 $mainwin->add (my $vbox = new Gtk2::VBox);
112 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
113
114 $vbox->add ($schnauzer);
115 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
116 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
117 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
118 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
119 $info->set (wrap => 1);
120
121 $schnauzer->set_geometry_hints;
122}
47 123
48if (@ARGV) { 124if (@ARGV) {
49 $viewer->load_image ($ARGV[0]); 125 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
50 126 $schnauzer->show_all;
51 if (@ARGV > 1) { 127 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
52 $schnauzer->set_paths (\@ARGV); 128} else {
53 } 129 $schnauzer->set_dir (File::Spec->curdir);
130 $mainwin->show_all;
131 $viewer->show_all;
54} 132}
55 133
56$viewer->show_all; 134$viewer->show_all;
57 135
58main Gtk2; 136main Gtk2;
59 137
138__DATA__
60 139
140=head1 NAME
141
142cv - a fast gtk+ image viewer modeled after xv
143
144=head1 SYNOPSIS
145
146 cv [file...]
147
148=head1 DESCRIPTION
149
150None yet.
151
152=head2 THE IMAGE WINDOW
153
154You can use the following keys in the image window:
155
156 q quit the program
157 < half the image size
158 > double the image size
159 , shrink the image by 10%
160 . enlarge the image by 10%
161 n reset to normal size
162 m maximize to screensize
163 M maxime to screensize, respecting image aspect
164 ctrl-m toggle maxpect-always mode
165 u uncrop
166 r set scaling mode to 'nearest' (fastest)
167 s set scaling mode to 'bilinear' (default)
168 S set scaling mode to 'hyper' (slowest)
169 t rotate clockwise 90°
170 T rotate counterclockwise°
171 ctrl-v open a new visual schnauzer window for the current dir
172 ctrl-s rescan visual schnauzer files for updates/deletes etc.
173 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image.
174
175And when playing movies, these additional keys are active:
176
177 left rewind by 10 seconds
178 right forward by 10 seconds
179 down rewind by 60 seconds
180 up forward by 60 seconds
181 pg_up rewind by 600 seconds
182 pg_down forward by 600 seconds
183 o toggle on-screen display
184 p pause/unpause
185 escape stop playing
186 9 turn volume down
187 0 turn volume up
188
189The following keys are redirected to the default visual schnauzer window:
190
191 space next image
192 backspace last image
193
194=head2 THE VISUAL SCHNAUZER
195
196You can use the following keys in the schnauzer window:
197
198 space move to and display next image
199 backspace move to and display previous image
200 return display selected picture
201
202 cursor keys move selection
203 page-up move one page up
204 page-down move one page down
205 home move to first file
206 end move to last file
207
208 ctrl-d delete selected files WITHOUT ASKING AGAIN
209 ctrl-g generate icons for the selected files
210 ctrl-u update selected (or all) icons if neccessary
211 ctrl-a select all files
212
213=head1 ENVIRONMENT
214
215=over 4
216
217=item CV_EDITOR
218
219The program that gets executed when the user presses C<CTRL-e> in the
220Schnauzer or image window. The default is C<gimp>.
221
222=item CV_PRINT_DESTINATION
223
224The default (perl-style) destination to use in the print dialog.
225
226=item CV_TRASHCAN
227
228When set, must point to a directory where all files that are deleted are
229moved to. If unset, files that are deleted are really being deleted.
230
231=back
232
233=head1 SECURITY CONSIDERATIONS
234
235CV uses Pixbuf to load images. Pixbuf is not considered safe for this
236purpose, though (from the gtk-2.2 release notes):
237
238"While efforts have been made to make gdk-pixbuf robust against invalid
239images, using gdk-pixbuf to load untrusted data is not recommended, due to
240the likelyhood that there are additional problems where an invalid image
241could cause gdk-pixbuf to crash or worse."
242
243=head1 BUGS/TODO
244
245 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
246 incompatible with utf-8 fails.
247
248 rotate on disk
249 print
250 lots of ui issues
251 save(?)
252 preferences
253 ctrl-u in schnauzer
254 shift-cursor in schnauzer
255
256=head1 AUTHOR
257
258Marc Lehmann <cv@plan9.de>.
259
260=cut
261

Diff Legend

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