--- deliantra/Deliantra-Client/bin/pclient	2006/04/14 02:03:11	1.99
+++ deliantra/Deliantra-Client/bin/pclient	2006/04/14 10:57:36	1.100
@@ -189,7 +189,18 @@
       child     => (my $vbox = new CFClient::UI::VBox);
 
    $vbox->add ($LOGVIEW = new CFClient::UI::TextView expand => 1);
-   $vbox->add (my $input = new CFClient::UI::Entry);
+   $vbox->add (my $input = new CFClient::UI::LineEntry);
+      $input->connect (activate => sub {
+         my ($input, $text) = @_;
+         $input->set_text ('');
+
+         if ($text =~ /^\/(.*)/) {
+            $::CONN->user_send ("command $1");
+         } else {
+            $::CONN->user_send ("command say $text");
+         }
+         1
+      });
 
    $window
 }