| … | |
… | |
| 1196 | $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1); |
1196 | $table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1); |
| 1197 | $table->add ($x+1, $y, new CFClient::UI::CheckBox |
1197 | $table->add ($x+1, $y, new CFClient::UI::CheckBox |
| 1198 | state => $CFG->{pickup} & $mask, |
1198 | state => $CFG->{pickup} & $mask, |
| 1199 | on_changed => sub { |
1199 | on_changed => sub { |
| 1200 | my ($box, $value) = @_; |
1200 | my ($box, $value) = @_; |
|
|
1201 | |
| 1201 | if ($value) { |
1202 | if ($value) { |
| 1202 | $::CFG->{pickup} |= $mask; |
1203 | $::CFG->{pickup} |= $mask; |
| 1203 | } else { |
1204 | } else { |
| 1204 | $::CFG->{pickup} = $::CFG->{pickup} & ~$mask; |
1205 | $::CFG->{pickup} &= ~$mask; |
| 1205 | } |
1206 | } |
|
|
1207 | |
| 1206 | $::CONN->send (sprintf "command pickup %u", $::CFG->{pickup}) |
1208 | $::CONN->send_command ("pickup $::CFG->{pickup}") |
| 1207 | if defined $::CONN; |
1209 | if defined $::CONN; |
| 1208 | }); |
1210 | }); |
| 1209 | } |
1211 | } |
| 1210 | } |
1212 | } |
| 1211 | |
1213 | |
| … | |
… | |
| 1797 | bgm_enable => 1, |
1799 | bgm_enable => 1, |
| 1798 | bgm_volume => 0.25, |
1800 | bgm_volume => 0.25, |
| 1799 | face_prefetch => 0, |
1801 | face_prefetch => 0, |
| 1800 | output_sync => 1, |
1802 | output_sync => 1, |
| 1801 | output_count => 1, |
1803 | output_count => 1, |
|
|
1804 | pickup => 0, |
| 1802 | ); |
1805 | ); |
| 1803 | |
1806 | |
| 1804 | while (my ($k, $v) = each %DEF_CFG) { |
1807 | while (my ($k, $v) = each %DEF_CFG) { |
| 1805 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
1808 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
| 1806 | } |
1809 | } |
