(ROSE) Coloring the message icon in the Sequence Diagram

[(Karen) Muan Yong NG]

        Dim theMessage As Message
        Dim theView As RoseItemView
        Dim theRoseItem As RoseItem

Set theMessage = theSD.CreateMessage (signal,thisSourceObj, thisSourceObj, seqCount)
                
If theMessage.canTypeCast(theRoseItem) Then
                        
        Set theRoseItem=theMessage.TypeCast(theRoseItem)
        Set theView = theSD.GetViewFrom(theRoseItem)                    
        theView.LineColor.red = 100
        theView.LineColor.green = 255
        theView.LineColor.blue = 100
        theView.FillColor.red = 100
        theView.FillColor.green = 255
        theView.FillColor.blue = 100
        theSD.update
End If




Karen

************************************************************************
* Rose Forum is a public venue for ideas and discussions.
* For technical support, visit http://www.rational.com/support
*
* Post or Reply to: [EMAIL PROTECTED]
* 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
*************************************************************************