Example: Working with triggers

' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application

' Get a trigger type from the VOB
Dim VOB As CCVOB
Set VOB = CC.VOB("\caroltest")

Dim TriggerType As CCTriggerType
Set TriggerType = VOB.TriggerType("my_trigger")

' Apply the trigger type to a directory element, specifying that the
' directory subset list should exclude the inheritance list
Dim Elem As CCElement
Set Elem = CC.Element("\caroltest")
TriggerType.Apply Elem, "Applying trigger from CAL example", False, _
     False, ccSubset_NotInheritance

' Get information about a trigger on an element
Dim Trigger As CCTrigger
Dim strAttached As String
Dim strInheritance As String
Set Trigger = Elem.Trigger("another_trigger")
If Trigger.IsOnAttachedList Then
     strAttached = " is on attached list."
End If
If Trigger.IsOnInheritanceList Then
     strInheritance = " is on inheritance list."
End If
MsgBox "Trigger of type " & Trigger.Type & strAttached &  strInheritance

Feedback