This script comes from a Notes form or view action. It executes because the Property Broker invokes it, on receiving a property change published by another component in a composite application. The script asks the Property Broker for the changed property, and displays the name and description of that property.

Note This script will always display the same message, because the input property, including its name and description, are associated with the WSDL action defined in the Wiring Properties design element in this application. The component that published the property may be using a different name and description, but there is no way to retrieve that information.

Sub Click(Source As Button)
Dim s As New NotesSession
Dim workspace As New NotesUIWorkspace
If workspace.IsEmbeddedInsideWCT Then

 Dim pb As NotesPropertyBroker
 Set pb = s.GetPropertyBroker()
 Dim pbProperty As NotesProperty
 Dim PropertyName As String
 Dim PropertyIsInput As String
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument

 PropertyName = uidoc.Propname(0)
 pbProperty = pb.GetPropertyValue(PropertyName)

 If pbProperty.Isinput Then
   PropertyIsInput = " is an input property"
 Else
   PropertyIsInput = " is NOT an input property"
 End If
 Messagebox PropertyName + PropertyIsInput, MB_OK, "Isinput"
Else
 Messagebox "Wrong Configuration", MB_OK, "Basic Configuration"
End If
End Sub

Glossary