… | |
… | |
1280 | |
1280 | |
1281 | $window |
1281 | $window |
1282 | } |
1282 | } |
1283 | |
1283 | |
1284 | sub autopickup_setup { |
1284 | sub autopickup_setup { |
|
|
1285 | my $r = new CFPlus::UI::ScrolledWindow ( |
|
|
1286 | expand => 1, |
|
|
1287 | scroll_y => 1 |
|
|
1288 | ); |
1285 | my $table = new CFPlus::UI::Table; |
1289 | $r->add (my $table = new CFPlus::UI::Table |
|
|
1290 | row_expand => [0], |
|
|
1291 | col_expand => [0, 1, 0, 1], |
|
|
1292 | ); |
1286 | |
1293 | |
1287 | for ( |
1294 | for ( |
1288 | ["General", 0, 0, |
1295 | ["General", 0, 0, |
1289 | ["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE], |
1296 | ["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE], |
1290 | ["Inhibit autopickup" => PICKUP_INHIBIT], |
1297 | ["Inhibit autopickup" => PICKUP_INHIBIT], |
… | |
… | |
1374 | $::CONN->send_command ("pickup $::CFG->{pickup}") |
1381 | $::CONN->send_command ("pickup $::CFG->{pickup}") |
1375 | if defined $::CONN; |
1382 | if defined $::CONN; |
1376 | 0 |
1383 | 0 |
1377 | }); |
1384 | }); |
1378 | |
1385 | |
1379 | $table |
1386 | $r |
1380 | } |
1387 | } |
1381 | |
1388 | |
1382 | my %SORT_ORDER = ( |
1389 | my %SORT_ORDER = ( |
1383 | type => undef, |
1390 | type => undef, |
1384 | mtime => sub { |
1391 | mtime => sub { |