PC Toledo

... fivewin continua lá, mas como não faz nada sozinha, continua lá.

Acho que encontrei uma saída, mas falta oportunidade de teste.
O VALID da dialog é o que impedia de fechar.
Acrescentei um teste no valid, pra testar se a thread gtwvg ainda está rodando.
Pelo menos fechar no "X" deixa de ser bloqueado.

Dia Quintas, este código que você postou, é para controlar a rotina em FIVEWIN, ou para a outra biblioteca W.. não sei o que?

Seria interessante você postar a ROTINA QUE CONGELA(em FIVEWIN), ela está redonda mesmo?

Regards, saludos.

GTWVG, FIVEWIN, HWGUI e multithread.
Acho que sou o único com esse uso fora do normal, mas não custa perguntar.

Cada coisa roda em sua thread, tudo ok.

Num uso específico, uso GTWVG numa thread, atualizando a dialog FIVEWIN em outra thread.
Tudo bem, a não ser quando dá erro em GTWVG, erro não ...

Finalmente chegou o dia, fui forçado a trocar de máquina.
Era 4 cores x 1 thread, agora são 8 cores x 16 threads.
Sinceramente...

Gera harbour bem mais rápido, mas isso eu não fazia toda hora.
Talvez o SSD já desse a velocidade a mais que fazia diferença.

A nova aceita o SSD mais moderno e mais ...

... MSRP): $409 (USD)

Especificações da CPU
Total de Núcleos: 20
Núcleos de Performance (P-cores): 8
Núcleos Eficientes (E-cores): 12

Total de Threads: 28
Frequência Base:P-core: 3.4 GHz
E-core: 2.5 GHz

Frequência Máxima Turbo:Geral: 5.6 GHz
Intel® Turbo Boost Max Technology 3.0: 5.6 GHz
P-core ...

/*
h_HmgApp
*/

#include "hbclass.ch"

MEMVAR _HMG_SYSDATA

THREAD STATIC oApp

INIT PROCEDURE Init_oApp

oApp := _hmg_AppClass():New()

RETURN

CREATE CLASS _Hmg_AppClass

VAR aList INIT {}
METHOD AddItem( xValue )
METHOD GetItemFromName( xValue )
METHOD GetItemFromHandle( xValue )
METHOD ...

Acréscimo ao vídeo, talvez não dê pra perceber:

As janelas abrem sempre centralizadas.
Movo cada uma para o menu/thread que a abriu.

As duas janelas de cima são dlgauto usando hwgui.
As duas janelas de baixo são dlgauto usando hmg extended.

Lembram ? multithread é igual vários EXEs.
Cada thread tem ...

... https://www.youtube.com/watch?v=uqKXXEUI7b0

Só o detalhe de fechar a janela HMG Extended que falta resolver.

A primeira janela de cada thread parece ser considerada a Main, e fechou uma fecha todas.

Tirando isso, tá tudo perfeito, até o foco ficou resolvido com a alteração que eu fiz.

... WAIT
RETURN

server.prg

/**
* Harbour Inet demo server program
*
* Giancarlo Niccolai
*
* In this program, the server uses just one thread
* to demonstrate how to use timeout sockets.
*/

PROCEDURE Main( cPort )

LOCAL Socket, s
LOCAL nResponse, cResponse
LOCAL nTurn := 0, nTurn1 ...

... WAIT
RETURN

server.prg

/**
* Harbour Inet demo server program
*
* Giancarlo Niccolai
*
* In this program, the server uses just one thread
* to demonstrate how to use timeout sockets.
*/

PROCEDURE Main( cPort )

LOCAL Socket, s
LOCAL nResponse, cResponse
LOCAL nTurn := 0, nTurn1 ...

Um fonte simples, com partes comentadas.


THREAD STATIC oGUI

FUNCTION GUI()

RETURN oGUI

PROCEDURE Main

LOCAL nOpc := 1

SetMode(33,100)
CLS
DO WHILE .T.
@ 1, 0 PROMPT "(H)HWGUI"
@ 2, 0 PROMPT "(3)HMG3"
@ 3, 0 PROMPT "(E)HMGE"
@ 4, 0 PROMPT "(O)OOHG"
MENU TO nOpc

DO CASE
CASE LastKey ...

... certificado em autoridade ok, pode ser validado.
Lá na Microsoft acusaria inválido, porque lá não tem certificado.

Também tem o detalhe de multithread.
Qual a diferença ?
A thread normal é bloqueada, a multithread continua. (não cheguei a confirmar desta vez).
Em multithread o programa faz muita ...

tem também o demomenumt.prg


/*
demomenumt.prg
menu using multithread
compile using -mt

CAUTION

- *** MT is experimental ***

- *** Make your own tests with another multithread GT ***

- If do not build hwgui using HB_GUI_MT_EXPERIMENTAL,
need to close dialogs in reverse order of open

- If ...

Evitem ao máximo o uso de variáveis PUBLIC e PRIVATE em multithread.
Aquelo recurso que o harbour tem, de passar tudo pra thread.
O aplicativo pode entrar em colapso conforme a situação.
Acho até que muita LIB GUI dá problema por falta desse controle.

No harbour existe hb_Mutex() pra evitar problemas ...

... colocando isso, porque depois trocam pra LIB gráfica, e isso daria problema.
Isso roda só no início do aplicativo, não roda inicial em todas as threads.
Esse é o ponto aonde as LIBs podem não se comportar direito em multithread, porque as threads rodam sem o init.

Pelo mesmo motivo, chamo a ...