261f8551e7
* contrib/make.hb
* extras/httpsrv/uhttpd.prg
* tests/ac_test2.prg
* tests/alias.prg
* tests/begin.prg
* tests/db_brows.prg
* tests/memfile.prg
* tests/omacro.prg
* tests/sbartest.prg
* tests/switch.prg
* tests/testget.prg
* tests/testpp.prg
* tests/tstblock.prg
* tests/varparam.prg
* use m_ prefix for PRIVATEs, p_ for PUBLICs and s[c]_
for STATICs
% optimized out some PRIVATEs
% use hb_Disp*() instead of @ SAY in db_browse.prg
(this fixes cursor flickering)
* ChangeLog
! typos
* utils/hbtest/rt_class.prg
* utils/hbtest/rt_math.prg
* formatting
39 lines
1.0 KiB
Plaintext
39 lines
1.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL GetList := {}, cVar := "Hello"
|
|
|
|
MEMVAR m_aVar, m_nIndex, m_cMacro, m_cEarly, m_cEarly2, m_cLate
|
|
PRIVATE m_aVar := { "World", "Again" }, m_nIndex := 1, m_cMacro := "m_cEarly", m_cEarly := { "Early" }, m_cLate := "Late!", m_cEarly2 := { "Early2" }
|
|
|
|
CLS
|
|
|
|
? "2nd GET should say 'Early'."
|
|
|
|
@ 10, 10 SAY "cVar :" GET cVar PICTURE "@K!"
|
|
@ 12, 10 SAY "m_cMacro[1] :" GET &m_cMacro[ 1 ]
|
|
@ 14, 10 SAY "m_cMacro.2[1] :" GET &m_cMacro.2[ 1 ]
|
|
@ 16, 10 SAY "m_cEarly[1] :" GET m_cEarly[ 1 ]
|
|
// @ 14, 10 SAY "m_cMacro :" GET &( m_cMacro )[ 1 ]
|
|
m_nIndex := 2
|
|
@ 18, 10 SAY "m_aVar :" GET m_aVar[ m_nIndex ]
|
|
@ 20, 10 SAY "Picture of GET-1:" GET GetList[ 1 ]:Picture
|
|
m_nIndex := 3
|
|
m_cMacro := "m_cLate"
|
|
READ
|
|
|
|
CLS
|
|
|
|
/* Clipper Error "Get contains complex macro"
|
|
? "This GET should say 'Late!'."
|
|
m_cMacro := "m_cEarly"
|
|
@ 10, 10 SAY "m_cMacro :" GET &( m_cMacro )
|
|
m_cMacro := "m_cLate"
|
|
READ
|
|
*/
|
|
|
|
RETURN
|