lihongji
2024-11-21 5e59f5a3f774a5f17d1f39944e17b7453f27a508
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Quintiq file version 2.0
#parent: #root
Method GetNamePrefix () declarative as String
{
  TextBody:
  [*
    value := '';
    type := this.Type();
    
    if( type.StartsWith( 'OnClick (Menu)' ) )
    {
      value := 'Menu';
    }
    else if( type.StartsWith( 'OnDrop' ) )
    {
      value := 'DragDrop';
    }
    
    return value;
  *]
}