From kde-commits  Sat Mar 31 22:52:09 2007
From: David Faure <faure () kde ! org>
Date: Sat, 31 Mar 2007 22:52:09 +0000
To: kde-commits
Subject: KDE/kdesdk/scripts/qt4
Message-Id: <1175381529.625674.28793.nullmailer () svn ! kde ! org>
X-MARC-Message: https://marc.info/?l=kde-commits&m=117538193916369

SVN commit 648658 by dfaure:

make all scripts work from any current dir
added script for kkeydialog API changes


 M  +2 -1      add-customwidget.pl  
 M  +2 -1      convert-bad-qdatastream.pl  
 M  +3 -2      convert-display.pl  
 M  +3 -3      convert-eof.pl  
 M  +3 -2      convert-killtimers.pl  
 A             convert-kkeydialog.pl  
 M  +2 -1      convert-kmimetype-pixmap.pl  
 M  +2 -1      convert-kstringhandler.pl  
 M  +3 -2      convert-q3cstring.pl  
 M  +3 -3      convert-qdatastream.pl  
 M  +3 -2      convert-qheadsort.pl  
 M  +4 -3      convert-qstringlatin1.pl  
 M  +3 -2      convert-qstringlist.pl  


--- trunk/KDE/kdesdk/scripts/qt4/add-customwidget.pl #648657:648658
@@ -4,7 +4,8 @@
 # This program allows to add custom widget to ui files
 # for example : add-customwidget.pl OptionsDlgWidget.ui KIntSpinBox knuminput.h
 
-use lib qw( . );
+use File::Basename;
+use lib dirname( $0 );
 use MDK::Common;
 use functionUtilkde; 
 my $numberArgument = @ARGV;
--- trunk/KDE/kdesdk/scripts/qt4/convert-bad-qdatastream.pl #648657:648658
@@ -4,7 +4,8 @@
 # Thanks to Rafael Garcia-Suarez and Thierry Vignaud for his help
 # This script try to fix error when we didn't add setVersion after a QDataStream
 
-use lib qw( . );
+use File::Basename;
+use lib dirname( $0 );
 use functionUtilkde;
 
 foreach my $file (@ARGV) {
--- trunk/KDE/kdesdk/scripts/qt4/convert-display.pl #648657:648658
@@ -4,8 +4,9 @@
 # This function convert qt_xdisplay and qt_rootwin to qt4 function
 # it added include too
 
-use lib qw( . );
-use functionUtilkde; 
+use File::Basename;
+use lib dirname($0);
+use functionUtilkde;
 
 foreach my $file (@ARGV) {
 	functionUtilkde::substInFile {
--- trunk/KDE/kdesdk/scripts/qt4/convert-eof.pl #648657:648658
@@ -3,10 +3,10 @@
 # laurent Montel <montel@kde.org>
 # This function convert .eof() to atEnd()
 
-use lib qw( . );
-use functionUtilkde; 
+use File::Basename;
+use lib dirname( $0 );
+use functionUtilkde;
 
-
 foreach my $file (@ARGV) {
     functionUtilkde::substInFile {
 	s!.eof\s*\(\s*\)!.atEnd()!;
--- trunk/KDE/kdesdk/scripts/qt4/convert-killtimers.pl #648657:648658
@@ -3,8 +3,9 @@
 # laurent Montel <montel@kde.org>
 # This function convert killTimers to qt4 function
 
-use lib qw( . );
-use functionUtilkde; 
+use File::Basename;
+use lib dirname( $0 );
+use functionUtilkde;
 open(my $F, q(find -name "*" |));
 my $file;
 while ($file = <$F>) {
--- trunk/KDE/kdesdk/scripts/qt4/convert-kmimetype-pixmap.pl #648657:648658
@@ -5,7 +5,8 @@
 # This script converts KMimeType::pixmap (deprecated) to KIconLoader::loadMimeTypeIcon
 #        and KDEDesktopMimeType:: to KDesktopFileActions::
 
-use lib qw( . );
+use File::Basename;
+use lib dirname( $0 );
 use functionUtilkde;
 
 foreach my $file (@ARGV) {
--- trunk/KDE/kdesdk/scripts/qt4/convert-kstringhandler.pl #648657:648658
@@ -4,7 +4,8 @@
 # This script converts KStringHandler::*EmSqueeze/*PixelSqueeze to QFontMetrics::elidedText
 # Based on convert-qstringlist.
 
-use lib qw( . );
+use File::Basename;
+use lib dirname( $0 );
 use functionUtilkde;
 
 foreach my $file (@ARGV) {
--- trunk/KDE/kdesdk/scripts/qt4/convert-q3cstring.pl #648657:648658
@@ -3,8 +3,9 @@
 # Laurent Montel <montel@kde.org>
 # Convert Q3CString to QByteArray or QString or DCOPCString
 
-use lib qw( . );
-use functionUtilkde; 
+use File::Basename;
+use lib dirname($0);
+use functionUtilkde;
 
 foreach my $file (@ARGV) {
 	functionUtilkde::substInFile {
--- trunk/KDE/kdesdk/scripts/qt4/convert-qdatastream.pl #648657:648658
@@ -2,10 +2,10 @@
 
 # Montel Laurent <montel@kde.org>
 # This script allows to convert QDataStream to new API
-# Don't use this script as an example for creating a new one, it's old. See convert-display.pl or convert-stringlist.pl instead.
 
-use lib qw( . );
-use functionUtilkde; 
+use File::Basename;
+use lib dirname($0);
+use functionUtilkde;
 
 foreach my $file (@ARGV) {
     functionUtilkde::substInFile {
--- trunk/KDE/kdesdk/scripts/qt4/convert-qheadsort.pl #648657:648658
@@ -4,8 +4,9 @@
 # laurent Montel <montel@kde.org>
 # this function add q3tl.h include necessary for qheadsort function
 
-use lib qw( . );
-use functionUtilkde; 
+use File::Basename;
+use lib dirname($0);
+use functionUtilkde;
 
 foreach my $file (@ARGV) {
 		functionUtilkde::addIncludeInFile( $file, "q3tl.h");
--- trunk/KDE/kdesdk/scripts/qt4/convert-qstringlatin1.pl #648657:648658
@@ -4,9 +4,10 @@
 # This function convert QLatin1String instead of QString::fromLatin1()
 # see "qlatin1string.html" "is faster than converting the Latin-1 strings using QString::fromLatin1()." 
 # TODO: test "QString::fromLatin1(blabla())"
-# 
-use lib qw( . );
-use functionUtilkde; 
+#
+use File::Basename;
+use lib dirname($0);
+use functionUtilkde;
 
 foreach my $file (@ARGV) {
     functionUtilkde::substInFile { 
--- trunk/KDE/kdesdk/scripts/qt4/convert-qstringlist.pl #648657:648658
@@ -3,8 +3,9 @@
 # laurent Montel <montel@kde.org>
 # this function changes QStringList::split (QT3_SUPPORT) to QString::split (QT4)
 
-use lib qw( . );
-use functionUtilkde; 
+use File::Basename;
+use lib dirname($0);
+use functionUtilkde;
 
 sub addQStringElement
 {