Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method CreateSubscription ( 
 | 
  internal[GUIComponent] parent_i, 
 | 
  structured[LibCal_Calendar] subscribers_i, 
 | 
  LibCal_LeadingParticipation subscribeTo_i 
 | 
) id:Method_LibCal_dlgSubscription_CreateSubscription 
 | 
{ 
 | 
  #keys: '[131094.1.400050766]' 
 | 
  Body: 
 | 
  [* 
 | 
    Dialog.Title( "Create subscription" ); 
 | 
     
 | 
    calendarsAsSet := subscribers_i.Copy(); 
 | 
    dhSubscribers.Data( &calendarsAsSet ); 
 | 
     
 | 
    dhParticipationToSubscribeTo.Data( subscribeTo_i ); 
 | 
     
 | 
    lblSubject.Text( subscribeTo_i.Event().Subject() ); 
 | 
     
 | 
    this.Open( parent_i, subscribeTo_i ); 
 | 
  *] 
 | 
} 
 |