1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Create Attribute Delta depending on actual change of the attribute
7 #######################################################################################
8 # Case 8 (TDataStd_IntegerArray)
9 #######################################################################################
11 # Create a new document and set UndoLimit
12 NewDocument D MDTV-Standard
15 # Create a label and set attributes
19 ############################################
25 ############################################
29 set modified_attribute TDataStd_Real
31 ############################################
32 # Set TDataStd_IntegerArray
33 SetIntArray D ${Label} ${isDelta} ${From} ${To} ${IntegerArray1} ${IntegerArray2}
34 ############################################
36 SetReal D ${Label} ${Real1}
37 set list [DumpCommand D]
41 set list [DumpCommand D]
43 ############################################
44 # Set old value for TDataStd_IntegerArray
45 SetIntArray D ${Label} ${isDelta} ${From} ${To} ${IntegerArray1} ${IntegerArray2}
46 ############################################
48 # Set new value for TDataStd_Real
49 SetReal D ${Label} ${Real2}
50 set list [DumpCommand D]
54 set list [DumpCommand D]
57 set ll [llength ${list}]
60 puts "good_length = ${good_length}"
62 if { ${ll} != ${good_length} } {
63 puts "OCC2932 Error (case 1)"
65 set name_attribute [lindex ${list} [expr ${good_length} - 1]]
66 puts "name_attribute = ${name_attribute}"
67 puts "modified_attribute = ${modified_attribute}"
68 if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
71 puts "OCC2932 Error (case 2)"