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

Comparing CV/bin/cv (file contents):
Revision 1.13 by root, Wed Nov 5 02:05:25 2003 UTC vs.
Revision 1.41 by root, Mon Jun 27 19:42:53 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 });
40 $s->signal_connect (chdir => sub {
41 my ($self, $dir) = @_;
18 42
19 $s->set_dir ("."); 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);
20 55
21 $s; 56 $s;
22} 57}
23 58
24sub std_keys { 59sub std_keys {
25 my $key = $_[1]->keyval; 60 my $key = $_[1]->keyval;
26 my $state = $_[1]->state; 61 my $state = $_[1]->state;
27 62
28 my $ctrl = grep $_ eq "control-mask", @$state; 63 my $ctrl = $state * "control-mask";
29 64
30 if ($key == $Gtk2::Gdk::Keysyms{q}) { 65 if ($key == $Gtk2::Gdk::Keysyms{q}) {
31 main_quit Gtk2; 66 main_quit Gtk2;
32 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 67 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
33 new_schnauzer->get_toplevel->show_all; 68 my $w = new Gtk2::Window;
69
70 $w->set_title ("CV: Schnauzer");
71 $w->add (my $s = new_schnauzer);
72 $s->set_dir (File::Spec->curdir);
73 $s->set_geometry_hints;
74 $w->show_all;
75
76 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
77 unless ($help) {
78 require Gtk2::PodViewer;
79
80 $help = new Gtk2::Window;
81 $help->set_title ("CV: Help");
82 $help->set_default_size (500, 300);
83 $help->signal_connect (delete_event => sub { $help->hide; 1 });
84
85 $help->add (my $sw = new Gtk2::ScrolledWindow);
86 $sw->add (my $h = new Gtk2::PodViewer);
87
88 #binmode DATA, ":utf8";
89 $h->load_string (do { local $/; <DATA> });
90 }
91
92 $help->show_all;
34 } else { 93 } else {
35 $schnauzer->handle_key ($key, $state); 94 #$mainwin->show_all;
95 return $self->{schnauzer}->signal_emit (key_press_event => $_[1]);
36 } 96 }
37 97
38 1; 98 1;
39} 99}
40 100
101{
41$viewer = new Gtk2::CV::ImageWindow; 102 $viewer = new Gtk2::CV::ImageWindow;
103
104 $viewer->set_title ("CV: Image");
105
42$viewer->signal_connect (key_press_event => \&std_keys); 106 $viewer->signal_connect (key_press_event => \&std_keys);
43$viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 107 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
44 108
45$schnauzer = new_schnauzer;
46
47my $mainwin = $schnauzer->get_toplevel;
48
49$viewer->signal_connect (button3_press_event => sub { 109 $viewer->signal_connect (button3_press_event => sub {
50 $mainwin->visible 110 $mainwin->visible
51 ? $mainwin->hide 111 ? $mainwin->hide
52 : $mainwin->show_all; 112 : $mainwin->show_all;
53}); 113 1;
114 });
115
116 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
117
118 $schnauzer = new_schnauzer;
119
120 $mainwin = new Gtk2::Window;
121 $mainwin->set_title ("CV");
122 $mainwin->add (my $vbox = new Gtk2::VBox);
123 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
124
125 $vbox->add ($schnauzer);
126 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
127 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
128 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
129 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
130 $info->set (wrap => 1);
131
132 $schnauzer->set_geometry_hints;
133}
54 134
55if (@ARGV) { 135if (@ARGV) {
56 $viewer->load_image ($ARGV[0]); 136 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
57 137 $schnauzer->show_all;
58 if (@ARGV > 1) { 138 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
59 $schnauzer->set_paths (\@ARGV); 139} else {
60 } 140 $schnauzer->set_dir (File::Spec->curdir);
141 $mainwin->show_all;
142 $viewer->show_all;
61} 143}
62 144
63$viewer->show_all; 145$viewer->show_all;
64 146
65main Gtk2; 147main Gtk2;
148
149__DATA__
66 150
67=head1 NAME 151=head1 NAME
68 152
69cv - a fast gtk+ image viewer modeled after xv 153cv - a fast gtk+ image viewer modeled after xv
70 154
… …
86 , shrink the image by 10% 170 , shrink the image by 10%
87 . enlarge the image by 10% 171 . enlarge the image by 10%
88 n reset to normal size 172 n reset to normal size
89 m maximize to screensize 173 m maximize to screensize
90 M maxime to screensize, respecting image aspect 174 M maxime to screensize, respecting image aspect
175 ctrl-m toggle maxpect-always mode
91 u uncrop 176 u uncrop
92 r set scaling mode to 'nearest' (fastest) 177 r set scaling mode to 'nearest' (fastest)
93 s set scaling mode to 'bilinear' (default) 178 s set scaling mode to 'bilinear' (default)
94 S set scaling mode to 'hyper' (slowest) 179 S set scaling mode to 'hyper' (slowest)
95 t rotate clockwise 90° 180 t rotate clockwise 90°
96 T rotate counterclockwise° 181 T rotate counterclockwise°
97 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
98 199
99The following keys are redirected to the default visual schnauzer window: 200The following keys are redirected to the default visual schnauzer window:
100 201
101 space next image 202 space next image
102 backspace last image 203 backspace last image
… …
113 page-up move one page up 214 page-up move one page up
114 page-down move one page down 215 page-down move one page down
115 home move to first file 216 home move to first file
116 end move to last file 217 end move to last file
117 218
219 ctrl-d delete selected files WITHOUT ASKING AGAIN
118 ctrl-g generate icons for the selected files 220 ctrl-g generate icons for the selected files
119 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."
120 253
121=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.
122 258
123 rotate on disk 259 rotate on disk
124 print 260 print
125 lots of ui issues 261 lots of ui issues
126 save(?) 262 save(?)

Diff Legend

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