| … | |
… | |
| 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…\tF1", sub { $::HELP_WINDOW->toggle_visibility }], |
103 | ["Help Browser…\tF1", sub { $::HELP_WINDOW->toggle_visibility }], |
| 104 | ["Stats & Skills…\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 | ["Inventory…\tF3", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
106 | ["Inventory…\tF4", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
| 106 | ["Spells…\tF4", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
107 | ["Spells…\tF5", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
| 107 | ["Setup… \tF5", 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) = @_; |
