New component design with DisableAttr

src/exe/co_convert/src/cnv_readwbl.cpp

 /* 
- * Proview   $Id: cnv_readwbl.cpp,v 1.7 2005-09-21 14:21:12 claes Exp $
+ * Proview   $Id: cnv_readwbl.cpp,v 1.8 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -1283,6 +1283,8 @@ char *CnvReadWbl::flags_to_string( int value)
   if ( value & pwr_mAdef_buffer) 	strcat( str, "Buffer|");
   if ( value & pwr_mAdef_nowbl) 	strcat( str, "Nowbl|");
   if ( value & pwr_mAdef_alwayswbl) 	strcat( str, "Alwayswbl|");
+  if ( value & pwr_mAdef_disableattr) 	strcat( str, "DisableAttr|");
+  if ( value & pwr_mAdef_rthide) 	strcat( str, "RtHide|");
   if ( str[strlen(str)-1] == '|')
     str[strlen(str)-1] = 0;
   return str;

src/exp/inc/src/pwr.h

 /* 
- * Proview   $Id: pwr.h,v 1.17 2005-09-20 13:21:45 claes Exp $
+ * Proview   $Id: pwr.h,v 1.18 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -388,6 +388,10 @@ typedef char		pwr_tURL	[160];			//!< URL type.
   @aref castid CastId
 */
 typedef pwr_tTypeId    	pwr_tCastId;				//!< CastId type.
+/*_*
+  @aref disableattr DisableAttr
+*/
+typedef unsigned int    pwr_tDisableAttr;	       		//!< DisableAttr type.
 
 /*_*
   @aref emergbreakselectenum EmergBreakSelectEnum
@@ -421,13 +425,15 @@ typedef union {
     pwr_tBit  Array	: 1;
     pwr_tBit  Shadowed	: 1;
     pwr_tBit  CastAttr	: 1;
+    pwr_tBit  DisableAttr : 1;
 
-    pwr_tBit  fill	: 26;
+    pwr_tBit  fill	: 25;
 
 #elif (pwr_dHost_byteOrder == pwr_dBigEndian)
 
-    pwr_tBit  fill	: 26;
+    pwr_tBit  fill	: 25;
 
+    pwr_tBit  DisableAttr : 1;
     pwr_tBit  CastAttr	: 1;
     pwr_tBit  Shadowed	: 1;
     pwr_tBit  Array	: 1;
@@ -444,6 +450,7 @@ typedef union {
 #define pwr_mAttrRef_Array	pwr_Bit(3)
 #define pwr_mAttrRef_Shadowed	pwr_Bit(4)
 #define pwr_mAttrRef_CastAttr	pwr_Bit(5)
+#define pwr_mAttrRef_DisableAttr pwr_Bit(6)
 
 } pwr_mAttrRef;
 
@@ -478,6 +485,7 @@ static const pwr_tObjectIx  pwr_cNObjectIx  = 0;	//!< Zero object index constant
 static const pwr_tClassId   pwr_cNClassId   = 0;	//!< Zero class identity constant.
 static const pwr_tTypeId    pwr_cNTypeId    = 0;	//!< Zero type identity constant.
 static const pwr_tCastId    pwr_cNCastId    = 0;	//!< Zero cast identity constant.
+static const pwr_tDisableAttr pwr_cNDisableAttr = 0;	//!< Zero disable attribute constant.
 static const pwr_tVolumeId  pwr_cNVolumeId  = 0;	//!< Zero volume identity constant.
 static const pwr_tNodeId    pwr_cNNodeId    = 0;	//!< Zero node identity constant.
 static const pwr_tCid       pwr_cNCid       = 0;	//!< Zero class identity constant.

src/exp/inc/src/pwr_class.h

 /* 
- * Proview   $Id: pwr_class.h,v 1.16 2005-09-20 13:21:45 claes Exp $
+ * Proview   $Id: pwr_class.h,v 1.17 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -145,6 +145,7 @@ typedef enum {
   pwr_eTix_NetStatus	= 30,	/* Basic type */
   pwr_eTix_CastId	= 31,	/* Basic type */
   pwr_eTix_ProString	= 32,	/* Basic type */
+  pwr_eTix_DisableAttr	= 33,	/* Basic type */
   pwr_eTix_
 } pwr_eTix;
 
@@ -187,6 +188,7 @@ typedef enum {
   pwr_eType_NetStatus	= pwr_TypeId(pwr_eTix_NetStatus),
   pwr_eType_CastId	= pwr_TypeId(pwr_eTix_CastId),
   pwr_eType_ProString	= pwr_TypeId(pwr_eTix_ProString),
+  pwr_eType_DisableAttr	= pwr_TypeId(pwr_eTix_DisableAttr),
   pwr_eType_		= pwr_TypeId(pwr_eTix_)
 } pwr_eType;
 
@@ -699,6 +701,8 @@ union pwr_m_Adef {
 #define pwr_mAdef_buffer	pwr_Bit(19)		
 #define pwr_mAdef_nowbl		pwr_Bit(20)		/* Don't print to wbl file */		
 #define pwr_mAdef_alwayswbl	pwr_Bit(21)		/* Always print to wbl file */		
+#define pwr_mAdef_disableattr	pwr_Bit(22)		/* Can be disabled */
+#define pwr_mAdef_rthide	pwr_Bit(23)		/* Hide in runtime */
 };
 
 #define PWR_MASK_POINTER	pwr_mAdef_pointer
