update2constant.ebs

来自「信息管理软件,描述信息的采集,分析等,信息管理软件,描述信息的采集,分析等」· EBS 代码 · 共 35 行

'==============================================================================
' Update selected attributes to constant ("static final", and with no wrappers)
'==============================================================================
' History
' 2001/07/02 | Vladislav Dutov | viewport title fixed. 
' 2001/06/29 | Vladislav Dutov | created.
'==============================================================================


Declare Sub update2const(at As Attribute)

Sub Main
	Dim selected As ItemCollection
	Dim ri As RoseItem
	Dim at As Attribute
	Viewport.Open "Update to constant"
	Viewport.Clear
	Set selected = RoseApp.CurrentModel.GetSelectedItems()
	For i%=1 To selected.Count 
		Set ri = selected.GetAt(i%)
		If ri.CanTypeCast(at) Then
			Set at = ri.TypeCast(at)
			Print at.Name
			update2const at
		End If
	Next i%
End Sub

Sub update2const(at As Attribute)
	Dim b As Boolean
	b = at.OverrideProperty("ngen", "ngen.wrappers", "FALSE")
	b = at.OverrideProperty("ngen", "ngen.final", "TRUE")
	at.static = true
End Sub