1 |
sf-exg |
1.1 |
#! perl |
2 |
|
|
|
3 |
|
|
# Copyright (C) 2011 Ryan Kavanagh <ryanakca@kubuntu.org> |
4 |
|
|
# |
5 |
|
|
# This program is free software; you can redistribute it and/or modify |
6 |
|
|
# it under the terms of the GNU General Public License as published by |
7 |
|
|
# the Free Software Foundation; either version 2 of the License, or |
8 |
|
|
# (at your option) any later version. |
9 |
|
|
# |
10 |
|
|
# This program is distributed in the hope that it will be useful, |
11 |
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 |
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 |
|
|
# GNU General Public License for more details. |
14 |
|
|
# |
15 |
|
|
# You should have received a copy of the GNU General Public License along |
16 |
|
|
# with this program; if not, write to the Free Software Foundation, Inc., |
17 |
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
18 |
|
|
|
19 |
|
|
sub on_start { |
20 |
|
|
my ($self) = @_; |
21 |
|
|
|
22 |
|
|
$self->{bell_cmd} = $self->x_resource ("bell-command"); |
23 |
|
|
|
24 |
|
|
() |
25 |
|
|
} |
26 |
|
|
|
27 |
|
|
sub on_bell { |
28 |
|
|
my ($self) = @_; |
29 |
|
|
|
30 |
|
|
if (defined $self->{bell_cmd}) { |
31 |
|
|
$self->exec_async ($self->{bell_cmd}); |
32 |
|
|
} |
33 |
|
|
|
34 |
|
|
() |
35 |
|
|
} |