1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Quintiq file version 2.0
| #parent: #root
| Method GetClassTypes (JSON jsondata) as owning Strings
| {
| TextBody:
| [*
| classtypes := construct( Strings );
| key := 'type';
|
| while( jsondata.Has( key ) )
| {
| classtype := jsondata.Get( key ).GetString();
| classtypes.Add( classtype );
| key := key + '.derived';
| }
|
| return &classtypes;
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
