Rose question - Conditionally showing tabs based on value.
So I have a small ebs script as shown below. It creates two Tabs JXP and
JXP SQL
I want to show the JXP SQL Tab only when the value of the Persistent Type
field on the
JXP Tab is "oracle817" or "mysql" or "postgresql". I want to hide it when
the value is "mqseries".
Is there a way to do this.?
Thanks a lot.
- Girish
Sub Main
Dim theCurrentModel As Model
Set theCurrentModel = RoseApp.CurrentModel
Dim DefaultProps As DefaultModelProperties
Set DefaultProps = theCurrentModel.DefaultProperties
myClass$ = theCurrentModel.RootCategory.GetpropertyClassName()
If Not Defaultprops.adddefaultproperty
("Class","JXP","default","PesistentTypeSet","Enumeration","mqseries,oracle81
7,mysql,postgresql,") Then
msgbox "couldnt add property"
End If
If Not Defaultprops.adddefaultproperty
("Class","JXP","default","LockStrategySet","Enumeration","optimistic,pessimi
stic,none,") Then
msgbox "couldnt add property"
End If
b =
DefaultProps.AddDefaultProperty("Class","JXP","default","DSN","String","")
b =
DefaultProps.AddDefaultProperty("Class","JXP","default","Persistent
Type","PesistentTypeSet","")
b = DefaultProps.AddDefaultProperty("Class","JXP","default","Lock
Strategy","LockStrategySet","")
b = DefaultProps.AddDefaultProperty("Class","JXP
SQL","default","Table Name","String","")
End Sub
************************************************************************
* Rose Forum is a public venue for ideas and discussions.
* For technical support, visit http://www.rational.com/support
*
* Admin.Subscription Requests: [EMAIL PROTECTED]
* Archive of messages: http://www.rational.com/support/usergroups/rose/rose_forum.jsp
* Other Requests: [EMAIL PROTECTED]
*
* To unsubscribe from the list, please send email
*
* To: [EMAIL PROTECTED]
* Subject:<BLANK>
* Body: unsubscribe rose_forum
*
*************************************************************************
