Commit 27f2171e authored by Claes's avatar Claes

pwrb, added enum type for Ready / Not Ready

parent 70832276
!
! 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_td_readynotreadyenum.wb_load -- Defines the enum type ReadyNotReady
!
SObject pwrb:Type
!/**
! @Version 1.0
! @Group Types
! Enumeration for ready/not ready.
!*/
Object ReadyNotReadyEnum $TypeDef 54
Body SysBody
Attr TypeRef = "pwrs:Type-$Enum"
Attr PgmName = "ReadyNotReadyEnum"
EndBody
!/**
! Not Ready.
!*/
Object NotReady $Value
Body SysBody
Attr PgmName = "NotReady"
Attr Text = "Not Ready"
Attr Value = 0
EndBody
EndObject
!/**
! Ready.
!*/
Object Ready $Value
Body SysBody
Attr PgmName = "Ready"
Attr Text = "Ready"
Attr Value = 1
EndBody
EndObject
EndObject
EndSObject
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment