1 files changed, 14 insertions, 14 deletions

diff --git a/ksirc/puke/pboxlayout.pm b/ksirc/puke/pboxlayout.pm
index 505ddc0d..9896fd1c 100644
--- a/ksirc/puke/pboxlayout.pm
+++ b/ksirc/puke/pboxlayout.pm
@@ -40,7 +40,7 @@ sub new {
   #}
   #  else{
   if(ref($widget) ne ''){
-      #    print "*\cbI\cb* Generic Non-topleve layout type\n";
+      #    print "*\cbI\cb* Generic Non-topleve tqlayout type\n";
     $self->{Parent} = $widget;
     $self->{ParentType} = 'Widget';
     $self->{Direction} = shift;
@@ -99,7 +99,7 @@ sub addWidget {
   my $align = shift;
 
   if($self->{Added} == 0){
-    print "*E* Burp: Can't add widget without first being added to parent layout\n";
+    print "*E* Burp: Can't add widget without first being added to parent tqlayout\n";
     return;
   }
 
@@ -128,41 +128,41 @@ sub addLayout {
   my $self = shift;
 
   if($self->{Added} == 0){
-    print "*E* Burp: Can't add layout without first being added to parent layout\n";
+    print "*E* Burp: Can't add tqlayout without first being added to parent tqlayout\n";
   }
 
   
-  my $layout = shift;
-  if(ref($layout) ne 'PBoxLayout'){
-    print "*E* Passed non layout type to addLayout\n";
+  my $tqlayout = shift;
+  if(ref($tqlayout) ne 'PBoxLayout'){
+    print "*E* Passed non tqlayout type to addLayout\n";
     return 1;
   }
 
-  if($layout->{iWinId} <= 0){
-    print "*E* Trying to add invalid layout " . ref($layout) . "\n";
+  if($tqlayout->{iWinId} <= 0){
+    print "*E* Trying to add invalid tqlayout " . ref($tqlayout) . "\n";
     return;
   }
 
 
   # make sure we can run, and the widget we want to add can run.
-  #  my @ARG = ($layout);
+  #  my @ARG = ($tqlayout);
   #$self->canRun($self, \&PBoxLayout::addLayout, \@ARG) || return;
-  #$layout->canRun($self, \&PBoxLayout::addLayout, \@ARG) || return;
+  #$tqlayout->canRun($self, \&PBoxLayout::addLayout, \@ARG) || return;
 
   my %REPLY = $self->sendMessage('iCommand' => $::PUKE_LAYOUT_ADDLAYOUT,
                                  'iWinId' => $self->{iWinId},
-                                 'iArg' => $layout->{iWinId},
+                                 'iArg' => $tqlayout->{iWinId},
                                  'cArg' => pack("C", 0),
                                  'CallBack' => sub { },
                                  'WaitFor' => 1);
 
-  #  print "*I* Adding layout\n";
+  #  print "*I* Adding tqlayout\n";
   if($REPLY{'iArg'} != 0){
     print "*E* AddLayout call failed\n";
   }
   else{
-    #    print "*I* Added new Layout for " . $layout->{iWinId} . "\n";
-    $layout->{Added} = 1;
+    #    print "*I* Added new Layout for " . $tqlayout->{iWinId} . "\n";
+    $tqlayout->{Added} = 1;
   }
 
 }