KeychainItem.Comment
From Xojo Documentation
Property (As String )
 |
This property is only available on the macOS platform. For cross-platform compatibility, use ＃If...＃Endif with the Target... specifiers to make sure you will not attempt to use this property on an incompatible platform. |
aKeychainItem.Comment = newStringValue
or
StringValue = aKeychainItem.Comment
Supported for all project types and targets.
or
StringValue = aKeychainItem.Comment
Supported for all project types and targets.
End user editable string containing comments for this Keychain item.
Example
This example sets the contents of the commment field in a TextField on the input form.
Var kc As Keychain
Var kci As KeychainItem
kc = New Keychain(Listbox1.SelectedIndex)
If kc <> Nil Then
kci = New KeychainItem
kci.ServiceName = SearchField.Value
PasswordField.Value = kc.FindPassword(kci)
ServiceNameField.Value = kci.ServiceName
AccountNameField.Value = kci.AccountName
CommentField.Value = kci.Comment
LabelField.Value = kci.Label
End If
Var kci As KeychainItem
kc = New Keychain(Listbox1.SelectedIndex)
If kc <> Nil Then
kci = New KeychainItem
kci.ServiceName = SearchField.Value
PasswordField.Value = kc.FindPassword(kci)
ServiceNameField.Value = kci.ServiceName
AccountNameField.Value = kci.AccountName
CommentField.Value = kci.Comment
LabelField.Value = kci.Label
End If