… | |
… | |
4 | use Encode (); |
4 | use Encode (); |
5 | |
5 | |
6 | use Gtk2 -init; |
6 | use Gtk2 -init; |
7 | use Gtk2::Gdk::Keysyms; |
7 | use Gtk2::Gdk::Keysyms; |
8 | |
8 | |
|
|
9 | use Gtk2::CV; |
|
|
10 | |
9 | use Gtk2::CV::ImageWindow; |
11 | use Gtk2::CV::ImageWindow; |
10 | use Gtk2::CV::Schnauzer; |
12 | use Gtk2::CV::Schnauzer; |
11 | |
13 | |
12 | use Gtk2::CV; |
14 | BEGIN { |
|
|
15 | require Gtk2::CV::Plugin; |
|
|
16 | require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc"; |
|
|
17 | } |
|
|
18 | |
|
|
19 | use Gtk2::CV::Plugin::NameCluster; |
|
|
20 | use Gtk2::CV::Plugin::RCluster; |
13 | |
21 | |
14 | Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc"); |
22 | Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc"); |
15 | |
23 | |
16 | use File::Spec; |
24 | use File::Spec; |
17 | |
|
|
18 | require Gtk2::CV::Plugin; |
|
|
19 | require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc"; |
|
|
20 | |
25 | |
21 | my $mainwin; |
26 | my $mainwin; |
22 | my $viewer; |
27 | my $viewer; |
23 | my $schnauzer; |
28 | my $schnauzer; |
24 | my $info; |
29 | my $info; |
… | |
… | |
124 | } |
129 | } |
125 | |
130 | |
126 | if (@ARGV) { |
131 | if (@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 | } |