@@ -724,6 +728,8 @@ union pwr_m_Adef {
 #define PWR_MASK_BUFFER	        pwr_mAdef_buffer
 #define PWR_MASK_NOWBL        	pwr_mAdef_nowbl
 #define PWR_MASK_ALWAYSWBL      pwr_mAdef_alwayswbl
+#define PWR_MASK_DISABLEATTR    pwr_mAdef_disableattr
+#define PWR_MASK_RTHIDE    	pwr_mAdef_rthide
 
 struct pwr_s_Param
     {
@@ -848,9 +854,9 @@ struct pwr_s_MenuButton
     {
     pwr_tString40	ButtonName;
     pwr_tString80	MethodName;
-    pwr_tString40	MethodArguments[5];
+    pwr_tString80	MethodArguments[5];
     pwr_tString80	FilterName;
-    pwr_tString40	FilterArguments[5];
+    pwr_tString80	FilterArguments[5];
     pwr_tStatus		(*Method)();		/* Address to method.  */
     pwr_tBoolean	(*Filter)();		/* Address to method
                                                    visibility function.  */

src/lib/co/src/co_cdh.c

 /** 
- * Proview   $Id: co_cdh.c,v 1.14 2005-09-20 13:22:40 claes Exp $
+ * Proview   $Id: co_cdh.c,v 1.15 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -2542,13 +2542,29 @@ pwr_sAttrRef cdh_ArefToCastAref( pwr_sAttrRef *arp)
   pwr_sAttrRef cast_aref;
 
   cast_aref = *arp;
+  if ( arp->Flags.b.DisableAttr)
+    cast_aref.Offset -= sizeof(pwr_tDisableAttr);
   cast_aref.Offset -= sizeof(pwr_tCastId);
   cast_aref.Size = sizeof(pwr_tCastId);
   cast_aref.Flags.b.ObjectAttr = 0;  
   cast_aref.Flags.b.CastAttr = 0;  
+  cast_aref.Flags.b.DisableAttr = 0;  
   return cast_aref;
 }
 
+pwr_sAttrRef cdh_ArefToDisableAref( pwr_sAttrRef *arp)
+{
+  pwr_sAttrRef dis_aref;
+
+  dis_aref = *arp;
+  dis_aref.Offset -= sizeof(pwr_tDisableAttr);
+  dis_aref.Size = sizeof(pwr_tDisableAttr);
+  dis_aref.Flags.b.ObjectAttr = 0;  
+  dis_aref.Flags.b.CastAttr = 0;  
+  dis_aref.Flags.b.DisableAttr = 0;  
+  return dis_aref;
+}
+
 pwr_sAttrRef cdh_ArefAdd( pwr_sAttrRef *arp1, pwr_sAttrRef *arp2)
 {
   pwr_sAttrRef aref = *arp1;

src/lib/co/src/co_cdh.h

 /** 
- * Proview   $Id: co_cdh.h,v 1.20 2005-09-01 14:57:52 claes Exp $
+ * Proview   $Id: co_cdh.h,v 1.21 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -982,6 +982,8 @@ char *cdh_OpSysToStr( pwr_mOpSys opsys);
 
 pwr_sAttrRef cdh_ArefToCastAref( pwr_sAttrRef *arp);
 
+pwr_sAttrRef cdh_ArefToDisableAref( pwr_sAttrRef *arp);
+
 pwr_sAttrRef cdh_ArefAdd( pwr_sAttrRef *arp1, pwr_sAttrRef *arp2);
 
 void cdh_SuppressSuper( char *out, char *in);

src/lib/rt/src/rt_gdb.h

 /* 
- * Proview   $Id: rt_gdb.h,v 1.10 2005-09-01 14:57:55 claes Exp $
+ * Proview   $Id: rt_gdb.h,v 1.11 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -595,6 +595,7 @@ typedef struct {
   gdb_sClassAttrKey	key;
   int			numOffset;
   pwr_tUInt32		offset[gdb_cCattOffsetSize];
+  pwr_mAdef		flags[gdb_cCattOffsetSize];
 } gdb_sClassAttr;  
 
 /** Object.

src/lib/rt/src/rt_gdh.c

 /* 
- * Proview   $Id: rt_gdh.c,v 1.18 2005-09-01 14:57:55 claes Exp $
+ * Proview   $Id: rt_gdh.c,v 1.19 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -176,6 +176,55 @@ gdh_AttrrefToName (
 
   return sts;
 }
+
+
+/** 
+ * @brief Get attrref of an attribute specified by name.
+ *
+ * @return pwr_tStatus 
+ */
+pwr_tStatus
+gdh_ArefANameToAref (
+  pwr_sAttrRef *arp,
+  char *aname,
+  pwr_sAttrRef *oarp
+)
+{
+  pwr_tStatus		sts = GDH__SUCCESS;
+  mvol_sAttribute	Attribute;
+  mvol_sAttribute	*ap;
+  char			string[512];
+  char			*s = NULL;
+  cdh_sParseName	parseName;
+  cdh_sParseName	*pn = NULL;
+
+  gdh_ScopeLock {
+    memset(&Attribute, 0, sizeof(Attribute));
+
+    ap = vol_ArefToAttribute(&sts, &Attribute, arp, gdb_mLo_global, vol_mTrans_all);
+    if (ap == NULL) break;
+
+    touchObject(ap->op);
+    s = vol_AttributeToName(&sts, ap, cdh_mName_volumeStrict, string);
+
+    strcat( string, ".");
+    strcat( string, aname);
+
+    pn = cdh_ParseName(&sts, &parseName, pwr_cNOid, string, 0);
+    if (pn == NULL) break;
+
+    memset(&Attribute, 0, sizeof(Attribute));
+
+    ap = vol_NameToAttribute(&sts, &Attribute, pn, gdb_mLo_global, vol_mTrans_all);
+    if (ap == NULL) break;
+
+    mvol_AttributeToAref(&sts, ap, oarp);
+
+  } gdh_ScopeUnlock;
+
+  return sts;
+}
+
 
 /** 
  * @brief Converts a class & attribute to attrref format.
@@ -884,7 +933,7 @@ gdh_GetAttrRefTid (
     
   } gdh_ScopeUnlock;
 
-  if (ap != NULL) {
+  if (ap != 0 && ap->adef != 0) {
     if ( ap->adef->Info.Flags & PWR_MASK_CASTATTR) {
       pwr_tCastId castid;
       pwr_sAttrRef cast_aref = *arp;
@@ -3548,6 +3597,19 @@ gdh_GetMaskBitDef( pwr_tTid tid, gdh_sBitDef **bd, int *rows)
   return sts;
 }
 
+pwr_tStatus gdh_ArefDisabled( pwr_sAttrRef *arp, 
+			      pwr_tDisableAttr *disabled)
+{
+  pwr_tStatus sts;
+
+  gdh_ScopeLock {
+
+    *disabled = vol_ArefDisabled( &sts, arp);
+
+  } gdh_ScopeUnlock;
+
+  return sts;
+}
 
 
 

src/lib/rt/src/rt_gdh.h

 /* 
- * Proview   $Id: rt_gdh.h,v 1.11 2005-09-01 14:57:55 claes Exp $
+ * Proview   $Id: rt_gdh.h,v 1.12 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -609,6 +609,13 @@ gdh_GetAttributeCharAttrref (
   unsigned int		*attributeDimension
 );
 
+pwr_tStatus
+gdh_ArefANameToAref (
+  pwr_sAttrRef *arp,
+  char *aname,
+  pwr_sAttrRef *oarp
+);
+
 /** @} */
 
 /** 
@@ -775,6 +782,12 @@ gdh_GetMaskBitDef(
   int *rows
 );
 
+pwr_tStatus 
+gdh_ArefDisabled(
+  pwr_sAttrRef *arp, 
+  pwr_tDisableAttr *disabled
+);
+
 /* Undocumented routines. For internal use only.  */
 
 pwr_tStatus

src/lib/rt/src/rt_mvol.c

 /* 
- * Proview   $Id: rt_mvol.c,v 1.13 2005-09-01 14:57:56 claes Exp $
+ * Proview   $Id: rt_mvol.c,v 1.14 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -333,6 +333,7 @@ mvol_AnameToAttribute (
     ap->flags.b.Indirect = ((ap->adef->Info.Flags & PWR_MASK_POINTER) != 0) &&
       ((ap->adef->Info.Flags & PWR_MASK_PRIVATE) == 0);
     ap->flags.b.CastAttr = ((ap->adef->Info.Flags & PWR_MASK_CASTATTR) != 0);
+    ap->flags.b.DisableAttr = ((ap->adef->Info.Flags & PWR_MASK_DISABLEATTR) != 0);
     if (ap->idx != ULONG_MAX) {
       if (ap->idx > ap->adef->Info.Elements - 1)
 	pwr_Return(NULL, sts, GDH__SUBSCRIPT);
@@ -459,7 +460,7 @@ mvol_ArefToAttribute (
     /* If this is the first attribute, then match whole object
        otherwise say the attribute is ok!  */
 
-    if (param->Info.ParamIndex == 0) {
+    if (param->Info.ParamIndex == 0 /* && offset == 0 */) {
       ap->aop = NULL;
       ap->adef = NULL;
     }
@@ -890,7 +891,8 @@ static void insertCattObject( pwr_tStatus *sts, pwr_tCid cid, gdb_sAttribute *ap
   if ( !ap->flags.b.array) {
     if ( ODD(*sts)) {
       /* Insert in found item */
-      item->offset[item->numOffset++] = offset + ap->offs;
+      item->offset[item->numOffset] = offset + ap->offs;
+      item->flags[item->numOffset++] = ap->flags;
     }
     else {
       /* Insert a new item */
@@ -899,7 +901,8 @@ static void insertCattObject( pwr_tStatus *sts, pwr_tCid cid, gdb_sAttribute *ap
       itemr = ptree_Insert( sts, gdbroot->catt_tt, &key);
       item = (gdb_sClassAttr *) pool_Address( sts, gdbroot->pool, itemr);
       if ( item == NULL) return;
-      item->offset[item->numOffset++] = offset + ap->offs;
+      item->offset[item->numOffset] = offset + ap->offs;
+      item->flags[item->numOffset++] = ap->flags;
     }
 
     /* Look for class attributes in this class */
@@ -915,7 +918,8 @@ static void insertCattObject( pwr_tStatus *sts, pwr_tCid cid, gdb_sAttribute *ap
     for ( j = 0; j < ap->elem; j++) {
       if ( ODD(*sts) && item->numOffset < gdb_cCattOffsetSize) {
 	/* Insert in current item */
-	item->offset[item->numOffset++] = offset + ap->offs + j * ap->size / ap->elem;
+	item->offset[item->numOffset] = offset + ap->offs + j * ap->size / ap->elem;
+	item->flags[item->numOffset++] = ap->flags;
       }
       else {
 	/* Insert a new item */
@@ -926,7 +930,8 @@ static void insertCattObject( pwr_tStatus *sts, pwr_tCid cid, gdb_sAttribute *ap
 	itemr = ptree_Insert( sts, gdbroot->catt_tt, &key);
 	item = (gdb_sClassAttr *) pool_Address( sts, gdbroot->pool, itemr);
 	if ( item == NULL) return;
-	item->offset[item->numOffset++] = offset + ap->offs;
+	item->offset[item->numOffset] = offset + ap->offs;
+	item->flags[item->numOffset++] = ap->flags;
       }
 
       /* Look for class attributes in this class */
@@ -986,7 +991,11 @@ mvol_ClassListAttrRef (
   gdb_sClassAttrKey 	key;
   gdb_sClassAttr 	*item = 0;
   pwr_tUInt32		first_offset = 0;
+  pwr_mAdef		first_flags;
   int			i;
+  pwr_sAttrRef		aref;
+
+  first_flags.m = 0;
 
   if ( iarp != NULL && cdh_ObjidIsNotNull(iarp->Objid)) {
     op = vol_OidToObject(sts, iarp->Objid, gdb_mLo_native, vol_mTrans_none, cvol_eHint_none);
@@ -1034,8 +1043,15 @@ mvol_ClassListAttrRef (
 	  oarp->Offset = item->offset[0];
 	  oarp->Size = cp->size;
 	  oarp->Body = cid;
+	  
+	  if ( item->flags[0].m & PWR_MASK_DISABLEATTR &&
+	       vol_ArefDisabled( sts, oarp)) {
+	    aref = *oarp;
+	    mvol_ClassListAttrRef(sts, cid, &aref, oarp, list);
+	    return;
+	  }
 	  pwr_ReturnVoid( sts, MVOL__SUCCESS);
-	}      
+	}
       }
       pwr_ReturnVoid( sts, GDH__NO_TYPE);
     }
@@ -1077,6 +1093,12 @@ mvol_ClassListAttrRef (
 	    oarp->Offset = item->offset[0];
 	    oarp->Size = cp->size;
 	    oarp->Body = cid;
+	    if ( item->flags[0].m & PWR_MASK_DISABLEATTR &&
+		 vol_ArefDisabled( sts, oarp)) {
+	      aref = *oarp;
+	      mvol_ClassListAttrRef(sts, cid, &aref, oarp, list);
+	      return;
+	    }
 	    pwr_ReturnVoid( sts, MVOL__SUCCESS);
 	  }
 	}
@@ -1093,8 +1115,10 @@ mvol_ClassListAttrRef (
 	  item = ptree_FindSuccessor( sts, gdbroot->catt_tt, &item->key)) {
       /* Find next offset */
       for ( i = 0; i < item->numOffset; i++) {
-	if ( i == 0 && item->key.idx == 0)
+	if ( i == 0 && item->key.idx == 0) {
 	  first_offset = item->offset[0];
+	  first_flags = item->flags[0];
+	}
 	if ( item->offset[i] > iarp->Offset) {
 	  *oarp = pwr_cNAttrRef;
 	  oarp->Objid = op->g.oid;
@@ -1102,6 +1126,12 @@ mvol_ClassListAttrRef (
 	  oarp->Offset = item->offset[i];
 	  oarp->Size = cp->size;
 	  oarp->Body = cid;
+	  if ( item->flags[i].m & PWR_MASK_DISABLEATTR &&
+	       vol_ArefDisabled( sts, oarp)) {
+	    aref = *oarp;
+	    mvol_ClassListAttrRef(sts, cid, &aref, oarp, list);
+	    return;
+	  }
 	  pwr_ReturnVoid( sts, MVOL__SUCCESS);
 	}
       }
@@ -1121,6 +1151,12 @@ mvol_ClassListAttrRef (
       oarp->Offset = first_offset;
       oarp->Size = cp->size;
       oarp->Body = cid;
+      if ( first_flags.m & PWR_MASK_DISABLEATTR &&
+	   vol_ArefDisabled( sts, oarp)) {
+	aref = *oarp;
+	mvol_ClassListAttrRef(sts, cid, &aref, oarp, list);
+	return;
+      }
       pwr_ReturnVoid( sts, MVOL__SUCCESS);
     }
 
@@ -1146,6 +1182,12 @@ mvol_ClassListAttrRef (
 	oarp->Offset = item->offset[0];
 	oarp->Size = cp->size;
 	oarp->Body = cid;
+	if ( item->flags[0].m & PWR_MASK_DISABLEATTR &&
+	     vol_ArefDisabled( sts, oarp)) {
+	  aref = *oarp;
+	  mvol_ClassListAttrRef(sts, cid, &aref, oarp, list);
+	  return;
+	}
 	pwr_ReturnVoid( sts, MVOL__SUCCESS);
       }
     }
@@ -1188,6 +1230,12 @@ mvol_ClassListAttrRef (
 	  oarp->Offset = item->offset[i];
 	  oarp->Size = cp->size;
 	  oarp->Body = cid;
+	  if ( item->flags[i].m & PWR_MASK_DISABLEATTR &&
+	       vol_ArefDisabled( sts, oarp)) {
+	    aref = *oarp;
+	    mvol_ClassListAttrRef(sts, cid, &aref, oarp, list);
+	    return;
+	  }
 	  pwr_ReturnVoid( sts, MVOL__SUCCESS);
 	}
       }

src/lib/rt/src/rt_vol.c

 /* 
- * Proview   $Id: rt_vol.c,v 1.6 2005-09-01 14:57:56 claes Exp $
+ * Proview   $Id: rt_vol.c,v 1.7 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -1633,6 +1633,32 @@ vol_UpdateAlarm (
 
 
 }
+
+pwr_tDisableAttr
+vol_ArefDisabled (
+  pwr_tStatus 		*sts,
+  pwr_sAttrRef		*arp
+)
+{
+  mvol_sAttribute	attribute;
+  mvol_sAttribute	*ap;
+  void			*p;
+  pwr_sAttrRef		daref;
+
+  memset(&attribute, 0, sizeof(attribute));
+
+  gdb_AssumeLocked;
+
+  daref = cdh_ArefToDisableAref( arp);
+  ap = vol_ArefToAttribute(sts, &attribute, &daref, gdb_mLo_native, vol_mTrans_none);
+  if (ap == NULL) return pwr_cNDisableAttr;
+
+  p = vol_AttributeToAddress(sts, ap);
+  if ( p) 
+    return *(pwr_tDisableAttr *)p;
+  return pwr_cNDisableAttr;
+}
+
 #if 0
 
 gdb_sVolume *

src/lib/rt/src/rt_vol.h

 /* 
- * Proview   $Id: rt_vol.h,v 1.3 2005-09-01 14:57:56 claes Exp $
+ * Proview   $Id: rt_vol.h,v 1.4 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -526,4 +526,9 @@ vol_UpdateAlarm (
   net_sAlarm		al
 );
 
+pwr_tDisableAttr
+vol_ArefDisabled (
+  pwr_tStatus 		*sts,
+  pwr_sAttrRef		*arp
+);
 #endif

src/wbl/mcomp/src/abb.wb_load

@@ -10,8 +10,8 @@ Volume ABB $ClassVolume 0.0.250.2
     !  @Summary CircuitBreaker ABB MS116.
     !  CircuitBreaker ABB MS116.
     !
-    !  See superclass CircuitBreaker for more information.
-    !  @classlink CircuitBreaker basecomponent_circuitbreaker.html
+    !  See superclass BaseCircuitBreaker for more information.
+    !  @classlink BaseCircuitBreaker basecomponent_basecircuitbreaker.html
     !  @link Datasheet ../dsh/abb_circuitbreaker_ms116.pdf
     !*/
     Object ABB_CircuitBreaker_MS116 $ClassDef 1
@@ -32,15 +32,15 @@ Volume ABB $ClassVolume 0.0.250.2
           Body SysBody
             Attr PgmName = "Super"
             Attr Flags = 393216
-            Attr TypeRef = "BaseComponent:Class-CircuitBreaker"
+            Attr TypeRef = "BaseComponent:Class-BaseCircuitBreaker"
           EndBody
         EndObject
       EndObject
       Object Template ABB_CircuitBreaker_MS116 2147975168
         Body RtBody
-          Attr Super.Specification = "ABB Circuit breaker MS 116"
+          Attr Super.Super.Specification = "ABB Circuit breaker MS 116"
           Attr Super.AlarmText = "Overload, circuit breaker tripped, "
-          Attr Super.DataSheet = "$pwr_lang/dsh/abb_circuitbreaker_ms116.pdf"
+          Attr Super.Super.DataSheet = "$pwr_lang/dsh/abb_circuitbreaker_ms116.pdf"
         EndBody
       EndObject
     EndObject
@@ -50,8 +50,8 @@ Volume ABB $ClassVolume 0.0.250.2
     !  @Summary Contactor ABB A.
     !  Contactor ABB A.
     !
-    !  See superclass Contactor for more information.
-    !  @classlink Contactor basecomponent_contactor.html
+    !  See superclass BaseContactor for more information.
+    !  @classlink BaseContactor basecomponent_basecontactor.html
     !  @link Datasheet ../dsh/abb_contactors.pdf
     !*/
     Object ABB_Contactor_A $ClassDef 12
@@ -72,18 +72,18 @@ Volume ABB $ClassVolume 0.0.250.2
           Body SysBody
             Attr PgmName = "Super"
             Attr Flags = 393216
-            Attr TypeRef = "BaseComponent:Class-Contactor"
+            Attr TypeRef = "BaseComponent:Class-BaseContactor"
           EndBody
         EndObject
       EndObject
       Object Template ABB_Contactor_A 2150858752
         Body RtBody
-          Attr Super.Specification = "ABB contactor type A"
+          Attr Super.Super.Specification = "ABB contactor type A"
           Attr Super.Feedback.Description = "Contactor is energized"
           Attr Super.Order.Description = "Energize contactor"
           Attr Super.FbTimeLimit = 1.000000e+00
           Attr Super.AlarmText = "Contactor feedback lost "
-          Attr Super.DataSheet = "$pwr_lang/dsh/abb_contactors.pdf"
+          Attr Super.Super.DataSheet = "$pwr_lang/dsh/abb_contactors.pdf"
         EndBody
       EndObject
     EndObject

src/wbl/mcomp/src/inor.wb_load

@@ -10,8 +10,8 @@ Volume Inor $ClassVolume 0.0.250.7
     !  @Summary TempSensor Inor VRS.
     !  Temperature Sensor Inor VRS.
     !
-    !  See superclass TempSensor for more information.
-    !  @classlink TempSensor basecomponent_tempsensor.html
+    !  See superclass BaseTempSensor for more information.
+    !  @classlink BaseTempSensor basecomponent_basetempsensor.html
     !  @link Datasheet ../dsh/inor_tempsensor_vrs.pdf
     !*/
     Object Inor_TempSensor_VRS $ClassDef 1
@@ -29,13 +29,13 @@ Volume Inor $ClassVolume 0.0.250.7
           Body SysBody
             Attr PgmName = "Super"
             Attr Flags = 393216
-            Attr TypeRef = "BaseComponent:Class-TempSensor"
+            Attr TypeRef = "BaseComponent:Class-BaseTempSensor"
           EndBody
         EndObject
       EndObject
       Object Template Inor_TempSensor_VRS 2147975168
         Body RtBody
-          Attr Super.Super.Specification = "Temp sensor"
+          Attr Super.Super.Super.Specification = "Inor Tempsensor VRS"
           Attr Super.Super.Value.PresMaxLimit = 1.000000e+02
           Attr Super.Super.LimitHH.AlarmText = "HighHigh limit exceeded, levelsensor "
           Attr Super.Super.LimitHH.Limit = 9.500000e+01
@@ -53,7 +53,7 @@ Volume Inor $ClassVolume 0.0.250.7
           Attr Super.Super.Trend.NoOfBuffers = 2
           Attr Super.Super.Trend.NoOfBufElement = 239
           Attr Super.Super.DefTrend = "Inor:Class-Inor_TempSensor_VRS-Template.Super.Super.Trend"
-          Attr Super.Super.DataSheet = "$pwr_lang/dsh/inor_tempsensor_vrs.pdf"
+          Attr Super.Super.Super.DataSheet = "$pwr_lang/dsh/inor_tempsensor_vrs.pdf"
         EndBody
       EndObject
     EndObject

src/wbl/mcomp/src/klocknermoeller.wb_load

@@ -10,8 +10,8 @@ Volume KlocknerMoeller $ClassVolume 0.0.250.6
     !  @Summary CircuitBreaker KlocknerMoeller PKZ.
     !  CircuitBreaker KlocknerMoeller PKZ.
     !
-    !  See superclass CircuitBreaker for more information.
-    !  @classlink CircuitBreaker basecomponent_circuitbreaker.html
+    !  See superclass BaseCircuitBreaker for more information.
+    !  @classlink BaseCircuitBreaker basecomponent_basecircuitbreaker.html
     !  @link Datasheet ../dsh/km_motor_protective_pkz.pdf
     !*/
     Object KM_CircuitBreaker_PKZ $ClassDef 1
@@ -29,16 +29,16 @@ Volume KlocknerMoeller $ClassVolume 0.0.250.6
           Body SysBody
             Attr PgmName = "Super"
             Attr Flags = 393216
-            Attr TypeRef = "BaseComponent:Class-CircuitBreaker"
+            Attr TypeRef = "BaseComponent:Class-BaseCircuitBreaker"
           EndBody
         EndObject
       EndObject
       Object Template KM_CircuitBreaker_PKZ 2147975168
         Body RtBody
-          Attr Super.Specification = "Klockner Moeller type PKZ"
+          Attr Super.Super.Specification = "Klockner Moeller type PKZ"
           Attr Super.NotTripped.Description = "CircuitBreaker is tripped"
           Attr Super.AlarmText = "Circuit breaker tripped"
-          Attr Super.DataSheet = "$pwr_lang/dsh/km_motor_protective_pkz.pdf"
+          Attr Super.Super.DataSheet = "$pwr_lang/dsh/km_motor_protective_pkz.pdf"
         EndBody
       EndObject
     EndObject
@@ -48,8 +48,8 @@ Volume KlocknerMoeller $ClassVolume 0.0.250.6
     !  @Summary Contactor KlocknerMoeller PKZ.
     !  Contactor KlocknerMoeller PKZ.
     !
-    !  See superclass Contactor for more information.
-    !  @classlink Contactor basecomponent_contactor.html
+    !  See superclass BaseContactor for more information.
+    !  @classlink BaseContactor basecomponent_basecontactor.html
     !  @link Datasheet ../dsh/km_motor_protective_pkz.pdf
     !*/
     Object KM_Contactor_PKZ $ClassDef 2
@@ -67,18 +67,18 @@ Volume KlocknerMoeller $ClassVolume 0.0.250.6
           Body SysBody
             Attr PgmName = "Super"
             Attr Flags = 393216
-            Attr TypeRef = "BaseComponent:Class-Contactor"
+            Attr TypeRef = "BaseComponent:Class-BaseContactor"
           EndBody
         EndObject
       EndObject
       Object Template KM_Contactor_PKZ 2148237312
         Body RtBody
-          Attr Super.Specification = "Klockner Moeller type PKZ"
+          Attr Super.Super.Specification = "Klockner Moeller type PKZ"
           Attr Super.Feedback.Description = "Contactor is energized"
           Attr Super.Order.Description = "Energize contactor"
           Attr Super.FbTimeLimit = 1.000000e+00
           Attr Super.AlarmText = "Contactor feedback lost "
-          Attr Super.DataSheet = "$pwr_lang/dsh/km_motor_protective_pkz.pdf"
+          Attr Super.Super.DataSheet = "$pwr_lang/dsh/km_motor_protective_pkz.pdf"
         EndBody
       EndObject
     EndObject

src/wbl/mcomp/src/siemens.wb_load

 Volume Siemens $ClassVolume 0.0.250.3 
-  Body SysBody
+  Body SysBody 01-JAN-1970 01:00:00.00
     Attr NextOix = "_X1"
     Attr NextCix = "_X6"
   EndBody
-  Object Class $ClassHier 1
+  Object Class $ClassHier 1 06-OCT-2005 14:40:44.00
     !/**
     !  @Version 1.0
     !  @Group Motor
     !  @Summary Motor Siemens 1LA.
     !  Motor Siemens 1LA.
-    !
-    !  See superclass Motor for more information.
-    !  @classlink Motor basecomponent_motor.html
+    ! 
+    !  See superclass BaseMotor for more information.
+    !  @classlink BaseMotor basecomponent_basemotor.html
     !  @link Datasheet ../dsh/siemens_motor_1la.pdf
     !*/
-    Object Siemens_Motor_1LA $ClassDef 1
-      Body SysBody
+    Object Siemens_Motor_1LA $ClassDef 1 06-OCT-2005 14:40:44.00
+      Body SysBody 01-JAN-1970 01:00:00.00
         Attr Editor = 0
         Attr Method = 0
         Attr Flags = 16
       EndBody
-      Object RtBody $ObjBodyDef 1
-        Body SysBody
+      Object RtBody $ObjBodyDef 1 06-OCT-2005 14:40:44.00
+        Body SysBody 01-JAN-1970 01:00:00.00
           Attr StructName = "Siemens_Motor_1LA"
           Attr NextAix = "_X2"
         EndBody
-        Object Super $Attribute 1
-          Body SysBody
+        Object Super $Attribute 1 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Super"
             Attr Flags = 393216
-            Attr TypeRef = "BaseComponent:Class-Motor"
+            Attr TypeRef = "BaseComponent:Class-BaseMotor"
           EndBody
         EndObject
       EndObject
-      Object Template Siemens_Motor_1LA 2147975168
-        Body RtBody
-          Attr Super.Specification = "Siemens 1LA"
-          Attr Super.DataSheet = "$pwr_lang/dsh/siemens_motor_1la.pdf"
+      Object Template Siemens_Motor_1LA 2147975168 06-OCT-2005 14:40:44.00
+        Body RtBody 06-OCT-2005 14:41:42.93
+          Attr Super.Super.Specification = "Siemens 1LA"
+          Attr Super.Super.DataSheet = "$pwr_lang/dsh/siemens_motor_1la.pdf"
+          Attr Super.GraphConfiguration = 2
+          Attr Super.DisableTempSwitch = 1
+          Attr Super.TempSwitch.Super.DisableSwitch = 1
+          Attr Super.DisableTempSensor = 1
+          Attr Super.TempSensor.Super.DisableValue = 1
         EndBody
       EndObject
     EndObject
@@ -45,30 +50,30 @@ Volume Siemens $ClassVolume 0.0.250.3
     !  @Group Profibus
     !  @Summary Profibus module ET200 with two Ai.
     !  Profibus module ET200 with two analog inputs.
-    !
+    ! 
     !  See also
     !  @classlink Pb_Module pwrb_pb_module.html
     !*/
-    Object Siemens_ET200S_Ai2 $ClassDef 2
-      Body SysBody
+    Object Siemens_ET200S_Ai2 $ClassDef 2 06-OCT-2005 14:40:44.00
+      Body SysBody 01-JAN-1970 01:00:00.00
         Attr Editor = 0
         Attr Method = 0
         Attr Flags = 18448
       EndBody
-      Object RtBody $ObjBodyDef 1
-        Body SysBody
+      Object RtBody $ObjBodyDef 1 06-OCT-2005 14:40:44.00
+        Body SysBody 01-JAN-1970 01:00:00.00
           Attr StructName = "Siemens_ET200_Ai2"
           Attr NextAix = "_X3"
         EndBody
-        Object Super $Attribute 1
-          Body SysBody
+        Object Super $Attribute 1 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Super"
             Attr Flags = 393216
             Attr TypeRef = "pwrb:Class-Pb_Module"
           EndBody
         EndObject
-        Object Ch $Attribute 2
-          Body SysBody
+        Object Ch $Attribute 2 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Ch"
             Attr Flags = 131074
             Attr Elements = 2
@@ -76,8 +81,8 @@ Volume Siemens $ClassVolume 0.0.250.3
           EndBody
         EndObject
       EndObject
-      Object Template Siemens_ET200S_Ai2 2148237312
-        Body RtBody
+      Object Template Siemens_ET200S_Ai2 2148237312 06-OCT-2005 14:40:44.00
+        Body RtBody 01-JAN-1970 01:00:00.00
           Attr Super.Specification = "Siemens ET200S 6ES7 134-4FB00-0AB0 2 Ai U"
           Attr Super.Process = 1
           Attr Ch[0].ConversionOn = 1
@@ -112,30 +117,30 @@ Volume Siemens $ClassVolume 0.0.250.3
     !  @Group Profibus
     !  @Summary Profibus module ET200 with two Ao.
     !  Profibus module ET200 with two analog outputs.
-    !
+    ! 
     !  See also
     !  @classlink Pb_Module pwrb_pb_module.html
     !*/
-    Object Siemens_ET200S_Ao2 $ClassDef 3
-      Body SysBody
+    Object Siemens_ET200S_Ao2 $ClassDef 3 06-OCT-2005 14:40:44.00
+      Body SysBody 01-JAN-1970 01:00:00.00
         Attr Editor = 0
         Attr Method = 0
         Attr Flags = 18448
       EndBody
-      Object RtBody $ObjBodyDef 1
-        Body SysBody
+      Object RtBody $ObjBodyDef 1 06-OCT-2005 14:40:44.00
+        Body SysBody 01-JAN-1970 01:00:00.00
           Attr StructName = "Siemens_ET200S_Ao2"
           Attr NextAix = "_X5"
         EndBody
-        Object Super $Attribute 3
-          Body SysBody
+        Object Super $Attribute 3 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Super"
             Attr Flags = 393216
             Attr TypeRef = "pwrb:Class-Pb_Module"
           EndBody
         EndObject
-        Object Ch $Attribute 4
-          Body SysBody
+        Object Ch $Attribute 4 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Ch"
             Attr Flags = 131074
             Attr Elements = 2
@@ -143,8 +148,8 @@ Volume Siemens $ClassVolume 0.0.250.3
           EndBody
         EndObject
       EndObject
-      Object Template Siemens_ET200S_Ao2 2148499456
-        Body RtBody
+      Object Template Siemens_ET200S_Ao2 2148499456 06-OCT-2005 14:40:44.00
+        Body RtBody 01-JAN-1970 01:00:00.00
           Attr Super.Specification = "Siemens ET200S 6ES7 135-4FB00-0AB0 2 Ao U"
           Attr Super.Process = 1
           Attr Ch[0].OutPolyType = 1
@@ -174,30 +179,30 @@ Volume Siemens $ClassVolume 0.0.250.3
     !  @Group Profibus
     !  @Summary Profibus module ET200 with four Di.
     !  Profibus module ET200 with four digital inputs.
-    !
+    ! 
     !  See also
     !  @classlink Pb_Module pwrb_pb_module.html
     !*/
-    Object Siemens_ET200S_Di4 $ClassDef 4
-      Body SysBody
+    Object Siemens_ET200S_Di4 $ClassDef 4 06-OCT-2005 14:40:44.00
+      Body SysBody 01-JAN-1970 01:00:00.00
         Attr Editor = 0
         Attr Method = 0
         Attr Flags = 18448
       EndBody
-      Object RtBody $ObjBodyDef 1
-        Body SysBody
+      Object RtBody $ObjBodyDef 1 06-OCT-2005 14:40:44.00
+        Body SysBody 01-JAN-1970 01:00:00.00
           Attr StructName = "Siemens_ET200S_Di4"
           Attr NextAix = "_X5"
         EndBody
-        Object Super $Attribute 3
-          Body SysBody
+        Object Super $Attribute 3 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Super"
             Attr Flags = 393216
             Attr TypeRef = "pwrb:Class-Pb_Module"
           EndBody
         EndObject
-        Object Ch $Attribute 4
-          Body SysBody
+        Object Ch $Attribute 4 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Ch"
             Attr Flags = 131074
             Attr Elements = 4
@@ -205,8 +210,8 @@ Volume Siemens $ClassVolume 0.0.250.3
           EndBody
         EndObject
       EndObject
-      Object Template Siemens_ET200S_Di4 2148761600
-        Body RtBody
+      Object Template Siemens_ET200S_Di4 2148761600 06-OCT-2005 14:40:44.00
+        Body RtBody 01-JAN-1970 01:00:00.00
           Attr Super.Specification = "Siemens ET200S 6ES7 131-4BD00-0AA0 4 Di DC24V"
           Attr Super.Process = 1
         EndBody
@@ -217,30 +222,30 @@ Volume Siemens $ClassVolume 0.0.250.3
     !  @Group Profibus
     !  @Summary Profibus module ET200 four Do.
     !  Profibus module ET200 with four digital outputs.
-    !
+    ! 
     !  See also
     !  @classlink Pb_Module pwrb_pb_module.html
     !*/
-    Object Siemens_ET200S_Do4 $ClassDef 5
-      Body SysBody
+    Object Siemens_ET200S_Do4 $ClassDef 5 06-OCT-2005 14:40:44.00
+      Body SysBody 01-JAN-1970 01:00:00.00
         Attr Editor = 0
         Attr Method = 0
         Attr Flags = 18448
       EndBody
-      Object RtBody $ObjBodyDef 1
-        Body SysBody
+      Object RtBody $ObjBodyDef 1 06-OCT-2005 14:40:44.00
+        Body SysBody 01-JAN-1970 01:00:00.00
           Attr StructName = "Siemens_ET200S_Do4"
           Attr NextAix = "_X5"
         EndBody
-        Object Super $Attribute 3
-          Body SysBody
+        Object Super $Attribute 3 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Super"
             Attr Flags = 393216
             Attr TypeRef = "pwrb:Class-Pb_Module"
           EndBody
         EndObject
-        Object Ch $Attribute 4
-          Body SysBody
+        Object Ch $Attribute 4 06-OCT-2005 14:40:44.00
+          Body SysBody 01-JAN-1970 01:00:00.00
             Attr PgmName = "Ch"
             Attr Flags = 131074
             Attr Elements = 4
@@ -248,8 +253,8 @@ Volume Siemens $ClassVolume 0.0.250.3
           EndBody
         EndObject
       EndObject
-      Object Template Siemens_ET200S_Do4 2149023744
-        Body RtBody
+      Object Template Siemens_ET200S_Do4 2149023744 06-OCT-2005 14:40:44.00
+        Body RtBody 01-JAN-1970 01:00:00.00
           Attr Super.Specification = "Siemens ET200S 6ES7 132-4BD00-0AA0 4 Do DC24V/0.5A"
           Attr Super.Process = 1
         EndBody

src/wbl/mcomp/src/ssabox.wb_load

@@ -10,8 +10,8 @@ Volume SsabOx $ClassVolume 0.0.250.5
     !  @Summary SafetySwitch SSAB.
     !  SafetySwitch SSAB.
     !
-    !  See superclass SafetySwitch for more information.
-    !  @classlink SafetySwitch basecomponent_safetyswitch.html
+    !  See superclass BaseSafetySwitch for more information.
+    !  @classlink BaseSafetySwitch basecomponent_basesafetyswitch.html
     !  @link Datasheet ../dsh/ssab_safetyswitch.pdf
     !*/
     Object Ssab_SafetySwitch $ClassDef 1
@@ -29,13 +29,14 @@ Volume SsabOx $ClassVolume 0.0.250.5
           Body SysBody
             Attr PgmName = "Super"
             Attr Flags = 393216
-            Attr TypeRef = "BaseComponent:Class-SafetySwitch"
+            Attr TypeRef = "BaseComponent:Class-BaseSafetySwitch"
           EndBody
         EndObject
       EndObject
       Object Template Ssab_SafetySwitch 2147975168
         Body RtBody
-          Attr Super.DataSheet = "$pwr_lang/dsh/ssab_safetyswitch.pdf"
+          Attr Super.Super.Specification = "SSAB SafetySwitch"
+          Attr Super.Super.DataSheet = "$pwr_lang/dsh/ssab_safetyswitch.pdf"
         EndBody
       EndObject
     EndObject

src/wbl/pwrb/src/pwrb_c_carea.wb_load

+! 
+!  Proview   $Id: pwrb_c_carea.wb_load,v 1.1 2005-10-07 05:57:31 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_csub.wb_load -- Defines the class CSub.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Code rt_plc_macro_grafcet.h
+!  @Group Plc,PlcLogic
+!  @Summary Conditional execution of plc-objects in a sub-window
+!  Conditional execution of objects located in an area.
+!  @image orm_carea_fo.gif
+!  
+!  The code in the area is,
+!  executed if, and only if, the logical input signal is
+!  TRUE.
+!  
+!  By means of the Attribute Editor the value of the input
+!  signal can be inverted.
+!  The sub-window may contain PLC objects without any
+!  known restrictions.
+!*/
+  Object CArea $ClassDef 433
+    Body SysBody
+      Attr Editor = pwr_eEditor_AttrEd
+      Attr Method = pwr_eMethod_Connections
+      Attr PopEditor = 2
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      Body SysBody
+        Attr StructName = "CArea"
+      EndBody
+      !/**
+      !  Specifies whether the objects in the area  will be executed 
+      !  or not. FALSE means no execution and TRUE means execution
+      !  of the objects in the sub-window.
+      !*/
+      Object in $Input 1 
+        Body SysBody
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+          Attr TypeRef = "pwrs:Type-$Boolean"
+          Attr GraphName = "in"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      !/**
+      !  Width of area. 
+      !*/
+      Object AreaWidth $Intern 1 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$Float32"
+        EndBody
+      EndObject
+      !/**
+      !  Height of area. 
+      !*/
+      Object AreaHeight $Intern 2 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$Float32"
+        EndBody
+      EndObject
+      Object PlcNode $Buffer 3 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+	  Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 11
+        Attr parameters[0] = 1
+        Attr parameters[1] = 0
+        Attr parameters[2] = 0
+        Attr parameters[3] = 0
+        Attr graphmethod = 11
+        Attr graphindex = 7
+        Attr default_mask[0] = 1
+        Attr default_mask[1] = 0
+        Attr segname_annotation = 1
+        Attr compmethod = 61
+        Attr compindex = 0
+        Attr tracemethod = 2
+        Attr traceindex = 1
+	Attr executeordermethod = 2
+        Attr objname = "CArea"
+        Attr graphname = "CArea"
+        Attr debugpar = "in"
+      EndBody
+    EndObject
+    Object Template CArea
+      Body RtBody
+        Attr in = 0
+      EndBody
+      Body DevBody
+        Attr AreaWidth = 1.3
+        Attr AreaHeight = 1
+      EndBody
+    EndObject
+  EndObject
+EndSObject

src/wbl/pwrb/src/pwrb_c_disabled.wb_load

+! 
+!  Proview   $Id: pwrb_c_disabled.wb_load,v 1.1 2005-10-07 05:57:31 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_disabled.wb_load -- Defines the class Disabled.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Group Plc,PlcIO
+!  @Summary Check if an attribute is disabled.
+!  Check if an attributes is disabled.
+!  @image orm_disabled_fo.gif
+!*/
+  Object Disabled $ClassDef 434 
+    Body SysBody
+      Attr Editor = pwr_eEditor_AttrEd
+      Attr Method = pwr_eMethod_DevBodyOnly
+      Attr Flags = pwr_mClassDef_DevOnly
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      !/**
+      !  Used by the PLC Editor.
+      !*/
+      Object Status $Output 1 
+        Body SysBody
+          Attr PgmName = "Status"
+          Attr Flags |= PWR_MASK_STATE
+          Attr Flags |= PWR_MASK_RTVIRTUAL
+          Attr Flags |= PWR_MASK_DEVBODYREF
+          Attr TypeRef = "pwrs:Type-$Boolean"
+          Attr GraphName = "sts"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      !/**
+      !  Used by the PLC Editor. Specifies the complete name of
+      !  the actual attribute.
+      !*/
+      Object Object $Intern 1 
+        Body SysBody
+          Attr PgmName = "Object"
+          Attr TypeRef = "pwrs:Type-$AttrRef"
+          Attr GraphName = "sts"
+          Attr NiNaAnnot = 1
+          Attr NiNaSegments = 1
+          Attr ConPointNr = 0
+        EndBody
+      EndObject
+      !/**
+      !  Specifies how many segments of the actual object name
+      !  that is to be displayed in the symbol of the Disabled
+      !  object. The segments are counted from behind.
+      !*/
+      Object ObjectSegments $Intern 3 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$Int32"
+        EndBody
+      EndObject
+      Object PlcNode $Buffer 4 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+          Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 11
+        Attr parameters[0] = 0
+        Attr parameters[1] = 0
+        Attr parameters[2] = 1
+        Attr parameters[3] = 0
+        Attr subwindows = 0
+        Attr graphmethod = 7
+        Attr graphindex = 0
+        Attr default_mask[0] = 0
+        Attr default_mask[1] = 1
+        Attr segname_annotation = 0
+        Attr devbody_annotation = 1
+        Attr compmethod = 62
+        Attr compindex = 0
+        Attr tracemethod = 1
+        Attr traceindex = 1
+        Attr connectmethod = 27
+        Attr executeordermethod = 0
+        Attr objname = "Disabled"
+        Attr graphname = "Disabled"
+        Attr debugpar = "Status"
+      EndBody
+    EndObject
+    Object Template Disabled
+      Body DevBody
+        Attr ObjectSegments = 2
+      EndBody
+    EndObject
+  EndObject
+EndSObject

wb/lib/wb/src/wb_attribute.h

 /* 
- * Proview   $Id: wb_attribute.h,v 1.22 2005-09-06 10:43:30 claes Exp $
+ * Proview   $Id: wb_attribute.h,v 1.23 2005-10-07 05:57:28 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -132,6 +132,7 @@ public:
   pwr_tStatus sts() const { return m_sts;}
   wb_adrep *adrep() { return m_adrep;}
   void castId( pwr_tCastId *castid);
+  pwr_tDisableAttr disabled();
 
 private:
   void check() const;