mirror of
https://github.com/gryf/tabbedalt.git
synced 2025-12-18 12:00:33 +01:00
Quick fix for $hook
This commit is contained in:
12
tabbed
12
tabbed
@@ -6,7 +6,7 @@
|
|||||||
# - Modified shortcuts for tab navigation - now it uses shift + left/right
|
# - Modified shortcuts for tab navigation - now it uses shift + left/right
|
||||||
# arrow to navigate, also creating new shell is changed to CTRL+Shift+n.
|
# 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 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.
|
# CTRL+Shift+m for "mc" and other like named ssh sessions.
|
||||||
# - Added labels for custom shells (like "root", "mc" and so on)
|
# - Added labels for custom shells (like "root", "mc" and so on)
|
||||||
#
|
#
|
||||||
@@ -27,7 +27,7 @@
|
|||||||
# - new-button, default to 'true'. Used to disable [NEW] button.
|
# - new-button, default to 'true'. Used to disable [NEW] button.
|
||||||
#
|
#
|
||||||
# 2009-11-24 23:34:51
|
# 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.
|
# combination of CTRL+1..0 keys, which will activate proper tab.
|
||||||
# - Added possibility to remove numbers from tab names by setting resource
|
# - Added possibility to remove numbers from tab names by setting resource
|
||||||
# tab-numbers to false.
|
# tab-numbers to false.
|
||||||
@@ -100,6 +100,9 @@
|
|||||||
# 2013-11-12 09:23:49
|
# 2013-11-12 09:23:49
|
||||||
# - Restored tab_property_notify hook. Whatever was the cause of the memory
|
# - 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.
|
# 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 ($$) {
|
sub tab_activity_mark ($$) {
|
||||||
@@ -545,10 +548,7 @@ sub tab_key_press {
|
|||||||
if ($event->{state} & urxvt::ShiftMask) {
|
if ($event->{state} & urxvt::ShiftMask) {
|
||||||
if ($event->{state} & urxvt::ControlMask) {
|
if ($event->{state} & urxvt::ControlMask) {
|
||||||
if(not %{$self->{tabcmds}}){
|
if(not %{$self->{tabcmds}}){
|
||||||
print chr($keysym) . "\n";
|
|
||||||
print chr($keysym) == "M". "\n";
|
|
||||||
if ($keysym == 0x4e){
|
if ($keysym == 0x4e){
|
||||||
print "wtf?\n";
|
|
||||||
$self->new_tab("shell");
|
$self->new_tab("shell");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
@@ -643,7 +643,7 @@ package urxvt::ext::tabbed::tab;
|
|||||||
# simply proxies all interesting calls back to the tabbed class.
|
# 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{
|
eval qq{
|
||||||
sub on_$hook {
|
sub on_$hook {
|
||||||
my \$parent = \$_[0]{term}{parent}
|
my \$parent = \$_[0]{term}{parent}
|
||||||
|
|||||||
Reference in New Issue
Block a user