| … | |
… | |
| 944 | $hb->add (my $vb2 = new CFClient::UI::VBox); |
944 | $hb->add (my $vb2 = new CFClient::UI::VBox); |
| 945 | |
945 | |
| 946 | $vb2->add (my $hb2 = new CFClient::UI::HBox); |
946 | $vb2->add (my $hb2 = new CFClient::UI::HBox); |
| 947 | $hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0, expand => 1, text => "Floor"); |
947 | $hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0, expand => 1, text => "Floor"); |
| 948 | $hb2->add (new CFClient::UI::Button |
948 | $hb2->add (new CFClient::UI::Button |
| 949 | text => "Close", |
949 | text => "Close container", |
| 950 | tooltip => "Close the currently open container (if one is open)", |
950 | tooltip => "Close the currently open container (if one is open)", |
| 951 | on_activate => sub { |
951 | on_activate => sub { |
| 952 | $CONN->send ("apply $CONN->{open_container}") |
952 | $CONN->send ("apply $CONN->{open_container}") |
| 953 | if $CONN->{open_container} != 0; |
953 | if $CONN->{open_container} != 0; |
| 954 | }, |
954 | }, |
