| Server IP : 170.10.161.225 / Your IP : 216.73.216.78 Web Server : Apache System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64 User : calvet ( 273824) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : ON Directory : /lib64/perl5/vendor_perl/Prima/themes/ |
Upload File : |
# changes sysimage
package Prima::themes::sysimage;
use strict;
use warnings;
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);