| … | |
… | |
| 933 | $QUIT_DIALOG->show; |
933 | $QUIT_DIALOG->show; |
| 934 | } |
934 | } |
| 935 | |
935 | |
| 936 | sub make_pickup_cfg_window { |
936 | sub make_pickup_cfg_window { |
| 937 | $PICKUP_CFG = new CFClient::UI::FancyFrame |
937 | $PICKUP_CFG = new CFClient::UI::FancyFrame |
|
|
938 | title => "Autopickup configuration", |
| 938 | x => "center", |
939 | x => "center", |
| 939 | y => "center", |
940 | y => "center", |
| 940 | force_w => $WIDTH * 3/10, |
941 | force_w => $WIDTH * 3/10, |
| 941 | force_h => $HEIGHT * 9/10; |
942 | force_h => $HEIGHT * 9/10; |
| 942 | |
943 | |
| 943 | my $tbl = new CFClient::UI::Table; |
944 | my $tbl = new CFClient::UI::Table; |
| 944 | my $tblrow = 0; |
945 | my $tblrow = 0; |
|
|
946 | |
| 945 | $PICKUP_CFG->add (my $sw = new CFClient::UI::ScrolledWindow scrolled => $tbl); |
947 | $PICKUP_CFG->add (my $sw = new CFClient::UI::ScrolledWindow scrolled => $tbl, expand => 1); |
| 946 | |
948 | |
| 947 | for ( |
949 | for ( |
| 948 | ["General"], |
|
|
| 949 | ["Enable (new) autopickup" => CFClient::Pickup::PU_NEWMODE], |
950 | ["Enable (new) autopickup" => CFClient::Pickup::PU_NEWMODE], |
| 950 | ["Inhibit autopickup" => CFClient::Pickup::PU_INHIBIT], |
951 | ["Inhibit autopickup" => CFClient::Pickup::PU_INHIBIT], |
| 951 | ["Stop before pickup" => CFClient::Pickup::PU_STOP], |
952 | ["Stop before pickup" => CFClient::Pickup::PU_STOP], |
| 952 | ["Debug autopickup" => CFClient::Pickup::PU_DEBUG], |
953 | ["Debug autopickup" => CFClient::Pickup::PU_DEBUG], |
| 953 | ["Weapons"], |
954 | ["Weapons"], |
