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

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

Diff Legend

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