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); }