home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / sys / hp48 / 5758 < prev    next >
Encoding:
Internet Message Format  |  1992-11-15  |  2.0 KB
  1. Path: sparky!uunet!destroyer!gumby!wupost!waikato.ac.nz!fee
  2. From: fee@waikato.ac.nz
  3. Newsgroups: comp.sys.hp48
  4. Subject: Emulating a keypress in sys_RPL???
  5. Message-ID: <1992Nov16.090229.12183@waikato.ac.nz>
  6. Date: 16 Nov 92 09:02:29 +1300
  7. Organization: University of Waikato, Hamilton, New Zealand
  8. Lines: 46
  9.  
  10. Hi all,
  11.  
  12. How do I emulate a key-press in sys_RPL?
  13.  
  14. That is, if I have a keycode in level 2 and a key plane in level 1,
  15. giving the location of a key that is always a menu key, how do I
  16. get the 48 to believe that key has been pressed and evaluate whatever
  17. function is assigned to the menu key at the time?
  18.  
  19. What I have tried are the sequences: Key>StdKeyOb DoKeyOb
  20.                     and: Key>StdKeyOb EVAL
  21.  
  22. I have had limited success with these. If the menukey has some global
  23. user variable name, such as that of a directory, a program or a list
  24. both the above sequences work fine.
  25.  
  26. However, if the menukey is for some built-in function, like PICT, the 48
  27. will hang on trying either of the above sequences. Things that make you 
  28. go mmmmmmhhhh...
  29.  
  30. To obtain more info I left out the DoKeyOb and EVAL from the above and
  31. only executed Key>StdKeyOb and both object types worked fine and left 
  32. something on the stack, which when decompiled, using Detlef's RPL lib, 
  33. gave the following secondary:
  34.  
  35.             ":: PTR 40828
  36.                 PTR 3FF9
  37.                 PTR 41934
  38.             ;"
  39.  
  40. I can't find these entries in ENTRIES.A, except PTR 03FF9 appears to
  41. be a binary integer ONE. (Incidentally, the menukey I was trying i both
  42. cases was the first one, ie: keycode #1).
  43.  
  44. Any ideas for how to achieve a reliable key press emulation? Why are
  45. built-in objects causing trouble?
  46.  
  47. Regards,
  48. Conan.                                         
  49. -----------------------------------------------------------------
  50. Conan J. Fee                _      fee@waikato.ac.nz
  51. Centre for Technology              (_)o    
  52. University of Waikato, Hamilton    /\  \   Phone: +(64)(7)8384206
  53. Private Bag 3105, New Zealand              Fax:   +(64)(7)8384218
  54. -----------------------------------------------------------------
  55.  
  56.