From b10a61b1fd2fe561ba61a384d4a344bae2a4aa29 Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Sun, 27 Jan 2013 01:04:58 -0600 Subject: Rename a number of libraries and executables to avoid conflicts with KDE4 --- ksirc/puke/pkfiledialog.pm | 76 ---------------------------------------------- 1 file changed, 76 deletions(-) delete mode 100644 ksirc/puke/pkfiledialog.pm (limited to 'ksirc/puke/pkfiledialog.pm') diff --git a/ksirc/puke/pkfiledialog.pm b/ksirc/puke/pkfiledialog.pm deleted file mode 100644 index 6da8c229..00000000 --- a/ksirc/puke/pkfiledialog.pm +++ /dev/null @@ -1,76 +0,0 @@ - -&::PukeSendMessage($PUKE_WIDGET_LOAD, - $::PUKE_CONTROLLER, - $PWIDGET_KFILEDIALOG, - "pkfiledialog.so", - sub { my %ARG = %{shift()}; - if($ARG{'iArg'} == 1){ - print "*E* PKFileDialog Load failed!\n"; - } - } - ); - -use strict; - -package PKFileDialog; -use vars qw(@ISA); -@ISA = qw(PWidget); - -sub new { - my $class = shift; - my $self = $class->SUPER::new($class, @_); - - $self->{widgetType} = $::PWIDGET_KFILEDIALOG; - - if($class eq 'PKFileDialog'){ - $self->create(); - } - - $self->installHandler($::PUKE_KBFD_FILE_SELECTED_ACK, sub{$self->fileSelected(shift())}); - - return $self; - -} - -sub setDir { - my $self = shift; - - my $dir = shift; - - $self->sendMessage('iCommand' => $::PUKE_KBFD_SET_PATH, - 'cArg' => $dir, - 'CallBack' => sub{}); - -} - -sub setFilter { - my $self = shift; - - my $filter = shift; - - $self->sendMessage('iCommand' => $::PUKE_KBFD_SET_FILTER, - 'cArg' => $filter, - 'CallBack' => sub{}); - -} - -sub setSelected { - my $self = shift; - - my $sel = shift; - - $self->sendMessage('iCommand' => $::PUKE_KBFD_SET_SELECTION, - 'cArg' => $sel, - 'CallBack' => sub{}); - -} - -sub fileSelected { - my $self = shift; - my $rargs = shift; - - &::print("*I* File Selected: " . $rargs->{'cArg'}); - -} - -package main; -- cgit v1.2.1