|
Lines 1050-1061
Link Here
|
| 1050 |
(-d $PREFIX ? $PREFIX : $ENV{PWD}), |
1050 |
(-d $PREFIX ? $PREFIX : $ENV{PWD}), |
| 1051 |
); |
1051 |
); |
| 1052 |
map { $theme->append_search_path($_) } @paths; |
1052 |
map { $theme->append_search_path($_) } @paths; |
| 1053 |
if ($theme->has_icon('gnome-mime-text') == 0) { |
1053 |
if ($theme->has_icon('text-x-generic') == 0) { |
| 1054 |
# the first theme failed, try the 'gnome' theme: |
1054 |
# the first theme failed, try the 'gnome' theme: |
| 1055 |
$theme = Gtk2::IconTheme->new; |
1055 |
$theme = Gtk2::IconTheme->new; |
| 1056 |
$theme->set_custom_theme('gnome'); |
1056 |
$theme->set_custom_theme('adwaita'); |
| 1057 |
map { $theme->append_search_path($_) } @paths; |
1057 |
map { $theme->append_search_path($_) } @paths; |
| 1058 |
if ($theme->has_icon('gnome-mime-text') == 0) { |
1058 |
if ($theme->has_icon('text-x-generic') == 0) { |
| 1059 |
print STDERR "*** sorry, I tried my best but I still can't find a usable icon theme!\n"; |
1059 |
print STDERR "*** sorry, I tried my best but I still can't find a usable icon theme!\n"; |
| 1060 |
exit 256; |
1060 |
exit 256; |
| 1061 |
} |
1061 |
} |
