[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC.pm

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.132 by root, Wed Dec 6 00:04:13 2006 UTC vs.
Revision 1.133 by root, Wed Dec 6 00:15:12 2006 UTC

    bless \(my $cb = $_[0]), "CFPlus::Guard"
 }
 sub CFPlus::Guard::DESTROY {
    ${$_[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];
       } elsif ($ev->{button} == 3) {
          my $move_prefix = $::CONN->{open_container} ? 'put' : 'drop';
          if ($self->{container} == $::CONN->{open_container}) {
             $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}) }],
             ["ignite/thaw",  # first try of an easier use of flint&steel
                         do_n_dialog (sub { $::CONN->send ("move $targ $self->{tag} $_[0]") })
                      }
                   ]
                )
             ),
-            ["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);
       }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines