… | |
… | |
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…\t(F1)", sub { $::HELP_WINDOW->toggle_visibility }], |
103 | ["Help Browser…\tF1", sub { $::HELP_WINDOW->toggle_visibility }], |
104 | ["Stats & Skills…\t(F2)", sub { ::toggle_player_page ($::STATS_PAGE) }], |
104 | ["Stats & Skills…\tF2", sub { ::toggle_player_page ($::STATS_PAGE) }], |
105 | ["Inventory…\t(F3)", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
105 | ["Inventory…\tF3", sub { ::toggle_player_page ($::INVENTORY_PAGE) }], |
106 | ["Spells…\t(F4)", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
106 | ["Spells…\tF4", sub { ::toggle_player_page ($::SPELL_PAGE) }], |
107 | ["Setup… \t(F5)", sub { $::SETUP_DIALOG->toggle_visibility }], |
107 | ["Setup… \tF5", sub { $::SETUP_DIALOG->toggle_visibility }], |
108 | ["Server Messages…", sub { $::MESSAGE_WINDOW->toggle_visibility }], |
108 | ["Server Messages…", sub { $::MESSAGE_WINDOW->toggle_visibility }], |
109 | [ |
109 | [ |
110 | $::PICKUP_ENABLE->{state} |
110 | $::PICKUP_ENABLE->{state} |
111 | ? "Disable automatic pickup" |
111 | ? "Disable automatic pickup" |
112 | : "Enable automatic pickup", |
112 | : "Enable automatic pickup", |