… | |
… | |
65 | _Go => { |
65 | _Go => { |
66 | item_type => '<Branch>', |
66 | item_type => '<Branch>', |
67 | children => [ |
67 | children => [ |
68 | "_Up" => { |
68 | "_Up" => { |
69 | callback => sub { $self->follow ('u') }, |
69 | callback => sub { $self->follow ('u') }, |
70 | accelerator => "<ctrl>U" |
70 | accelerator => "<ctrl>Up" |
71 | }, |
71 | }, |
72 | "_Down" => { |
72 | "_Down" => { |
73 | callback => sub { $self->follow ('d') }, |
73 | callback => sub { $self->follow ('d') }, |
74 | accelerator => "<ctrl>D" |
74 | accelerator => "<ctrl>Down" |
75 | }, |
75 | }, |
76 | "_Right" => { |
76 | "_Right" => { |
77 | callback => sub { $self->follow ('r') }, |
77 | callback => sub { $self->follow ('r') }, |
78 | accelerator => "<ctrl>R" |
78 | accelerator => "<ctrl>Right" |
79 | }, |
79 | }, |
80 | "_Left" => { |
80 | "_Left" => { |
81 | callback => sub { $self->follow ('l') }, |
81 | callback => sub { $self->follow ('l') }, |
82 | accelerator => "<ctrl>L" |
82 | accelerator => "<ctrl>Left" |
83 | }, |
83 | }, |
84 | ] |
84 | ] |
85 | }, |
85 | }, |
86 | _Help => { |
86 | _Help => { |
87 | item_type => '<Branch>', |
87 | item_type => '<Branch>', |