| … | |
… | |
| 1133 | $QUIT_DIALOG = new CFClient::UI::FancyFrame |
1133 | $QUIT_DIALOG = new CFClient::UI::FancyFrame |
| 1134 | x => "center", |
1134 | x => "center", |
| 1135 | y => "center", |
1135 | y => "center", |
| 1136 | z => 50, |
1136 | z => 50, |
| 1137 | title => "Really Quit?", |
1137 | title => "Really Quit?", |
|
|
1138 | on_key_down => sub { |
|
|
1139 | my ($dialog, $ev) = @_; |
|
|
1140 | $ev->{sym} == 27 and $dialog->hide; |
|
|
1141 | } |
| 1138 | ; |
1142 | ; |
| 1139 | |
1143 | |
| 1140 | $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1); |
1144 | $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1); |
| 1141 | |
1145 | |
| 1142 | $vb->add (new CFClient::UI::Label |
1146 | $vb->add (new CFClient::UI::Label |
| … | |
… | |
| 1156 | on_activate => sub { exit }, |
1160 | on_activate => sub { exit }, |
| 1157 | ); |
1161 | ); |
| 1158 | } |
1162 | } |
| 1159 | |
1163 | |
| 1160 | $QUIT_DIALOG->show; |
1164 | $QUIT_DIALOG->show; |
|
|
1165 | $QUIT_DIALOG->grab_focus; |
| 1161 | } |
1166 | } |
| 1162 | |
1167 | |
| 1163 | sub autopickup_setup { |
1168 | sub autopickup_setup { |
| 1164 | my $table = new CFClient::UI::Table; |
1169 | my $table = new CFClient::UI::Table; |
| 1165 | |
1170 | |
