How do shared the data from Child to parent xdialog?

[johnkoh]

Hi

This is an a5 Embedded xdlg sample. I have the trouble understanding the "sharing" value between child and parent xdialog coding.
After I entered the value at child, I just want to see the value at Parent xdialog.

How do shared the data from Child to parent xdialog?

dim name as c
ui_modeless_dlg_box("ParentDialog",<<%dlg%
{startup=init}
{frame=1,1}

Name from child: [.20name];

{lf};
<Close>{sp}<Hello>;
%dlg%,<<%code%
if a_dlg_button = "Hello" then
	show_embedded(local_variables())
'    ui_dlg_event("ChildDialog","Hello",.t.)
'    ui_msg_box("","Another message from the parent dialog")
end if

if a_dlg_button = "init" then
    a_dlg_button = ""
    show_embedded(local_variables())
end if

if a_dlg_button = "close" then
    ui_modeless_dlg_close("ParentDialog")
end if
%code%)

function show_embedded as C (vars as P)
    with vars
	ui_modeless_dlg_box("ChildDialog",<<%dlg%
	{wrap=40}
	This is an embedded dialog box that responds to the Hello event sent to it from its parent.;
	{lf};
	Name: [.20name];
	{lf};
	Enter a name into the Name field and click this button. After 2 seconds, the "Hello" dialog box will appear.;
	{lf};
	<Hello><close>;
	%dlg%,<<%code%
	if a_dlg_button ="close" then
	    ui_modeless_dlg_close("ChildDialog")
	end if
	
	if a_dlg_button = "Hello" then
	    sleep(2)
	    ui_msg_box("Child","Hello: " + name)
	end if
	%code%)
	end with
end function

[Stan Mathews]

function show_embedded as C (vars as P)

The show_embedded() function receives a pointer to the variables in the parent xdialog. The child xdialog can then reference them.

[johnkoh]

Stan,

I already use the Pointer on my script. Are you referring something else?

function show_embedded as C (vars as P)
with vars

[Stan Mathews]

Maybe I misunderstand. The variable exists in both the parent and child xdialogs? If you want do something in the child xdialog and see it in the parent you have to change the variable in the child. I've modified the example to add " Smith" to the name variable. If you use the name "Joe" in the parent, hit the Hello button, when you return to the parent the name has changed to "Joe Smith".

dim name as c
ui_modeless_dlg_box("ParentDialog",<<%dlg%
{startup=init}
{frame=1,1}

Name from child: [.20name];

{lf};
<Close>{sp}<Hello>;
%dlg%,<<%code%
if a_dlg_button = "Hello" then
	show_embedded(local_variables())
'    ui_dlg_event("ChildDialog","Hello",.t.)
'    ui_msg_box("","Another message from the parent dialog")
end if

if a_dlg_button = "init" then
    a_dlg_button = ""
    show_embedded(local_variables())
end if

if a_dlg_button = "close" then
    ui_modeless_dlg_close("ParentDialog")
end if
%code%)

function show_embedded as C (vars as P)
    with vars
	ui_modeless_dlg_box("ChildDialog",<<%dlg%
	{wrap=40}
	This is an embedded dialog box that responds to the Hello event sent to it from its parent.;
	{lf};
	Name: [.20name];
	{lf};
	Enter a name into the Name field and click this button. After 2 seconds, the "Hello" dialog box will appear.;
	{lf};
	<Hello><close>;
	%dlg%,<<%code%
	if a_dlg_button ="close" then
	    ui_modeless_dlg_close("ChildDialog")
	end if
	
	if a_dlg_button = "Hello" then
	    sleep(2)
	    ui_msg_box("Child","Hello: " + name)
        name = name + " Smith"
	end if
	%code%)
	end with
end function

[johnkoh]

Stan,

The variable exists in both the parent and child xdialogs?

The Parent is a main coding and child is one of UDF which will read other tables and get the value in my actual scripts.

If you want do something in the child xdialog and see it in the parent you have to change the variable in the child.

YES, This is what I need to do.


AS your sample, I still not able to get the value. see attachment.

[Stan Mathews]

The parent dialog name variable was being changed, it just wasn't visible.

dim name as c
ui_modeless_dlg_box("ParentDialog",<<%dlg%
{startup=init}
{frame=1,1}

Name from child: [.20name];

{lf};
<Close>{sp}<Hello>;
%dlg%,<<%code%
if a_dlg_button = "Hello" then
	show_embedded(local_variables())
'    ui_dlg_event("ChildDialog","Hello",.t.)
'    ui_msg_box("","Another message from the parent dialog")
end if

if a_dlg_button = "init" then
    a_dlg_button = ""
    UI_MODELESS_DLG_REFRESH("ParentDialog")
    show_embedded(local_variables())
end if

if a_dlg_button = "close" then
    ui_modeless_dlg_close("ParentDialog")
end if
%code%)

function show_embedded as C (vars as P)
    with vars
	ui_modeless_dlg_box("ChildDialog",<<%dlg%
	{wrap=40}
	This is an embedded dialog box that responds to the Hello event sent to it from its parent.;
	{lf};
	Name: [.20name];
	{lf};
	Enter a name into the Name field and click this button. After 2 seconds, the "Hello" dialog box will appear.;
	{lf};
	<Hello><close>;
	%dlg%,<<%code%
	if a_dlg_button ="close" then
	    ui_modeless_dlg_close("ChildDialog")
	end if
	
	if a_dlg_button = "Hello" then
	    sleep(2)
	    ui_msg_box("Child","Hello: " + name)
	end if
	%code%)
	end with
end function

[johnkoh]

Stan,

Thank you but the " UI_MODELESS_DLG_REFRESH("ParentDialog") " did not work on my test.
I gave up with previous sample code.

I changed my code with dim "shared" the field name. This code is working at least.

My question is How to avoid to call shared on "dim shared vName as C" ?

If I use the " vSect = session_variables() " instead of " vSect = local_variables() ", Is it possible to avoid the "Shared"?

vSect = local_variables()

dim shared vName as C
dim dlg_title as C 

dlg_title = "Parent "

ui_dlg_box(dlg_title,<<%dlg%
{startup=init}
[.25vName];
{lf};
<Set Title!settitle>

%dlg%,<<%code%
if a_dlg_button = "init" then
    Show_me(vsect)
    a_dlg_button = ""
end if

if a_dlg_button = "settitle" then
	Show_me(vsect)
    a_dlg_button = ""
end if
%code%)

Function Show_me as c(vars as p)
	'// with vars
	dim shared vName as C
	ui_dlg_box("child",<<%dlg%
	[.25vName];
	<.15Cancel!cancel> <.15Ok!ok>
	%dlg%,<<%code%
	if a_dlg_button ="cancel" then
	    cancel()
	end if
	
	%code%)
	'// end with
end function

[johnkoh]

Stan,

I found the errors on my scripts and fixed

Thank you again