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