Я опубликовал "Как понять использование POE-Tk для уничтожения?" в попытке уменьшить ошибку в моем производственном коде до тестовый случай. Но, похоже, решение тестового примера работает не по полной программе.
Программа состоит из 800+ строк, поэтому я не решаюсь опубликовать ее полностью. Я понимаю, что фрагменты, которые я здесь привожу, могут быть слишком короткими, чтобы их можно было использовать, но я надеюсь получить некоторое направление в том, где искать решение или какую дополнительную информацию я могу предоставить.
Вот раздел Session::Create моего приложения POE-Tk.
POE::Session->create(
inline_states => {
_start => \&ui_start,
get_zone => \&get_zone,
ping => \&ping,
mk_disable => \&mk_disable,
mk_active => \&mk_active,
pop_up_add => \&pop_up_add,
add_button_press => sub {
my ($kernel, $session, $heap) = @_[KERNEL, SESSION, HEAP];
print "\nadd button pressed\n\n";
&validate;
},
ih_button_1_press => sub {
my ($kernel, $session, $heap) = @_[KERNEL, SESSION, HEAP];
print "\nih_button_1 pressed\n\n";
if( Tk::Exists($heap->{ih_mw}) ) {
print "\n\nih_mw exists in ih_button_1_press\n\n";
} else {
print "\n\nih_mw does not exist in ih_button_1_press\n\n";
}
1;
$heap->{ih_mw}->destroy if Tk::Exists($heap->{ih_mw});
&auth;
},
pop_up_del => \&pop_up_del,
auth => \&auth,
# validate => \&validate,
auth_routine => \&auth_routine,
raise_widget => \&raise_widget,
del_action => \&del_action,
over => sub { exit; }
}
);
add_button_press
вызывается здесь;
sub pop_up_add {
...
my $add_but_2 = $add_frm_2->Button(
-text => "Add Record",
-command => $session->postback("add_button_press"),
-font => "{Arial} 12 {bold}") -> pack(
-anchor => 'c',
-pady => 6,
);
...
}
validate создает виджет верхнего уровня $heap->{ih_mw};
sub validate {
...
if( ! $valid ) {
print "\n! valid entered\n\n";
$heap->{label_text} .= "Add record anyway?";
my $lt_ref = \$heap->{label_text};
...
my $heap->{ih_mw} = $heap->{add_mw}->Toplevel( -title => "ih_mw");
...
if( Tk::Exists($heap->{ih_mw}) ) {
print "\n\nih_mw exists in validate\n\n";
} else {
print "\n\nih_mw does not exist in validate\n\n";
}
...
my $ih_but1 = $heap->{ih_mw}->Button( -text => "Add",
-font => 'vfont',
-command => $session->postback("ih_button_1_press"),
)->pack( -pady => 5 );
...
}
Нажатие $ih_but1 приводит к этому;
C:\scripts\alias\resource>alias_poe_V-3_0_par.pl
кнопка добавления нажата
вспомогательная проверка называется
! действительный введенный
ih_mw
существует в проверке
ih_button_1
нажата
ih_mw
не существует в ih_button_1_press
Таким образом, виджет $heap->{ih_mw}
кажется неизвестным анонимной подпрограмме ih_button_1_press
даже при включении "($kernel, $session, $heap) = @_[KERNEL, SESSION, HEAP];
"