home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / projman1.zip / NAMECHN.PRG < prev    next >
Text File  |  1993-02-27  |  5KB  |  154 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 02/27/93             NAMECHN.PRG               21:28:31 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Donald L. Vawter, Ph.D.                                 
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Company Name                         
  10. *       * 2619 Florence Rd.                                       
  11. *       * Powder Springs, GA  30073                               
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. PARAMETERS m.oldname
  19.  
  20. *       *********************************************************
  21. *       *                                                         
  22. *       *         NAMECHN/Windows Setup Code - SECTION 1          
  23. *       *                                                         
  24. *       *********************************************************
  25. *
  26.  
  27. #REGION 1
  28.  
  29. #REGION 0
  30. REGIONAL m.currarea, m.talkstat, m.compstat
  31.  
  32. IF SET("TALK") = "ON"
  33.     SET TALK OFF
  34.     m.talkstat = "ON"
  35. ELSE
  36.     m.talkstat = "OFF"
  37. ENDIF
  38. m.compstat = SET("COMPATIBLE")
  39. SET COMPATIBLE FOXPLUS
  40.  
  41. m.rborder = SET("READBORDER")
  42. SET READBORDER ON
  43.  
  44. m.currarea = SELECT()
  45.  
  46.  
  47. *       *********************************************************
  48. *       *                                                         
  49. *       *               Windows Window definitions                
  50. *       *                                                         
  51. *       *********************************************************
  52. *
  53.  
  54. IF NOT WEXIST("_qdp1a12hk")
  55.     DEFINE WINDOW _qdp1a12hk ;
  56.         AT 0.000, 0.000 ;
  57.         SIZE 18.077,91.400 ;
  58.         FONT "MS Sans Serif", 8 ;
  59.         FLOAT ;
  60.         NOCLOSE ;
  61.         MINIMIZE ;
  62.         SYSTEM ;
  63.         COLOR RGB(,,,0,255,255)
  64. ENDIF
  65.  
  66.  
  67. *       *********************************************************
  68. *       *                                                         
  69. *       *         NAMECHN/Windows Setup Code - SECTION 2          
  70. *       *                                                         
  71. *       *********************************************************
  72. *
  73.  
  74. #REGION 1
  75.   store 'OK' to m.lhOkDoKey
  76.   store m.oldname+space(50) to m.newname
  77.  
  78. *       *********************************************************
  79. *       *                                                         
  80. *       *              NAMECHN/Windows Screen Layout              
  81. *       *                                                         
  82. *       *********************************************************
  83. *
  84.  
  85. #REGION 1
  86. IF WVISIBLE("_qdp1a12hk")
  87.     ACTIVATE WINDOW _qdp1a12hk SAME
  88. ELSE
  89.     ACTIVATE WINDOW _qdp1a12hk NOSHOW
  90. ENDIF
  91. @ 4.692,11.200 GET m.oldname ;
  92.     SIZE 1.000,68.800 ;
  93.     DEFAULT " " ;
  94.     FONT "MS Sans Serif", 8 ;
  95.     PICTURE "@K" ;
  96.     DISABLE
  97. @ 9.308,11.200 GET m.newname ;
  98.     SIZE 1.000,68.800 ;
  99.     DEFAULT " " ;
  100.     FONT "MS Sans Serif", 8 ;
  101.     PICTURE "@K"
  102. @ 2.846,41.000 SAY "Old Name"  ;
  103.     FONT "MS Sans Serif", 8 ;
  104.     STYLE "T"
  105. @ 7.462,40.400 SAY "New Name"  ;
  106.     FONT "MS Sans Serif", 8 ;
  107.     STYLE "T"
  108. @ 14.769,34.800 GET m.lhOkDoKey ;
  109.     PICTURE "@*HT Ok;Cancel" ;
  110.     SIZE 1.769,8.667,0.667 ;
  111.     DEFAULT 1 ;
  112.     FONT "MS Sans Serif", 8 ;
  113.     STYLE "B"
  114. @ 0.000,32.200 SAY "Change Name"  ;
  115.     PICTURE "@I" ;
  116.     FONT "MS Sans Serif", 14 ;
  117.     STYLE "BT"
  118.  
  119. IF NOT WVISIBLE("_qdp1a12hk")
  120.     ACTIVATE WINDOW _qdp1a12hk
  121. ENDIF
  122.  
  123. READ CYCLE
  124.  
  125. RELEASE WINDOW _qdp1a12hk
  126. SELECT (m.currarea)
  127.  
  128.  
  129. #REGION 0
  130.  
  131. SET READBORDER &rborder
  132.  
  133. IF m.talkstat = "ON"
  134.     SET TALK ON
  135. ENDIF
  136. IF m.compstat = "ON"
  137.     SET COMPATIBLE ON
  138. ENDIF
  139.  
  140.  
  141. *       *********************************************************
  142. *       *                                                         
  143. *       *              NAMECHN/Windows Cleanup Code               
  144. *       *                                                         
  145. *       *********************************************************
  146. *
  147.  
  148. #REGION 1
  149. if m.lhOkDoKey='Ok'
  150.    return alltrim(m.newname)
  151.  else
  152.    return m.oldname
  153. endif
  154.