… | |
… | |
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 | |