| Quintiq file version 2.0 | 
| #parent: #root | 
| Response OnClick () id:Response_LibCal_gcCalendar_mnuNewEvent_OnClick | 
| { | 
|   #keys: '[131094.1.1224529824]' | 
|   Body: | 
|   [* | 
|     // Create an 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: 'mnuNewEvent' | 
|   Precondition: | 
|   [* | 
|     feedback := Translations::Calendar_DoesNotExist(); | 
|     return not isnull( dhCalendar.Data() ); | 
|   *] | 
| } |