[perl-win32-gui-hackers] MDI apps and keyboard navigation (dialogui)

[Salvador O. <so...@ms...>]

Hi all,
        
Right now when using the MDI TAB navigation just doesn't works, as a
test just change the MDI.pl sample by adding a second Textfield control,
make them singleline (to keep it simple), add the proper tabstop => 1
and try adding a dialogui=>1 either to the MDIChild or to the MDIFrame.
        
(Complete test case at request)
        
The first case (dialogui=>1 in MDIChild) simply doesn't works because in
the main loop of Dialog in GUI.xs, fIsDialog is tested only on the top
window.
        
In the second case (dialogui=>1 in MDIFrame) a first TAB seems to work,
but the focus doesn't move past the first control.
        
Worse, when I try adding a -controlparent => 1 to the MDIChild, a few
TABs results in all the application freezing.
        
The attached patch cures that, allowing dialogui=>1 in the MDIChild and
calling IsDialogMessage in the context of that window.
        
Comments?
        
Regards.
        
-- 
Salvador Ortiz <so...@ms...>