9fe99a603c
* contrib/hbgt/*.c
* comment cleanup
* src/rtl/menuto.prg
+ avoided one macro usage when dealing with colors
! fixed handling of color specified in __ATPROMPT()
! fixed to not mess up default color in certain cases
* changed misleading color variable names
* tests/menutest.prg
* modified to test __ATPROMPT() color
* src/rtl/tclass.prg
* src/rtl/tobject.prg
* avoid using "&" in comments
75 lines
1.6 KiB
Plaintext
75 lines
1.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#ifndef __HARBOUR__
|
|
#define hb_ntos( n ) LTrim( Str( n ) )
|
|
#endif
|
|
|
|
#include "inkey.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
MEMVAR ptestvar
|
|
|
|
LOCAL testvar
|
|
|
|
SET KEY K_F8 TO RECURSE()
|
|
|
|
CLS
|
|
|
|
@ 1, 10 PROMPT "Menu Item 1" MESSAGE "Menu Message 1"
|
|
__AtPrompt( 2, 10, "Menu Item 2", "Menu Message 2", "R+/GR, GR+/N" )
|
|
@ 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"
|
|
|
|
MENU TO testvar
|
|
|
|
@ 9, 10 SAY "Your Choice = " + hb_ntos( testvar )
|
|
|
|
Inkey( 0 )
|
|
|
|
SET KEY K_F8 TO RECURSE()
|
|
|
|
CLS
|
|
|
|
@ 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"
|
|
|
|
MENU TO ptestvar
|
|
|
|
@ 9, 10 SAY "Your Choice = " + hb_ntos( ptestvar )
|
|
|
|
RETURN
|
|
|
|
PROCEDURE RECURSE()
|
|
|
|
LOCAL testvar
|
|
|
|
SET KEY K_F8 TO
|
|
|
|
@ 6, 10 SAY " "
|
|
|
|
@ 1, 50 PROMPT "Menu Item 1" MESSAGE "Menu Message 1"
|
|
@ 2, 50 PROMPT "Menu Item 2" MESSAGE "Menu Message 2"
|
|
@ 3, 50 PROMPT "Menu Item 3" MESSAGE "Menu Message 3"
|
|
@ 4, 50 PROMPT "Menu Item 4" MESSAGE "Menu Message 4"
|
|
|
|
MENU TO testvar
|
|
|
|
@ 7, 10 SAY "Press F8 to recurse into MENU TO"
|
|
|
|
@ 9, 50 SAY "Your Choice = " + hb_ntos( testvar )
|
|
|
|
SET KEY K_F8 TO RECURSE()
|
|
|
|
RETURN
|