| … | |
… | |
| 105 | our $INVR; |
105 | our $INVR; |
| 106 | our $INV_RIGHT_HB; |
106 | our $INV_RIGHT_HB; |
| 107 | |
107 | |
| 108 | our $BIND_WINDOW; |
108 | our $BIND_WINDOW; |
| 109 | our $BIND_EDITOR; |
109 | our $BIND_EDITOR; |
|
|
110 | |
|
|
111 | our $SPELL_LIST; |
| 110 | |
112 | |
| 111 | sub status { |
113 | sub status { |
| 112 | $STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]); |
114 | $STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]); |
| 113 | } |
115 | } |
| 114 | |
116 | |
| … | |
… | |
| 950 | CFClient::Protocol::set_opencont ($::CONN, 0, "Floor"); |
952 | CFClient::Protocol::set_opencont ($::CONN, 0, "Floor"); |
| 951 | |
953 | |
| 952 | $invwin |
954 | $invwin |
| 953 | } |
955 | } |
| 954 | |
956 | |
|
|
957 | sub make_spell_list { |
|
|
958 | $SPELL_LIST = new CFClient::UI::SpellList |
|
|
959 | force_w => $WIDTH * (9/10), |
|
|
960 | force_h => $HEIGHT * (9/10); |
|
|
961 | $SPELL_LIST |
|
|
962 | } |
|
|
963 | |
| 955 | sub make_binding_window { |
964 | sub make_binding_window { |
| 956 | my $binding_list = new CFClient::UI::VBox; |
965 | my $binding_list = new CFClient::UI::VBox; |
| 957 | |
966 | |
| 958 | my $refresh; |
967 | my $refresh; |
| 959 | $refresh = sub { |
968 | $refresh = sub { |
| … | |
… | |
| 1213 | "Lets you define, edit and delete bindings." |
1222 | "Lets you define, edit and delete bindings." |
| 1214 | ."There is a shortcut for making bindings: LCTRL+Insert opens the binding editor " |
1223 | ."There is a shortcut for making bindings: LCTRL+Insert opens the binding editor " |
| 1215 | ."with nothing set and the recording started. After doing the actions you " |
1224 | ."with nothing set and the recording started. After doing the actions you " |
| 1216 | ."want to record press Insert and you will be asked to press a key-combo." |
1225 | ."want to record press Insert and you will be asked to press a key-combo." |
| 1217 | ."After pressing the combo the binding will be saved automatically and the " |
1226 | ."After pressing the combo the binding will be saved automatically and the " |
| 1218 | ."binding editor closes" |
1227 | ."binding editor closes"); |
| 1219 | ); |
1228 | |
|
|
1229 | $BUTTONBAR->add (new CFClient::UI::Flopper |
|
|
1230 | text => "Spells", |
|
|
1231 | other => make_spell_list, |
|
|
1232 | tooltip => "The spell list"); |
| 1220 | |
1233 | |
| 1221 | $BUTTONBAR->add (new CFClient::UI::Button |
1234 | $BUTTONBAR->add (new CFClient::UI::Button |
| 1222 | text => "Quit", |
1235 | text => "Quit", |
| 1223 | tooltip => "Terminates the program", |
1236 | tooltip => "Terminates the program", |
| 1224 | on_activate => sub { |
1237 | on_activate => sub { |
