bool ScriptablePerson::getValue (const skString& fieldName,const skString& attribute,skRValue&  value)
{
    if (fieldName=="Name"){    
// the field "Name" is visible to Simkin scripts
        value=m_Name;
        return true;                       
//    this means "field found"
    }else
        return skXMLExecutable::getValue(fieldName,attribute,value);
}
bool ScriptablePerson::setValue (const skString& fieldName, const skString& attribute,const skRValue& value)
{
    if (fieldName=="Name"){    
//   the field "Name" is visible to Simkin scripts
        m_Name=value;
        return true;                       
//    this means "field found"
    }else
        return skXMLExecutable::setValue(fieldName,attribute,value);
}
bool ScriptablePerson::method (const skString& methodName, skRValueArray& arguments,skRValue& returnValue)
{
    if (methodName=="Mail"){
        skString message=args[0].str();
        returnValue=MyEmailClass::sendEmail(m_EmailAddress,message);
        //    call my email class to actually send the message
        return true;
    }else
        return skXMLExecutable::method(methodName,arguments,returnValue);
}