Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Function CalcSuggestedModeledType 
 | 
{ 
 | 
  TextBody: 
 | 
  [* 
 | 
    selection := select( this, TG_UIResponseArgument, arg, 
 | 
                         arg.Name() = 'selection' 
 | 
                         and arg.ArgumentType() <> '' ); 
 | 
     
 | 
    if( isnull( selection ) ) 
 | 
    { 
 | 
      selection := minselect( this, TG_UIResponseArgument, arg, 
 | 
                              arg.IsBinding() 
 | 
                              and arg.ArgumentType() <> '', 
 | 
                              arg.Name() ); 
 | 
    } 
 | 
     
 | 
    value := guard( selection.ArgumentType(), '' ); 
 | 
     
 | 
    if( value = '' ) 
 | 
    { 
 | 
      databinding := this.DialogDataBinding(); 
 | 
      value := databinding; 
 | 
    } 
 | 
     
 | 
    value := value.ReplaceAll( 'shadow[', '' ) 
 | 
                  .ReplaceAll( 'structured[', '' ) 
 | 
                  .ReplaceAll( ']', '' ); 
 | 
     
 | 
    this.SuggestedModeledType( value ); 
 | 
  *] 
 | 
  InterfaceProperties { Accessibility: 'Module' } 
 | 
} 
 |