yypsybs
2023-09-09 3cb5a54def670d97301f07170fcaad213bfc54f2
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
Quintiq file version 2.0
#parent: ListInitElement
Response OnClick () id:Response_ListInitElement_MenuAddSequence_OnClick
{
  #keys: '[121114.1.2064513498]'
  Body:
  [*
    // Add Root Sequence
    
    initprocess := Dialog.Data();
    
    data := initprocess.LibWiz_InitElement( relshadow,
                                            LibWiz_InitSequence,
                                            Id := LibWiz_Wizard::GenerateId(),
                                            RootOfProcess := initprocess );
    dlg := construct( LibWiz_DialogInitSequence );
    dlg.Data( data );
    
    if( dlg.DoModal( ListInitElement ) > 0 )
    {
      data.Commit();
    }
  *]
  CanBindMultiple: false
  DefinitionID => /ListInitElement/Responsedef_ListInitElement_Menu_OnClick
  Initiator: 'MenuAddSequence'
  Precondition:
  [*
    // Can only be one root => enable only when it does not exist
    
    return guard( Dialog.Data().Roots( relsize ) = 0, false );
  *]
}