1ON_EVENT "AfterCreateModelingConnector" {
 2#Assign predefined parameters
 3SET id_ModelId: (modelid)
 4SET id_ObjId: (objid)
 5SET id_ClassId: (classid)
 6SET id_FromObjId: (fromobjid)
 7SET id_ToObjId: (toobjid)
 8#Get the target object name of the created connector
 9CC "Core" GET_OBJ_NAME objid: (id_ToObjId)
10SET sToObjName: (objname)
11#Eval a query: 'Get all objects which are outgoing from sToObjName connected with the relation "a2b".'
12CC "AQL" EVAL_AQL_EXPRESSION expr: ("{\"" + sToObjName + "\"} -> \"a2b\"")
13modelid: (id_ModelId)
14SET l_InConList: (objids)
15#check iteratively, if there exists already a relation between the connected objects.
16FOR i in: (l_InConList) {
17IF (id_FromObjId=(VAL i)) {
18CC "AdoScript" ERRORBOX "Not Allowed!"
19CC "Core" DELETE_CONNECTOR modelid: (id_ModelId) objid: (id_ObjId)
20EXIT
21}
22}
23}

 1ON_EVENT "AfterEditAttributeValue" {
 2SET id_InstId: (instid)
 3SET id_AttrId: (attrid)
 4SET id_ModelId: (modelid)
 5#Get the ID of the attribute which you want to compare.
 6CC "Core" GET_CLASS_ID objid: (id_InstId)
 7SET id_ClassId: (classid)
 8CC "Core" GET_ATTR_ID classid: (id_ClassId) attrname: "Value"
 9SET id_ValAttrId: (attrid)
10#Do something if the the attribute which you want to compare has been changed.
11IF (id_AttrId=id_ValAttrId) {
12#Call the attribute Value
13CC "Core" GET_ATTR_VAL  objid: (id_InstId) attrid: (id_AttrId)
14SET val_AttrVal: (val)
15#Get the name of the object where the attribute has changed
16CC "Core" GET_OBJ_NAME objid: (id_InstId)
17SET sObjName: (objname)
18#Get all target objects which are connected with the relation "a2b"
19CC "AQL" EVAL_AQL_EXPRESSION expr: ("{\"" + sObjName + "\"} -> \"a2b\"") modelid: (id_ModelId)
20SET l_ToObjIds: (objids)
21#Get the attribute Value of the objects from the output list and compare them with the attribute value of the current object.
22FOR i in: (l_ToObjIds) {
23CC "Core" GET_CLASS_ID objid: (VAL i)
24CC "Core" GET_ATTR_ID classid: (classid) attrname: "Value"
25CC "Core" GET_ATTR_VAL  objid: (VAL i) attrid: (attrid)
26SET val_OutAttrVal: (val)
27IF (val_OutAttrVal!=val_AttrVal) {
28CC "AdoScript" ERRORBOX "The Values of the connected objects do not match!"}}
29#Do the same as above for the source objects which are connected with the relation "a2b"
30CC "AQL" EVAL_AQL_EXPRESSION expr: ("{\"" + sObjName + "\"} <- \"a2b\"") modelid: (id_ModelId)
31SET l_FromObjIds: (objids)
32FOR j in: (l_FromObjIds) {
33CC "Core" GET_CLASS_ID objid: (VAL j)
34CC "Core" GET_ATTR_ID classid: (classid) attrname: "Value"
35CC "Core" GET_ATTR_VAL  objid: (VAL j) attrid: (attrid)
36SET val_OutAttrVal: (val)
37IF (val_OutAttrVal!=val_AttrVal) {
38CC "AdoScript" ERRORBOX "The Values of the connected objects do not match!"
39}
40}
41}
42}

 1SEND "GET_ACTIVE_MODEL" to:"Modeling" answer:modelid
 2SET id_ModelId:(modelid)
 3# First we retrieve all objects in the active model, and put the object ids in a list "l_objIds"
 4CC "Core" GET_ALL_OBJS modelid:(VAL id_ModelId)
 5SET l_objIds:(objids)
 6
 7# In this case, "Yes" is represented by 1, and "No" by 0 - which is equivalent to the box being checked or
 8# unchecked respectively in the notebook
 9SET n_yesVal:1
10SET n_noVal:0
11
12# The attribute name whose value we wish to change is called "ShowTextbox" here. We have three menu options in the model editor,
13# "Yes" which, for all objects having the attribute "ShowTextbox", changes the value to 1 (i.e. "Yes")
14# "No" which, for all objects having the attribute "ShowTextbox", changes the value to 0 (i.e. "No")
15# "Toggle" which, for all objects having the attribute "ShowTextbox", changes it to 0 if it was previously 1, and 1 if it was previously 0
16IF (s_menuOption = "Yes") {
17    # We loop over the objects in our active model. We perform an attempt to get the ID of the attribute "ShowTextbox" for the current object.
18    # If this attribute doesn't exist for the current object we get a value -1 returned. If we don't get -1 the object has the attribute
19    # and we change its value accordingly.
20    FOR s_objId in:(l_objIds) {
21        CC "Core" GET_CLASS_ID objid:(VAL s_objId)
22        SET id_ClassId:(classid)
23        CC "Core" GET_ATTR_ID classid:(id_ClassId) attrname:"ShowTextbox"
24        IF (attrid != -1) {
25            CC "Core" SET_ATTR_VAL objid:(VAL s_objId) attrname:"ShowTextbox" val:(n_yesVal)
26        }
27   
28    }
29   
30}
31
32IF (s_menuOption = "No") {
33   
34    FOR s_objId in:(l_objIds) {
35        CC "Core" GET_CLASS_ID objid:(VAL s_objId)
36        SET id_ClassId:(classid)
37        CC "Core" GET_ATTR_ID classid:(id_ClassId) attrname:"ShowTextbox")
38       
39        IF (attrid != -1) {
40           CC "Core" SET_ATTR_VAL objid:(VAL s_objId) attrname:"ShowTextbox" val:(n_noVal)
41       
42        }
43   
44    }
45   
46}
47
48IF (s_menuOption = "Toggle") {
49   
50    FOR s_objId in:(l_objIds) {
51        CC "Core" GET_CLASS_ID objid:(VAL s_objId)
52        SET id_ClassId:(classid)
53        CC "Core" GET_ATTR_ID classid:(id_ClassId) attrname:"ShowTextbox"
54   
55        IF (attrid != -1) {
56            CC "Core" GET_ATTR_VAL objid:(VAL s_objId) attrname:"ShowTextbox"
57            # The case of "Toggle" is similar to the above, only that we flip the value of the attribute from "Yes" to "No" and vice versa.
58            IF (val = n_yesVal) {
59                CC "Core" SET_ATTR_VAL objid:(VAL s_objId) attrname:"ShowTextbox" val:(n_noVal)
60               
61            }
62            
63            IF (val = n_noVal) {
64                CC "Core" SET_ATTR_VAL objid:(VAL s_objId) attrname:"ShowTextbox" val:(n_yesVal)
65               
66            }
67       
68        }
69   
70    }
71   
72}