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.SPR < prev    next >
Text File  |  1993-02-27  |  8KB  |  274 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 02/27/93             NAMECHN.SPR               21:47:35 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. PARAMETERS m.oldname
  19. DO CASE
  20. CASE _WINDOWS
  21.  
  22.     
  23.     *       *********************************************************
  24.     *       *                                                         
  25.     *       *         NAMECHN/Windows Setup Code - SECTION 1          
  26.     *       *                                                         
  27.     *       *********************************************************
  28.     *
  29.     
  30.     #REGION 1
  31.     
  32.     #REGION 0
  33.     REGIONAL m.currarea, m.talkstat, m.compstat
  34.     
  35.     IF SET("TALK") = "ON"
  36.         SET TALK OFF
  37.         m.talkstat = "ON"
  38.     ELSE
  39.         m.talkstat = "OFF"
  40.     ENDIF
  41.     m.compstat = SET("COMPATIBLE")
  42.     SET COMPATIBLE FOXPLUS
  43.     
  44.     m.rborder = SET("READBORDER")
  45.     SET READBORDER ON
  46.     
  47.     *       *********************************************************
  48.     *       *                                                         
  49.     *       *               Windows Window definitions                
  50.     *       *                                                         
  51.     *       *********************************************************
  52.     *
  53.     
  54.     IF NOT WEXIST("_qdp1aplfr")
  55.         DEFINE WINDOW _qdp1aplfr ;
  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("_qdp1aplfr")
  87.         ACTIVATE WINDOW _qdp1aplfr SAME
  88.     ELSE
  89.         ACTIVATE WINDOW _qdp1aplfr 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("_qdp1aplfr")
  120.         ACTIVATE WINDOW _qdp1aplfr
  121.     ENDIF
  122.     
  123.     READ CYCLE
  124.     
  125.     RELEASE WINDOW _qdp1aplfr
  126.     
  127.     #REGION 0
  128.     
  129.     SET READBORDER &rborder
  130.     
  131.     IF m.talkstat = "ON"
  132.         SET TALK ON
  133.     ENDIF
  134.     IF m.compstat = "ON"
  135.         SET COMPATIBLE ON
  136.     ENDIF
  137.     
  138.     
  139.     *       *********************************************************
  140.     *       *                                                         
  141.     *       *              NAMECHN/Windows Cleanup Code               
  142.     *       *                                                         
  143.     *       *********************************************************
  144.     *
  145.     
  146.     #REGION 1
  147.     if m.lhOkDoKey='Ok'
  148.        return alltrim(m.newname)
  149.      else
  150.        return m.oldname
  151.     endif
  152.     
  153.  
  154. CASE _DOS
  155.  
  156.     
  157.     *       *********************************************************
  158.     *       *                                                         
  159.     *       *          NAMECHN/MS-DOS Setup Code - SECTION 1          
  160.     *       *                                                         
  161.     *       *********************************************************
  162.     *
  163.     
  164.     #REGION 1
  165.     
  166.     #REGION 0
  167.     REGIONAL m.currarea, m.talkstat, m.compstat
  168.     
  169.     IF SET("TALK") = "ON"
  170.         SET TALK OFF
  171.         m.talkstat = "ON"
  172.     ELSE
  173.         m.talkstat = "OFF"
  174.     ENDIF
  175.     m.compstat = SET("COMPATIBLE")
  176.     SET COMPATIBLE FOXPLUS
  177.     
  178.     *       *********************************************************
  179.     *       *                                                         
  180.     *       *                MS-DOS Window definitions                
  181.     *       *                                                         
  182.     *       *********************************************************
  183.     *
  184.     
  185.     IF NOT WEXIST("_qdp1apmvm")
  186.         DEFINE WINDOW _qdp1apmvm ;
  187.             FROM 0, 0 ;
  188.             TO 17,63 ;
  189.             FLOAT ;
  190.             NOCLOSE ;
  191.             MINIMIZE ;
  192.             SYSTEM ;
  193.             COLOR SCHEME 1
  194.     ENDIF
  195.     
  196.     
  197.     *       *********************************************************
  198.     *       *                                                         
  199.     *       *          NAMECHN/MS-DOS Setup Code - SECTION 2          
  200.     *       *                                                         
  201.     *       *********************************************************
  202.     *
  203.     
  204.     #REGION 1
  205.       store 'OK' to m.lhOkDoKey
  206.       store m.oldname+space(50) to m.newname
  207.     
  208.     *       *********************************************************
  209.     *       *                                                         
  210.     *       *              NAMECHN/MS-DOS Screen Layout               
  211.     *       *                                                         
  212.     *       *********************************************************
  213.     *
  214.     
  215.     #REGION 1
  216.     IF WVISIBLE("_qdp1apmvm")
  217.         ACTIVATE WINDOW _qdp1apmvm SAME
  218.     ELSE
  219.         ACTIVATE WINDOW _qdp1apmvm NOSHOW
  220.     ENDIF
  221.     @ 4,2 GET m.oldname ;
  222.         SIZE 1,57 ;
  223.         DEFAULT " " ;
  224.         PICTURE "@K" ;
  225.         DISABLE
  226.     @ 9,2 GET m.newname ;
  227.         SIZE 1,57 ;
  228.         DEFAULT " " ;
  229.         PICTURE "@K"
  230.     @ 2,27 SAY "Old Name" ;
  231.         SIZE 1,8, 0
  232.     @ 7,27 SAY "New Name" ;
  233.         SIZE 1,8, 0
  234.     @ 14,22 GET m.lhOkDoKey ;
  235.         PICTURE "@*HT Ok;Cancel" ;
  236.         SIZE 1,8,1 ;
  237.         DEFAULT 1
  238.     @ 0,25 SAY "Change Name" ;
  239.         SIZE 1,11, 0
  240.     
  241.     IF NOT WVISIBLE("_qdp1apmvm")
  242.         ACTIVATE WINDOW _qdp1apmvm
  243.     ENDIF
  244.     
  245.     READ CYCLE
  246.     
  247.     RELEASE WINDOW _qdp1apmvm
  248.     
  249.     #REGION 0
  250.     IF m.talkstat = "ON"
  251.         SET TALK ON
  252.     ENDIF
  253.     IF m.compstat = "ON"
  254.         SET COMPATIBLE ON
  255.     ENDIF
  256.     
  257.     
  258.     *       *********************************************************
  259.     *       *                                                         
  260.     *       *               NAMECHN/MS-DOS Cleanup Code               
  261.     *       *                                                         
  262.     *       *********************************************************
  263.     *
  264.     
  265.     #REGION 1
  266.     if m.lhOkDoKey='Ok'
  267.        return alltrim(m.newname)
  268.      else
  269.        return m.oldname
  270.     endif
  271.     
  272.  
  273. ENDCASE
  274.