Cast attribute added

src/wbl/pwrs/src/pwrs_td_adefflags.wb_load

@@ -59,12 +59,12 @@ SObject pwrs:Type
      EndBody
     EndObject
     !/**
-    !  Not yet implemented.
+    !  Attribute is casted.
     !*/
-    Object ChangeLog $Bit
+    Object CastAttr $Bit
      Body SysBody
-       Attr PgmName = "changelog"
-       Attr Text = "ChangeLog"
+       Attr PgmName = "castattr"
+       Attr Text = "CastAttr"
        Attr Value = 8
      EndBody
     EndObject

src/wbl/pwrs/src/pwrs_td_classdefflags.wb_load

@@ -152,6 +152,16 @@ SObject pwrs:Type
        Attr Value = 4096
      EndBody
     EndObject
+    !/**
+    !  Object has casted attributes.
+    !*/
+    Object CastAttr $Bit
+     Body SysBody
+       Attr PgmName = "CastAttr"
+       Attr Text = "CastAttr"
+       Attr Value = 8192
+     EndBody
+    EndObject
   EndObject
 EndSObject