diff options
author | Timothy Pearson <[email protected]> | 2013-01-27 01:04:58 -0600 |
---|---|---|
committer | Timothy Pearson <[email protected]> | 2013-01-27 01:04:58 -0600 |
commit | b10a61b1fd2fe561ba61a384d4a344bae2a4aa29 (patch) | |
tree | 99dc6b2584265b2df91f7dbc1dcbf7a54efd205e /ksirc/puke/pkfiledialog.pm | |
parent | 64c3be47ff36e40035ead93f913aeeb1e4f85e4b (diff) | |
download | tdenetwork-b10a61b1fd2fe561ba61a384d4a344bae2a4aa29.tar.gz tdenetwork-b10a61b1fd2fe561ba61a384d4a344bae2a4aa29.zip |
Rename a number of libraries and executables to avoid conflicts with KDE4
Diffstat (limited to 'ksirc/puke/pkfiledialog.pm')
-rw-r--r-- | ksirc/puke/pkfiledialog.pm | 76 |
1 files changed, 0 insertions, 76 deletions
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; |