home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VS_804.ZIP / MAINTSRC.EXE / A_DICTHD.PRG < prev    next >
Encoding:
Text File  |  1991-11-25  |  3.5 KB  |  148 lines
  1. * Filename.......: A_DICTHD.PRG
  2. *                  
  3. * Author.........: Vernon E. Six, Jr.
  4. *                  
  5. * Last Update....: Mon  11/25/91  16:37:11
  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. #include "SETCURS.CH"
  14.  
  15. #include "_DICTHDR.CH"
  16.  
  17.  
  18. FUNCTION A_DICTHDR(pl_Update,pc_Mode)
  19. *══════════════════════════════════════════════════════════*
  20. * Ask the user for the database name                       *
  21. *══════════════════════════════════════════════════════════*
  22. LOCAL getlist    := {}   
  23. LOCAL GetObj             
  24. LOCAL l_EatKeys  := .F.  
  25. LOCAL a_Say      := {}   
  26. LOCAL a_Get      := {}   
  27. LOCAL n_Cntr             
  28. LOCAL c_OldHelp          
  29. LOCAL n_Correct  := 1
  30.  
  31. *══ Make an assumption ═══════════════════════════════════*
  32.  
  33. pc_Mode = IF(pc_Mode=NIL,"EDIT",UPPER(pc_Mode))
  34.  
  35. *═════════════════════════════════════════════════════════*
  36.  
  37. _DICTHDR->( VS_SetOrder("1") )
  38.  
  39.  
  40. AADD( a_Get, IF(pl_Update, _DICTHDR->DBF_NAME    , _DEF__DICTHDR_DBF_NAME     ))
  41.  
  42.  
  43.    VS_GRABSCR()
  44.  
  45.       VS_PALETTE(7)
  46.  
  47.       VS_Text(2,"",PADC("Working...",40),"")
  48.  
  49.       DispBegin()
  50.  
  51.       VS_EndText()
  52.  
  53.       IF pc_Mode = "DISPLAY"
  54.          VS_WIND(06,05,10,73," Copy An Existing Database "," Press Any Key To Continue ")
  55.        ELSE
  56.          VS_WIND(06,05,10,73," Copy An Existing Database "," Press <F1> For Help ")
  57.       ENDIF
  58.  
  59.  
  60.  
  61.       @ 08,26 SAY "New Database Name:"
  62.  
  63.       SETCOLOR(VS_WindUns())
  64.  
  65.  
  66.       VS_WndColr()
  67.  
  68.  
  69.       *══════════════════════════════════════════════════════════*
  70.  
  71.       GetObj           := GetNew( 08,45, ;
  72.                           {|x| IF(x==NIL,a_Get[001], a_Get[001]:=x)},;
  73.                           "a_Get[001]", ;
  74.                           _PIC__DICTHDR_DBF_NAME )
  75.  
  76.       GetObj:cargo  := {"_DICTHDR","DBF_NAME"} 
  77.  
  78.       GetObj:postBlock := { || VS_EatKeys(@l_EatKeys)  .AND. ;
  79.               _DICTHDR->( VS_NoOther(a_Get[001]) ) } 
  80.  
  81.       AADD( getlist, GetObj )
  82.  
  83.       GetObj:Display()
  84.  
  85.  
  86.       *══════════════════════════════════════════════════════════*
  87.  
  88.       SETCURSOR(SC_NORMAL)
  89.       DispEnd()
  90.  
  91.       *══════════════════════════════════════════════════════════*
  92.       * Do all the pre-validations                               *
  93.       *══════════════════════════════════════════════════════════*
  94.       IF pl_Update .OR. pc_Mode="DISPLAY"
  95.       ENDIF
  96.  
  97.  
  98.  
  99.       IF pc_Mode = "DISPLAY"
  100.  
  101.          CLEAR GETS
  102.          SETCURSOR(SC_NONE) 
  103.          VS_INKEY(0)
  104.  
  105.        ELSE
  106.  
  107.          DO WHILE .T.           
  108.  
  109.             l_EatKeys := .F.    
  110.             c_OldHelp = VS_HelpPrg("A_DICTHDR ")
  111.             ReadModal(getlist)  
  112.             VS_HelpPrg(c_OldHelp)
  113.             CLEAR TYPEAHEAD     
  114.  
  115.             IF LASTKEY() = K_ESC
  116.                EXIT             
  117.             ENDIF               
  118.  
  119.             n_Correct = VS_Correct()
  120.  
  121.             DO CASE                 
  122.                CASE n_Correct = 3   
  123.                   VS_PutScr()       
  124.                   RETURN(NIL)       
  125.                CASE n_Correct = 2   
  126.                   LOOP              
  127.             ENDCASE                 
  128.  
  129.             EXIT
  130.  
  131.          ENDDO
  132.  
  133.       ENDIF
  134.  
  135.    VS_PutScr()
  136.  
  137.    CLEAR TYPEAHEAD
  138.  
  139.    IF LASTKEY() = K_ESC .OR. pc_Mode = "DISPLAY"
  140.       RETURN(NIL)
  141.    ENDIF
  142.  
  143.  
  144. RETURN(a_Get)
  145. *══ EOF: A_DICTHDR() ═════════════════════════════════════════════════════════*
  146.  
  147.  
  148.