a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
80 lines
1.7 KiB
Plaintext
80 lines
1.7 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#ifndef __HARBOUR__
|
|
#define hb_ntos( n ) LTrim( Str( n ) )
|
|
#endif
|
|
|
|
#include "inkey.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
MEMVAR m_testvar
|
|
|
|
LOCAL testvar
|
|
|
|
#ifdef _SET_EVENTMASK
|
|
Set( _SET_EVENTMASK, INKEY_ALL )
|
|
MSetCursor( .T. )
|
|
#endif
|
|
|
|
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 m_testvar
|
|
|
|
@ 9, 10 SAY "Your Choice = " + hb_ntos( m_testvar )
|
|
|
|
RETURN
|
|
|
|
PROCEDURE RECURSE()
|
|
|
|
LOCAL testvar
|
|
|
|
SET KEY K_F8 TO
|
|
|
|
@ 6, 10 SAY Space( Len( "Press F8 to recurse into MENU TO" ) )
|
|
|
|
@ 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
|