Viktor Szakáts wrote:
Hi Vlad,
Would you mind posting a patch for this file? I'll commit it.
I'm not an ACHOICE() user, so it's difficult for me to test
this properly for Clipper compatibility.
Brgds,
Viktor
Hi,
For me it will be good if achoice() works identically in Clipper and in
Harbour,
but may be other users have any reasons reject this fix.
I vote to post
Brgds,
Vlad
On Wed, Mar 11, 2009 at 8:44 AM, Vladislav Lavrecky <[email protected]
<mailto:[email protected]>> wrote:
[email protected]
<mailto:[email protected]> wrote:
Revision: 10582
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=10582&view=rev
<http://harbour-project.svn.sourceforge.net/harbour-project/?rev=10582&view=rev>
Author: vszakats
Date: 2009-03-10 17:43:39 +0000 (Tue, 10 Mar 2009)
Log Message:
-----------
(sorry I've missed adding the entry to ChangeLog in prev commit)
2009-03-10 18:18 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* ChangeLog
* Updates.
* contrib/xhb/txml.prg
* Update HB_REGEXMATCH() calls, to keep old logic.
; TOFIX: Above doesn't mean it's now correct, so
someone familiar with this code, please
correct it.
* contrib/hbapollo/apollo.c
* Removed essentially empty comments.
* source/rtl/achoice.prg
! Applied fix from Vladislav Lavrecky.
I didn't test it just assumed okay, please do so.
achoice with additional redraw on exit are ok
I test it previously, but in my message just an example
To fix achoice we need to add
+ DispPage( acItems, alSelect, nTop, nLeft, nRight, nNumRows, 0,
nAtTop, nItems, bSelect, nRowsClr )
in all CASE items where lFinished := .T.
or IMO better
add one redraw line before exit from achoice function
[...]
ENDDO
+ DispPage( acItems, alSelect, nTop, nLeft, nRight, nNumRows, 0,
nAtTop, nItems, bSelect, nRowsClr )
SetCursor( nSaveCsr )
RETURN nPos
[...]
Brgds,
Vlad
Modified Paths:
--------------
trunk/harbour/ChangeLog
This was sent by the SourceForge.net collaborative development
platform, the world's largest Open Source development site.
_______________________________________________
Harbour mailing list
[email protected] <mailto:[email protected]>
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected] <mailto:[email protected]>
http://lists.harbour-project.org/mailman/listinfo/harbour
------------------------------------------------------------------------
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
