Quintiq file version 2.0
#parent: #root
Method GetColorScheme (
  String definitionname
) as internal[Color] id:Method_ApplicationLibMacroPlanner_GetColorScheme
{
  #keys: '[11660.0.549111060]'
  Body:
  [*
    // Get color scheme
    colorscheme := ApplicationScope.ColorSchemeManager().ActiveColorScheme();
    
    colorschemeentry := select( colorscheme,
                                Accessors.Entry.astype( ColorSchemeEntry ),
                                e,
                                e.Definition().Name() = definitionname );
    
    manager := ApplicationScope.Project().ColorSchemeManager();
    scheme  := manager.Edit( ApplicationScope.SessionMDS(), colorscheme );
    lock    := scheme.AcquireLock();
    
    dlg := construct( dlgEditColorSchemeEntry );
    dlg.Data( colorschemeentry );
    dlg.dhLockHolder().Data( lock );
    
    result := dlg.DoModal(this);
    
    if( result > 0 )
    {
      manager.Apply( colorscheme, lock );
    }
    
    return colorschemeentry.Color();
  *]
}