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.23 by root, Wed Nov 12 00:59:02 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)",
27 (File::Spec->splitpath ($_[1]))[2],
28 -s $_[1];
29 $info->set_label ($label);
30 $viewer->load_image ($_[1]);
31 });
20 32
21 $s; 33 $s;
22} 34}
23 35
24sub std_keys { 36sub std_keys {
25 my $key = $_[1]->keyval; 37 my $key = $_[1]->keyval;
26 my $state = $_[1]->state; 38 my $state = $_[1]->state;
27 39
28 my $ctrl = grep $_ eq "control-mask", @$state; 40 my $ctrl = $state * "control-mask";
29 41
30 if ($key == $Gtk2::Gdk::Keysyms{q}) { 42 if ($key == $Gtk2::Gdk::Keysyms{q}) {
31 main_quit Gtk2; 43 main_quit Gtk2;
32 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 44 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
33 new_schnauzer->get_toplevel->show_all; 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;
34 } else { 66 } else {
67 #$mainwin->show_all;
35 $schnauzer->handle_key ($key, $state); 68 $schnauzer->handle_key ($key, $state);
36 } 69 }
37 70
38 1; 71 1;
39} 72}
40 73
74{
41$viewer = new Gtk2::CV::ImageWindow; 75 $viewer = new Gtk2::CV::ImageWindow;
42$viewer->signal_connect (key_press_event => \&std_keys);
43$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
44 76
45$schnauzer = new_schnauzer; 77 $viewer->set_title ("CV: Image");
46 78
47my $mainwin = $schnauzer->get_toplevel; 79 $viewer->signal_connect (key_press_event => \&std_keys);
80 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
48 81
49$viewer->signal_connect (button3_press_event => sub { 82 $viewer->signal_connect (button3_press_event => sub {
50 $mainwin->visible 83 $mainwin->visible
51 ? $mainwin->hide 84 ? $mainwin->hide
52 : $mainwin->show_all; 85 : $mainwin->show_all;
53}); 86 1;
87 });
88
89 $schnauzer = new_schnauzer;
90
91 $mainwin = new Gtk2::Window;
92 $mainwin->set_title ("CV");
93 $mainwin->add (my $vbox = new Gtk2::VBox);
94 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
95
96 $vbox->add ($schnauzer);
97 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
98 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
99 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
100 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
101}
54 102
55if (@ARGV) { 103if (@ARGV) {
56 $viewer->load_image ($ARGV[0]);
57
58 if (@ARGV > 1) {
59 $schnauzer->set_paths (\@ARGV); 104 $schnauzer->set_paths (\@ARGV);
60 } 105 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
106} else {
107 $schnauzer->set_dir (File::Spec->curdir);
108 $mainwin->show_all;
61} 109}
62 110
63$viewer->show_all; 111$viewer->show_all;
64 112
65main Gtk2; 113main Gtk2;
114
115__DATA__
66 116
67=head1 NAME 117=head1 NAME
68 118
69cv - a fast gtk+ image viewer modeled after xv 119cv - a fast gtk+ image viewer modeled after xv
70 120
… …
116 end move to last file 166 end move to last file
117 167
118 ctrl-g generate icons for the selected files 168 ctrl-g generate icons for the selected files
119 ctrl-d delete selected files WITHOUT ASKING AGAIN 169 ctrl-d delete selected files WITHOUT ASKING AGAIN
120 170
171=head1 SECURITY CONSIDERATIONS
172
173CV uses Pixbuf to load images. Pixbuf is not considered safe for this
174purpose, though (from the gtk-2.2 release notes):
175
176"While efforts have been made to make gdk-pixbuf robust against invalid
177images, using gdk-pixbuf to load untrusted data is not recommended, due to
178the likelyhood that there are additional problems where an invalid image
179could cause gdk-pixbuf to crash or worse."
180
121=head1 BUGS/TODO 181=head1 BUGS/TODO
182
183 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
184 incompatible with utf-8 fails.
122 185
123 rotate on disk 186 rotate on disk
124 print 187 print
125 lots of ui issues 188 lots of ui issues
126 save(?) 189 save(?)

Diff Legend

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