home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 14 / MacFormat n. 14 (Spain) / MacFormat 14.bin / Shareware Internet / HyperCard / XCMD Docs / CompileIt! Source Code / WaitKeyDown() < prev    next >
Encoding:
Text File  |  1995-08-19  |  229 b   |  9 lines
  1. Global MyEvent:R
  2. function WaitKeyDown
  3.   get GetNextEvent(KeyDownMask,MyEvent)
  4.   repeat until MyEvent.message ≠ NullEvent
  5.     get GetNextEvent(KeyDownMask,MyEvent)
  6.   end repeat
  7.   get MyEvent.CharType[5]
  8.   return it
  9. end WaitKeyDown