ChangeLogTag:Wed May 05 09:24:22 1999 Gonzalo A. Diethelm <Gonzalo.Diethelm@jda.cl>
This commit is contained in:
@@ -1,7 +1,8 @@
|
||||
Wed May 05 09:24:22 1999 Gonzalo A. Diethelm <Gonzalo.Diethelm@jda.cl>
|
||||
|
||||
* Added back include/set.ch, now in lowercase; same thing for
|
||||
tests/working/block2.prg.
|
||||
* Added back include/Set.ch, and tests/working/block2.PRG; they
|
||||
can' be renamed through CVS, and the repository will have to be
|
||||
updated by hand.
|
||||
|
||||
Wed May 05 09:19:23 1999 Gonzalo A. Diethelm <Gonzalo.Diethelm@jda.cl>
|
||||
|
||||
|
||||
16
harbour/tests/working/block2.PRG
Normal file
16
harbour/tests/working/block2.PRG
Normal file
@@ -0,0 +1,16 @@
|
||||
// CodeBlocks management
|
||||
|
||||
function Main()
|
||||
|
||||
local bBlock := GenBlock()
|
||||
|
||||
Eval( bBlock, "I am a ", "codeblock" )
|
||||
|
||||
QOut( "ok" )
|
||||
|
||||
return nil
|
||||
|
||||
function GenBlock()
|
||||
|
||||
return { | c, d | QOut( c + d ) }
|
||||
|
||||
Reference in New Issue
Block a user