summaryrefslogtreecommitdiffstats
path: root/ksirc/puke/pbase.pm
diff options
context:
space:
mode:
authortpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2011-08-10 22:19:39 +0000
committertpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2011-08-10 22:19:39 +0000
commit2bc1d72869b62af05ae4feafd878203b526da8c5 (patch)
tree2676903bb600bd9646644856e354940471ad84e2 /ksirc/puke/pbase.pm
parent937b2991d8e78166eea904c80ad04d34607017a4 (diff)
downloadtdenetwork-2bc1d72869b62af05ae4feafd878203b526da8c5.tar.gz
tdenetwork-2bc1d72869b62af05ae4feafd878203b526da8c5.zip
rename the following methods:
tqparent parent tqmask mask git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdenetwork@1246260 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'ksirc/puke/pbase.pm')
-rw-r--r--ksirc/puke/pbase.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/ksirc/puke/pbase.pm b/ksirc/puke/pbase.pm
index b5b13be7..b8345cdb 100644
--- a/ksirc/puke/pbase.pm
+++ b/ksirc/puke/pbase.pm
@@ -40,19 +40,19 @@ sub rndchr {
sub new {
my $class = shift;
- my $tqparent = $_[$#_];
+ my $parent = $_[$#_];
my $self = {};
-# print "Parent: $tqparent\n";
+# print "Parent: $parent\n";
bless($self, $class);
- $tqparent = 0 if($tqparent == undef);
+ $parent = 0 if($parent == undef);
$self->{iWinId} = -1;
- $self->{Parent} = $tqparent if $tqparent != 0;
+ $self->{Parent} = $parent if $parent != 0;
$self->{initId} = $self->rndchr();
$self->{widgetType} = $PBase::NO_WIDGET;
$self->{cmdQueue} = ();
@@ -77,13 +77,13 @@ sub create {
return;
}
- my $tqparent = $self->{Parent} ? $self->{Parent}->{iWinId} : 0;
+ my $parent = $self->{Parent} ? $self->{Parent}->{iWinId} : 0;
- # print "*I* Createing widget of type: " . $self->{widgetType} . " with tqparent " . $tqparent . "\n";
+ # print "*I* Createing widget of type: " . $self->{widgetType} . " with parent " . $parent . "\n";
$self->{runable} = 1;
- my $carg = $tqparent . "\t" . $self->{widgetType} . "\t" . $self->{initId};
+ my $carg = $parent . "\t" . $self->{widgetType} . "\t" . $self->{initId};
my %REPLY = $self->sendMessage('iCommand' => $::PUKE_WIDGET_CREATE,
'iWinId' => $::PUKE_CONTROLLER,