home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / MDCS.PRG < prev    next >
Encoding:
Text File  |  1994-06-24  |  1.1 KB  |  38 lines
  1.  
  2. *.............................................................................
  3. *
  4. *   Program Name: MDCS.PRG            Copyright: Borland International
  5. *   Date Created: 10 Apr 94            Language: dBASE 5.0
  6. *   Time Created: 16:40:59               Author: Borland dBASE R&D
  7. *   /brief/library.src
  8. *.............................................................................
  9.  
  10. *.................................................................
  11. * Procedure Name:   MDCS
  12. * Parameters:       None
  13. * Ext Memvars:      dbMItem9
  14. * Description:      Changes text of menu item when option changes
  15. *.................................................................
  16. PROCEDURE MDCS
  17.     PRIVATE cStr, oRef
  18.     #include "TALKOFF.HDB"
  19.     
  20.     oRef = This
  21. *    cStr = oRef.Text
  22.     
  23.     IF oRef.Checked
  24.         oRef.Checked = .F.
  25.     ELSE
  26.         oRef.Checked = .T.
  27.     ENDIF
  28.     
  29. *    IF RIGHT(cStr,3) = "YES"
  30. *        cStr = LEFT(cStr, LEN(cStr) - 3) + " NO"
  31. *    ELSE
  32. *        cStr = LEFT(cSTr, LEN(cStr) - 3) + "YES"
  33. *    ENDIF
  34.     
  35. *    This.Text = cStr
  36.     #include "TALKON.HDB"
  37. RETURN            
  38.