| … | |
… | |
| 1236 | ++$y; |
1236 | ++$y; |
| 1237 | |
1237 | |
| 1238 | my $mask = $_->[1]; |
1238 | my $mask = $_->[1]; |
| 1239 | $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1); |
1239 | $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1); |
| 1240 | $table->add ($x+1, $y, new CFClient::UI::CheckBox |
1240 | $table->add ($x+1, $y, new CFClient::UI::CheckBox |
| 1241 | state => $CFG->{pickup} & $mask, |
1241 | state => $::CFG->{pickup} & $mask, |
| 1242 | on_changed => sub { |
1242 | on_changed => sub { |
| 1243 | my ($box, $value) = @_; |
1243 | my ($box, $value) = @_; |
| 1244 | |
1244 | |
| 1245 | if ($value) { |
1245 | if ($value) { |
| 1246 | $::CFG->{pickup} |= $mask; |
1246 | $::CFG->{pickup} |= $mask; |
| … | |
… | |
| 1255 | }); |
1255 | }); |
| 1256 | } |
1256 | } |
| 1257 | } |
1257 | } |
| 1258 | |
1258 | |
| 1259 | $table->add (2, 18, new CFClient::UI::ValSlider |
1259 | $table->add (2, 18, new CFClient::UI::ValSlider |
| 1260 | range => [0, 0, 16, 1, 1], |
1260 | range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1], |
|
|
1261 | template => ">= 99", |
| 1261 | to_value => sub { ">= " . 5 * $_[0] }, |
1262 | to_value => sub { ">= " . 5 * $_[0] }, |
| 1262 | on_changed => sub { |
1263 | on_changed => sub { |
| 1263 | my ($slider, $value) = @_; |
1264 | my ($slider, $value) = @_; |
| 1264 | |
1265 | |
| 1265 | $::CFG->{pickup} &= ~0x7; |
1266 | $::CFG->{pickup} &= ~0xF; |
| 1266 | $::CFG->{pickup} |= int $value |
1267 | $::CFG->{pickup} |= int $value |
| 1267 | if $value; |
1268 | if $value; |
| 1268 | 1; |
1269 | 1; |
| 1269 | }); |
1270 | }); |
|
|
1271 | |
| 1270 | $table->add (3, 18, new CFClient::UI::Button |
1272 | $table->add (3, 18, new CFClient::UI::Button |
| 1271 | text => "set", |
1273 | text => "set", |
| 1272 | on_activate => sub { |
1274 | on_activate => sub { |
| 1273 | $::CONN->send_command ("pickup $::CFG->{pickup}") |
1275 | $::CONN->send_command ("pickup $::CFG->{pickup}") |
| 1274 | if defined $::CONN; |
1276 | if defined $::CONN; |
