Quintiq file version 2.0
#parent: selProject
Response OnCreated () id:Response_selProject_OnCreated
{
  #keys: '[103546.0.54981199]'
  Body:
  [*
    //Get available user projects/applications
    userprojects := construct( Strings );
    
    traverse( UserInterfaceManager::Instance(), RunnableUserInterfaceIDs, ruiid, true )
    {
      if( ruiid.Properties().LinkToDomainModel() )
      {
        userprojects.Add( ruiid.ID() + "," + ruiid.Description() );
      }
    }
    
    this.Strings( userprojects.ToString( ";" ) );
    
    //Set selected user projects (if available)
    script := Dialog.Data();
    
    if( not isnull( script ) )
    {
      this.BoundValue( script.Project() );
    }
  *]
  CanBindMultiple: false
  DefinitionID: 'Responsedef_GUIComponent_OnCreated'
}