home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTKEYS.PRG < prev    next >
Text File  |  1994-06-04  |  680b  |  33 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oWnd
  8.  
  9.    SET KEY VK_F2 TO ShowMsg()
  10.  
  11.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 50 ;
  12.       TITLE "MsDos-alike Keyboard management!"
  13.  
  14.    ACTIVATE WINDOW oWnd
  15.  
  16. return nil
  17.  
  18. //----------------------------------------------------------------------------//
  19.  
  20. function ShowMsg( cProc, nLine, uVar )
  21.  
  22.    local oDlg
  23.  
  24.    DEFINE DIALOG oDlg FROM 2, 2 TO 8, 20 TITLE "I am a Dialog"
  25.  
  26.    @ 1, 1 BUTTON "&Ok" OF oDlg
  27.  
  28.    ACTIVATE DIALOG oDlg
  29.  
  30. return nil
  31.  
  32. //----------------------------------------------------------------------------//
  33.