test

yanyuan

2023-11-10 143ef74e2eeee697ac8fda3d9032a790fbb4e146

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
37
38
39
40
Quintiq file version 2.0
#parent: #root
Method ParseMenu (output owning TG_DO_Container container, Menu component) id:Method_GlobalStateTestGenerator_ParseMenu
{
  #keys: '[142876.9.473925072]'
  Body:
  [*
    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
    }
    
    do_form := container.DO_Form( relnew,
                                  FormKey := formkey,
                                  Name := name,
                                  Title := title );
    
    if( formkey <> Key::ZeroKey() )
    {
      info( 'FORM:', name );
      info( '>>>> DO FORM SIZE:', container.DO_Form( relsize ) );
      GlobalStateTestGenerator.ParseForm( do_form, construct( Form, name ) );
    }
    
    traverse( component, SubComponents.astype( Menu ), child )
    {
      this.ParseMenu( &container, child );
    }
  *]
}