Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Response OnClick () id:Response_LibCal_gcCalendar_mnuRowNewEvent_OnClick_872 
 | 
{ 
 | 
  #keys: '[131094.1.1192277933]' 
 | 
  Body: 
 | 
  [* 
 | 
    // Create a new event - no row selected 
 | 
    // Use the last EventCategory (assuming they are sorted by Name). 
 | 
    category := selectsortedset( dhEventCategories.Data(), Elements, cat, true, cat.Name() ).Last(); 
 | 
     
 | 
    LibCal_GlobalState.CreateEvent( this, dhCalendar.Data(), category, this.ContextMenuTime() ); 
 | 
  *] 
 | 
  CanBindMultiple: false 
 | 
  DefinitionID => /Responsedef_LibCal_gcCalendar_Menu_OnClick 
 | 
  Initiator: 'mnuRowNewEvent' 
 | 
  Precondition: 
 | 
  [* 
 | 
    feedback := Translations::Calendar_DoesNotExist(); 
 | 
    return not isnull( dhCalendar.Data() ); 
 | 
  *] 
 | 
} 
 |