mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
fa53efefc3
OCAF attributes TDataStd_AsciiString, TDataStd_Integer, TDataStd_Name, TDataStd_Real are extended by possibility to use custom GUID. Now multiple attributes of any of these types can be placed at the same label using different user-defined GUIDs. For this new "Set" methods were added into each attribute, which takes this custom GUID as an argument. Other aspects of management of attributes on labels remain the same. Version number of persistent OCAF documents is incremented. However, the attributes are stored in the same way unless non-standard GUID is used for particular attribute. Previously saved documents are fully supported, but the new documents with this extension used will be non-readable by the previous version of OCAF libraries.
53 lines
1.2 KiB
Plaintext
53 lines
1.2 KiB
Plaintext
#INTERFACE CAF
|
|
# Basic attributes
|
|
#
|
|
# Testing attribute: User defined (additional GUID) TDataStd_Integer
|
|
#
|
|
# Testing command: SetInteger
|
|
# Testing command: GetInteger
|
|
#
|
|
|
|
puts "caf001-A5"
|
|
|
|
# Add an attribute to a data framework
|
|
set aSetAttr1 100
|
|
set aSetAttr2 200
|
|
set aGuid1 "12e94541-6dbc-11d4-b9c8-0060b0ee281b"
|
|
set aGuid2 "12e94542-6dbc-11d4-b9c8-0060b0ee281b"
|
|
set aLabel 0:2
|
|
SetInteger D ${aLabel} ${aSetAttr1} ${aGuid1}
|
|
SetInteger D ${aLabel} ${aSetAttr2} ${aGuid2}
|
|
|
|
# Close/Open the transaction
|
|
NewCommand D
|
|
|
|
# Set a new value of the attributes
|
|
set aSetAttr12 199
|
|
SetInteger D ${aLabel} ${aSetAttr12} ${aGuid1}
|
|
|
|
set aSetAttr22 299
|
|
SetInteger D ${aLabel} ${aSetAttr12} ${aGuid2}
|
|
|
|
# Close/Open the transaction
|
|
NewCommand D
|
|
|
|
# Undo-Redo-Undo
|
|
Undo D
|
|
|
|
# Get a value of the attribute
|
|
set aGetAttr1 [GetInteger D ${aLabel} ${aGuid1}]
|
|
if { ${aSetAttr1}!=${aGetAttr1} } {
|
|
puts "aSetAttr1=${aSetAttr1} aGetAttr1=${aGetAttr1}"
|
|
puts "Add TDataStd_Integer attribute: Error"
|
|
return
|
|
}
|
|
|
|
set aGetAttr2 [GetInteger D ${aLabel} ${aGuid2}]
|
|
if { ${aSetAttr2}!=${aGetAttr2} } {
|
|
puts "aSetAttr2=${aSetAttr2} aGetAttr2=${aGetAttr2}"
|
|
puts "Add TDataStd_Integer attribute: Error"
|
|
return
|
|
}
|
|
|
|
puts "Add user defined TDataStd_Integer attributes: OK"
|