TQt4 port kdenetwork

This enables compilation under both Qt3 and Qt4


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdenetwork@1237912 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 7 insertions, 7 deletions

diff --git a/ksirc/puke/pbase.pm b/ksirc/puke/pbase.pm
index b8345cdb..b5b13be7 100644
--- a/ksirc/puke/pbase.pm
+++ b/ksirc/puke/pbase.pm
@@ -40,19 +40,19 @@ sub rndchr {
 
 sub new {
   my $class = shift;
-  my $parent = $_[$#_];
+  my $tqparent = $_[$#_];
 
   my $self  = {};
 
 
-#  print "Parent: $parent\n";
+#  print "Parent: $tqparent\n";
 
   bless($self, $class);
 
-  $parent = 0 if($parent == undef);
+  $tqparent = 0 if($tqparent == undef);
 
   $self->{iWinId} = -1;
-  $self->{Parent} = $parent if $parent != 0;
+  $self->{Parent} = $tqparent if $tqparent != 0;
   $self->{initId} = $self->rndchr();
   $self->{widgetType} = $PBase::NO_WIDGET;
   $self->{cmdQueue} = ();
@@ -77,13 +77,13 @@ sub create {
     return;
   }
 
-  my $parent = $self->{Parent} ?  $self->{Parent}->{iWinId} : 0;
+  my $tqparent = $self->{Parent} ?  $self->{Parent}->{iWinId} : 0;
   
-  #  print "*I* Createing widget of type: " . $self->{widgetType} . " with parent " . $parent . "\n";
+  #  print "*I* Createing widget of type: " . $self->{widgetType} . " with tqparent " . $tqparent . "\n";
 
   $self->{runable} = 1;
 
-  my $carg = $parent . "\t" . $self->{widgetType} . "\t" .  $self->{initId};
+  my $carg = $tqparent . "\t" . $self->{widgetType} . "\t" .  $self->{initId};
   
   my %REPLY = $self->sendMessage('iCommand' => $::PUKE_WIDGET_CREATE,
                                  'iWinId' => $::PUKE_CONTROLLER,