📄 class.mdl
字号:
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${relationship}")
(object Attribute
tool "Ada83"
name "InlineGet"
value TRUE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${relationship}")
(object Attribute
tool "Ada83"
name "InlineSet"
value TRUE)
(object Attribute
tool "Ada83"
name "IsConstant"
value FALSE)
(object Attribute
tool "Ada83"
name "InitialValue"
value "")
(object Attribute
tool "Ada83"
name "Declare"
value ("DeclareSet" 234))
(object Attribute
tool "Ada83"
name "Variant"
value "")
(object Attribute
tool "Ada83"
name "ContainerGeneric"
value "List")
(object Attribute
tool "Ada83"
name "ContainerType"
value "")
(object Attribute
tool "Ada83"
name "ContainerDeclarations"
value (value Text ""))
(object Attribute
tool "Ada83"
name "SelectorName"
value "")
(object Attribute
tool "Ada83"
name "SelectorType"
value "")
(object Attribute
tool "Ada83"
name "DeclareSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Before"
value 233)
(object Attribute
tool "Ada83"
name "After"
value 234)))))
(object Attribute
tool "Ada83"
name "default__Attribute"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "CodeName"
value "")
(object Attribute
tool "Ada83"
name "DataMemberName"
value "${attribute}")
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${attribute}")
(object Attribute
tool "Ada83"
name "InlineGet"
value TRUE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${attribute}")
(object Attribute
tool "Ada83"
name "InlineSet"
value TRUE)
(object Attribute
tool "Ada83"
name "IsConstant"
value FALSE)
(object Attribute
tool "Ada83"
name "InitialValue"
value "")
(object Attribute
tool "Ada83"
name "Declare"
value ("DeclareSet" 234))
(object Attribute
tool "Ada83"
name "Variant"
value "")
(object Attribute
tool "Ada83"
name "Representation"
value (value Text ""))
(object Attribute
tool "Ada83"
name "DeclareSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Before"
value 233)
(object Attribute
tool "Ada83"
name "After"
value 234)))))
(object Attribute
tool "Ada83"
name "default__Association"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "NameIfUnlabeled"
value "The_${targetClass}")
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${association}")
(object Attribute
tool "Ada83"
name "InlineGet"
value FALSE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${association}")
(object Attribute
tool "Ada83"
name "InlineSet"
value FALSE)
(object Attribute
tool "Ada83"
name "GenerateAssociate"
value ("ProcedureKindSet" 202))
(object Attribute
tool "Ada83"
name "AssociateName"
value "Associate")
(object Attribute
tool "Ada83"
name "InlineAssociate"
value FALSE)
(object Attribute
tool "Ada83"
name "GenerateDissociate"
value ("ProcedureKindSet" 202))
(object Attribute
tool "Ada83"
name "DissociateName"
value "Dissociate")
(object Attribute
tool "Ada83"
name "InlineDissociate"
value FALSE)
(object Attribute
tool "Ada83"
name "ProcedureKindSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Procedure"
value 202)
(object Attribute
tool "Ada83"
name "DoNotCreate"
value 201)))
(object Attribute
tool "Ada83"
name "FunctionKindSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Function"
value 199)
(object Attribute
tool "Ada83"
name "DoNotCreate"
value 201)))))
(object Attribute
tool "Ada83"
name "default__Role"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "CodeName"
value "")
(object Attribute
tool "Ada83"
name "NameIfUnlabeled"
value "The_${targetClass}")
(object Attribute
tool "Ada83"
name "DataMemberName"
value "${target}")
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${target}")
(object Attribute
tool "Ada83"
name "InlineGet"
value TRUE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${target}")
(object Attribute
tool "Ada83"
name "InlineSet"
value TRUE)
(object Attribute
tool "Ada83"
name "IsConstant"
value FALSE)
(object Attribute
tool "Ada83"
name "InitialValue"
value "")
(object Attribute
tool "Ada83"
name "Declare"
value ("DeclareSet" 234))
(object Attribute
tool "Ada83"
name "Representation"
value (value Text ""))
(object Attribute
tool "Ada83"
name "ContainerGeneric"
value "List")
(object Attribute
tool "Ada83"
name "ContainerType"
value "")
(object Attribute
tool "Ada83"
name "ContainerDeclarations"
value (value Text ""))
(object Attribute
tool "Ada83"
name "SelectorName"
value "")
(object Attribute
tool "Ada83"
name "SelectorType"
value "")
(object Attribute
tool "Ada83"
name "ProcedureKindSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Procedure"
value 202)
(object Attribute
tool "Ada83"
name "DoNotCreate"
value 201)))
(object Attribute
tool "Ada83"
name "DeclareSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Before"
value 233)
(object Attribute
tool "Ada83"
name "After"
value 234)))))
(object Attribute
tool "Ada83"
name "default__Subsystem"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Directory"
value "AUTO GENERATE")))
(object Attribute
tool "Ada83"
name "HiddenTool"
value FALSE)
(object Attribute
tool "Ada95"
name "propertyId"
value "838326200")
(object Attribute
tool "Ada95"
name "default__Project"
value (list Attribute_Set
(object Attribute
tool "Ada95"
name "SpecFileExtension"
value "1.ada")
(object Attribute
tool "Ada95"
name "SpecFileBackupExtension"
value "1.ad~")
(object Attribute
tool "Ada95"
name "SpecFileTemporaryExtension"
value "1.ad#")
(object Attribute
tool "Ada95"
name "BodyFileExtension"
value "2.ada")
(object Attribute
tool "Ada95"
name "BodyFileBackupExtension"
value "2.ad~")
(object Attribute
tool "Ada95"
name "BodyFileTemporaryExtension"
value "2.ad#")
(object Attribute
tool "Ada95"
name "CreateMissingDirectories"
value TRUE)
(object Attribute
tool "Ada95"
name "UseColonNotation"
value TRUE)
(object Attribute
tool "Ada95"
name "GenerateBodies"
value TRUE)
(object Attribute
tool "Ada95"
name "GenerateAccessorOperations"
value TRUE)
(object Attribute
tool "Ada95"
name "GenerateStandardOperations"
value TRUE)
(object Attribute
tool "Ada95"
name "DefaultCodeBody"
value "[statement]")
(object Attribute
tool "Ada95"
name "ImplicitParameter"
value TRUE)
(object Attribute
tool "Ada95"
name "CommentWidth"
value 60)
(object Attribute
tool "Ada95"
name "StopOnError"
value FALSE)
(object Attribute
tool "Ada95"
name "ErrorLimit"
value 30)
(object Attribute
tool "Ada95"
name "UseFileName"
value FALSE)
(object Attribute
tool "Ada95"
name "Directory"
value "$ROSEADA95_SOURCE")))
(object Attribute
tool "Ada95"
name "default__Class"
value (list Attribute_Set
(object Attribute
tool "Ada95"
name "CodeName"
value "")
(object Attribute
tool "Ada95"
name "TypeName"
value "Object")
(object Attribute
tool "Ada95"
name "TypeVisibility"
value ("TypeVisibilitySet" 43))
(object Attribute
tool "Ada95"
name "TypeImplementation"
value ("TypeImplementationSet" 208))
(object Attribute
tool "Ada95"
name "IncompleteType"
value ("IncompleteTypeSet" 1))
(object Attribute
tool "Ada95"
name "TypeControl"
value ("TypeControlSet" 225))
(object Attribute
tool "Ada95"
name "TypeControlName"
value "Controlled_${type}")
(object Attribute
tool "Ada95"
name "TypeControlVisibility"
value ("TypeVisibilitySet" 43))
(object Attribute
tool "Ada95"
name "TypeDefinition"
value (value Text ""))
(object Attribute
tool "Ada95"
name "RecordImplementation"
value ("RecordImplementationSet" 209))
(object Attribute
tool "Ada95"
name "RecordKindPackageName"
value "${class}_Record_Kinds")
(object Attribute
tool "Ada95"
name "IsLimited"
value FALSE)
(object Attribute
tool "Ada95"
name "IsSubtype"
value FALSE)
(object Attribute
tool "Ada95"
name "GenerateAccessType"
value ("GenerateAccessTypeSet" 230))
(object Attribute
tool "Ada95"
name "AccessTypeName"
value "Handle")
(object Attribute
tool "Ada95"
name "AccessTypeVisibility"
value ("TypeVisibilitySet" 45))
(object Attribute
tool "Ada95"
name "AccessTypeDefinition"
value (value Text ""))
(object Attribute
tool "Ada95"
name "AccessClassWide"
value TRUE)
(object Attribute
tool "Ada95"
name "MaybeAliased"
value FALSE)
(object Attribute
tool "Ada95"
name "ParameterizedImplementation"
value ("ParameterizedImplementationSet" 11))
(object Attribute
tool "Ada95"
name "ParentClassName"
val⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -