diff options
| author | Tom Feist <shabble@cowu.be> | 2010-07-24 18:04:17 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@cowu.be> | 2010-07-24 18:04:17 +0000 |
| commit | 5ad9608ab4c8e828ea979377ce94066a3f7ddccb (patch) | |
| tree | 131e259d481c3e534a89943231272f454187746c /scrolled-reminder | |
| parent | added some text files with various irssi perl-xs glue function dumps (diff) | |
| download | irssi-scripts-5ad9608ab4c8e828ea979377ce94066a3f7ddccb.tar.gz irssi-scripts-5ad9608ab4c8e828ea979377ce94066a3f7ddccb.zip | |
moved testing stuff to a signle dir
Diffstat (limited to 'scrolled-reminder')
| -rw-r--r-- | scrolled-reminder/scrolled_reminder.pl (renamed from scrolled-reminder/scrolled-reminder.pl) | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/scrolled-reminder/scrolled-reminder.pl b/scrolled-reminder/scrolled_reminder.pl index e2775dc..d768220 100644 --- a/scrolled-reminder/scrolled-reminder.pl +++ b/scrolled-reminder/scrolled_reminder.pl @@ -45,12 +45,14 @@ sub handle_keypress { } elsif ($key == 11) { # Ctrl-k } else { } - Irssi::signal_remove('gui key pressed', 'handle_keypress'); + + Irssi::signal_remove('gui key pressed', \&handle_keypress); } sub require_confirmation { my ($window) = @_; - Irssi::signal_add_first('gui key pressed', 'handle_keypress'); + Irssi::signal_add_first('gui key pressed', \&handle_keypress); + $window->print("You are scrolled up Really send?"); write_to_prompt($window, 'Press Ctrl-K to confirm, Ctrl-C to cancel '); } |