--- deliantra/Deliantra-Client/DC.pm	2006/08/14 01:21:01	1.113
+++ deliantra/Deliantra-Client/DC.pm	2006/08/14 04:34:40	1.114
@@ -285,6 +285,15 @@
                   });
                }
             ],
+            ["rename",  # first try of an easier use of flint&steel
+               sub {
+                  &::open_string_query ("Rename item to:", sub {
+                     my ($entry, $txt) = @_;
+                     $::CONN->send ("mark ". pack "N", $self->{tag});
+                     $::CONN->send ("command rename to <$txt>");
+                  });
+               }
+            ],
             ["apply",   sub { $::CONN->send ("apply $self->{tag}") }],
             (
                $self->{flags} & F_LOCKED