mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
26 lines
509 B
Plaintext
Executable File
26 lines
509 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC23799"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Crash on copying a label
|
|
#######################################################################
|
|
|
|
set BugNumber OCC23799
|
|
|
|
# Create a new document
|
|
NewDocument D
|
|
|
|
psphere s 100
|
|
explode s f
|
|
|
|
ImportShape D 0:1 s
|
|
SelectShape D 0:2 s_1 s
|
|
ForgetAll D 0:1
|
|
|
|
if { [catch [CopyLabel D 0:2 0:3] ] != 0 } {
|
|
puts "${BugNumber}: Error copy label"
|
|
} else {
|
|
puts "${BugNumber}: OK"
|
|
}
|