| Subject: | onfocus event is not triggerd on modalfocus |
root@wawicwdev:/opt/server# diff -U 5 /usr/local/share/perl/5.24.1/Curses/UI/Widget.pm.org /usr/local/share/perl/5.24.1/Curses/UI/Widget.pm
--- /usr/local/share/perl/5.24.1/Curses/UI/Widget.pm.org 2018-05-16 19:39:15.046357165 +0200
+++ /usr/local/share/perl/5.24.1/Curses/UI/Widget.pm 2018-05-16 19:39:17.246393160 +0200
@@ -506,10 +506,12 @@
# "Fake" focus for this object.
$this->{-has_modal_focus} = 1;
$this->focus;
$this->draw;
+ $this->run_event('-onfocus');
+
# Event loop ((too?) much like Curses::UI->mainloop)
while ( $this->{-has_modal_focus} ) {
$this->root->do_one_event($this);
}
root@wawicwdev:/opt/server#