Index: vhLib/Class.mac.rou =================================================================== diff -u -r1550 -r2002 --- vhLib/Class.mac.rou (.../Class.mac.rou) (revision 1550) +++ vhLib/Class.mac.rou (.../Class.mac.rou) (revision 2002) @@ -5,7 +5,7 @@ ConstructClone(oRef,NewClass,ConstructMethod,lbSkip) - new arrFrom , arrTo , arrHULP + new arrFrom , arrTo set NewClass = $get(NewClass) set:'$Length(NewClass) NewClass = oRef.%ClassName(1) @@ -33,6 +33,7 @@ ; ;---------------------------------------------------------------------------------------------------- arrProperties(ClassName,arrProperties,flagRequired,flagCalculated,flagEmbeddedOnly,flagDeeperLevel) + new arrHULP set flagRequired = $get(flagRequired , "A") set flagCalculated = $get(flagCalculated , "A" ) set flagEmbeddedOnly = $get(flagEmbeddedOnly, 0 )