diff options
Diffstat (limited to 'ksirc/puke/pbase.pm')
| -rw-r--r-- | ksirc/puke/pbase.pm | 14 |
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, |