home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VS_804.ZIP / MAINTSRC.EXE / S_DICTNT.PRG < prev    next >
Encoding:
Text File  |  1991-11-25  |  2.4 KB  |  87 lines
  1. * Filename.......: S_DICTNT.PRG
  2. *                  
  3. * Author.........: Vernon E. Six, Jr.
  4. *                  
  5. * Last Update....: Mon  11/25/91  16:37:21
  6. *                  
  7. * Created using..: VSG - Vern Six's Get System v1.00.53a
  8. *                  
  9. * Notice.........: CopyRight (c) 1991 by Vernon E. Six, Jr.
  10. *                  All Rights Reserved World Wide!         
  11.  
  12. #include "INKEY.CH"  
  13.  
  14.  
  15. FUNCTION S_DICTNTX(pc_Title,pc_FootNote)
  16. *══════════════════════════════════════════════════════════*
  17. * Select a NTX                                             *
  18. *══════════════════════════════════════════════════════════*
  19. LOCAL n_Top        := 5
  20. LOCAL n_Left       := 5
  21. LOCAL n_Bottom     := 20
  22. LOCAL n_Right      := 76
  23. LOCAL c_Title      := IF(pc_Title=NIL," Which Index? ",pc_Title)
  24. LOCAL c_FootNote   := IF(pc_FootNote=NIL," Press <F1> For Help ",pc_FootNote)
  25. LOCAL n_Palette    := 5
  26. LOCAL a_ColObjs    := {}
  27. LOCAL n_Key        := 0 
  28. LOCAL c_OldHelp    := "" 
  29.  
  30. LOCAL c_RetVal
  31. LOCAL ab_KeyBlocks := {}
  32. LOCAL an_Keys      := {}
  33.  
  34. _DICTNTX->( VS_SetOrder("1") )
  35.  
  36.  
  37.  
  38. AADD(a_ColObjs, TBColumnNew( "Order NtxName  Key", {||L_DictNtx()}) )
  39.  
  40.  
  41. *══════════════════════════════════════════════════════════*
  42. AADD(ab_KeyBlocks, {||E_DICTNTX(.T.)} )
  43. AADD(an_Keys,      K_F10)
  44.  
  45.  
  46. *══════════════════════════════════════════════════════════*
  47. AADD(ab_KeyBlocks, {||E_DICTNTX(.F.)} )
  48. AADD(an_Keys,      K_INS)
  49.  
  50.  
  51. *══════════════════════════════════════════════════════════*
  52. AADD(ab_KeyBlocks, {||D_Ntx()} )
  53. AADD(an_Keys,      K_DEL)
  54.  
  55.  
  56. *══════════════════════════════════════════════════════════*
  57. AADD(ab_KeyBlocks, {||.T.} )
  58. AADD(an_Keys,      K_ENTER)
  59.  
  60. *══════════════════════════════════════════════════════════*
  61.  
  62.    DO WHILE .T.
  63.  
  64.       c_OldHelp = VS_HelpPrg( "S_DICTNTX" )
  65.       n_Key = _DICTNTX->(VS_Browse(n_Top,n_Left,n_Bottom,n_Right,c_Title,;
  66.               c_FootNote, n_Palette, a_ColObjs, _DICTHDR->DBF_NAME,{|x|ALLTRIM(x)==ALLTRIM(_DICTNTX->DBF_NAME)}, ab_KeyBlocks, an_Keys ) )
  67.       VS_HelpPrg( c_OldHelp )
  68.  
  69.       DO CASE
  70.  
  71.          CASE n_Key = K_ESC 
  72.             c_RetVal = ""   
  73.             EXIT            
  74.  
  75.          CASE n_Key = K_ENTER
  76.             c_RetVal = _DICTNTX->NTX_NAME
  77.             EXIT       
  78.  
  79.       ENDCASE
  80.  
  81.    ENDDO
  82.  
  83. RETURN(c_RetVal)
  84. *══ EOF: S_DICTNTX() ═════════════════════════════════════════════════════════*
  85.  
  86.  
  87.