| … | |
… | |
| 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..."); |
