Ejemplo n.º 1
0
int8 cClassCode :: DoAfterStoreData ( )
{
  PropertyHandle  *prophdl = GetPropertyHandle();
  cClassCodeBase::DoAfterStoreData();
  
  prophdl->GetParentProperty()->
    ExecuteInstanceAction("SetupCodeBlockOptions",NULL);

  return(NO);
}
logical cClassCodeBase :: GetClassName ( )
{
  PropertyHandle   *prophdl = GetPropertyHandle();
  logical           term    = NO;
BEGINSEQ
  if ( !(prophdl = prophdl->GetParentProperty()->GetParentProperty()->GetParentProperty()) )
                                                     ERROR
  SetResult(prophdl->GPH("sys_ident")->GetString());
RECOVER
  SetResult("");
  term = YES;
ENDSEQ
  return(term);
}
logical cClassCodeInit :: SetupInitCode ( )
{
  PropertyHandle  *prophdl = GetPropertyHandle();    
  PropertyHandle  *fcti_ph = prophdl->GetParentProperty();
  logical          term    = NO;
BEGINSEQ
  ExecuteAction("StoreEntry",ACT_Function);
  fcti_ph->Save();
  if ( prophdl->NoWrite() )                          ERROR
  
  fcti_ph->ExecuteInstanceAction("SetupInitCode","NO");

RECOVER
  term = YES;
ENDSEQ
  return(term);
}