Foco ventanas

[jgayoso]

El tengo el siguiente problema.

Ventana 1 llama o abre otra ventana 2, al hacer un msgalert() en esta ventana 2 dar enter para salir, regresa a la venta 1, no queda en la ventana 2.
¿Como puedo hacer para saber la ventana activa antes del msgalert(), para así retornar a la misma?
Function prueba
local oWnd_Primera, oBtn
DEFINE WINDOW oWnd_Primera TITLE hb_strtoutf8('pantalla 1') SIZE 1024, 690
@60,30 BUTTON oBtn PROMPT "Continuar" OF oWnd_Primera SIZE 120, nAltoLetra ACTION ( prueba2() )
ACTIVATE WINDOW oWnd_Primera
Return .T.

Function prueba2
local oWnd_Segunda, oBtn
DEFINE WINDOW oWnd_Segunda TITLE hb_strtoutf8('pantalla 2') SIZE 500, 400
@20,20 BUTTON oBtn PROMPT "Mensaje" OF oWnd_Segunda SIZE 120, nAltoLetra ACTION ( msgalert('Mi mensaje') )
ACTIVATE WINDOW oWnd_Segunda
Return .T.

Se agradece desde ya cualquier ayuda…

Jorge Gayoso