Skip to content

P
proview
Commit c0fa40c0 authored by claes's avatar claes
Browse files
Options

SigChanCon changed to objid for ObjXRef

parent 3a32963a
Show whitespace changes
Inline Side-by-side
Showing with 325 additions and 190 deletions
src/wbl/pwrb/src/pwrb_c_ai.wb_load
View file @ c0fa40c0
......@@ -46,14 +46,9 @@ SObject pwrb:Class
!/**
! Name of the associated channel object.
!*/
Object SigChanCon $ObjXRef 2
Object SigChanCon $Attribute 2
Body SysBody
Attr Identity = "Ai"
Attr Source = "Ai"
Attr Target = "ChanAi"
Attr SourceAttribute = "SigChanCon"
Attr TargetAttribute = "SigChanCon"
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
......@@ -219,9 +214,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -232,23 +227,21 @@ SObject pwrb:Class
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$ObjXRef-Connect"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkConnect"
Attr FilterArguments[1] = "ChanIi"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-Disconnect"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnect"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
EndObject
......@@ -258,9 +251,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -268,3 +261,8 @@ SObject pwrb:Class
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ao.wb_load
View file @ c0fa40c0
......@@ -46,14 +46,9 @@ SObject pwrb:Class
!/**
! Name of the associated channel object.
!*/
Object SigChanCon $ObjXRef 2
Object SigChanCon $Attribute 2
Body SysBody
Attr Identity = "Ao"
Attr Source = "Ao"
Attr Target = "ChanAo"
Attr SourceAttribute = "SigChanCon"
Attr TargetAttribute = "SigChanCon"
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
......@@ -175,9 +170,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -188,23 +183,21 @@ SObject pwrb:Class
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$ObjXRef-Connect"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkConnect"
Attr FilterArguments[1] = "ChanIi"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-Disconnect"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnect"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
EndObject
......@@ -214,9 +207,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -224,3 +217,9 @@ SObject pwrb:Class
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_chanco.wb_load
View file @ c0fa40c0
......@@ -42,14 +42,11 @@ SObject pwrb:Class
! Name of a signal object, i.e. Co object, connected with
! the channel object.
!*/
Object SigChanCon $ObjXRef 2
Object SigChanCon $Attribute 2
Body SysBody
Attr Identity = "Co"
Attr Source = "ChanCo"
Attr Target = "Co"
Attr SourceAttribute = "SigChanCon"
Attr TargetAttribute = "SigChanCon"
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
......@@ -192,58 +189,6 @@ SObject pwrb:Class
Attr Name = "%02.2d"
EndBody
EndObject
Object ConfiguratorPosnn $Menu
Object Pointed $Menu
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Signal"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
Object ConfiguratorPoson $Menu
Object Pointed $Menu
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Signal"
Attr MethodName = "$ObjXRef-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Signal"
Attr MethodName = "$ObjXRef-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
Object ConfiguratorPosos $Menu
Object Pointed $Menu
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Signal"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
Object ConfiguratorPcsnn $Menu
Object Pointed $Menu
Object SetDefaults $MenuButton
......
src/wbl/pwrb/src/pwrb_c_chanii.wb_load 0 → 100644
View file @ c0fa40c0
! pwrb_c_chanii.wb_load -- Defines the class ChanIi.
!
! PROVIEW/R
! Copyright (C) 2004 SSAB Oxelosund AB.
!
! Channel Integer Input.
!
!/**
! @Version 1.0
! @Group IO,Channels,NodeConfiguration
! @Summary Configures a integer input channel
! Configures a integer input channel.
! Integer values are normally recieved from bus io-systems.
! The integer value is stored as a 32-bit signed integer.
!
! @b Hints
! ChanIi objects are configured below a suitable Io-card or module
! object.
!*/
SObject pwrb:Class
Object ChanIi $ClassDef 322
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "ChanIi"
EndBody
!/**
! Optional text, for example to describe the channel or
! its employment.
!*/
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
!/**
! Name of a signal object, i.e. Iv object, connected with
! the channel object. This is filled in at runtime.
!*/
Object SigChanCon $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! The identity of the channel. Optional, for example Di0
! to denote the first channel, physical cable marking,
! etc.
!*/
Object Identity $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
!/**
! The Number attribute can be used by the io methods of the module
! to identify the channel. See documentation for the module if, and
! how, this attribute is used.
!*/
Object Number $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
!/**
! Specifies if the ActualValue should be updated or not.
! FALSE means no updating; TRUE means ActualValue will be
! updated at the period T0, where T0 is equal to
! ScanTime of the process and thread handling the module.
!*/
Object ConversionOn $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
EndObject
Object Template ChanIi
Body RtBody
Attr ConversionOn = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_chanio.wb_load 0 → 100644
View file @ c0fa40c0
! pwrb_c_chanio.wb_load -- Defines the class ChanIo.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Channel Integer Output.
!
!/**
! @Version 1.0
! @Group IO,Channels,NodeConfiguration
! @Summary Configures a integer output channel
! Configures a integer output channel.
!
! If EmergBreakTrue = TRUE and EmergBreakSelect = 2 then
! the output is based on FixedOutValue. Otherwise TestOn
! will settles which attribute the output is based on.
!
! @b Hints
! ChanIo objects are configured below a suitable Io-card or module
! object.
! Rack and card objects to different I/O systems are
! documented separately.
!*/
SObject pwrb:Class
Object ChanIo $ClassDef 323
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "ChanIo"
EndBody
!/**
! Optional text, for example to describe the channel or
! its employment.
!*/
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
!/**
! Name of a signal object, i.e. Io object, connected with
! the channel object.
!*/
Object SigChanCon $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! The identity of the channel. Optional, for example Do0
! to denote the first channel, physical cable marking,
!*/
Object Identity $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
!/**
! The Number attribute can be used by the io methods of the module
! to identify the channel. See documentation for the module if, and
! how, this attribute is used.
!*/
Object Number $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
!/**
! Specifies if the output will be based on ActualValue or
! TestValue. FALSE means that the output should be based
! on ActualValue; TRUE means that TestValue should be
! used.
! There is today no sense in assigning a value to the
! attribute in the development environment, as no
! attention is paid to it in the target environment.
! Instead, this is done by means of the attribute
! TestMask1 in the card object.
!
! However, the value of TestOn can be changed via the
! more info form of the object in the target environment.
!*/
Object TestOn $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
!/**
! The output signal is based on the TestValue instead of
! ActualValue when TestOn is TRUE.
!*/
Object TestValue $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
!/**
! Action value. The output signal is equal to
! FixedOutValue when EmergBreakTrue is TRUE and
! EmergBreakSelect = 2 . The EmergBreak-attributes belong
! to the $Node object.
!*/
Object FixedOutValue $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_co.wb_load
View file @ c0fa40c0
......@@ -50,14 +50,9 @@ SObject pwrb:Class
!/**
! Name of associated channel object.
!*/
Object SigChanCon $ObjXRef 2
Object SigChanCon $Attribute 2
Body SysBody
Attr Identity = "Co"
Attr Source = "Co"
Attr Target = "ChanCo"
Attr SourceAttribute = "SigChanCon"
Attr TargetAttribute = "SigChanCon"
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
......@@ -181,9 +176,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -194,23 +189,21 @@ SObject pwrb:Class
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$ObjXRef-Connect"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkConnect"
Attr FilterArguments[1] = "ChanIi"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-Disconnect"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnect"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
EndObject
......@@ -220,9 +213,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -230,3 +223,5 @@ SObject pwrb:Class
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_di.wb_load
View file @ c0fa40c0
......@@ -30,7 +30,8 @@
! sampled signal latest become FALSE until it is
! allowed to be TRUE again.
!
! @b Hints
! Hints
!
! Put the object below a $PlantHier object in the
! development environment in such a way that it belongs
! to the same target node as its associated channel
......@@ -60,14 +61,9 @@ SObject pwrb:Class
!/**
! Name of the associated channel object.
!*/
Object SigChanCon $ObjXRef 2
Object SigChanCon $Attribute 2
Body SysBody
Attr Identity = "Di"
Attr Source = "Di"
Attr Target = "ChanDi"
Attr SourceAttribute = "SigChanCon"
Attr TargetAttribute = "SigChanCon"
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
......@@ -168,7 +164,6 @@ SObject pwrb:Class
EndBody
EndObject
!/**
! @Summary Specifies the selected filter.
! The internal filter function concerns only local
! Di-signals.
!
......@@ -177,20 +172,6 @@ SObject pwrb:Class
!
! 0 -- No filtering.
! 1 -- Set and reset delay.
!
! Set operation is only possible when the 'output' of the filter is
! FALSE. The set delay is counted from the latest edge on the
! 'input'. When the time FilterAttribute[0] has elapsed becomes
! 'output' = 'input'.
! @image orm_en1-54.gif
! Reset operation is only possible when the 'output' of the filter
! is TRUE. The set delay is counted from the latest trailing edget on
! the 'input'. When the time FilerAttribute[1] has elapsed becomes
! 'output' = 'input'.
!
! 'input' denotes the quantity when the sampled signal has passed
! the inverter step, and output denotes the value after the filter
! step (see ChanDi figure Attributes Used in Di-signal Conversion).
!*/
Object FilterType $Attribute 10
Body SysBody
......@@ -219,9 +200,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -232,23 +213,21 @@ SObject pwrb:Class
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$ObjXRef-Connect"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkConnect"
Attr FilterArguments[1] = "ChanIi"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-Disconnect"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnect"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
EndObject
......@@ -258,9 +237,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -268,3 +247,6 @@ SObject pwrb:Class
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_do.wb_load
View file @ c0fa40c0
......@@ -9,7 +9,6 @@
!
!/**
! @Version 1.0
! @Code rt_plc_macro_logic.h
! @Group PlantConfiguration,Signals
! @Summary Digital output signal
! Digital output.
......@@ -47,14 +46,9 @@ SObject pwrb:Class
!/**
! Name of the associated channel object.
!*/
Object SigChanCon $ObjXRef 2
Object SigChanCon $Attribute 2
Body SysBody
Attr Identity = "Do"
Attr Source = "Do"
Attr Target = "ChanDo"
Attr SourceAttribute = "SigChanCon"
Attr TargetAttribute = "SigChanCon"
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
......@@ -163,9 +157,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -176,23 +170,21 @@ SObject pwrb:Class
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$ObjXRef-Connect"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkConnect"
Attr FilterArguments[1] = "ChanIi"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-Disconnect"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnect"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
EndObject
......@@ -202,9 +194,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -212,3 +204,12 @@ SObject pwrb:Class
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_po.wb_load
View file @ c0fa40c0
......@@ -68,14 +68,9 @@ SObject pwrb:Class
!/**
! Name of the associated channel object.
!*/
Object SigChanCon $ObjXRef 2
Object SigChanCon $Objid 2
Body SysBody
Attr Identity = "Do"
Attr Source = "Do"
Attr Target = "ChanDo"
Attr SourceAttribute = "SigChanCon"
Attr TargetAttribute = "SigChanCon"
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
......@@ -237,9 +232,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -250,23 +245,21 @@ SObject pwrb:Class
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$ObjXRef-Connect"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkConnect"
Attr FilterArguments[1] = "ChanIi"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-Disconnect"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr MethodArguments[1] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnect"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "SigChanCon"
EndBody
EndObject
EndObject
......@@ -276,9 +269,9 @@ SObject pwrb:Class
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$ObjXRef-DisconnectSingle"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$ObjXRef-IsOkDisconnectSingle"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
......@@ -286,3 +279,11 @@ SObject pwrb:Class
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
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7