home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / EDITWHER.SPR < prev    next >
Encoding:
Text File  |  1993-05-25  |  5.4 KB  |  193 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93            EDITWHER.SPR               13:44:15 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Steven Hsu, Wayne Lampel                                
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft                            
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98052                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. DO CASE
  19. CASE _WINDOWS
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     *       *********************************************************
  35.     *       *                                                         
  36.     *       *               Windows Window definitions                
  37.     *       *                                                         
  38.     *       *********************************************************
  39.     *
  40.     
  41.     IF NOT WEXIST("_qfx0tfzqv")
  42.         DEFINE WINDOW _qfx0tfzqv ;
  43.             AT  0.000, 0.000  ;
  44.             SIZE 6.154,69.000 ;
  45.             TITLE " Edit Where " ;
  46.             FONT "MS Sans Serif", 8 ;
  47.             STYLE "B" ;
  48.             NOFLOAT ;
  49.             NOCLOSE ;
  50.             SHADOW ;
  51.             NOMINIMIZE ;
  52.             DOUBLE
  53.         MOVE WINDOW _qfx0tfzqv CENTER
  54.     ENDIF
  55.     
  56.     
  57.     *       *********************************************************
  58.     *       *                                                         
  59.     *       *         EDITWHER/Windows Setup Code - SECTION 2         
  60.     *       *                                                         
  61.     *       *********************************************************
  62.     *
  63.     
  64.     #REGION 1
  65.     EXTERNAL ARRAY WHERELIST
  66.     
  67.     *       *********************************************************
  68.     *       *                                                         
  69.     *       *             EDITWHER/Windows Screen Layout              
  70.     *       *                                                         
  71.     *       *********************************************************
  72.     *
  73.     
  74.     #REGION 1
  75.     IF WVISIBLE("_qfx0tfzqv")
  76.         ACTIVATE WINDOW _qfx0tfzqv SAME
  77.     ELSE
  78.         ACTIVATE WINDOW _qfx0tfzqv NOSHOW
  79.     ENDIF
  80.     @ 1.154,1.167 EDIT WhereList[EditWhere] ;
  81.         SIZE 1.154,80.000,0.000 ;
  82.         DEFAULT " " ;
  83.         FONT "MS Sans Serif", 8
  84.     @ 3.385,15.000 GET ExitAction ;
  85.         PICTURE "@*HT \!OK;\?Cancel" ;
  86.         SIZE 1.769,17.333,4.000 ;
  87.         DEFAULT 1 ;
  88.         FONT "MS Sans Serif", 8 ;
  89.         STYLE "B"
  90.     
  91.     IF NOT WVISIBLE("_qfx0tfzqv")
  92.         ACTIVATE WINDOW _qfx0tfzqv
  93.     ENDIF
  94.     
  95.     READ CYCLE MODAL
  96.     
  97.     RELEASE WINDOW _qfx0tfzqv
  98.     
  99.     #REGION 0
  100.     IF m.talkstat = "ON"
  101.         SET TALK ON
  102.     ENDIF
  103.     IF m.compstat = "ON"
  104.         SET COMPATIBLE ON
  105.     ENDIF
  106.     
  107.  
  108. CASE _DOS
  109.  
  110.     
  111.     #REGION 0
  112.     REGIONAL m.currarea, m.talkstat, m.compstat
  113.     
  114.     IF SET("TALK") = "ON"
  115.         SET TALK OFF
  116.         m.talkstat = "ON"
  117.     ELSE
  118.         m.talkstat = "OFF"
  119.     ENDIF
  120.     m.compstat = SET("COMPATIBLE")
  121.     SET COMPATIBLE FOXPLUS
  122.     
  123.     *       *********************************************************
  124.     *       *                                                         
  125.     *       *                MS-DOS Window definitions                
  126.     *       *                                                         
  127.     *       *********************************************************
  128.     *
  129.     
  130.     IF NOT WEXIST("_qfx0tg0er")
  131.         DEFINE WINDOW _qfx0tg0er ;
  132.             FROM INT((SROW()-7)/2),INT((SCOL()-70)/2) ;
  133.             TO INT((SROW()-7)/2)+6,INT((SCOL()-70)/2)+69 ;
  134.             TITLE " Edit Where " ;
  135.             NOFLOAT ;
  136.             NOCLOSE ;
  137.             SHADOW ;
  138.             NOMINIMIZE ;
  139.             DOUBLE ;
  140.             COLOR SCHEME 1
  141.     ENDIF
  142.     
  143.     
  144.     *       *********************************************************
  145.     *       *                                                         
  146.     *       *         EDITWHER/MS-DOS Setup Code - SECTION 2          
  147.     *       *                                                         
  148.     *       *********************************************************
  149.     *
  150.     
  151.     #REGION 1
  152.     EXTERNAL ARRAY WHERELIST
  153.     
  154.     *       *********************************************************
  155.     *       *                                                         
  156.     *       *              EDITWHER/MS-DOS Screen Layout              
  157.     *       *                                                         
  158.     *       *********************************************************
  159.     *
  160.     
  161.     #REGION 1
  162.     IF WVISIBLE("_qfx0tg0er")
  163.         ACTIVATE WINDOW _qfx0tg0er SAME
  164.     ELSE
  165.         ACTIVATE WINDOW _qfx0tg0er NOSHOW
  166.     ENDIF
  167.     @ 1,1 EDIT WhereList[EditWhere] ;
  168.         SIZE 1,66,0 ;
  169.         DEFAULT " "
  170.     @ 3,15 GET ExitAction ;
  171.         PICTURE "@*HT \!OK;\?Cancel" ;
  172.         SIZE 1,17,4 ;
  173.         DEFAULT 1
  174.     
  175.     IF NOT WVISIBLE("_qfx0tg0er")
  176.         ACTIVATE WINDOW _qfx0tg0er
  177.     ENDIF
  178.     
  179.     READ CYCLE MODAL
  180.     
  181.     RELEASE WINDOW _qfx0tg0er
  182.     
  183.     #REGION 0
  184.     IF m.talkstat = "ON"
  185.         SET TALK ON
  186.     ENDIF
  187.     IF m.compstat = "ON"
  188.         SET COMPATIBLE ON
  189.     ENDIF
  190.     
  191.  
  192. ENDCASE
  193.