Skip to content

Commit

Permalink
Quick fix for $hook
Browse files Browse the repository at this point in the history
  • Loading branch information
gryf committed Nov 26, 2013
1 parent 0b7eccf commit 34755af
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions tabbed
Expand Up @@ -6,7 +6,7 @@
# - Modified shortcuts for tab navigation - now it uses shift + left/right
# arrow to navigate, also creating new shell is changed to CTRL+Shift+n.
# - Added shortcuts to move tab between others witch CTRL left/right arrow
# - Added some predefinied actions - CTRL+Shift+r for "su -" command and
# - Added some predefined actions - CTRL+Shift+r for "su -" command and
# CTRL+Shift+m for "mc" and other like named ssh sessions.
# - Added labels for custom shells (like "root", "mc" and so on)
#
Expand All @@ -27,7 +27,7 @@
# - new-button, default to 'true'. Used to disable [NEW] button.
#
# 2009-11-24 23:34:51
# - Added possibility to quickswitch between first ten tabs with predefinied
# - Added possibility to quick switch between first ten tabs with predefined
# combination of CTRL+1..0 keys, which will activate proper tab.
# - Added possibility to remove numbers from tab names by setting resource
# tab-numbers to false.
Expand Down Expand Up @@ -100,6 +100,9 @@
# 2013-11-12 09:23:49
# - Restored tab_property_notify hook. Whatever was the cause of the memory
# consumption is gone or doesn't have anything to do with that function.
#
# 2013-11-26 19:31:55
# - Added parentheses for hook, should work on Debian now.


sub tab_activity_mark ($$) {
Expand Down Expand Up @@ -545,10 +548,7 @@ sub tab_key_press {
if ($event->{state} & urxvt::ShiftMask) {
if ($event->{state} & urxvt::ControlMask) {
if(not %{$self->{tabcmds}}){
print chr($keysym) . "\n";
print chr($keysym) == "M". "\n";
if ($keysym == 0x4e){
print "wtf?\n";
$self->new_tab("shell");
return 1;
}
Expand Down Expand Up @@ -643,7 +643,7 @@ package urxvt::ext::tabbed::tab;
# simply proxies all interesting calls back to the tabbed class.

{
for my $hook qw(start destroy key_press add_lines property_notify) {
for my $hook (qw(start destroy key_press add_lines property_notify)) {
eval qq{
sub on_$hook {
my \$parent = \$_[0]{term}{parent}
Expand Down

0 comments on commit 34755af

Please sign in to comment.