Quintiq file version 2.0
#parent: #root
Method InitializeCategories () id:Method_LibCal_dlgEvent_InitializeCategories
{
  #keys: '[131094.1.662200776]'
  Body:
  [*
    participation := this.Data();
    calendar      := participation.Calendar();
    
    categories := calendar.CalendarRegistry().EventCategory( relget );
    
    dhCategories.Data( &categories );
    
    // The applicable EventCategory is set in selCategory.OnListDataChanged().
  *]
}