1 puts "TODO OCC12345 ALL: OCC1395 Error : There is not the integer attribute on the label 0:2"
2 puts "TODO OCC12345 ALL: OCC1395 Error"
4 puts "================"
6 puts "================"
8 #######################################################################################
9 # Wrong behaviour of Undo Redo and SetUndoLimit methods in TDocStd_Document
10 #######################################################################################
12 #######################################################################################
16 # Create a new document and set UndoLimit
17 NewDocument D MDTV-Standard
27 # Set integer attribute
29 SetInteger D ${aLabel} ${anInteger}
37 # Check integer attributes
38 if [catch { set Integer [GetInteger D ${aLabel}] } message] {
40 puts "OCC1395 Error : There is not the integer attribute on the label ${aLabel}"
42 puts "OCC1395 OK : There is the integer attribute on the label ${aLabel}"
47 SetReal D ${aLabel} ${aReal}
52 # Check real attributes
53 if [catch { set Real [GetReal D ${aLabel}] } message] {
55 puts "OCC1395 Error : There is not the real attribute on the label ${aLabel}"
57 puts "OCC1395 OK : There is the real attribute on the label ${aLabel}"
60 if { ${IsGood} == 1 } {