*** empty log message ***

1999-10-07 07:22:59 +00:00
parent 9075f24496
commit a56d017fd2
1 changed files with 4 additions and 0 deletions
--- a/harbour/source/rtl/tclass.prg
+++ b/harbour/source/rtl/tclass.prg
@@ -260,6 +260,10 @@ STATIC FUNCTION SetType( cType )

   ::cType := cType

+   if cType != nil .and. Upper( cType ) == "LOGICAL" .and. ::uInit == nil
+      ::uInit = .f.
+   endif
+
   RETURN NIL

 //----------------------------------------------------------------------------//