blob: 297d7b29c7328268266e79edc2a8039243ae2d37 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
&::PukeSendMessage($::PUKE_WIDGET_LOAD,
$::PUKE_CONTROLLER,
$::PWIDGET_TABLEVW,
"ptablevw.so",
sub { my %ARG = %{shift()};
if($ARG{'iArg'} == 1){
print "*E* PTableView Load failed!\n";
}
}
);
package PTableView;
@ISA = qw(PFrame);
use strict;
if($PTableView::usage == undef){
$PTableView::usage = 0;
}
sub new {
my $class = shift;
my $self = $class->SUPER::new($class, @_);
if($PTableView::usage == 0){
}
$PTableView::usage++;
$self->{widgetType} = $::PWIDGET_TABLEVW;
if($class eq 'PTableView'){
$self->create();
}
return $self;
}
sub DESTROY {
my $self = shift;
$self->SUPER::DESTROY(@_);
$PTableView::usage--;
if($PTableView::usage == 0){
# &::PukeSendMessage($::PUKE_WIDGET_UNLOAD,
# 0,
# $::PWIDGET_TABLEVW,
# "",
# sub {}
# );
}
}
package main;
1;
|
