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.21 by root, Sat Nov 8 01:00:08 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;
10my $schnauzer; 17my $schnauzer;
18my $info;
19my $help;
11 20
12sub new_schnauzer { 21sub new_schnauzer {
13 my $w = new Gtk2::Window;
14 $w->add (my $s = new Gtk2::CV::Schnauzer); 22 my $s = new Gtk2::CV::Schnauzer;
15 23
16 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
17 $s->signal_connect_after (key_press_event => \&std_keys); 24 $s->signal_connect_after (key_press_event => \&std_keys);
18 25 $s->signal_connect (activate => sub {
19 $s->set_dir ("."); 26 my $label = sprintf "%s (%d)",
20 $w->show_all; 27 (File::Spec->splitpath ($_[1]))[2],
28 -s $_[1];
29 $info->set_label ($label);
30 $viewer->load_image ($_[1]);
31 });
21 32
22 $s; 33 $s;
23} 34}
24 35
25sub std_keys { 36sub std_keys {
26 my $key = $_[1]->keyval; 37 my $key = $_[1]->keyval;
27 my $state = $_[1]->state; 38 my $state = $_[1]->state;
28 39
29 my $ctrl = grep $_ eq "control-mask", @$state; 40 my $ctrl = $state * "control-mask";
30 41
31 if ($key == $Gtk2::Gdk::Keysyms{q}) { 42 if ($key == $Gtk2::Gdk::Keysyms{q}) {
32 main_quit Gtk2; 43 main_quit Gtk2;
33 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 44 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
34 new_schnauzer; 45 my $w = new Gtk2::Window;
46 $w->add (my $s = new_schnauzer);
47 $s->set_dir (File::Spec->curdir);
48 $w->show_all;
49 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
50 unless ($help) {
51 require Gtk2::PodViewer;
52
53 $help = new Gtk2::Window;
54 $help->set_title ("CV Help");
55 $help->set_default_size (500, 300);
56 $help->signal_connect (delete_event => sub { $help->hide; 1 });
57
58 $help->add (my $sw = new Gtk2::ScrolledWindow);
59 $sw->add (my $h = new Gtk2::PodViewer);
60
61 #binmode DATA, ":utf8";
62 $h->load_string (do { local $/; <DATA> });
63 }
64
65 $help->show_all;
35 } else { 66 } else {
67 #$mainwin->show_all;
36 $schnauzer->handle_key ($key, $state); 68 $schnauzer->handle_key ($key, $state);
37 } 69 }
38 70
39 1; 71 1;
40} 72}
41 73
74{
42$viewer = new Gtk2::CV::ImageWindow; 75 $viewer = new Gtk2::CV::ImageWindow;
43$viewer->signal_connect (key_press_event => \&std_keys);
44$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
45 76
77 $viewer->set_title ("CV: Image");
78
79 $viewer->signal_connect (key_press_event => \&std_keys);
80 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
81
82 $viewer->signal_connect (button3_press_event => sub {
83 $mainwin->visible
84 ? $mainwin->hide
85 : $mainwin->show_all;
86 });
87
46$schnauzer = new_schnauzer; 88 $schnauzer = new_schnauzer;
89
90 $mainwin = new Gtk2::Window;
91 $mainwin->set_title ("CV");
92 $mainwin->add (my $vbox = new Gtk2::VBox);
93
94 $vbox->add ($schnauzer);
95 $vbox->add (my $frame = new Gtk2::Frame);
96 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
97 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
98 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
99}
47 100
48if (@ARGV) { 101if (@ARGV) {
49 $viewer->load_image ($ARGV[0]);
50
51 if (@ARGV > 1) {
52 $schnauzer->set_paths (\@ARGV); 102 $schnauzer->set_paths (\@ARGV);
53 } 103 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
104} else {
105 $schnauzer->set_dir (File::Spec->curdir);
106 $mainwin->show_all;
54} 107}
55 108
56$viewer->show_all; 109$viewer->show_all;
57 110
58main Gtk2; 111main Gtk2;
59 112
113__DATA__
60 114
115=head1 NAME
116
117cv - a fast gtk+ image viewer modeled after xv
118
119=head1 SYNOPSIS
120
121 cv [file...]
122
123=head1 DESCRIPTION
124
125None yet.
126
127=head2 THE IMAGE WINDOW
128
129You can use the following keys in the image window:
130
131 q quit the program
132 < half the image size
133 > double the image size
134 , shrink the image by 10%
135 . enlarge the image by 10%
136 n reset to normal size
137 m maximize to screensize
138 M maxime to screensize, respecting image aspect
139 u uncrop
140 r set scaling mode to 'nearest' (fastest)
141 s set scaling mode to 'bilinear' (default)
142 S set scaling mode to 'hyper' (slowest)
143 t rotate clockwise 90°
144 T rotate counterclockwise°
145 ctrl-v open a new visual schnauzer window for the current dir
146
147The following keys are redirected to the default visual schnauzer window:
148
149 space next image
150 backspace last image
151
152=head2 THE VISUAL SCHNAUZER
153
154You can use the following keys in the schnauzer window:
155
156 space move to and display next image
157 backspace move to and display previous image
158 return display selected picture
159
160 cursor keys move selection
161 page-up move one page up
162 page-down move one page down
163 home move to first file
164 end move to last file
165
166 ctrl-g generate icons for the selected files
167 ctrl-d delete selected files WITHOUT ASKING AGAIN
168
169=head1 BUGS/TODO
170
171 rotate on disk
172 print
173 lots of ui issues
174 save(?)
175 preferences
176 ctrl-u in schnauzer
177 shift-cursor in schnauzer
178
179=head1 AUTHOR
180
181Marc Lehmann <cv@plan9.de>.
182
183=cut
184

Diff Legend

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