From 808e453c56036211f57482ed847d54aca01bba68 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Thu, 15 Dec 2011 15:49:40 -0600
Subject: Rename a number of old tq methods that are no longer tq specific

---
 ksirc/puke/pboxlayout.pm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

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

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