… | |
… | |
1237 | my $cmd = $1; |
1237 | my $cmd = $1; |
1238 | my @args = split /\|/, $2; |
1238 | my @args = split /\|/, $2; |
1239 | @args = (".*") unless @args; |
1239 | @args = (".*") unless @args; |
1240 | |
1240 | |
1241 | my $text = CFClient::pod_to_pango $head2->content; |
1241 | my $text = CFClient::pod_to_pango $head2->content; |
1242 | my @par = CFClient::pod_to_pango_list $head2->content; use Data::Dumper; warn Dumper \@par;#d# |
|
|
1243 | |
1242 | |
1244 | for my $arg (@args) { |
1243 | for my $arg (@args) { |
1245 | $arg = $arg eq ".*" ? "" : " $arg"; |
1244 | $arg = $arg eq ".*" ? "" : " $arg"; |
1246 | |
1245 | |
1247 | $MAPWIDGET->add_command ("$cmd$arg", $text); |
1246 | $MAPWIDGET->add_command ("$cmd$arg", $text); |
… | |
… | |
1681 | return unless $CONN; |
1680 | return unless $CONN; |
1682 | |
1681 | |
1683 | $FLOORBOX->clear; |
1682 | $FLOORBOX->clear; |
1684 | $FLOORBOX->add (new CFClient::UI::Empty expand => 1); |
1683 | $FLOORBOX->add (new CFClient::UI::Empty expand => 1); |
1685 | |
1684 | |
1686 | my $count = 4; |
1685 | my $count = 7; |
1687 | for (@{ $CONN->{container}{0} }) { |
1686 | for (@{ $CONN->{container}{0} }) { |
1688 | if (--$count) { |
1687 | if (--$count) { |
1689 | $FLOORBOX->add (new CFClient::UI::InventoryItem item => $_); |
1688 | $FLOORBOX->add (new CFClient::UI::InventoryItem item => $_); |
1690 | } else { |
1689 | } else { |
1691 | $FLOORBOX->add (new CFClient::UI::Label text => "More..."); |
1690 | $FLOORBOX->add (new CFClient::UI::Label text => "More..."); |