home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / readme / fileins / cpicfix1.st < prev    next >
Encoding:
Text File  |  1995-10-24  |  831 b   |  25 lines
  1. AbtEditCPICApp becomeDefault!
  2.  
  3. !AbtCPICConnectionSpec class privateMethods !
  4.  
  5. convertReturnControlString: aString ifAbsent: aBlock
  6.     "Convert the string to a constant"
  7.  
  8.     self returnControlStrings indexOf: aString
  9.             ifAbsent: [ ^aBlock value ].
  10.     ^AbtCPICConstants at: 'CM', aString ifAbsent: [^aBlock value ]  "$NON-NLS$"!
  11.  
  12. convertSecurityString: aString ifAbsent: aBlock
  13.     "Convert the string to a constant"
  14.     
  15.     self securityStrings indexOf: aString
  16.             ifAbsent: [ ^aBlock value ].
  17.     ^AbtCPICConstants at: 'CMSECURITY', aString ifAbsent: [^aBlock value ]  "$NON-NLS$"!
  18.  
  19. convertSyncLevelString: aString ifAbsent: aBlock
  20.     "Convert the string to a constant"
  21.     
  22.     self syncLevelStrings indexOf: aString
  23.             ifAbsent: [ ^aBlock value ].
  24.     ^AbtCPICConstants at: 'CM', aString ifAbsent: [^aBlock value ]  "$NON-NLS$"! !
  25.