… | |
… | |
311 | expand => 1, align => 0, text => "Apply", |
311 | expand => 1, align => 0, text => "Apply", |
312 | tooltip => "Apply the audio settings", |
312 | tooltip => "Apply the audio settings", |
313 | connect_activate => sub { |
313 | connect_activate => sub { |
314 | audio_shutdown (); |
314 | audio_shutdown (); |
315 | audio_init (); |
315 | audio_init (); |
|
|
316 | } |
|
|
317 | ); |
|
|
318 | |
|
|
319 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd"); |
|
|
320 | $table->add (1, $row++, my $saycmd = new CFClient::UI::Entry |
|
|
321 | text => $CFG->{say_command}, |
|
|
322 | tooltip => "This is the command that will be used if you write a line in the message window entry. " |
|
|
323 | ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " |
|
|
324 | ."But you could also set it to 'tell <playername>' to only chat with that user.", |
|
|
325 | connect_changed => sub { |
|
|
326 | my ($self, $value) = @_; |
|
|
327 | $CFG->{say_command} = $value; |
316 | } |
328 | } |
317 | ); |
329 | ); |
318 | |
330 | |
319 | $dialog |
331 | $dialog |
320 | } |
332 | } |
… | |
… | |
692 | my ($self, $value) = @_; |
704 | my ($self, $value) = @_; |
693 | $CFG->{password} = $value; |
705 | $CFG->{password} = $value; |
694 | } |
706 | } |
695 | ); |
707 | ); |
696 | |
708 | |
697 | $table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd"); |
|
|
698 | $table->add (1, 6, my $saycmd = new CFClient::UI::Entry |
|
|
699 | text => $CFG->{say_command}, |
|
|
700 | tooltip => "This is the command that will be used if you write a line in the message window entry. " |
|
|
701 | ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " |
|
|
702 | ."But you could also set it to 'tell <playername>' to only chat with that user.", |
|
|
703 | connect_changed => sub { |
|
|
704 | my ($self, $value) = @_; |
|
|
705 | $CFG->{say_command} = $value; |
|
|
706 | } |
|
|
707 | ); |
|
|
708 | |
|
|
709 | $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); |
709 | $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); |
710 | $table->add (1, 7, new CFClient::UI::Slider |
710 | $table->add (1, 7, new CFClient::UI::Slider |
711 | req_w => 100, |
711 | req_w => 100, |
712 | range => [$CFG->{mapsize}, 10, 100 + 1, 1], |
712 | range => [$CFG->{mapsize}, 10, 100 + 1, 1], |
713 | tooltip => "This is the size of the portion of the map update the server sends you. " |
713 | tooltip => "This is the size of the portion of the map update the server sends you. " |