mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
65da6e2e3e
Method TObj_Object::HasModifications() was added to get flag that object or it's children was modified in the current open transaction
51 lines
1.0 KiB
Plaintext
51 lines
1.0 KiB
Plaintext
puts "============"
|
|
puts "OCC31452"
|
|
puts "0031452: Impossible to get Backup of the attribute and status that attribute was modified before commit transaction"
|
|
puts "============"
|
|
|
|
set BugNumber OCC31452
|
|
set status 0
|
|
|
|
pload TOBJ
|
|
|
|
# Create a new document
|
|
TObjNew TD1
|
|
UndoLimit TD1 10
|
|
TObjAddObj TD1 obj1
|
|
TObjAddObj TD1 obj2
|
|
TObjAddObj TD1 obj3
|
|
|
|
set parent "obj1 obj2 obj2"
|
|
set children "ch11 ch21 ch22"
|
|
for { set i 0} {$i <= 2} {incr i} {
|
|
set p [lindex $parent $i]
|
|
set ch [lindex $children $i]
|
|
TObjAddChild TD1 $p $ch
|
|
}
|
|
|
|
TObjSetRef TD1 obj1 obj2
|
|
|
|
TObjSetVal TD1 ch11 200
|
|
TObjSetVal TD1 ch21 110
|
|
TObjSetVal TD1 obj2 -r 3 3.14 2.78 0.123
|
|
OpenCommand TD1
|
|
|
|
TObjSetVal TD1 ch11 150
|
|
TObjSetVal TD1 obj2 -r 3 3.14 2.78 0.150
|
|
|
|
for {set i 1} {$i <=2} {incr i} {
|
|
set out [TObjHasModifications TD1 obj$i]
|
|
set fields [split $out ":"]
|
|
set status [lindex $fields 1]
|
|
if {$status != 1} {
|
|
puts "Error : status of the modification of the object incorrect"
|
|
}
|
|
|
|
}
|
|
|
|
|
|
TObjClose TD1
|
|
unset TD1
|
|
|
|
|