vos/metaobjects/misc/hypercard.cc

Go to the documentation of this file.

/* $Id: hypercard.cc,v 1.11 2003/07/23 00:17:27 reed Exp $ */



/* This file was generated by otd2cpp.pl, a script for ADR by Reed Hedges <reed@zerohour.net>.
   Search for TODO for stuff that needs editing. You will want to especially fill in constructors,
   destructors, message handlers, non-property subobjects...

   I can make no garuntee that this code will work, or even that it even is safe to run.
   Use it at your own risk.
*/

/** @file hypercard.cc Code: a MetaObject for Hypercard object types. */

#include <vos/corelibs/vos/vos.hh>
#include <vos/metaobjects/property/property.hh>
#include "hypercard.hh"

/* Constructors */

Hypercard::Hypercard(MetaObject* s) : MetaObject(s) {

}

LocalHypercard::LocalHypercard(MetaObject* s) : Hypercard(s), MetaObject(s) {

}


void Hypercard::initialize() {
    defaultPropertyAC = &NoPropertyAccessControl::static_;
}

void Hypercard::initialize(PropertyAccessControl* ac) {
    defaultPropertyAC = ac;
}


/* Initialize required subobjects: */
void LocalHypercard::initialize() {
    Hypercard::initialize();
//  pREF(MetaObject*, obj, MetaFactory::createLocalObject("link", Site::getDefaultPeer(), &NoAccessControl::static_NoAccessControl, 0), set_link(obj) );    //TODO: make specific to  [otd2cpp only knows about properties]; customize access control
}

void LocalHypercard::initialize(PropertyAccessControl* ac) {
    Hypercard::initialize(ac);
}


RemoteHypercard::RemoteHypercard(MetaObject* s) : Hypercard(s), MetaObject(s) {

    // TODO add code here if necesary

}



/* Return type string ("hypercard") */

const string Hypercard::getType() {
    return string("misc:hypercard");
}

/* Register extenders with libvos MetaFactory */
void Hypercard::registerExtenders() {
    static bool done = false;
    if(! done) {
    LocalSite::addLocalObjectExtension(typeid(LocalHypercard).name(), &LocalHypercard::new_LocalHypercard);
    LocalSite::addLocalObjectExtension(typeid(Hypercard).name(), &LocalHypercard::new_LocalHypercard);
    LocalSite::addLocalObjectExtension("misc:hypercard", &LocalHypercard::new_LocalHypercard);
    RemoteSite::addRemoteObjectExtension(typeid(RemoteHypercard).name(), &RemoteHypercard::new_RemoteHypercard);
    RemoteSite::addRemoteObjectExtension(typeid(Hypercard).name(), &RemoteHypercard::new_RemoteHypercard);
    RemoteSite::addRemoteObjectExtension("misc:hypercard", &RemoteHypercard::new_RemoteHypercard);
    done = true;
    }
}


/* Get and set Subproperties and other Subobjects */

Vobject& Hypercard::getLink() {
    return findObject("misc:link");
}

void Hypercard::setLink(Vobject* newobj) {
    try {
        rREF(ParentChildRelation&, pcr, findChild("misc:link"),
             setChild(pcr.position, "misc:link", newobj);
            );
    } catch (NoSuchObjectError) {
        insertChild(-1, "misc:link", newobj);
    }
}

string Hypercard::getDescription() {
    string d;
    rREF(Vobject&, obj, findObject("misc:description"),
        Property* p = meta_cast<Property*>(&obj);
        if(!p) throw bad_cast();
        p->read(d);
    );
    return d;
}

void Hypercard::setDescription(const string& description, const string& type, PropertyAccessControl* accesscontrol) {
    if(accesscontrol == NULL)
        accesscontrol = defaultPropertyAC;
    Property::setProperty(*this, "misc:description", description, type, accesscontrol);
}

/* Process local object messages */
void LocalHypercard::sendMessage(Message* m) {

    /* Let superclass have message */
    Hypercard::sendMessage(m);
}


string Hypercard::getTitle() {
    string t;
    rREF(Vobject&, obj, findObject("misc:title"),
        Property* p = meta_cast<Property*>(&obj);
        if(!p) throw bad_cast();
        p->read(t);
    );
    return t;
}

void Hypercard::setTitle(const string& title, const string& type, PropertyAccessControl* ac) {
    if(ac == NULL)
        ac = defaultPropertyAC;
    Property::setProperty(*this, "misc:title", title, type, ac);
}




/* Process remote update messages */
void RemoteHypercard::sendUpdateMessage(Message* m) {


    /* branch to update message handlers specific to RemoteHypercard */

    /* let superclass have message... */
    Hypercard::sendUpdateMessage(m);
}



MetaObject* LocalHypercard::new_LocalHypercard(MetaObject* s, const string& type) {
    LocalHypercard* o = new LocalHypercard(s);
    return o;
}

MetaObject* RemoteHypercard::new_RemoteHypercard(MetaObject* s, const string& type) {
    return new RemoteHypercard(s);
}

---