home *** CD-ROM | disk | FTP | other *** search
/ Megazine / Megazine-1.iso / PROGRAMA / CLIPPER / CALC223 / NOMOUSE.PRG < prev    next >
Encoding:
Text File  |  1993-12-16  |  2.4 KB  |  57 lines
  1. * ┌─ Program ────────────────────────────────────────────────────────────────┐
  2. * │  Application: Calculator 2.0                                             │
  3. * │    File Name: NOMOUSE.PRG   Stub module for no-mouse ability             │
  4. * │       Author: Jim Gale                                                   │
  5. * │ Date created: 10-03-93                                                   │
  6. * │ Time created: 11:06:04pm                                                 │
  7. * │    Make File:                                                            │
  8. * │    Exec File:                                                            │
  9. * │    Copyright: 1993 by Touchstone Business Creations                      │
  10. * └──────────────────────────────────────────────────────────────────────────┘
  11.  
  12. * ┌─ Function ───────────────────────────────────────────────────────────────┐
  13. * │  Description: Determime if a mouse if present in the system.             │
  14. * │       Author: Jim Gale                                                   │
  15. * │ Date created: 10-30-93                                                   │
  16. * │ Time created: 09:35:00am                                                 │
  17. * │    Copyright: Touchstone Business Creations                              │
  18. * ├──────────────────────────────────────────────────────────────────────────┤
  19. * │     Function: CM_IsMouse()                                               │
  20. * │                                                                          │
  21. * │    Arguments: none                                                       │
  22. * │                                                                          │
  23. * │ Return Value: False - no mouse exists in system (NOMOUSE)                │
  24. * │                                                                          │
  25. * │     See Also:                                                            │
  26. * │                                                                          │
  27. * └──────────────────────────────────────────────────────────────────────────┘
  28. Function CM_IsMouse()
  29. Return .F.
  30.  
  31. Function CM_Button()
  32. Return 0
  33.  
  34. Function CM_Row()
  35. Return 0
  36.  
  37. Function CM_Col()
  38. Return 0
  39.  
  40. Function CM_On()
  41. Return .F.
  42.  
  43. Function CM_Off()
  44. Return .F.
  45.  
  46. Function CM_Cursor()
  47. Return .F.
  48.  
  49. Function CM_Init()
  50. Return NIL
  51.  
  52. Function CM_Wait()
  53. Return Inkey(.2)
  54.  
  55. Function CM_Exit()
  56. Return NIL
  57.