PC Toledo

... o Senhor tem razão.
o terminal a que me refiro, é o gnome-terminal.
o aplicativo é local, não roda em rede.
a princípio ele foi desenvolvido em clipper, depois atualizado para Harbour, onde foram acrescentadas novas funções.
quem usa esse aplicativo é uma Senhora que não quer trocá-lo por nada ...

... de aplicações GUI usando uma camada de abstração de "widgets" dentro de um pseudo-console.

Integração:
Faz parte das bibliotecas de contribuição do Harbour (contrib/gtqtc) e é ideal para quem deseja criar interfaces mais modernas sem abandonar totalmente a sintaxe de console do Clipper/xBase.

... Windows:

1. Alterar a Fonte do Prompt de Comando (Windows 11)
As fontes padrão do Windows 11 muitas vezes não incluem os caracteres gráficos do Clipper/xHarbour (OEM CP 437/850).

Abra o seu sistema xHarbour.
Clique com o botão direito na barra de título da janela e selecione Propriedades.
Vá na ...

... Czerpak (druzus/at/poczta.onet.pl)
ChangeLog ID: 186927c3a792d0c408b591155ef84b7b88e12c37
Built on: Jan 10 2026 05:07:50
Build options: (Clipper 5.3b) (Clipper 5.x undoc)
--------------------------------------------------------------------------------------------

Consulta de herramientas ...

... oDlg ;
TITLE "Mantenimiento de Usuários" ;
AT 0,0 ;
SIZE 720, 460 ;
STYLE WS_POPUP + WS_CAPTION + WS_SYSMENU + DS_CENTER ;
FONT oFontPSW ;
CLIPPER NOEXIT ;
ON INIT {|| ;
ThisForm := oDlg, ;
OnDlgInitCad(), ;
BrwInitPSW(), ;
AtualizaTela(), ;
SetInitialFocus( oBrw ),;
oTab:bChange ...

... feito e dá-me o seu parecer.
Eu vou ser sincero e dizer de uma forma sucinta o percurso da minha vida profissional, trabalhei desenvolvendo em clipper nos anos 90 e depois abandonei o desenvolvimento, por motivos diversos, como a vinda para cá para o Brasil, de 2010 até 2019.
Só que trabalhar em ...

Você micro, pequeno ou médio empresário/empreendedor, que deseja:
- migrar sistema legado (clipper/harbour) para web;
- ter um sistema personalizado desktop pra seu negócio;
- ter um sistema na nuvem (web) pra expandir seus negócios;
- um app mobile (android) personalizado para seu negócio;
- criar um ...

A função hb_gcall() pertence ao Harbour, a linguagem baseada em xBase/Clipper.
Ela é usada para chamar uma função ou procedimento dinamicamente, ou seja, quando você tem o nome da função em uma variável ou precisa decidir em tempo de execução qual rotina executar.
📌 Quando usar hb_gcall()
- Execução ...

... BROWSE ... APPEND AUTOEDIT flags into a TAB control

2025-12-16 14:51 UTC-0300 Jose Quintas jmcquintas at gmail.com
* samples/demoall.prg
! dlg CLIPPER NOEXIT NOEXITESC
* source/cross/common.prg
! var names nPos nGetCount, +=, no logic changed

2025-12-12 22:24 UTC-0300 ItamarLins itamarlins at ...

O default com CLIPPER é encerrar a dialog no último GET.
Parece... que o ecerramento é antes do VALID.

Teria que testar com NOEXIT se muda alguma coisa.
Aí poderíamos pensar em testar o valid antes da saída.
Caso contrário... teria que ser em outro lugar.

Olá!
O get tem que se comportar da mesma forma do Clipper(DOS)

GET <enter>
GET <enter>
GET
READ

INIT DIALOG
CONTROLES...
Só que pára, se tiver um GET aqui "penúltimo" e não sai com enter então o VALID {||etc} não funciona.
Se o ultimo objeto/controle for por exemplo BUTTON pega FOCO, OWNERBUTTON não ...

... SEI se faltaria alguma coisa...
Mas acho que daria pra fazer manualmente.
Por exemplo, ENTER no último GET posicionar num button OK/Salvar/Etc.

Depende do que considerar CLIPPER, se é movimento só pelos GETs.
Quando não indica isso, deve ser a default, que deve ser por TABSTOP.
Não cheguei a testar.

Nada demais, só o default da dlg do demoall CLIPPER NOEXIT NOEXITESC
E um bloco de código, acho que melhorado, do ponto de vista auto-explicativo.

nPos pra indicar posição do GET ao invés de I
nGetCount pra indicar quantidade de GETs, feito uma vez só
( nPos := nPos + nSkip ) trocado pra ( nPos ...

... DATA lExitOnEsc INIT .T. // Set it to False, if dialog shouldn't be ended after pressing ENTER key,
// Added by Sandro Freire



IF oDlg:lClipper
IF !hwg_GetSkip( oDlg, hCtrl, 1 )
IF oDlg:lExitOnEnter
oDlg:lResult := .T.
hwg_EndDialog( oDlg:handle )
ENDIF
ENDIF
RETURN 1
ENDIF


Faz ...

EEEEBBBBBBAAAAAAAA !!!!!!!

Conforme a IA tinha dito, seria ENTER não tratado na DIALOG, porque ENTER sai.

E eis que olhei guilib.ch


[<lClipper: CLIPPER>] ;
[<lExitOnEnter: NOEXIT>] ; //Modified By Sandro
[<lExitOnEsc: NOEXITESC>] ; //Modified By Sandro


Yes
Problema resolvido declarando ...