11/************************************************
2- Copyright (c) 2021 by Progress Software Corporation. All rights reserved.
3- ************************************************ */
2+ Copyright (c) 2021, 2025 by Progress Software Corporation. All rights reserved.
3+ ************************************************ */
44/*------------------------------------------------------------------------
55 File : OpenEdge.Net.ServerConnection.TlsClientCredentials
6- Description : An implementation of Crededntials
6+ Description : An implementation of Crededntials
77 Author(s) : Cameron David Wright - cwright@progress.com
8- Created :
9- Notes :
8+ Created :
9+ Notes :
1010 ---------------------------------------------------------------------- */
1111block-level on error undo , throw .
1212
@@ -15,8 +15,7 @@ using OpenEdge.Core.Assert.
1515using OpenEdge.Core.EncodedString .
1616using OpenEdge.Security.ICredentials .
1717
18- class OpenEdge.Net.ServerConnection.TlsClientCredentials
19- implements ICredentials :
18+ class OpenEdge.Net.ServerConnection.TlsClientCredentials implements ICredentials :
2019
2120 /* The identity. */
2221 define public property Identity as Progress.Lang.Object no-undo
@@ -28,28 +27,28 @@ class OpenEdge.Net.ServerConnection.TlsClientCredentials
2827 /* The identity's secret. For a username, this might be a password.
2928 For a token it might be a base64-encoded value. */
3029 define public property Secret as Progress.Lang.Object no-undo
31- get .
30+ get .
3231 set (input inSec as Progress.Lang.Object ):
3332 assert :isType (inSec , get-class (EncodedString )).
3433 assign Secret = inSec .
3534 end set .
3635
3736 /* Constructor - Default
38-
39- */
40- constructor PUBLIC TlsClientCredentials ():
37+
38+ */
39+ constructor public TlsClientCredentials ():
4140 // default consturctor does nothing.
4241 end constructor .
4342
4443 /* Constructor
45-
44+
4645 @param ILongcharHolder - The identity for credentials
4746 @param EncodedString - The secret */
48- constructor PUBLIC TlsClientCredentials (input pIdentity as ILongcharHolder , input pSecret as EncodedString ):
49- assign
47+ constructor public TlsClientCredentials (input pIdentity as ILongcharHolder , input pSecret as EncodedString ):
48+ assign
5049 Identity = pIdentity
5150 Secret = pSecret .
5251
5352 end constructor .
5453
55- end class
54+ end class .
0 commit comments