File indexing completed on 2024-04-21 05:41:56
0001 #!/usr/bin/perl 0002 0003 # David Faure <faure@kde.org> 2007 0004 # Based on script by Laurent Montel <montel@kde.org> 2005 0005 # This script converts KMimeType::pixmap (deprecated) to KIconLoader::loadMimeTypeIcon 0006 # and KDEDesktopMimeType:: to KDesktopFileActions:: 0007 0008 use File::Basename; 0009 use lib dirname( $0 ); 0010 use functionUtilkde; 0011 0012 foreach my $file (@ARGV) { 0013 functionUtilkde::substInFile { 0014 s/(KMimeType::mimeType\([^)]*\))->pixmap\(([^)]*)\)/KIconLoader::global()->loadMimeTypeIcon($1->iconName(),$2)/sg; 0015 # the regexp below is a bit too greedy, it also matches fileitem->pixmap() 0016 #s/(\w*)->pixmap\(([^)]*)\)/KIconLoader::global()->loadMimeTypeIcon($1->iconName(),$2)/sg; 0017 s/KDEDesktopMimeType::/KDesktopFileActions::/g; 0018 s/kdedesktopmimetype\.h/kdesktopfileactions.h/g; 0019 } $file; 0020 } 0021 0022 functionUtilkde::diffFile( @ARGV ); 0023