Abas com texto control ainda nao funciona na versao 2.23

[JoséQuintas]

EEEEBBBBBBAAAAAAAA !!!!!!!

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

E eis que olhei guilib.ch

Código: Selecionar todos

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

Yes
Problema resolvido declarando dialog NOEXIT, pra não sair com ENTER.
Sei lá porque isso existe.....
Dá a impressão de que seria pra encerrar a janela de GETs automaticamente....
Mas quando a janela não é exclusiva só de GETs, como em tabpage.... aí ferrou.
Se pensar direito.... esse seria o comportamento do Clipper numa tela console.....

Sei lá ... só o default que não atendia a situação do demoall.
Não sei se também elimina a necessidade do GET fantasma....

dialog funcionando no demoall

Código: Selecionar todos

   INIT DIALOG oDlg ;
      CLIPPER ;
      NOEXIT ;
      NOEXITESC ;
      TITLE "demoall.prg - Show Samples on screen, and others on menu" ;
      AT 0,0 ;
      SIZE 1024, 768 ;
      BACKCOLOR 16772062 ;
      STYLE WS_POPUP + WS_CAPTION + WS_MAXIMIZEBOX + WS_MINIMIZEBOX + WS_SYSMENU ;
      ON INIT { || DemoAllEvalList( aInitList ) }
      

O ESC é porque ESC nos gets fecha tudo, ao invés de só encerrar gets, comportamento igual pra ESC geral, e ENTER no último GET, igual tela console, é o default e precisa ser alterado conforme a situação.

[JoséQuintas]

Agora dá até pra achar aonde gera saída.

Código: Selecionar todos

   DATA lResult  INIT .F.     // Becomes TRUE if the OK button is pressed
   DATA lExitOnEnter INIT .T. // Set it to False, if dialog shouldn't be ended after pressing ENTER key,
   // Added by Sandro Freire
   DATA lExitOnEsc   INIT .T. // Set it to False, if dialog shouldn't be ended after pressing ENTER key,
   // Added by Sandro Freire

Código: Selecionar todos

         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 até sentido.
O mais usado é fazer um browse e clicar pra alterar, nesse caso encerrar com ENTER no último campo faz sentido.
Do mesmo jeito que abandonar essa edição com ESC.
Fazer o que.... se é pra ser igual Clipper....

Em outros casos, é alterar esse comportamento, SE USAR a cláusula CLIPPER.

É pensar, caso VALID no último campo não aconteça, se poderia ser feito aí, antes de encerrar a dialog.

[deividdjs]

bom dia amigos ..

depois que vocês atualizam a hwgui vocês colocam onde pra baixar ela ja com as modificações ?/

Abraço!

Deivid

[Itamar M. Lins Jr.]

Olá!

Código: Selecionar todos

svn checkout https://svn.code.sf.net/p/hwgui/code/trunk hwgui-code

[JoséQuintas]

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.

[Itamar M. Lins Jr.]

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 pega foco.
END DIALOG //READ

Funcionava antes, saia do último GET, depois ficou da forma que é. Acredito que fazer sair do GET deu problema...Quando fechava a dialog por conta do foco? Não sei ao certo.
O certo é que o GET FANTASMA resolve esse problema.

[JoséQuintas]

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.