… | |
… | |
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 { |