03ac58b17b
* bin/commit.hb
* config/detect.mk
* config/detfun.mk
* config/detplat.mk
* config/dir.mk
* config/dirsh.mk
* config/global.mk
* config/globsh.mk
* config/instsh.mk
* config/lang.hb
* config/lang2po.hb
* config/po2lang.hb
* config/postinst.hb
* contrib/hbexpat/tests/tohash.prg
* contrib/hbformat/utils/hbformat.ini
* contrib/hbmisc/hbedit.prg
* contrib/hbmxml/tests/testmxml.prg
* contrib/hbnetio/utils/hbnetio/_console.prg
* contrib/hbnetio/utils/hbnetio/_winsvc.prg
* contrib/hbnetio/utils/hbnetio/hbnetio.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.hb
* contrib/hbwin/tests/ole.prg
* contrib/hbwin/tests/oletst2.js
* contrib/hbwin/tests/oletst2.vbs
* contrib/hbxpp/doc/en/binnumx.txt
* contrib/hbxpp/doc/en/dbcmdx.txt
* contrib/xhb/htmutil.prg
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/thtm.prg
* ChangeLog.txt
* debian/copyright
* doc/class_tp.txt
* doc/hdr_tpl.txt
* doc/xhb-diff.txt
* LICENSE.txt
* package/harbour-wce.spec.in
* package/harbour-win.spec.in
* package/harbour.spec
* package/mpkg_rpm_wce.sh
* package/mpkg_rpm_win.sh
* package/mpkg_rpm.sh
* package/mpkg_src.sh
* package/mpkg_ver.sh
* src/rtl/achoice.prg
* src/rtl/getsys53.prg
* src/rtl/tgetlist.prg
* src/rtl/tlabel.prg
* src/rtl/tmenusys.prg
* tests/hbdoc.prg
* tests/langmsg.prg
* tests/rto_get.prg
* tests/rto_tb.prg
+ doc/en/ati.txt
+ doc/en/dirdrive.txt
+ doc/en/hashfunc.txt
+ doc/en/hbtoken.txt
+ doc/en/left.txt
+ doc/en/proc.txt
+ doc/en/strtran.txt
+ doc/en/transfrm.txt
+ doc/en/typefile.txt
* doc/en/*
* more partial sync with 3.4 fork
60 lines
1.9 KiB
Plaintext
60 lines
1.9 KiB
Plaintext
/* $DOC$
|
|
$AUTHOR$
|
|
Copyright 1999 Chen Kedem <niki@actcom.co.il>
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
ReadVar()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
User interface
|
|
$ONELINER$
|
|
Return variable name of current GET or MENU
|
|
$SYNTAX$
|
|
ReadVar( [<cVarName>] ) --> cOldVarName
|
|
$ARGUMENTS$
|
|
<cVarName> is a new variable name to set.
|
|
$RETURNS$
|
|
ReadVar() return the old variable name. If no variable previously
|
|
was set, ReadVar() return "".
|
|
$DESCRIPTION$
|
|
ReadVar() is set inside a READ or `MENU TO` command to hold the
|
|
uppercase name of the GET / `MENU TO` variable, and re-set back to old
|
|
value when those commands finished. You should not normally set a
|
|
variable name but rather use it to retrieve the name of a GET
|
|
variable when executing a VALID or WHEN clause, or during `SET KEY`
|
|
execution and you are inside a READ or `MENU TO`.
|
|
$EXAMPLES$
|
|
#include "inkey.ch"
|
|
LOCAL What_Is_Bug
|
|
// display a menu, press <F1> to view the MENU TO variable name
|
|
CLS
|
|
@ 1, 10 PROMPT "blood sucking insect that infect beds "
|
|
@ 2, 10 PROMPT "germ; virus infection "
|
|
@ 3, 10 PROMPT "defect; snag; (source of) malfunctioning"
|
|
@ 4, 10 PROMPT "small hidden microphone "
|
|
@ 6, 10 SAY "(Press <F1> for a hint)"
|
|
SetKey( K_F1, {|| ShowVar() } )
|
|
MENU TO What_Is_Bug
|
|
|
|
STATIC PROCEDURE ShowVar()
|
|
Alert( ReadVar() ) // --> "WHAT_IS_BUG"
|
|
RETURN
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
ReadVar() works exactly like CA-Cl*pper's ReadKey().
|
|
|
|
Note however,
|
|
that the <cVarName> parameter is not documented and used internally
|
|
by CA-Cl*pper.
|
|
$PLATFORMS$
|
|
All
|
|
$FILES$
|
|
Library is core
|
|
$SEEALSO$
|
|
@...GET, @...PROMPT, MENU TO, READ, SetKey(), __AtPrompt(), __MenuTo()
|
|
$END$
|
|
*/
|