Did you compare it with Clipper 5.3 behavior?
Brgds,
Viktor
On 2010 Mar 25, at 17:38, marco bra wrote:
> Same here on Ubuntu 32 bits and Harbour build
> the return key doesn't validate the codeblock and don't skyp to the next read
> i must to press esc to get codeblock evaluation and next field read access.
>
> Here the p.prg code that i test compiled with " hbmk2 -lgpm p.prg -rebuild "
>
> Many thanks and best regards.
>
> Marco
>
> #include "inkey.ch"
>
> function main
> *local a_opt_list:= {{"AAAAA","A"},{"BBBBB","B"},{"CCCCC","C"}}
> local a_opt_list := {" ","A","B","C"}
> local getlist := {}
> local r, c
> local msele := " "
>
> SET( _SET_EVENTMASK, INKEY_ALL )
> MSETCURSOR( .T. )
> CLS
>
> do while .t.
>
> @ 1, 1 say "Press ESC to exit..."
>
> cCaption := '&Please choose from list :'
> r := 2
> c := 1 + len(cCaption)
>
> @ r, c, r + len(a_opt_list)+2, c + 5 GET mSele LISTBOX a_opt_list
> CAPTION cCaption DROPDOWN COLOR "W/N,B/W+,W/N,W+/B,W/N,N/W*,G/W*,N/G" valid
> !empty(mSele)
>
> read
>
> @ 10, 1 say "User choose :" + mSele
> inkey(1)
>
> cCaption := '&Please choose from list :'
> r := 3
> c := 1 + len(cCaption)
>
> @ r, c, r + len(a_opt_list)+2, c + 5 GET mSele LISTBOX a_opt_list
> CAPTION cCaption DROPDOWN COLOR "W/N,B/W+,W/N,W+/B,W/N,N/W*,G/W*,N/G" valid {
> || len(trim(mSele))>0 }
>
> read
> if lastkey()==27
> return
> endif
>
> @ 10, 1 say "User choose :" + mSele
> inkey(1)
> enddo
>
> /*
> http://www.itlnet.net/Programming/Program/Reference/c53g01c/ngb388e.html
> @ <nTop>, <nLeft>, <nBottom>, <nRight>
> GET <nVar|cVar>
> LISTBOX <aList>
> [CAPTION<cCaption>]
> [MESSAGE <cMessage>]
> [WHEN <lPreExpression>]
> [VALID <lPostExpression>]
> [COLOR <cColorString>]
> [FOCUS <fblock>]
> [STATE <bBlock>]
> [DROPDOWN]
> [SCROLLBAR]
> [SEND <msg>]
> [GUISEND <guimsg>]
> [BITMAP <cBitmap>]
> */
>
>
>
> return nil
>
> _______________________________________________
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
