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

Comparing CV/bin/cv (file contents):
Revision 1.8 by root, Mon Nov 3 16:44:19 2003 UTC vs.
Revision 1.29 by root, Fri Nov 14 00:38:43 2003 UTC

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

Diff Legend

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