--- deliantra/Deliantra-Client/bin/cfplus	2006/07/30 13:14:15	1.104
+++ deliantra/Deliantra-Client/bin/cfplus	2006/07/30 13:40:18	1.105
@@ -1135,6 +1135,25 @@
    $window
 }
 
+sub open_string_query {
+   my $cb = $_[1];
+   my $dialog = new CFPlus::UI::FancyFrame
+      x => "center",
+      y => "center",
+      z => 50,
+      force_w => $WIDTH * 4/5,
+      title => $_[0];
+
+   $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 },
+   );
+
+   $e->grab_focus;
+   $dialog->show;
+}
+
 sub open_quit_dialog {
    unless ($QUIT_DIALOG) {
       $QUIT_DIALOG = new CFPlus::UI::FancyFrame