Enum for send/receive in RemTrans, and added size for pointer attributes

remote/wbl/remote/src/remote_c_remchan_ai.wb_load

@@ -71,6 +71,7 @@ SObject Remote:Class
           Attr Flags |= PWR_MASK_POINTER
           Attr Flags |= PWR_MASK_NOEDIT
           Attr Flags |= PWR_MASK_INVISIBLE
+	  Attr Size = 4
         EndBody
       EndObject
       !

remote/wbl/remote/src/remote_c_remchan_ao.wb_load

@@ -71,6 +71,7 @@ SObject Remote:Class
           Attr Flags |= PWR_MASK_POINTER
           Attr Flags |= PWR_MASK_NOEDIT
           Attr Flags |= PWR_MASK_INVISIBLE
+	  Attr Size = 4
         EndBody
       EndObject
       !

remote/wbl/remote/src/remote_c_remchan_co.wb_load

@@ -71,6 +71,7 @@ SObject Remote:Class
           Attr Flags |= PWR_MASK_POINTER
           Attr Flags |= PWR_MASK_NOEDIT
           Attr Flags |= PWR_MASK_INVISIBLE
+	  Attr Size = 4
         EndBody
       EndObject
       !

remote/wbl/remote/src/remote_c_remchan_di.wb_load

@@ -71,6 +71,7 @@ SObject Remote:Class
           Attr Flags |= PWR_MASK_POINTER
           Attr Flags |= PWR_MASK_NOEDIT
           Attr Flags |= PWR_MASK_INVISIBLE
+	  Attr Size = 4
         EndBody
       EndObject
       !

remote/wbl/remote/src/remote_c_remchan_do.wb_load

@@ -71,6 +71,7 @@ SObject Remote:Class
           Attr Flags |= PWR_MASK_POINTER
           Attr Flags |= PWR_MASK_NOEDIT
           Attr Flags |= PWR_MASK_INVISIBLE
+	  Attr Size = 4
         EndBody
       EndObject
       !

remote/wbl/remote/src/remote_c_remchan_dv.wb_load

@@ -59,6 +59,7 @@ SObject Remote:Class
           Attr Flags |= PWR_MASK_POINTER
           Attr Flags |= PWR_MASK_NOEDIT
           Attr Flags |= PWR_MASK_INVISIBLE
+	  Attr Size = 4
         EndBody
       EndObject
       !

remote/wbl/remote/src/remote_c_remtrans.wb_load

@@ -70,7 +70,7 @@ SObject Remote:Class
       !
       Object Direction $Attribute 4
         Body SysBody
-          Attr TypeRef = "pwrs:Type-$UInt32"
+          Attr TypeRef = "Remote:Type-TransDirectionEnum"
         EndBody
       EndObject
       !

remote/wbl/remote/src/remote_ch_type.wb_load

+! 
+!  Proview   $Id$
+!  Copyright (C) 2005 SSAB Oxelösund 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.
+!
+!  remote_ch_type.wb_load -- Remote:Type hierarchy.
+!
+SObject Remote:
+  Object Type $ClassHier
+  EndObject
+EndSObject
+

remote/wbl/remote/src/remote_td_transdirectionenum.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.
+!
+!  nmps_td_transdirectionenum.wb_load -- Defines the enum type Send/Receive
+!
+SObject Remote:Type
+!/**
+!  @Version 1.0
+!  @Group Types
+!  Enumeration for transfer direction, send or receive.
+!*/
+  Object TransDirectionEnum $TypeDef 1
+    Body SysBody
+      Attr TypeRef = "pwrs:Type-$Enum"
+      Attr PgmName = "TransDirectionEnum"
+    EndBody
+    !/**
+    !  Receive.
+    !*/
+    Object Receive $Value
+     Body SysBody
+       Attr PgmName = "Receive"
+       Attr Text = "Receive"
+       Attr Value = 1
+     EndBody
+    EndObject
+    !/**
+    !  Send.
+    !*/
+    Object Send $Value
+     Body SysBody
+       Attr PgmName = "Send"
+       Attr Text = "Send"
+       Attr Value = 2
+     EndBody
+    EndObject
+  EndObject
+EndSObject
+
+
+
+
+
+
+
+