lazhen
2025-01-09 8afe90b633046db39042aada36b88193062f8cff
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Quintiq file version 2.0
#parent: #root
Method ParseMenu (output owning JSONBuilder jsonbuilder, Menu component, Number padding) id:Method_GlobalStateTestGenerator_ParseMenu_556
{
  #keys: '[142876.9.202775466]'
  Body:
  [*
    padstr := "".PadLeft( " ", padding );
    
    //info( padstr + component.Text() );
    
    name := '';
    title := '';
    formkey := Key::ZeroKey();
    
    if( component.istype( ComponentMenu ) )
    {
      name := component.astype( ComponentMenu ).GetProperty( 'ComponentType' );
      GlobalStateTestGenerator.GetFormProperties( name, title, formkey );
    }
    else
    {
      name := component.Text();
      title := '{TODO_TITLE}'; // TODO
    }
    
    info( padstr + '|' + name + '|' + title + '|' + [String]formkey );
    
    GlobalStateTestGenerator.TG_UpdateUIForm( &jsonbuilder, name, title, [String]formkey );
    
    traverse( component, SubComponents.astype( Menu ), child )
    {
      this.ParseMenu( &jsonbuilder, child, padding + 4 );
    }
  *]
}