--- deliantra/Deliantra-Client/bin/cfplus	2006/08/14 04:15:04	1.116
+++ deliantra/Deliantra-Client/bin/cfplus	2006/08/15 06:30:05	1.117
@@ -1128,21 +1128,23 @@
 }
 
 sub open_string_query {
-   my $cb = $_[1];
+   my ($title, $cb, $txt, $tooltip) = @_;
    my $dialog = new CFPlus::UI::Toplevel
       x => "center",
       y => "center",
       z => 50,
       force_w => $WIDTH * 4/5,
-      title => $_[0];
+      title => $title;
 
    $dialog->add (
       my $e = new CFPlus::UI::Entry
          on_activate => sub { $cb->(@_); $dialog->hide; 0 },
          on_key_down => sub { $_[1]->{sym} == 27 and $dialog->hide; 0 },
+         tooltip => $tooltip
    );
 
    $e->grab_focus;
+   $e->set_text ($txt) if $txt;
    $dialog->show;
 }