MethodTypes pc_ODC_FunctImp :: GetImplementationType (CTX_GUIBase *ctxptr, logical setup_opt )
{
  PropertyHandle  *parent  = GetParentProperty();
  MethodTypes      imptype = MT_Undefined;
BEGINSEQ
  if ( !parent )                                    ERROR
  if ( !parent->IsA("ODC_PFunction") )              ERROR  

  pc_ODC_PFunction   pfunct_pc(parent);
  imptype = pfunct_pc.GetImplementationType(ctxptr,setup_opt);



RECOVER

ENDSEQ
  return(imptype);
}
logical pc_ODC_FunctImp :: ExistDescription (char *names )
{
  PropertyHandle  *parent  = GetParentProperty();
  logical          cond    = YES;
BEGINSEQ
  if ( !IsPositioned() )                            ERROR
  if ( !parent )                                    ERROR
  if ( !parent->IsA("ODC_PFunction") )              ERROR  

  PropertyHandle   impl_descr_copy(*parent->GPH("implementation_descr"));
  PropertyHandle phnames(names);
  if ( !impl_descr_copy.Get(phnames) )
                                                    ERROR

RECOVER
  cond = NO;
ENDSEQ
  return(cond);
}