1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Quintiq file version 2.0
| #parent: #root
| StaticMethod GetTypeAncestors (Type type) as owning structured_Type
| {
| TextBody:
| [*
| result := construct( structured[Type] );
|
| while( not isnull( type ) )
| {
| result.Add( type );
| type := type.Parent();
| }
|
| return & result;
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|