'<<START SCRIPT>>
'DISCLAIMER
'THE MATERIAL AND/OR SOFTWARE IS PROVIDED 'AS IS'.   RATIONAL AND ITS
'THIRD PARTY LICENSORS DISCLAIM ALL WARRANTIES EXPRESS OR IMPLIED
'INCLUDING, WITHOUT LIMITATION, THE WARRANTY OF MERCHANTABILITY,
'NON-INFRINGEMENT, TITLE OR FITNESS FOR A PARTICULAR PURPOSE OR ARISING
'OUT OF THE COURSE OF DEALING, USAGE OR TRADE PRACTICE, CONTENT OF THE
'MATERIAL OR SOFTWARE.   RATIONAL MAKES NO WARRANTIES OR REPRESENTATIONS
'REGARDING THE ACCURACY OR COMPLETENESS OF THE MATERIAL AND/OR SOFTWARE
'PROVIDED OR THAT IT WILL MEET LICENSEE'S REQUIREMENTS OR THAT THE
'MATERIAL AND/OR SOFTWARE WILL BE ERROR FREE.   IN NO EVENT SHALL RATIONAL
'OR ITS LICENSORS BE LIABLE TO LICENSEE OR A THIRD PARTY FOR ANY
'INDIRECT, DIRECT, NEGLIGENCE, SPECIAL, OR CONSEQUENTIAL DAMAGES
'INCLUDING LOST PROFITS, LOST DATA AND THE LIKE ARISING OUT OF OR IN
'CONNECTION WITH THIS RECEIPT OF MATERIAL AND/OR SOFTWARE EVEN IF
'RATIONAL HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.   
'***********

Sub Main
	Dim modelProps As DefaultModelProperties
	Dim thePropColl As PropertyCollection
	Dim myProp As Property
	Dim temp As String

	Set modelProps = RoseApp.CurrentModel.DefaultProperties
	toolName$ = "Custom Tab"
	setName$ = "default"

	'create enumeration
	If Not modelProps.addDefaultProperty ("Class", toolName, setName, "ColorSet", "Enumeration", "black, white, blue") Then
		msgbox "Couldn't add define enum set"
	End If

	'add custom property 
	If Not modelProps.addDefaultProperty ("Class", toolName, setName, "Color", "ColorSet", "blue") Then
		msgbox "Couldn't add default enum property"
		Exit Sub
	End If

	'get the created property set
	Set thePropColl = modelProps.GetDefaultPropertySet ("Class", toolName, setName)
	
	For i=1 To thePropColl.Count
		  Set myProp = thePropColl.GetAt(i)
		  'find the property "ColorSet"
		  If (myProp.Name = "ColorSet") Then 
				msgbox "Found "	+ myProp.Name
				msgbox "Type of property = " + myProp.Type
				msgbox "Value before update = " + myProp.Value
				'add property value "green"
				temp = myProp.Value + ",green"
				'delete the existing property 
				If Not modelProps.DeleteDefaultProperty ("Class", toolName, setName, myProp.Name)  Then
					msgbox "Couldn't delete enum property"
				End If
				'add new value to enumeration
				If Not modelProps.addDefaultProperty ("Class", toolName, setName, "ColorSet", "Enumeration", temp) Then
					msgbox "Couldn't add define enum set"
				End If
				msgbox "Value after update = " + temp
				'create new property with enumertion type
				If Not modelProps.addDefaultProperty ("Class", toolName, setName, "Color", "ColorSet", "blue") Then
					msgbox "Couldn't add default enum property"
				Exit Sub
				End If

		  End If
		  
	Next i 

End Sub