Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method SubscribeToEvent ( 
 | 
  LibCal_Event event_i, 
 | 
  Boolean useLeadingPeriod_i 
 | 
) as LibCal_Subscription 
 | 
{ 
 | 
  Description: 'Let the calendar subscribe to an event from another calendar.' 
 | 
  TextBody: 
 | 
  [* 
 | 
    subscription := null( LibCal_Subscription ); 
 | 
     
 | 
    if( event_i.Calendar() <> this ) 
 | 
    { 
 | 
      // Add the calendar as subscriber, copying over the event's original participation and recurrence period (if applicable), 
 | 
      // and registering it as subscription. 
 | 
      subscription := event_i.AddSubscriber( this, useLeadingPeriod_i ); 
 | 
    } 
 | 
    else 
 | 
    { 
 | 
      LibCal_Util::Warning( "LibCal_Calendar.SubscribeToEvent() : cannot subscribe to an event from the same calendar." ); 
 | 
    } 
 | 
     
 | 
    return subscription; 
 | 
  *] 
 | 
} 
 |