… | |
… | |
101 | (new CFClient::UI::Menu |
101 | (new CFClient::UI::Menu |
102 | items => [ |
102 | items => [ |
103 | ["Help Browser…\tF1", sub { $::HELP_WINDOW->toggle_visibility }], |
103 | ["Help Browser…\tF1", sub { $::HELP_WINDOW->toggle_visibility }], |
104 | ["Statistics\tF2", sub { ::toggle_player_page ($::STATS_PAGE) }], |
104 | ["Statistics\tF2", sub { ::toggle_player_page ($::STATS_PAGE) }], |
105 | ["Skills\tF3", sub { ::toggle_player_page ($::SKILL_PAGE) }], |
105 | ["Skills\tF3", sub { ::toggle_player_page ($::SKILL_PAGE) }], |
|
|
106 | ["Spells…\tF4", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
106 | ["Inventory…\tF4", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
107 | ["Inventory…\tF5", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
107 | ["Spells…\tF5", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
|
|
108 | ["Setup… \tF9", sub { $::SETUP_DIALOG->toggle_visibility }], |
108 | ["Setup… \tF9", sub { $::SETUP_DIALOG->toggle_visibility }], |
109 | ["Server Messages…", sub { $::MESSAGE_WINDOW->toggle_visibility }], |
109 | ["Server Messages…", sub { $::MESSAGE_WINDOW->toggle_visibility }], |
110 | [ |
110 | [ |
111 | $::PICKUP_ENABLE->{state} |
111 | $::PICKUP_ENABLE->{state} |
112 | ? "Disable automatic pickup" |
112 | ? "Disable automatic pickup" |
… | |
… | |
186 | } elsif ($sym == CFClient::SDLK_F2 && !$mod) { |
186 | } elsif ($sym == CFClient::SDLK_F2 && !$mod) { |
187 | ::toggle_player_page ($::STATS_PAGE); |
187 | ::toggle_player_page ($::STATS_PAGE); |
188 | } elsif ($sym == CFClient::SDLK_F3 && !$mod) { |
188 | } elsif ($sym == CFClient::SDLK_F3 && !$mod) { |
189 | ::toggle_player_page ($::SKILL_PAGE); |
189 | ::toggle_player_page ($::SKILL_PAGE); |
190 | } elsif ($sym == CFClient::SDLK_F4 && !$mod) { |
190 | } elsif ($sym == CFClient::SDLK_F4 && !$mod) { |
|
|
191 | ::toggle_player_page ($::SPELL_PAGE); |
|
|
192 | } elsif ($sym == CFClient::SDLK_F5 && !$mod) { |
191 | ::toggle_player_page ($::INVENTORY_PAGE); |
193 | ::toggle_player_page ($::INVENTORY_PAGE); |
192 | } elsif ($sym == CFClient::SDLK_F5 && !$mod) { |
|
|
193 | ::toggle_player_page ($::SPELL_PAGE); |
|
|
194 | } elsif ($sym == CFClient::SDLK_F9 && !$mod) { |
194 | } elsif ($sym == CFClient::SDLK_F9 && !$mod) { |
195 | $::SETUP_DIALOG->toggle_visibility; |
195 | $::SETUP_DIALOG->toggle_visibility; |
196 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
196 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
197 | $::BIND_EDITOR->set_binding (undef, undef, [], |
197 | $::BIND_EDITOR->set_binding (undef, undef, [], |
198 | sub { |
198 | sub { |