Quintiq file version 2.0
#parent: #root
Method ParseDialogTabPages (TG_UIDialog tg_dialog, TG_UITabPage parenttabpage, GUIComponent component) id:Method_GlobalStateTestGenerator_ParseDialogTabPages
{
  #keys: '[142876.9.1259715224]'
  Body:
  [*
    name := '';
    tabpagekey := Key::ZeroKey();
    display := component.Display();
    
    istabpage := component.istype( TabPage );
    
    name := GlobalStateTestGenerator.GetComponentNameFromDisplay( display );
    
    if( istabpage )
    {
      tabpagekey := component.Key();
      title := component.GetProperty( 'Title' );
      taborder := component.GetProperty( 'Taborder' );
      
      parenttabpage := TG_UITabPage::FindOrCreate( tg_dialog, parenttabpage, name, title, tabpagekey, display, StringToNumber::StandardConverter().SafeConvert( taborder ) );
    }
    
    traverse( component, SubComponents, child )
    {
      GlobalStateTestGenerator.ParseDialogTabPages( tg_dialog, parenttabpage, child );
    }
  *]
}