ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/cfplus
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.67 by root, Sun Jun 11 18:36:15 2006 UTC vs.
Revision 1.71 by elmex, Tue Jun 13 14:35:18 2006 UTC

363sub stop_game { 363sub stop_game {
364 $LOGIN_BUTTON->set_text ("Login"); 364 $LOGIN_BUTTON->set_text ("Login");
365 $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); 365 $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
366 $SETUP_DIALOG->show; 366 $SETUP_DIALOG->show;
367 $INV_WINDOW->hide; 367 $INV_WINDOW->hide;
368 $SETUP_SPELLS->clear_spells;
368 369
369 return unless $CONN; 370 return unless $CONN;
370 371
371 status "connection closed"; 372 status "connection closed";
372 373
1352 } 1353 }
1353 } 1354 }
1354 }; 1355 };
1355 1356
1356 my $vb = new CFClient::UI::VBox; 1357 my $vb = new CFClient::UI::VBox;
1358 $vb->add (my $hb = new CFClient::UI::HBox);
1359 $hb->add (new CFClient::UI::Label text => "only shift-up stops fire");
1360 $hb->add (new CFClient::UI::CheckBox
1361 expand => 1,
1362 state => $CFG->{shift_fire_stop},
1363 tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
1364 on_changed => sub {
1365 my ($cbox, $value) = @_;
1366 $CFG->{shift_fire_stop} = $value;
1367 });
1368
1357 $vb->add ($binding_list); 1369 $vb->add ($binding_list);
1358 $vb->add (my $hb = new CFClient::UI::HBox); 1370 $vb->add (my $hb = new CFClient::UI::HBox);
1359 1371
1360 $hb->add (new CFClient::UI::Button 1372 $hb->add (new CFClient::UI::Button
1361 text => "record new", 1373 text => "record new",
1504 name => "mapmap", 1516 name => "mapmap",
1505 x => 0, 1517 x => 0,
1506 y => $FONTSIZE + 8, 1518 y => $FONTSIZE + 8,
1507 border_bg => [1, 1, 1, 192/255], 1519 border_bg => [1, 1, 1, 192/255],
1508 bg => [1, 1, 1, 0], 1520 bg => [1, 1, 1, 0],
1521 no_close_button => 1,
1509 child => ($MAPMAP = new CFClient::MapWidget::MapMap 1522 child => ($MAPMAP = new CFClient::MapWidget::MapMap
1510 tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.", 1523 tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",
1511 ), 1524 ),
1512 )->show; 1525 )->show;
1513 1526
1922 video_init; 1935 video_init;
1923 audio_init; 1936 audio_init;
1924} 1937}
1925 1938
1926Event::loop; 1939Event::loop;
1940#CFClient::SDL_Quit;
1941#CFClient::_exit 0;
1927 1942
1928END { CFClient::SDL_Quit } 1943END { CFClient::SDL_Quit }
1929 1944
1930=head1 NAME 1945=head1 NAME
1931 1946

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines