Quintiq file version 2.0
#parent: #root
Method EditCalendar () derived id:Method_LibCal_dlgCreateEditCalendar_EditCalendar
{
  #keys: '[892.10.2103052]'
  BaseType: 'Method_dlgCreateEditCalendar_EditCalendar'
  Body:
  [*
    retVal := -1;
    
    if( calendar.istype( LibCal_Calendar ) )
    {
      this.Data( calendar.astype( LibCal_Calendar ) );
      this.Title( "Edit calendar '" + calendar.astype( LibCal_Calendar ).CalendarID() + "'" );
    
      // Also set the data of the DetailPanel.
      dpCalendarSettings.Data( calendar.astype( LibCal_Calendar ) );
      dpCalendarSettings.InitializeBase();
      
      retVal := this.DoModal( parent );
    }
    else
    {
      MessageBox::Error( parent, "Calendar is not a subtype of LibCal_Calendar.", "OK" ); 
    }
    
    return retVal;
  *]
}