/usr/lib/perl5/Prima/themes/sysimage.pm is in libprima-perl 1.28-1.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | # $Id: sysimage.pm,v 1.2 2005/10/13 17:22:53 dk Exp $
# changes sysimage
package Prima::themes::sysimage;
my %state;
use Prima::StdBitmap;
use Prima::Utils;
sub install
{
my ( $theme, $install) = @_;
if ( $install) {
# install
my $new = ( $theme eq 'sysimage-win32') ?
'Prima::sys::win32' :
'Prima';
$new = Prima::Utils::find_image( $new, 'sysimage.gif');
return 0 unless defined $new;
$state{$theme} = [
$Prima::StdBitmap::sysimage,
$new,
];
$Prima::StdBitmap::sysimage = $new;
return 1;
} else {
# uninstall
if ( $state{$theme}->[1] eq $Prima::StdBitmap::sysimage) {
$Prima::StdBitmap::sysimage = $state{$theme}->[0];
}
delete $state{$theme};
}
}
Prima::Themes::register( 'Prima::themes::sysimage', 'sysimage-win32', undef, undef, \&install);
Prima::Themes::register( 'Prima::themes::sysimage', 'sysimage-standard', undef, undef, \&install);
|