1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Quintiq file version 2.0
| #parent: #root
| Method SubscribeWriter (LibOpt_Component component) as LibOpt_ChannelWriter
| {
| Description: 'Subscribe the `LibOpt_Component` with write access to the `LibOpt_Channel`.'
| TextBody:
| [*
| this.CheckCanSubscribe( component );
|
| result := select( component, ChannelWriter, writer, writer.Channel() = this );
| if( isnull( result ) )
| {
| result := this.ChannelWriter( relnew, Component := component );
| }
|
| return result;
| *]
| }
|
|
