home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / readme / fileins / appcfix1.st < prev    next >
Encoding:
Text File  |  1995-10-24  |  840 b   |  31 lines
  1. AbtEditAPPCExtApp becomeDefault!
  2.  
  3. !AbtAPPCConnectionSpec 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.     ^AbtAPPCConstants at: 'Ap', aString ifAbsent: [^aBlock value ]  "$NON-NLS$"
  11.  
  12.     !
  13.  
  14. convertSecurityString: aString ifAbsent: aBlock
  15.     "Convert the string to a constant"
  16.     
  17.     self securityStrings indexOf: aString
  18.             ifAbsent: [ ^aBlock value ].
  19.     ^AbtAPPCConstants at: 'Ap', aString ifAbsent: [^aBlock value ]  "$NON-NLS$"
  20.  
  21. !
  22.  
  23. convertSyncLevelString: aString ifAbsent: aBlock
  24.     "Convert the string to a constant"
  25.     
  26.     self syncLevelStrings indexOf: aString
  27.             ifAbsent: [ ^aBlock value ].
  28.     ^AbtAPPCConstants at: 'Ap', aString ifAbsent: [^aBlock value ]  "$NON-NLS$"
  29.  
  30.     ! !
  31.