--- deliantra/Deliantra-Client/DC.pm	2006/12/06 00:04:13	1.132
+++ deliantra/Deliantra-Client/DC.pm	2006/12/06 00:15:12	1.133
@@ -51,6 +51,16 @@
    ${$_[0]}->()
 }
 
+=item shorten $string[, $maxlength]
+
+=cut
+
+sub shorten($;$) {
+   my ($str, $len) = @_;
+   substr $str, $len, (length $str), "..." if $len + 3 <= length $str;
+   $str
+}
+
 sub asxml($) {
    local $_ = $_[0];
 
@@ -393,6 +403,8 @@
             $move_prefix = "take";
          }
 
+         my $shortname = CFPlus::shorten $self->{name}, 14;
+
          my @menu_items = (
             ["examine", sub { $::CONN->send ("examine $self->{tag}") }],
             ["mark",    sub { $::CONN->send ("mark ". pack "N", $self->{tag}) }],
@@ -437,7 +449,7 @@
                   ]
                )
             ),
-            ["bind <i>apply $self->{name}</i> to a key"   => sub { $::BIND_EDITOR->do_quick_binding (["apply $self->{name}"]) }],
+            ["bind <i>apply $shortname</i> to a key"   => sub { $::BIND_EDITOR->do_quick_binding (["apply $self->{name}"]) }],
          );
 
          CFPlus::UI::Menu->new (items => \@menu_items)->popup ($ev);