| 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; | 
|   *] | 
| } |