| … | |
… | |
| 958 | |
958 | |
| 959 | $hbox->add (my $vbox = new CFPlus::UI::VBox); |
959 | $hbox->add (my $vbox = new CFPlus::UI::VBox); |
| 960 | |
960 | |
| 961 | $vbox->add (new CFPlus::UI::Label text => "Message Entry:"); |
961 | $vbox->add (new CFPlus::UI::Label text => "Message Entry:"); |
| 962 | $vbox->add ($self->{entry} = new CFPlus::UI::Entry |
962 | $vbox->add ($self->{entry} = new CFPlus::UI::Entry |
| 963 | tooltip => "Enter a message you want to tell the NPC and press <b>return</b>.\n\n" |
963 | tooltip => "#npc_message_entry", |
| 964 | . "Sometimes you have to tell an NPC something you cannot find out during " |
|
|
| 965 | . "a normal conversation (such as a password). In those cases you have to use " |
|
|
| 966 | . "this text entry. You can also enter responses manually instead of using the response " |
|
|
| 967 | . "buttons below.", |
|
|
| 968 | on_activate => sub { |
964 | on_activate => sub { |
| 969 | my ($entry, $text) = @_; |
965 | my ($entry, $text) = @_; |
| 970 | |
966 | |
| 971 | return unless $text =~ /\S/; |
967 | return unless $text =~ /\S/; |
| 972 | |
968 | |
