| … | |
… | |
| 342 | audio_shutdown (); |
342 | audio_shutdown (); |
| 343 | audio_init (); |
343 | audio_init (); |
| 344 | } |
344 | } |
| 345 | ); |
345 | ); |
| 346 | |
346 | |
| 347 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd"); |
347 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command"); |
| 348 | $table->add (1, $row++, my $saycmd = new CFClient::UI::Entry |
348 | $table->add (1, $row++, my $saycmd = new CFClient::UI::Entry |
| 349 | text => $CFG->{say_command}, |
349 | text => $CFG->{say_command}, |
| 350 | tooltip => "This is the command that will be used if you write a line in the message window entry. " |
350 | tooltip => "This is the command that will be used if you write a line in the message window entry or press <b>\"</b> in the map window. " |
| 351 | ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " |
351 | . "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " |
| 352 | ."But you could also set it to 'tell <playername>' to only chat with that user.", |
352 | . "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.", |
| 353 | connect_changed => sub { |
353 | connect_changed => sub { |
| 354 | my ($self, $value) = @_; |
354 | my ($self, $value) = @_; |
| 355 | $CFG->{say_command} = $value; |
355 | $CFG->{say_command} = $value; |
| 356 | } |
356 | } |
| 357 | ); |
357 | ); |
| … | |
… | |
| 367 | |
367 | |
| 368 | sub set_gauge_window_fontsize { |
368 | sub set_gauge_window_fontsize { |
| 369 | for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) { |
369 | for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) { |
| 370 | $_->set_fontsize ($::CFG->{gauge_fontsize}); |
370 | $_->set_fontsize ($::CFG->{gauge_fontsize}); |
| 371 | } |
371 | } |
| 372 | |
|
|
| 373 | # local $GAUGES->{win}{parent};#d# |
|
|
| 374 | # use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D; |
|
|
| 375 | } |
372 | } |
| 376 | |
373 | |
| 377 | sub make_gauge_window { |
374 | sub make_gauge_window { |
| 378 | my $gh = int $HEIGHT * $CFG->{gauge_size}; |
375 | my $gh = int $HEIGHT * $CFG->{gauge_size}; |
| 379 | |
376 | |
