From 69cac65817d949cda2672ec4f0aa73d5e66a0ba1 Mon Sep 17 00:00:00 2001
From: tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 22 Jun 2011 00:30:31 +0000
Subject: 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
---
 ksirc/puke/pbase.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'ksirc/puke/pbase.pm')

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,
-- 
cgit v1.2.1