… | |
… | |
14 | # |
14 | # |
15 | # You should have received a copy of the GNU General Public License along |
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., |
16 | # with this program; if not, write to the Free Software Foundation, Inc., |
17 | # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
17 | # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
18 | |
18 | |
|
|
19 | #:META:X_RESOURCE:%:string:the shell snippet to execute |
|
|
20 | |
19 | sub on_start { |
21 | sub on_start { |
20 | my ($self) = @_; |
22 | my ($self) = @_; |
21 | |
23 | |
22 | $self->{bell_cmd} = $self->x_resource ("bell-command"); |
24 | $self->{bell_cmd} = $self->x_resource ("bell-command"); |
23 | |
25 | |