diff options
Diffstat (limited to 'ksirc/puke/pboxlayout.pm')
-rw-r--r-- | ksirc/puke/pboxlayout.pm | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/ksirc/puke/pboxlayout.pm b/ksirc/puke/pboxlayout.pm index 505ddc0d..22087b5f 100644 --- a/ksirc/puke/pboxlayout.pm +++ b/ksirc/puke/pboxlayout.pm @@ -28,7 +28,7 @@ sub new { # print "Widget: " . ref($widget) . "\n"; # if(ref($widget) eq ''){ - # print "*E* Error Creating PBoxLayout, did not give valid parent\n"; + # print "*E* Error Creating PBoxLayout, did not give valid tqparent\n"; # return; #} # elsif(ref($widget) eq 'PBoxLayout'){ @@ -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 tqparent 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 tqparent 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; } } |