home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / PULLDNME.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  1009 b   |  59 lines
  1. /*
  2.     PullDnMenu.prg
  3.  
  4.     Copyright (c) 1991 Chris Muller and Anton van Straaten
  5. */
  6.  
  7. #include "class(y).ch"
  8. #include "win.ch"
  9. #include "inkey.ch"
  10.  
  11.  
  12. create class PullDnMenu from PopupMenu
  13.  
  14.     protected:
  15.         method  menuTop, menuLeft
  16.  
  17.     export:
  18.         method  moveLeft, moveRight
  19.         method  setKeys, clearKeys
  20. endclass
  21.  
  22.  
  23. // this constructor does nothing but pass its parameter up to the superclass
  24. constructor new (Items), (Items)
  25. return
  26.  
  27.  
  28. method function menuTop
  29. return winTop() + 1
  30.  
  31.  
  32. method function menuLeft
  33. return winLeft() + ::parent:newMenuPos()
  34.  
  35.  
  36. method procedure moveLeft
  37.     keyboard chr(K_ESC) + chr(K_LEFT) + chr(K_ENTER)
  38. return
  39.  
  40.  
  41. method procedure moveRight
  42.     keyboard chr(K_ESC) + chr(K_RIGHT) + chr(K_ENTER)
  43. return
  44.  
  45.  
  46. method procedure setKeys
  47.     set key K_LEFT  to ::moveLeft
  48.     set key K_RIGHT to ::moveRight
  49. return
  50.  
  51.  
  52. method procedure clearKeys
  53.     setkey(K_LEFT,  NIL)
  54.     setkey(K_RIGHT, NIL)
  55. return
  56.  
  57.  
  58. // eof pdmenu.prg
  59.