[ActiveLock-Development] CVS: activelock/src IActiveLock.cls,1.4,1.5 ProductLicense.cls,1.4,1.5

[Thanh H. T. <th...@us...>]

Update of /cvsroot/activelock/activelock/src
In directory sc8-pr-cvs1:/tmp/cvs-serv8514

Modified Files:
	IActiveLock.cls ProductLicense.cls 
Log Message:
Fixed vbdox bugs

Index: IActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock/src/IActiveLock.cls,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- IActiveLock.cls	3 Nov 2003 06:30:42 -0000	1.4
+++ IActiveLock.cls	4 Nov 2003 07:43:15 -0000	1.5
@@ -87,12 +87,12 @@
 '       ' if there were problems (such as activelock2.dll having been tampered).
 '
 '       ' Verify AL's authenticity
-'       ' modActiveLock.CRCCheckSumTypeLib() requires a public-creatable object to be passed in so that it can
-'       ' determine the Type Library DLL on which to perform the checksum.
+'       ' modActiveLock.CRCCheckSumTypeLib() requires a public-creatable object to be passed in
+'       ' so that it can determine the Type Library DLL on which to perform the checksum.
 '       ' So can't use MyActiveLock object to authenticate since it is not a public creatable object.
 '       ' So we'll use ActiveLock2.Globals, which is just as good because they are in the same DLL.
 '       Dim crc As Long
-'       crc = CRCCheckSumTypeLib(New ActiveLock2.Globals) ' See below for CRCCheckSumTypeLib() implementation
+'       crc = CRCCheckSumTypeLib(New ActiveLock2.Globals)
 '       Debug.Print "Hash: " & crc
 '       If crc <> AL_CRC Then
 '           MsgBox "ActiveLock2.dll has been corrupted."
@@ -232,10 +232,10 @@
 ' License Lock Types.  Values can be combined (OR&#39;ed) together.
 '
 ' @param lockNone       No locking - not recommended
-' @param lockWindows    Lock to windows serial number
+' @param lockWindows    Lock to Windows serial number
 ' @param lockComp       Lock to computer name
-' @param lockHD         Lock to hard drive serial
-' @param lockMAC        Lock to network NIC address
+' @param lockHD         Lock to hard drive serial number
+' @param lockMAC        Lock to Network Interface Card address
 Public Enum ALLockTypes
     lockNone = 0
     lockWindows = 1
@@ -329,7 +329,7 @@
 
 ''
 ' Specifies the key store path.
-' @param Path   The path to be used for the specified KeyStoreType.
+' @param sPath  The path to be used for the specified KeyStoreType.
 '               e.g. If <a href="IActiveLock.LicStoreType.html">alsFile</a> is used for <a href="IActiveLock.Let.KeyStoreType.html">KeyStoreType</a>,
 '               then <code>Path</code> specifies the path to the license file.
 '               If <a href="IActiveLock.LicStoreType.html">alsRegistry</a> is used for <a href="IActiveLock.Let.KeyStoreType.htm">KeyStoreType</a>,
@@ -385,7 +385,7 @@
 ' and  <a href="IActiveLock.Register.html">Register()</a> requires <code>Init()</code> to be called first.
 ' This routine accepts varying number of parameters.
 ' Note: If you're accessing IActiveLock via <a href="Globals.NewInstance.html">ActiveLock2.NewInstance()</a>,
-' then Init() would already been called for you, so you don&#39;t need to call it again.
+' then Init() would already have been called for you, so you don&#39;t need to call it again.
 '
 ' @param Arg1   First parameter to be passed to this routine.
 ' @param OtherArgs  The remaining array of arguments to be passed into this routine.

Index: ProductLicense.cls
===================================================================
RCS file: /cvsroot/activelock/activelock/src/ProductLicense.cls,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- ProductLicense.cls	3 Nov 2003 06:30:42 -0000	1.4
+++ ProductLicense.cls	4 Nov 2003 07:43:15 -0000	1.5
@@ -129,6 +129,7 @@
 
 ''
 ' Returns the License Type being used in this instance.
+' @return License Type
 '
 Public Property Get LicenseType() As ALLicType
 Attribute LicenseType.VB_Description = "License Type"
@@ -207,14 +208,15 @@
 ' [INTERNAL] Specifies the licensed user.
 ' <p>!!! WARNING !!! Make sure you know what you're doing when you call this method; otherwise, you run
 ' the risk of invalidating your existing license.
+' @param Name  Name of the licensed user
 '
-Public Property Let Licensee(ByVal name As String)
+Public Property Let Licensee(ByVal Name As String)
     mstrLicensee = name
 End Property
 
 ''
 ' Returns the person or organization registered to this license.
-' @return Registered User
+' @return Name of the licensed user
 '
 Public Property Get Licensee() As String
 Attribute Licensee.VB_Description = "Person or organization registered to this license."
@@ -274,6 +276,9 @@
     mstrRegisteredDate = strDate
 End Property
 
+''
+' Returns maximum number of concurrent users
+' @return Max. User Count
 Public Property Get MaxCount() As Long
     MaxCount = mnMaxCount
 End Property
@@ -317,7 +322,7 @@
 
 
 ''
-' Returns a line-feed delimited string encoding of this object's properties
+' Returns a line-feed delimited string encoding of this object&#39;s properties.
 ' Note: LicenseKey is not included in this string.
 ' @return License String
 '