1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Create Attribute Delta depending on actual change of the attribute
7 #######################################################################################
8 # Case 5 (TDataStd_Expression)
9 #######################################################################################
13 # Create a new document and set UndoLimit
14 NewDocument D MDTV-Standard
17 # Create a label and set attributes
21 ############################################
22 set Expression "New Expression"
23 ############################################
27 set modified_attribute TDataStd_Real
29 ############################################
30 OCC2932_SetExpression D ${Label} ${Expression}
31 ############################################
33 SetReal D ${Label} ${Real1}
34 set list [DumpCommand D]
38 set list [DumpCommand D]
40 ############################################
41 # Set old value for TDataStd_Expression
42 OCC2932_SetExpression D ${Label} ${Expression}
43 ############################################
45 # Set new value for TDataStd_Real
46 SetReal D ${Label} ${Real2}
47 set list [DumpCommand D]
51 set list [DumpCommand D]
54 set ll [llength ${list}]
57 puts "good_length = ${good_length}"
59 if { ${ll} != ${good_length} } {
60 puts "OCC2932 Error (case 1)"
62 set name_attribute [lindex ${list} [expr ${good_length} - 1]]
63 puts "name_attribute = ${name_attribute}"
64 puts "modified_attribute = ${modified_attribute}"
65 if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
68 puts "OCC2932 Error (case 2)"