| … | |
… | |
| 1367 | return unless $CONN; |
1367 | return unless $CONN; |
| 1368 | |
1368 | |
| 1369 | $FLOORBOX->clear; |
1369 | $FLOORBOX->clear; |
| 1370 | $FLOORBOX->add (new CFClient::UI::Empty expand => 1); |
1370 | $FLOORBOX->add (new CFClient::UI::Empty expand => 1); |
| 1371 | |
1371 | |
| 1372 | # we basically have to use the same sorting as everybody else |
1372 | my $count = 4; |
| 1373 | $FLOORBOX->add ( |
1373 | for (@{ $CONN->{container}{0} }) { |
|
|
1374 | if (--$count) { |
| 1374 | map +(new CFClient::UI::InventoryItem item => $_), |
1375 | $FLOORBOX->add (new CFClient::UI::InventoryItem item => $_); |
| 1375 | @{ $CONN->{container}{0} } |
1376 | } else { |
|
|
1377 | $FLOORBOX->add (new CFClient::UI::Label text => "More..."); |
|
|
1378 | last; |
|
|
1379 | } |
| 1376 | ); |
1380 | } |
| 1377 | }); |
1381 | }); |
| 1378 | |
1382 | |
| 1379 | $WANT_REFRESH++; |
1383 | $WANT_REFRESH++; |
| 1380 | } |
1384 | } |
| 1381 | |
1385 | |
