From 00548613cf04e4364533d6b4be956645678ff8a6 Mon Sep 17 00:00:00 2001 From: Patrick Mast Date: Sat, 17 Jun 2000 12:58:49 +0000 Subject: [PATCH] 2000-05-07 23:30 CET Patrick Mast * tests/testhtml.prg * changed the Default() function into If(...) --- harbour/ChangeLog | 4 ++++ harbour/tests/testhtml.prg | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a0e9e2ddea..6cdc7eb48e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-05-07 23:30 CET Patrick Mast + * tests/testhtml.prg + * changed the Default() function into If(...) + 2000-06-16 22:10 GMT-3 Luiz Rafael Culik * utils/hbdoc/hbdoc.prg * Some small enhacements when generating the Windows HTML HELP project diff --git a/harbour/tests/testhtml.prg b/harbour/tests/testhtml.prg index 8aafc60d2b..02776ff989 100644 --- a/harbour/tests/testhtml.prg +++ b/harbour/tests/testhtml.prg @@ -118,7 +118,8 @@ STATIC FUNCTION AddPara( cPara, cAlign ) LOCAL Self := QSelf() - Default( cAlign, "Left" ) + //Default( cAlign, "Left" ) // removed Patrick Mast 2000-06-07 + cAlign:=If(cAlign==NIL,"Left",cAlign) //Added Patrick Mast 2000-06-17 ::cBody := ::cBody + ; "

" + s_cNewLine + ;