| … | |
… | |
| 2 | |
2 | |
| 3 | use strict; |
3 | use strict; |
| 4 | |
4 | |
| 5 | use CFPlus::UI; |
5 | use CFPlus::UI; |
| 6 | |
6 | |
| 7 | our @ISA = CFPlus::UI::FancyFrame::; |
7 | our @ISA = CFPlus::UI::Toplevel::; |
| 8 | |
8 | |
| 9 | my @ALLOWED_MODIFIER_KEYS = ( |
9 | my @ALLOWED_MODIFIER_KEYS = ( |
| 10 | CFPlus::SDLK_LSHIFT, |
10 | CFPlus::SDLK_LSHIFT, |
| 11 | CFPlus::SDLK_LCTRL , |
11 | CFPlus::SDLK_LCTRL , |
| 12 | CFPlus::SDLK_LALT , |
12 | CFPlus::SDLK_LALT , |
| … | |
… | |
| 184 | |
184 | |
| 185 | return if $self->{binder}; |
185 | return if $self->{binder}; |
| 186 | |
186 | |
| 187 | Scalar::Util::weaken $self; |
187 | Scalar::Util::weaken $self; |
| 188 | |
188 | |
| 189 | $self->{binder} = new CFPlus::UI::FancyFrame |
189 | $self->{binder} = new CFPlus::UI::Toplevel |
| 190 | title => "Bind Action", |
190 | title => "Bind Action", |
| 191 | x => "center", |
191 | x => "center", |
| 192 | y => "center", |
192 | y => "center", |
| 193 | z => 1000, |
193 | z => 1000, |
| 194 | has_close_button => 1, |
194 | has_close_button => 1, |
