… | |
… | |
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 | } |