… | |
… | |
98 | $self->update; |
98 | $self->update; |
99 | }; |
99 | }; |
100 | } elsif ($ev->{button} == 3) { |
100 | } elsif ($ev->{button} == 3) { |
101 | (new CFClient::UI::Menu |
101 | (new CFClient::UI::Menu |
102 | items => [ |
102 | items => [ |
103 | ["Help Browser… (F1)", sub { $::HELP_WINDOW->toggle_visibility }], |
103 | ["Help Browser…\tF1", sub { $::HELP_WINDOW->toggle_visibility }], |
104 | ["Stats & Skills… (F2)", 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 | ["Inventory… (F3)", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
106 | ["Inventory…\tF4", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
106 | ["Spells… (F4)", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
107 | ["Spells…\tF5", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
107 | ["Setup… (F5)", sub { $::SETUP_DIALOG->toggle_visibility }], |
108 | ["Setup… \tF9", sub { $::SETUP_DIALOG->toggle_visibility }], |
108 | ["Server Messages…", sub { $::MESSAGE_WINDOW->toggle_visibility }], |
109 | ["Server Messages…", sub { $::MESSAGE_WINDOW->toggle_visibility }], |
109 | [ |
110 | [ |
110 | $::PICKUP_ENABLE->{state} |
111 | $::PICKUP_ENABLE->{state} |
111 | ? "Disable automatic pickup" |
112 | ? "Disable automatic pickup" |
112 | : "Enable automatic pickup", |
113 | : "Enable automatic pickup", |
113 | sub { $::PICKUP_ENABLE->toggle } |
114 | sub { $::PICKUP_ENABLE->toggle } |
… | |
… | |
183 | } elsif ($sym == CFClient::SDLK_F1 && !$mod) { |
184 | } elsif ($sym == CFClient::SDLK_F1 && !$mod) { |
184 | $::HELP_WINDOW->toggle_visibility; |
185 | $::HELP_WINDOW->toggle_visibility; |
185 | } elsif ($sym == CFClient::SDLK_F2 && !$mod) { |
186 | } elsif ($sym == CFClient::SDLK_F2 && !$mod) { |
186 | ::toggle_player_page ($::STATS_PAGE); |
187 | ::toggle_player_page ($::STATS_PAGE); |
187 | } elsif ($sym == CFClient::SDLK_F3 && !$mod) { |
188 | } elsif ($sym == CFClient::SDLK_F3 && !$mod) { |
|
|
189 | ::toggle_player_page ($::SKILL_PAGE); |
|
|
190 | } elsif ($sym == CFClient::SDLK_F4 && !$mod) { |
188 | ::toggle_player_page ($::INVENTORY_PAGE); |
191 | ::toggle_player_page ($::INVENTORY_PAGE); |
189 | } elsif ($sym == CFClient::SDLK_F4 && !$mod) { |
192 | } elsif ($sym == CFClient::SDLK_F5 && !$mod) { |
190 | ::toggle_player_page ($::SPELL_PAGE); |
193 | ::toggle_player_page ($::SPELL_PAGE); |
191 | } elsif ($sym == CFClient::SDLK_F5 && !$mod) { |
194 | } elsif ($sym == CFClient::SDLK_F9 && !$mod) { |
192 | $::SETUP_DIALOG->toggle_visibility; |
195 | $::SETUP_DIALOG->toggle_visibility; |
193 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
196 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
194 | $::BIND_EDITOR->set_binding (undef, undef, [], |
197 | $::BIND_EDITOR->set_binding (undef, undef, [], |
195 | sub { |
198 | sub { |
196 | my ($mod, $sym, $cmds) = @_; |
199 | my ($mod, $sym, $cmds) = @_; |