version 1.8, 2003/01/06 15:42:08
|
version 1.9, 2003/11/18 08:10:23
|
Line 14
|
Line 14
|
*/ |
*/ |
|
|
/* Included headerfiles */ |
/* Included headerfiles */ |
#define THOT_EXPORT |
#undef THOT_EXPORT |
|
#define THOT_EXPORT extern |
#include "amaya.h" |
#include "amaya.h" |
#include "XLink.h" |
#include "XLink.h" |
|
|
Line 28 void SetXLinkTypeSimple (Element el, Doc
|
Line 29 void SetXLinkTypeSimple (Element el, Doc
|
AttributeType attrType; |
AttributeType attrType; |
Attribute attr; |
Attribute attr; |
SSchema XLinkSchema; |
SSchema XLinkSchema; |
ThotBool new; |
ThotBool new_; |
|
|
XLinkSchema = TtaGetSSchema ("XLink", doc); |
XLinkSchema = TtaGetSSchema ("XLink", doc); |
attrType.AttrSSchema = XLinkSchema; |
attrType.AttrSSchema = XLinkSchema; |
Line 38 void SetXLinkTypeSimple (Element el, Doc
|
Line 39 void SetXLinkTypeSimple (Element el, Doc
|
{ |
{ |
attr = TtaNewAttribute (attrType); |
attr = TtaNewAttribute (attrType); |
TtaAttachAttribute (el, attr, doc); |
TtaAttachAttribute (el, attr, doc); |
new = TRUE; |
new_ = TRUE; |
} |
} |
else |
else |
{ |
{ |
new = FALSE; |
new_ = FALSE; |
if (withUndo) |
if (withUndo) |
TtaRegisterAttributeReplace (attr, el, doc); |
TtaRegisterAttributeReplace (attr, el, doc); |
} |
} |
TtaSetAttributeValue (attr, XLink_ATTR_type_VAL_simple, el, doc); |
TtaSetAttributeValue (attr, XLink_ATTR_type_VAL_simple, el, doc); |
if (new && withUndo) |
if (new_ && withUndo) |
TtaRegisterAttributeCreate (attr, el, doc); |
TtaRegisterAttributeCreate (attr, el, doc); |
} |
} |
|
|