ksirc/puke/ppushbt.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


&::PukeSendMessage($PUKE_WIDGET_LOAD, 
		   $PUKE_CONTROLLER, 
		   $PWIDGET_PUSHBT,
		   "ppushbt.so",
		   sub { my %ARG = %{shift()};
			 if($ARG{'iArg'} == 1){
			   print "*E* PPushButton Load failed!\n";
			 }
		       }
		  );

package PPushButton;
@ISA = qw(PButton);
use strict;

sub new {
  my $class = shift;
  my $self = $class->SUPER::new($class, @_);

  $self->{widgetType} = $::PWIDGET_PUSHBT;

  if($class eq 'PPushButton'){
    $self->create();
  }
  return $self;

}

package main;