| … | |
… | |
| 59 | return;#d# |
59 | return;#d# |
| 60 | #return unless defined $^S && !$^S; |
60 | #return unless defined $^S && !$^S; |
| 61 | $Event::DIED->(undef, $_[0]); |
61 | $Event::DIED->(undef, $_[0]); |
| 62 | }; |
62 | }; |
| 63 | |
63 | |
| 64 | our $VERSION = '0.1'; |
64 | our $VERSION = '0.9'; |
| 65 | |
65 | |
| 66 | my $MAX_FPS = 60; |
66 | my $MAX_FPS = 60; |
| 67 | my $MIN_FPS = 5; # unused as of yet |
67 | my $MIN_FPS = 5; # unused as of yet |
| 68 | |
68 | |
| 69 | our $META_SERVER = "crossfire.real-time.com:13326"; |
69 | our $META_SERVER = "crossfire.real-time.com:13326"; |
| … | |
… | |
| 366 | port => $port || 13327, |
366 | port => $port || 13327, |
| 367 | user => $CFG->{profile}{default}{user}, |
367 | user => $CFG->{profile}{default}{user}, |
| 368 | pass => $CFG->{profile}{default}{password}, |
368 | pass => $CFG->{profile}{default}{password}, |
| 369 | mapw => $mapsize, |
369 | mapw => $mapsize, |
| 370 | maph => $mapsize, |
370 | maph => $mapsize, |
|
|
371 | |
|
|
372 | client => "cfplus $VERSION $] $^O", |
| 371 | |
373 | |
| 372 | map_widget => $MAPWIDGET, |
374 | map_widget => $MAPWIDGET, |
| 373 | logview => $LOGVIEW, |
375 | logview => $LOGVIEW, |
| 374 | statusbox => $STATUSBOX, |
376 | statusbox => $STATUSBOX, |
| 375 | map => $MAP, |
377 | map => $MAP, |
| … | |
… | |
| 1126 | |
1128 | |
| 1127 | $window |
1129 | $window |
| 1128 | } |
1130 | } |
| 1129 | |
1131 | |
| 1130 | sub open_string_query { |
1132 | sub open_string_query { |
| 1131 | my $cb = $_[1]; |
1133 | my ($title, $cb, $txt, $tooltip) = @_; |
| 1132 | my $dialog = new CFPlus::UI::Toplevel |
1134 | my $dialog = new CFPlus::UI::Toplevel |
| 1133 | x => "center", |
1135 | x => "center", |
| 1134 | y => "center", |
1136 | y => "center", |
| 1135 | z => 50, |
1137 | z => 50, |
| 1136 | force_w => $WIDTH * 4/5, |
1138 | force_w => $WIDTH * 4/5, |
| 1137 | title => $_[0]; |
1139 | title => $title; |
| 1138 | |
1140 | |
| 1139 | $dialog->add ( |
1141 | $dialog->add ( |
| 1140 | my $e = new CFPlus::UI::Entry |
1142 | my $e = new CFPlus::UI::Entry |
| 1141 | on_activate => sub { $cb->(@_); $dialog->hide; 0 }, |
1143 | on_activate => sub { $cb->(@_); $dialog->hide; 0 }, |
| 1142 | on_key_down => sub { $_[1]->{sym} == 27 and $dialog->hide; 0 }, |
1144 | on_key_down => sub { $_[1]->{sym} == 27 and $dialog->hide; 0 }, |
|
|
1145 | tooltip => $tooltip |
| 1143 | ); |
1146 | ); |
| 1144 | |
1147 | |
| 1145 | $e->grab_focus; |
1148 | $e->grab_focus; |
|
|
1149 | $e->set_text ($txt) if $txt; |
| 1146 | $dialog->show; |
1150 | $dialog->show; |
| 1147 | } |
1151 | } |
| 1148 | |
1152 | |
| 1149 | sub open_quit_dialog { |
1153 | sub open_quit_dialog { |
| 1150 | unless ($QUIT_DIALOG) { |
1154 | unless ($QUIT_DIALOG) { |
