… | |
… | |
858 | |
858 | |
859 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); |
859 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); |
860 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); |
860 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); |
861 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window); |
861 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window); |
862 | |
862 | |
863 | $CFClient::UI::ROOT->add (make_gauge_window); # XXX: this has to be set before make_stats_window as make_stats_window calls update_stats_window which updated the gauges also X-D |
863 | make_gauge_window->show; # XXX: this has to be set before make_stats_window as make_stats_window calls update_stats_window which updated the gauges also X-D |
|
|
864 | |
864 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window); |
865 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window); |
865 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window); |
866 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window); |
866 | |
867 | |
867 | $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub { |
868 | $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub { |
868 | CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; |
869 | CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; |
… | |
… | |
1322 | sub update_floorbox { |
1323 | sub update_floorbox { |
1323 | $CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub { |
1324 | $CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub { |
1324 | $FLOORBOX->clear; |
1325 | $FLOORBOX->clear; |
1325 | $FLOORBOX->add (new CFClient::UI::Empty expand => 1); |
1326 | $FLOORBOX->add (new CFClient::UI::Empty expand => 1); |
1326 | |
1327 | |
1327 | my @items = values %{ $CONN->{container}{0} }; |
|
|
1328 | |
|
|
1329 | # we basically have to use the same sorting as everybody else |
1328 | # we basically have to use the same sorting as everybody else |
1330 | @items = sort { $a->{type} <=> $b->{type} } @items; |
1329 | for my $item (@{ $CONN->{container}{0} }) { |
1331 | |
|
|
1332 | for my $item (reverse @items) { |
|
|
1333 | my $desc = $item->{nrof} < 2 |
1330 | my $desc = $item->{nrof} < 2 |
1334 | ? $item->{name} |
1331 | ? $item->{name} |
1335 | : "$item->{nrof} $item->{name_pl}"; |
1332 | : "$item->{nrof} $item->{name_pl}"; |
1336 | # todo: animation widget, face widget, weight(?) etc. |
1333 | # todo: animation widget, face widget, weight(?) etc. |
1337 | $FLOORBOX->add (my $hbox = new CFClient::UI::HBox |
1334 | $FLOORBOX->add (my $hbox = new CFClient::UI::HBox |