1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Create Attribute Delta depending on actual change of the attribute
7 #######################################################################################
8 # Case 13 (TDataStd_Real)
9 #######################################################################################
11 # Create a new document and set UndoLimit
15 # Create a label and set attributes
19 ############################################
21 ############################################
25 set modified_attribute TDataStd_Integer
27 ############################################
29 SetReal D ${Label} ${Real}
30 ############################################
32 SetInteger D ${Label} ${Integer1}
33 set list [DumpCommand D]
37 set list [DumpCommand D]
39 ############################################
40 # Set old value for TDataStd_Real
41 SetReal D ${Label} ${Real}
42 ############################################
44 # Set new value for TDataStd_Integer
45 SetInteger D ${Label} ${Integer2}
46 set list [DumpCommand D]
50 set list [DumpCommand D]
53 set ll [llength ${list}]
56 puts "good_length = ${good_length}"
58 if { ${ll} != ${good_length} } {
59 puts "OCC2932 Error (case 1)"
61 set name_attribute [lindex ${list} [expr ${good_length} - 1]]
62 puts "name_attribute = ${name_attribute}"
63 puts "modified_attribute = ${modified_attribute}"
64 if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
67 puts "OCC2932 Error (case 2)"