When_window_closed can't determine the right parent

Question

I have a problem that the when_window_closed can't determine the right parent in de qms$window.when_window_closed procedure of headstart.
In a form I have two windows. One is the parent window and one is a child window. After doing some changes in my parent window I navigate with a button (go_block) to this child window. When I want to close the child window, the child window thinks it's the last window and asks if I want to save my changes. If I say yes my changes are commited and if I say no both the parent and the child window are closed.
A detail about the child window is: the child window has no key_based_link to the blocks on the parent window. I have a similar form with two windows but in this form the blocks are connect by a key_based_link in that form the child window can determine the parent window and does not ask if it has to save any changes.
My question is: Does anyone know how my child window can determine the parent window, even though it's not connected with a key_based_link to the other block, so that when I close the child window I won't be asked to save any changes? In qms$window.when_window_closed the parent is determined but in this case it returns a null for it's parent.

Answer 1

Some additional information, I checked the code of the when_window_closed
and I see the following:
-- this is part of the code in qms$window.when_window_closed who checks if the child window has a parent
if name_in('system.form_status') = 'CHANGED'
then
-- my parent form has been changed so the form_status is changed and I will enter this part of the code
l_group_id := find_group('CGSH$FORM_OBJECTS');
l_parent_id := find_column('CGSH$FORM_OBJECTS.PARENT_NAME');
l_child_id := find_column('CGSH$FORM_OBJECTS.OBJECT_NAME');
l_count := get_group_row_count(l_group_id);
for i in 1..l_count loop
l_child := get_group_char_cell(l_child_id, i);
if upper(l_child) = upper( get_view_property
( get_item_property
( name_in('system.trigger_item')
, item_canvas
, window_name
then
l_parent := get_group_char_cell(l_parent_id, i);
-- l_parent is null ????? Should be a value, cause it's a child window.
-- the only thing I can determine that de parent is null, is that the child window has
-- no key_based_link with the parent window.
l_last_window := (l_parent is null); -- l_last_window becomes true
exit;
end if;
end loop;
if l_last_window -- is true cause the parent id was null
then
if qms$errors.show_message('QMS-00158')
then -- do you want to commit the change
-- if yes then both my child and parent form are commited which I don't want yet
commit_form;
if name_in('system.form_status') <> 'QUERY'
then
go_block('QMS$TRANS_ERRORS');
raise form_trigger_failure;
end if;
else
-- if no then both my child and parrent form are closed and all the changes are discarded
exit_form(no_validate,full_rollback);
end if; -- show message
end if; -- last window
end if; -- form status 'changed'
How can the child window, have a parent window which is null?
And how can I resolve this problem? So that I have a parent window with a value?