summaryrefslogtreecommitdiffstats
path: root/ksirc/puke/pboxlayout.pm
diff options
context:
space:
mode:
Diffstat (limited to 'ksirc/puke/pboxlayout.pm')
-rw-r--r--ksirc/puke/pboxlayout.pm28
1 files changed, 14 insertions, 14 deletions
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;
}
}