… | |
… | |
903 | sub open_quit_dialog { |
903 | sub open_quit_dialog { |
904 | unless ($QUIT_DIALOG) { |
904 | unless ($QUIT_DIALOG) { |
905 | $QUIT_DIALOG = new CFClient::UI::FancyFrame |
905 | $QUIT_DIALOG = new CFClient::UI::FancyFrame |
906 | x => "center", |
906 | x => "center", |
907 | y => "center", |
907 | y => "center", |
|
|
908 | z => 50, |
908 | title => "Really Quit?", |
909 | title => "Really Quit?", |
909 | ; |
910 | ; |
910 | |
911 | |
911 | $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1); |
912 | $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1); |
912 | |
913 | |
… | |
… | |
1125 | |
1126 | |
1126 | sub make_help_window { |
1127 | sub make_help_window { |
1127 | my $win = new CFClient::UI::FancyFrame |
1128 | my $win = new CFClient::UI::FancyFrame |
1128 | x => 'center', |
1129 | x => 'center', |
1129 | y => 'center', |
1130 | y => 'center', |
|
|
1131 | z => 2, |
1130 | name => 'doc_browser', |
1132 | name => 'doc_browser', |
1131 | force_w => int $WIDTH * 7/8, |
1133 | force_w => int $WIDTH * 7/8, |
1132 | force_h => int $HEIGHT * 7/8, |
1134 | force_h => int $HEIGHT * 7/8, |
1133 | title => "Documentation"; |
1135 | title => "Documentation"; |
1134 | |
1136 | |
… | |
… | |
1209 | $DEBUG_STATUS->show; |
1211 | $DEBUG_STATUS->show; |
1210 | |
1212 | |
1211 | $BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0); |
1213 | $BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0); |
1212 | |
1214 | |
1213 | $STATUSBOX = new CFClient::UI::Statusbox; |
1215 | $STATUSBOX = new CFClient::UI::Statusbox; |
1214 | $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]); |
1216 | $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]); |
1215 | |
1217 | |
1216 | (new CFClient::UI::Frame |
1218 | (new CFClient::UI::Frame |
1217 | bg => [0, 0, 0, 0.4], |
1219 | bg => [0, 0, 0, 0.4], |
1218 | force_x => 0, |
1220 | force_x => 0, |
1219 | force_y => "max", |
1221 | force_y => "max", |
… | |
… | |
1278 | "Configure the video mode, performance, fonts and other graphical aspects of the game."); |
1280 | "Configure the video mode, performance, fonts and other graphical aspects of the game."); |
1279 | $SETUP_NOTEBOOK->add (Audio => audio_setup, |
1281 | $SETUP_NOTEBOOK->add (Audio => audio_setup, |
1280 | "Configure the use of audio, sound effects and background music."); |
1282 | "Configure the use of audio, sound effects and background music."); |
1281 | $SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup, |
1283 | $SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup, |
1282 | "Lets you define, edit and delete bindings." |
1284 | "Lets you define, edit and delete bindings." |
1283 | . "There is a shortcut for making bindings: Left Control + Insert opens the binding editor " |
1285 | . "There is a shortcut for making bindings: <b>Left Control + Insert</b> opens the binding editor " |
1284 | . "with nothing set and the recording started. After doing the actions you " |
1286 | . "with nothing set and the recording started. After doing the actions you " |
1285 | . "want to record press Insert and you will be asked to press a key-combo. " |
1287 | . "want to record press <b>Insert</b> and you will be asked to press a key-combo. " |
1286 | . "After pressing the combo the binding will be saved automatically and the " |
1288 | . "After pressing the combo the binding will be saved automatically and the " |
1287 | . "binding editor closes"); |
1289 | . "binding editor closes"); |
1288 | $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, |
1290 | $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, |
1289 | "Displays all spells you have and lets you edit keyboard shortcuts for them."); |
1291 | "Displays all spells you have and lets you edit keyboard shortcuts for them."); |
1290 | |
1292 | |