New enumeration type for OpMode in PID mode objects

bcomp/wbl/bcomp/src/basecomponent.wb_load

@@ -51348,7 +51348,7 @@ and no Auto/Man button."
         Object OpMod $Attribute 13 18-MAY-2006 14:35:03.24
           Body SysBody 18-MAY-2006 14:38:30.03
             Attr PgmName = "OpMod"
-            Attr TypeRef = "pwrb:Type-PidModeMask"
+            Attr TypeRef = "pwrb:Type-PidOpModeEnum"
           EndBody
         EndObject
         !/**

src/wbl/pwrb/src/pwrb_c_mode.wb_load

@@ -275,7 +275,7 @@ SObject pwrb:Class
       !*/
       Object OpMod $Intern 12 
         Body SysBody
-          Attr TypeRef = "pwrb:Type-PidModeMask"
+          Attr TypeRef = "pwrb:Type-PidOpModeEnum"
           Attr GraphName = "OpMod"
         EndBody
       EndObject

src/wbl/pwrb/src/pwrb_td_pidopmodeenum.wb_load

+! 
+!  Proview   $Id$
+!  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_pidopmodeenum.wb_load -- Defines the enum type PidOpModeEnum
+!
+SObject pwrb:Type
+!/**
+!  @Version 1.0
+!  @Group Types
+!  Enumeration for Manual/Auto/Cascade mode in a PID Mode object.
+!
+! @b See also
+!  @classlink Mode pwrb_mode.html
+!*/
+  Object PidOpModeEnum $TypeDef 47
+    Body SysBody
+      Attr TypeRef = "pwrs:Type-$Enum"
+    EndBody
+    !/**
+    !  Manual mode.
+    !*/
+    Object Manual $Value
+     Body SysBody
+       Attr PgmName = "Manual"
+       Attr Text = "Manual"
+       Attr Value = 1
+     EndBody
+    EndObject
+    !/**
+    !  Auto mode.
+    !*/
+    Object Auto $Value
+     Body SysBody
+       Attr PgmName = "Auto"
+       Attr Text = "Auto"
+       Attr Value = 2
+     EndBody
+    EndObject
+    !/**
+    !  Cascade.
+    !*/
+    Object Cascade $Value
+     Body SysBody
+       Attr PgmName = "Cascade"
+       Attr Text = "Cascade"
+       Attr Value = 4
+     EndBody
+    EndObject
+  EndObject
+EndSObject
+
+
+
+