1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Create Attribute Delta depending on actual change of the attribute
7 #######################################################################################
8 # Case 20 (TDF_TagSource)
9 #######################################################################################
13 # Create a new document and set UndoLimit
17 # Create a label and set attributes
21 ############################################
23 ############################################
27 set modified_attribute TDataStd_Real
29 ############################################
31 OCC2932_SetTag D ${Label} ${Tag}
32 ############################################
34 SetReal D ${Label} ${Real1}
35 set list [DumpCommand D]
39 set list [DumpCommand D]
41 ############################################
42 # Set old value for TDF_TagSource
43 OCC2932_SetTag D ${Label} ${Tag}
44 ############################################
46 # Set new value for TDataStd_Real
47 SetReal D ${Label} ${Real2}
48 set list [DumpCommand D]
52 set list [DumpCommand D]
55 set ll [llength ${list}]
58 puts "good_length = ${good_length}"
60 if { ${ll} != ${good_length} } {
61 puts "OCC2932 Error (case 1)"
63 set name_attribute [lindex ${list} [expr ${good_length} - 1]]
64 puts "name_attribute = ${name_attribute}"
65 puts "modified_attribute = ${modified_attribute}"
66 if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
69 puts "OCC2932 Error (case 2)"