ksirc/puke/ptablevw.pm


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;