You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
1.3 KiB
90 lines
1.3 KiB
|
|
&::PukeSendMessage($PUKE_WIDGET_LOAD,
|
|
$::PUKE_CONTROLLER,
|
|
$PWIDGET_OBJFINDER,
|
|
"pobjfinder.so",
|
|
sub { my %ARG = %{shift()};
|
|
if($ARG{'iArg'} == 1){
|
|
print "*E* PLabel Load failed!\n";
|
|
}
|
|
}
|
|
);
|
|
|
|
package PObjFinder;
|
|
@ISA = qw(PBase);
|
|
use strict;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = $class->SUPER::new($class, @_);
|
|
|
|
$self->{widgetType} = $::PWIDGET_OBJFINDER;
|
|
|
|
if($class eq 'PObjFinder'){
|
|
$self->create();
|
|
}
|
|
|
|
$self->installHandler($::PUKE_OBJFINDER_NEWOBJECT, sub {$self->newObject(shift())});
|
|
|
|
return $self;
|
|
|
|
}
|
|
|
|
sub newObject {
|
|
}
|
|
|
|
sub interAllObjects {
|
|
my $self = shift;
|
|
my %REPLY = $self->sendMessage('iCommand' => $::PUKE_OBJFINDER_ALLOBJECTS,
|
|
'WaitFor' => 1);
|
|
|
|
return $REPLY{'cArg'};
|
|
|
|
}
|
|
|
|
sub allObjects {
|
|
my $self = shift;
|
|
my $line = $self->interAllObjects();
|
|
|
|
$line =~ s/\S+::unnamed//gm;
|
|
|
|
return $line;
|
|
|
|
}
|
|
|
|
|
|
sub allObjectsHash {
|
|
my $self = shift;
|
|
|
|
my $line = $self->allObjects();
|
|
|
|
my $widget;
|
|
my %hash;
|
|
|
|
foreach $widget (split(/\n/, $line)){
|
|
$hash{$widget} = 1;
|
|
}
|
|
|
|
return \%hash;
|
|
|
|
}
|
|
|
|
sub allObjectsArray {
|
|
my $self = shift;
|
|
|
|
my $line = $self->allObjects();
|
|
|
|
my $widget;
|
|
my @arr;
|
|
|
|
foreach $widget (split(/\n/, $line)){
|
|
next if $widget eq '';
|
|
$arr[$#arr+1] = $widget;
|
|
}
|
|
|
|
return @arr;
|
|
}
|
|
|
|
package main;
|
|
|