1 files changed, 57 insertions, 0 deletions
diff --git a/ksirc/puke/pframe.pm b/ksirc/puke/pframe.pm
new file mode 100644
index 00000000..f851cdb8
--- /dev/null
+++ b/ksirc/puke/pframe.pm
@@ -0,0 +1,57 @@
+
+&::PukeSendMessage($PUKE_WIDGET_LOAD, 
+		   $PUKE_CONTROLLER, 
+		   $PWIDGET_FRAME,
+		   "pframe.so",
+		   sub { my %ARG = %{shift()};
+			 if($ARG{'iArg'} == 1){
+			   print "*E* PFrame Load failed!\n";
+			 }
+		       }
+		  );
+
+package PFrame;
+@ISA = qw(PWidget);
+use strict;
+
+$PFrame::NoFrame  = 0;
+$PFrame::Box      = 0x0001;
+$PFrame::Panel    = 0x0002;
+$PFrame::WinPanel = 0x0003;
+$PFrame::HLine    = 0x0004;
+$PFrame::VLine    = 0x0005;
+$PFrame::MShape   = 0x000f;
+$PFrame::Plain    = 0x0010; 
+$PFrame::Raised   = 0x0020; 
+$PFrame::Sunken   = 0x0030; 
+$PFrame::MShadow  = 0x00f0;
+
+sub new {
+  my $class = shift;
+  my $self = $class->SUPER::new($class, @_);
+
+  $self->{widgetType} = $::PWIDGET_FRAME;
+
+  if($class eq 'PFrame'){
+    $self->create();
+  }
+
+  return $self;
+
+}
+
+sub setFrameStyle {
+  my $self = shift;
+
+  my $frame = shift;
+  my $repaint = shift;
+
+  $self->sendMessage('iCommand' => $::PUKE_QFRAME_SET_FRAME,
+		     'iArg' => $frame,
+		    'CallBack' => sub {});
+
+  $self->repaint(1) if($repaint == 1);
+
+}
+
+package main;