Не работает макрос на AltShiftPgDn/Up
Posted: Sun 19 Jun, 2016 21:59
Где-то нашёл такой полезный макрос, но вот почему-то сочетания клавиш AltShiftPgDn/Up не срабатывают. Если, скажем, убрать Shift, то работает. В чём проблема?
Code: Select all
Macro {
area="Shell"; key="AltShiftPgUp"; flags="NoPluginPanels"; description="Change passive panel folder to the parent folder of active panel folder";
action = function()
panel.SetPanelDirectory(nil,0,panel.GetPanelDirectory(nil,1))
Keys('Tab')
if not APanel.Root then Keys('CtrlPgUp') end
Keys('Tab')
end;
}
Macro {
area="Shell"; key="AltShiftPgDn"; flags="NoPluginPanels"; description="Change passive panel folder to the folder at active panel cursor";
action = function()
if APanel.Folder then
local dir = panel.GetPanelDirectory(nil,1)
panel.SetPanelDirectory(nil,0,dir)
dir.Name=APanel.Current
panel.SetPanelDirectory(nil,0,dir)
else
panel.SetPanelDirectory(nil,0,panel.GetPanelDirectory(nil,1))
end
end;
}