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

Comparing CV/bin/cv (file contents):
Revision 1.47 by root, Wed Jul 20 09:06:37 2005 UTC vs.
Revision 1.49 by root, Sun Jul 31 07:01:31 2005 UTC

4use Encode (); 4use Encode ();
5 5
6use Gtk2 -init; 6use Gtk2 -init;
7use Gtk2::Gdk::Keysyms; 7use Gtk2::Gdk::Keysyms;
8 8
9use Gtk2::CV;
10
9use Gtk2::CV::ImageWindow; 11use Gtk2::CV::ImageWindow;
10use Gtk2::CV::Schnauzer; 12use Gtk2::CV::Schnauzer;
11 13
12use Gtk2::CV; 14BEGIN {
15 require Gtk2::CV::Plugin;
16 require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
17}
18
19use Gtk2::CV::Plugin::NameCluster;
20use Gtk2::CV::Plugin::RCluster;
13 21
14Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc"); 22Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
15 23
16use File::Spec; 24use File::Spec;
17
18require Gtk2::CV::Plugin;
19require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
20 25
21my $mainwin; 26my $mainwin;
22my $viewer; 27my $viewer;
23my $schnauzer; 28my $schnauzer;
24my $info; 29my $info;
124} 129}
125 130
126if (@ARGV) { 131if (@ARGV) {
127 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]); 132 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
128 $schnauzer->show_all; 133 $schnauzer->show_all;
129$viewer->show_all;
130 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 134 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
135 $viewer->show_all;
131} else { 136} else {
132 $schnauzer->set_dir (File::Spec->curdir); 137 $schnauzer->set_dir (File::Spec->curdir);
133 $mainwin->show_all; 138 $mainwin->show_all;
134 $viewer->show_all; 139 $viewer->show_all;
135} 140}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines