home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / MYBROWS1.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  522 b   |  25 lines
  1.     // MyBrows1.prg
  2.     //
  3.     // MyBrowse1() - Simple generic browse routine, MyBrowse1
  4.  
  5.     #include "Inkey.ch"
  6.  
  7.     FUNCTION MyBrowse1(oTbr)
  8.  
  9.     LOCAL nKey
  10.     LOCAL lExitRequested := .F.
  11.  
  12.       DO WHILE !lExitRequested
  13.         FullStabilize(oTbr)
  14.         nKey := InKey(0)
  15.         IF !StdMeth(nKey, oTbr)
  16.           // Check here for other keys ...
  17.           DO CASE
  18.             CASE nKey == K_ESC
  19.               lExitRequested := .T.
  20.           ENDCASE
  21.         ENDIF
  22.       ENDDO
  23.  
  24.     RETURN NIL
  25.