fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-09-15 17:42 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* tests/menutest.prg
    ! Deleted COLOR keywords from examples. This seems to be an xhb 
      extension no present in Harbour or Clipper.

  * source/rtl/menuto.prg
    + Added NOTE documenting the __ATPROMPT() cColor parameter is 
      a Harbour extension. (it's valid because this is an 
      undocumented/internal function)

  * contrib/xhb/hbcompat.ch
    + Added @ PROMPT + COLOR keyword.
      Please test, I don't know if it collides with std.ch definition.
This commit is contained in:
Viktor Szakats
2009-09-15 15:44:56 +00:00
parent 8a2e311c63
commit 9c7c77bc85
4 changed files with 27 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/ChangeLog
View File

@@ -17,6 +17,20 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-09-15 17:42 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* tests/menutest.prg
! Deleted COLOR keywords from examples. This seems to be an xhb
extension no present in Harbour or Clipper.
* source/rtl/menuto.prg
+ Added NOTE documenting the __ATPROMPT() cColor parameter is
a Harbour extension. (it's valid because this is an
undocumented/internal function)
* contrib/xhb/hbcompat.ch
+ Added @ PROMPT + COLOR keyword.
Please test, I don't know if it collides with std.ch definition.
2009-09-15 17:30 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbwin/win_com.c
* initialize s_PortData structure at application startup

3
harbour/contrib/xhb/hbcompat.ch
View File

@@ -502,6 +502,9 @@
#translate ( <exp1> ^^ <exp2> ) => ( HB_BITXOR( (<exp1>), (<exp2>) ) )
#endif
#command @ <row>, <col> PROMPT <prompt> [ MESSAGE <msg> ] [ COLOR <color> ] => ;
__AtPrompt( <row>, <col>, <prompt>, <msg>, <color> )
#endif
#endif /* __HARBOUR__ */

2
harbour/source/rtl/menuto.prg
View File

@@ -24,6 +24,8 @@
THREAD STATIC t_aLevel := {}
THREAD STATIC t_nPointer := 1
/* NOTE: <cColor> parameter is a Harbour extension. */
FUNCTION __AtPrompt( nRow, nCol, cPrompt, cMsg, cColor )
IF t_nPointer < 1

16
harbour/tests/menutest.prg
View File

@@ -14,10 +14,10 @@ procedure main()
clear screen
@ 1, 10 prompt 'Menu Item 1' message 'Menu Message 1' Color "w/b+,w/b,w/r,n/w"
@ 2, 10 prompt 'Menu Item 2' message 'Menu Message 2' Color "w/r+,bg/b,w/r,n/w"
@ 3, 10 prompt 'Menu Item 3' message 'Menu Message 3' Color "w/g+,r/b,w/r,n/w"
@ 4, 10 prompt 'Menu Item 4' message 'Menu Message 4' Color "w/bg+,g/b,w/r,n/w"
@ 1, 10 prompt 'Menu Item 1' message 'Menu Message 1'
@ 2, 10 prompt 'Menu Item 2' message 'Menu Message 2'
@ 3, 10 prompt 'Menu Item 3' message 'Menu Message 3'
@ 4, 10 prompt 'Menu Item 4' message 'Menu Message 4'
@ 6, 10 say 'Testing with LOCAL parameter'
@ 7, 10 say 'Press F8 to recurse into MENU TO'
@@ -32,10 +32,10 @@ procedure main()
clear screen
@ 1, 10 prompt 'Menu Item 1' message 'Menu Message 1' Color "g/b+,w/b,w/r,n/w"
@ 2, 10 prompt 'Menu Item 2' message 'Menu Message 2' Color "r/b+,w/b,w/r,n/w"
@ 3, 10 prompt 'Menu Item 3' message 'Menu Message 3' Color "b/w+,w/b,w/r,n/w"
@ 4, 10 prompt 'Menu Item 4' message 'Menu Message 4' Color "g/b+,w/b,w/r,n/w"
@ 1, 10 prompt 'Menu Item 1' message 'Menu Message 1'
@ 2, 10 prompt 'Menu Item 2' message 'Menu Message 2'
@ 3, 10 prompt 'Menu Item 3' message 'Menu Message 3'
@ 4, 10 prompt 'Menu Item 4' message 'Menu Message 4'
@ 6, 10 say 'Testing with MEMVAR parameter'
@ 7, 10 say 'Press F8 to recurse into MENU TO'