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

Comparing CV/bin/cv (file contents):
Revision 1.11 by root, Wed Nov 5 01:29:47 2003 UTC vs.
Revision 1.25 by root, Wed Nov 12 19:36:06 2003 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
3use Gtk2 -init;
4use Gtk2::Gdk::Keysyms;
5
6use Gtk2::CV::ImageWindow;
7use Gtk2::CV::Schnauzer;
8
9use Gtk2::CV;
10
11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
12
13use File::Spec;
14
15my $mainwin;
16my $viewer;
17my $schnauzer;
18my $info;
19my $help;
20
21my $schnauzer_idx = 0;
22
23sub new_schnauzer {
24 my $s = new Gtk2::CV::Schnauzer;
25
26 $s->signal_connect_after (key_press_event => \&std_keys);
27 $s->signal_connect (activate => sub {
28 my $label = sprintf "%s (%d)",
29 (File::Spec->splitpath ($_[1]))[2],
30 -s $_[1];
31 $info->set_label ($label);
32 $viewer->load_image ($_[1]);
33 });
34
35 $s;
36}
37
38sub std_keys {
39 my $key = $_[1]->keyval;
40 my $state = $_[1]->state;
41
42 my $ctrl = $state * "control-mask";
43
44 if ($key == $Gtk2::Gdk::Keysyms{q}) {
45 main_quit Gtk2;
46 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
47 my $w = new Gtk2::Window;
48 $w->add (my $s = new_schnauzer);
49 $s->set_dir (File::Spec->curdir);
50 $s->set_geometry_hints;
51 $w->show_all;
52
53 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
54 unless ($help) {
55 require Gtk2::PodViewer;
56
57 $help = new Gtk2::Window;
58 $help->set_title ("CV Help");
59 $help->set_default_size (500, 300);
60 $help->signal_connect (delete_event => sub { $help->hide; 1 });
61
62 $help->add (my $sw = new Gtk2::ScrolledWindow);
63 $sw->add (my $h = new Gtk2::PodViewer);
64
65 #binmode DATA, ":utf8";
66 $h->load_string (do { local $/; <DATA> });
67 }
68
69 $help->show_all;
70 } else {
71 #$mainwin->show_all;
72 $schnauzer->handle_key ($key, $state);
73 }
74
75 1;
76}
77
78{
79 $viewer = new Gtk2::CV::ImageWindow;
80
81 $viewer->set_title ("CV: Image");
82
83 $viewer->signal_connect (key_press_event => \&std_keys);
84 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
85
86 $viewer->signal_connect (button3_press_event => sub {
87 $mainwin->visible
88 ? $mainwin->hide
89 : $mainwin->show_all;
90 1;
91 });
92
93 $schnauzer = new_schnauzer;
94
95 $mainwin = new Gtk2::Window;
96 $mainwin->set_title ("CV");
97 $mainwin->add (my $vbox = new Gtk2::VBox);
98 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
99
100 $vbox->add ($schnauzer);
101 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
102 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
103 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
104 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
105
106 $schnauzer->set_geometry_hints;
107}
108
109if (@ARGV) {
110 $schnauzer->set_paths (\@ARGV);
111 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
112} else {
113 $schnauzer->set_dir (File::Spec->curdir);
114 $mainwin->show_all;
115}
116
117$viewer->show_all;
118
119main Gtk2;
120
121__DATA__
2 122
3=head1 NAME 123=head1 NAME
4 124
5cv - a fast gtk+ image viewer modeled after xv 125cv - a fast gtk+ image viewer modeled after xv
6 126
… …
49 page-up move one page up 169 page-up move one page up
50 page-down move one page down 170 page-down move one page down
51 home move to first file 171 home move to first file
52 end move to last file 172 end move to last file
53 173
174 ctrl-d delete selected files WITHOUT ASKING AGAIN
54 ctrl-g generate icons for the selected files 175 ctrl-g generate icons for the selected files
55 ctrl-d delete selected files WITHOUT ASKING AGAIN 176 ctrl-u update selected (or all) icons if neccessary
177
178=head1 SECURITY CONSIDERATIONS
179
180CV uses Pixbuf to load images. Pixbuf is not considered safe for this
181purpose, though (from the gtk-2.2 release notes):
182
183"While efforts have been made to make gdk-pixbuf robust against invalid
184images, using gdk-pixbuf to load untrusted data is not recommended, due to
185the likelyhood that there are additional problems where an invalid image
186could cause gdk-pixbuf to crash or worse."
56 187
57=head1 BUGS/TODO 188=head1 BUGS/TODO
189
190 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
191 incompatible with utf-8 fails.
58 192
59 rotate on disk 193 rotate on disk
60 print 194 print
61 lots of ui issues 195 lots of ui issues
62 save(?) 196 save(?)
63 preferences 197 preferences
198 ctrl-u in schnauzer
199 shift-cursor in schnauzer
64 200
65=head1 AUTHOR 201=head1 AUTHOR
66 202
67Marc Lehmann <cv@plan9.de>. 203Marc Lehmann <cv@plan9.de>.
68 204
69=cut 205=cut
70 206
71use Gtk2 -init;
72use Gtk2::Gdk::Keysyms;
73
74use Gtk2::CV::ImageWindow;
75use Gtk2::CV::Schnauzer;
76
77my $viewer;
78my $schnauzer;
79
80sub new_schnauzer {
81 my $w = new Gtk2::Window;
82 $w->add (my $s = new Gtk2::CV::Schnauzer);
83
84 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
85 $s->signal_connect_after (key_press_event => \&std_keys);
86
87 $s->set_dir (".");
88 $w->show_all;
89
90 $s;
91}
92
93sub std_keys {
94 my $key = $_[1]->keyval;
95 my $state = $_[1]->state;
96
97 my $ctrl = grep $_ eq "control-mask", @$state;
98
99 if ($key == $Gtk2::Gdk::Keysyms{q}) {
100 main_quit Gtk2;
101 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
102 new_schnauzer;
103 } else {
104 $schnauzer->handle_key ($key, $state);
105 }
106
107 1;
108}
109
110$viewer = new Gtk2::CV::ImageWindow;
111$viewer->signal_connect (key_press_event => \&std_keys);
112$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
113
114$schnauzer = new_schnauzer;
115
116if (@ARGV) {
117 $viewer->load_image ($ARGV[0]);
118
119 if (@ARGV > 1) {
120 $schnauzer->set_paths (\@ARGV);
121 }
122}
123
124$viewer->show_all;
125
126main Gtk2;
127
128

Diff Legend

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