Quintiq file version 2.0
#parent: #root
Method NewShiftPattern (
  internal[GUIComponent] parent
) as ShiftPattern id:Method_DialogCreateEditShiftPattern_NewShiftPattern
{
  #keys: '[11660.0.14169856]'
  Body:
  [*
    // New shift pattern
    
    result := this.DoModal( parent );
    
    newobj := null( ShiftPattern );
    
    if ( result > 0 )
    {
      newobj := ShiftPattern::Create( MacroPlan,
                                      EditorName.Text(),
                                      ApplicationLibMacroPlanner.FormatStringToNumber( EditorNumberOfDays.Text() ),
                                      Duration::Zero(),
                                      false );
    }
    
    return newobj;
  *]
}