Clarion - Ventana

Hola a todos.
Qué código debo poner al ingresar a un WINDOW, FORM o BROWSE, para que me detecte si el sistema tiene otra/s ventana/s abierta/s (me refiero a ventanas del mismo sistema) ?.
Se que es algo del thread.
Gracias.

en el after opening para legacy o en el window manager init, open window para ABC
if thread() = 2
message('Ya hay una ventana abierta')
end

en el after opening para legacy o en el window manager init, open window para ABC
if thread() <> 2
message('Ya hay una ventana abierta')
! los threads se incrementan con cada ventana abierta,
! es decir, si tienes un frame tu siguiente ventana seria la 2
! si no tienes un frame tu ventana seria la 1
! este codigo te checa que la ventana que estas abriendo sea la segunda, es
! decir, despues del frame
end

Muchas Gracias Charly, pero en Clarion 6.1 tuve que hacer lo siguiente:

ActiveThread# = SYSTEM{PROP:Active}
IF ActiveThread# > 1 Then
message('Ya hay una ventana abierta')
END!IF

Lo hice así porque Thread() me daba siempre 1.

Gracias.