Re: (ROSE) selected transition

[Alan . Yezierski]

Sub TransitionIn (curDiag As Diagram)

        Dim SD As StateDiagram
        Dim STs As TransitionCollection

        Viewport.open "Selected Transitions"
       
        'Is active diagram an activity diagram?
        If Not curDiag.CanTypeCast(SD) Then
                MsgBox "Please open an activity diagram.",, "Error"
                End
        Else
                Set SD = curDiag.TypeCast(SD)
                Print "Diagram--" & SD.GetQualifiedName()
        End If
       
        Set STs = SD.GetSelectedTransitions()
        Print "Selected Transitions in Diagram--" & STs.Count
       
        For i = 1 To STs.Count
                Print "Transition from " & STs.GetAt(i).GetSourceState.Name & " to " & _
                                STs.GetAt(i).GetTargetState.Name & " is selected."  
        Next i

End Sub

Sub Main
        Dim theModel As Model
       
        Set theModel = RoseApp.CurrentModel
        Dim curDiag As Diagram
       
        'Get the current diagram
        Set curDiag = theModel.GetActiveDiagram()
        If curDiag Is Nothing Then
                MsgBox "Please open an activity diagram.",, "Error"
                End
        End If

        RoseApp.WriteErrorLog ""
        RoseApp.WriteErrorLog "[All Items in Activity Diagram--" & curDiag.GetQualifiedName() & "]"
        TransitionIn curDiag
        Beep
        MsgBox "Done",,"DONE"
        RoseApp.WriteErrorLog "[Done]"
       
End Sub