home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a087 / 4.ddi / GETORDER.PR_ / GETORDER.bin
Encoding:
Text File  |  1994-02-02  |  12.3 KB  |  413 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 10/22/93            GETORDER.PRG               15:19:03 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Walter J. Kennamer                                      
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft Corp.                      
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98027                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. DO CASE
  19. CASE _MAC
  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.     m.rborder = SET("READBORDER")
  35.     SET READBORDER ON
  36.     
  37.     m.currarea = SELECT()
  38.     
  39.     
  40.     *       *********************************************************
  41.     *       *                                                         
  42.     *       *              Macintosh Window definitions               
  43.     *       *                                                         
  44.     *       *********************************************************
  45.     *
  46.     
  47.     IF NOT WEXIST("_qka0wtwir")
  48.         DEFINE WINDOW _qka0wtwir ;
  49.             AT  0.000, 0.000  ;
  50.             SIZE 6.385,41.500 ;
  51.             TITLE "Index Order" ;
  52.             FONT "Geneva", 10 ;
  53.             FLOAT ;
  54.             NOCLOSE ;
  55.             SHADOW ;
  56.             DOUBLE
  57.         MOVE WINDOW _qka0wtwir CENTER
  58.     ENDIF
  59.     
  60.     
  61.     *       *********************************************************
  62.     *       *                                                         
  63.     *       *        GETORDER/Macintosh Setup Code - SECTION 2        
  64.     *       *                                                         
  65.     *       *********************************************************
  66.     *
  67.     
  68.     #REGION 1
  69.     skipvar = .T.
  70.     
  71.     IF TYPE("tagnum") = "U"
  72.        PUBLIC tagnum
  73.        tagnum = 1
  74.     ENDIF
  75.     
  76.     m.startord = ORDER()
  77.     m.startalias = ALIAS()
  78.     
  79.     SET ORDER TO 0
  80.     numtag = 1
  81.     DO WHILE "" <> TAG(numtag)
  82.        numtag = numtag + 1
  83.     ENDDO
  84.     
  85.     DIMENSION idxtags(numtag-1)
  86.     i = 1
  87.     DO WHILE i <= numtag-1
  88.        idxtags[i] = TAG(i)
  89.        i = i + 1
  90.     ENDDO
  91.     SET ORDER TO (m.startord)
  92.     
  93.     *       *********************************************************
  94.     *       *                                                         
  95.     *       *            GETORDER/Macintosh Screen Layout             
  96.     *       *                                                         
  97.     *       *********************************************************
  98.     *
  99.     
  100.     #REGION 1
  101.     IF WVISIBLE("_qka0wtwir")
  102.         ACTIVATE WINDOW _qka0wtwir SAME
  103.     ELSE
  104.         ACTIVATE WINDOW _qka0wtwir NOSHOW
  105.     ENDIF
  106.     @ 1.154,16.500 GET tagnum ;
  107.         PICTURE "@^3" ;
  108.         FROM idxtags ;
  109.         SIZE 1.462,23.333 ;
  110.         DEFAULT 1 ;
  111.         FONT "Geneva", 10
  112.     @ 4.000,7.500 GET ordbut ;
  113.         PICTURE "@*HT3 \!OK;\?Cancel" ;
  114.         SIZE 1.462,10.714,2.143 ;
  115.         DEFAULT 1 ;
  116.         FONT "Geneva", 10 ;
  117.         STYLE "B"
  118.     @ 1.462,3.333 SAY "Index Order:"  ;
  119.         FONT "Geneva", 10
  120.     
  121.     IF NOT WVISIBLE("_qka0wtwir")
  122.         ACTIVATE WINDOW _qka0wtwir
  123.     ENDIF
  124.     
  125.     
  126.     *       *********************************************************
  127.     *       *                                                         
  128.     *       *   MacintoshREAD contains clauses from SCREEN getorder   
  129.     *       *                                                         
  130.     *       *********************************************************
  131.     *
  132.     
  133.     READ CYCLE ;
  134.         ACTIVATE _qka0wtya6() ;
  135.         DEACTIVATE _qka0wtyan() ;
  136.         MODAL
  137.     
  138.     RELEASE WINDOW _qka0wtwir
  139.     SELECT (m.currarea)
  140.     
  141.     
  142.     #REGION 0
  143.     
  144.     SET READBORDER &rborder
  145.     
  146.     IF m.talkstat = "ON"
  147.         SET TALK ON
  148.     ENDIF
  149.     IF m.compstat = "ON"
  150.         SET COMPATIBLE ON
  151.     ENDIF
  152.     
  153.     
  154.     *       *********************************************************
  155.     *       *                                                         
  156.     *       *             GETORDER/Macintosh Cleanup Code             
  157.     *       *                                                         
  158.     *       *********************************************************
  159.     *
  160.     
  161.     #REGION 1
  162.     skipvar = .F.
  163.     IF ordbut = 1
  164.        SET ORDER TO TAG(tagnum)
  165.     ELSE
  166.        SET ORDER TO (m.startord)
  167.        m.tagnum = m.startord
  168.     ENDIF
  169.     SHOW GETS
  170.  
  171. CASE _WINDOWS
  172.  
  173.     
  174.     #REGION 0
  175.     REGIONAL m.currarea, m.talkstat, m.compstat
  176.     
  177.     IF SET("TALK") = "ON"
  178.         SET TALK OFF
  179.         m.talkstat = "ON"
  180.     ELSE
  181.         m.talkstat = "OFF"
  182.     ENDIF
  183.     m.compstat = SET("COMPATIBLE")
  184.     SET COMPATIBLE FOXPLUS
  185.     
  186.     m.rborder = SET("READBORDER")
  187.     SET READBORDER ON
  188.     
  189.     m.currarea = SELECT()
  190.     
  191.     
  192.     *       *********************************************************
  193.     *       *                                                         
  194.     *       *               Windows Window definitions                
  195.     *       *                                                         
  196.     *       *********************************************************
  197.     *
  198.     
  199.     IF NOT WEXIST("_qka0wtz5n")
  200.         DEFINE WINDOW _qka0wtz5n ;
  201.             AT  0.000, 0.000  ;
  202.             SIZE 7.077,41.500 ;
  203.             TITLE "Index Order" ;
  204.             FONT "MS Sans Serif", 8 ;
  205.             STYLE "B" ;
  206.             FLOAT ;
  207.             NOCLOSE ;
  208.             SHADOW ;
  209.             NOMINIMIZE ;
  210.             DOUBLE
  211.         MOVE WINDOW _qka0wtz5n CENTER
  212.     ENDIF
  213.     
  214.     
  215.     *       *********************************************************
  216.     *       *                                                         
  217.     *       *         GETORDER/Windows Setup Code - SECTION 2         
  218.     *       *                                                         
  219.     *       *********************************************************
  220.     *
  221.     
  222.     #REGION 1
  223.     skipvar = .T.
  224.     
  225.     IF TYPE("tagnum") = "U"
  226.        PUBLIC tagnum
  227.        tagnum = 1
  228.     ENDIF
  229.     
  230.     m.startord = ORDER()
  231.     m.startalias = ALIAS()
  232.     
  233.     SET ORDER TO 0
  234.     numtag = 1
  235.     DO WHILE "" <> TAG(numtag)
  236.        numtag = numtag + 1
  237.     ENDDO
  238.     
  239.     DIMENSION idxtags(numtag-1)
  240.     i = 1
  241.     DO WHILE i <= numtag-1
  242.        idxtags[i] = TAG(i)
  243.        i = i + 1
  244.     ENDDO
  245.     SET ORDER TO (m.startord)
  246.     
  247.     *       *********************************************************
  248.     *       *                                                         
  249.     *       *             GETORDER/Windows Screen Layout              
  250.     *       *                                                         
  251.     *       *********************************************************
  252.     *
  253.     
  254.     #REGION 1
  255.     IF WVISIBLE("_qka0wtz5n")
  256.         ACTIVATE WINDOW _qka0wtz5n SAME
  257.     ELSE
  258.         ACTIVATE WINDOW _qka0wtz5n NOSHOW
  259.     ENDIF
  260.     @ 1.154,16.500 GET tagnum ;
  261.         PICTURE "@^" ;
  262.         FROM idxtags ;
  263.         SIZE 1.538,23.400 ;
  264.         DEFAULT 1 ;
  265.         FONT "MS Sans Serif", 8
  266.     @ 4.000,7.500 GET ordbut ;
  267.         PICTURE "@*HT \!OK;\?Cancel" ;
  268.         SIZE 1.846,10.667,2.167 ;
  269.         DEFAULT 1 ;
  270.         FONT "MS Sans Serif", 8 ;
  271.         STYLE "B"
  272.     @ 1.462,3.333 SAY "Index Order:"  ;
  273.         FONT "MS Sans Serif", 8 ;
  274.         STYLE "B"
  275.     
  276.     IF NOT WVISIBLE("_qka0wtz5n")
  277.         ACTIVATE WINDOW _qka0wtz5n
  278.     ENDIF
  279.     
  280.     
  281.     *       *********************************************************
  282.     *       *                                                         
  283.     *       *    WindowsREAD contains clauses from SCREEN getorder    
  284.     *       *                                                         
  285.     *       *********************************************************
  286.     *
  287.     
  288.     READ CYCLE ;
  289.         ACTIVATE _qka0wu0l1() ;
  290.         DEACTIVATE _qka0wu0l2() ;
  291.         MODAL
  292.     
  293.     RELEASE WINDOW _qka0wtz5n
  294.     SELECT (m.currarea)
  295.     
  296.     
  297.     #REGION 0
  298.     
  299.     SET READBORDER &rborder
  300.     
  301.     IF m.talkstat = "ON"
  302.         SET TALK ON
  303.     ENDIF
  304.     IF m.compstat = "ON"
  305.         SET COMPATIBLE ON
  306.     ENDIF
  307.     
  308.     
  309.     *       *********************************************************
  310.     *       *                                                         
  311.     *       *              GETORDER/Windows Cleanup Code              
  312.     *       *                                                         
  313.     *       *********************************************************
  314.     *
  315.     
  316.     #REGION 1
  317.     skipvar = .F.
  318.     IF ordbut = 1
  319.        SET ORDER TO TAG(tagnum)
  320.     ELSE
  321.        SET ORDER TO (m.startord)
  322.        m.tagnum = m.startord
  323.     ENDIF
  324.     SHOW GETS
  325.  
  326. ENDCASE
  327.  
  328.  
  329. *       *********************************************************
  330. *       *                                                         
  331. *       * _QKA0WTYA6           Read Level Activate                
  332. *       *                                                         
  333. *       * Function Origin:                                        
  334. *       *                                                         
  335. *       *                                                         
  336. *       * From Platform:       Macintosh                          
  337. *       * From Screen:         GETORDER                           
  338. *       * Called By:           READ Statement                     
  339. *       * Snippet Number:      1                                  
  340. *       *                                                         
  341. *       *********************************************************
  342. *
  343. FUNCTION _qka0wtya6     && Read Level Activate
  344. *
  345. * Activate Code from screen: GETORDER
  346. *
  347. #REGION 1
  348. SELECT (m.startalias)
  349.  
  350. *       *********************************************************
  351. *       *                                                         
  352. *       * _QKA0WTYAN           Read Level Deactivate              
  353. *       *                                                         
  354. *       * Function Origin:                                        
  355. *       *                                                         
  356. *       *                                                         
  357. *       * From Platform:       Macintosh                          
  358. *       * From Screen:         GETORDER                           
  359. *       * Called By:           READ Statement                     
  360. *       * Snippet Number:      2                                  
  361. *       *                                                         
  362. *       *********************************************************
  363. *
  364. FUNCTION _qka0wtyan     && Read Level Deactivate
  365. *
  366. * Deactivate Code from screen: GETORDER
  367. *
  368. #REGION 1
  369. ?? CHR(7)
  370. RETURN .F.
  371.  
  372. *       *********************************************************
  373. *       *                                                         
  374. *       * _QKA0WU0L1           Read Level Activate                
  375. *       *                                                         
  376. *       * Function Origin:                                        
  377. *       *                                                         
  378. *       *                                                         
  379. *       * From Platform:       Windows                            
  380. *       * From Screen:         GETORDER                           
  381. *       * Called By:           READ Statement                     
  382. *       * Snippet Number:      3                                  
  383. *       *                                                         
  384. *       *********************************************************
  385. *
  386. FUNCTION _qka0wu0l1     && Read Level Activate
  387. *
  388. * Activate Code from screen: GETORDER
  389. *
  390. #REGION 1
  391. SELECT (m.startalias)
  392.  
  393. *       *********************************************************
  394. *       *                                                         
  395. *       * _QKA0WU0L2           Read Level Deactivate              
  396. *       *                                                         
  397. *       * Function Origin:                                        
  398. *       *                                                         
  399. *       *                                                         
  400. *       * From Platform:       Windows                            
  401. *       * From Screen:         GETORDER                           
  402. *       * Called By:           READ Statement                     
  403. *       * Snippet Number:      4                                  
  404. *       *                                                         
  405. *       *********************************************************
  406. *
  407. FUNCTION _qka0wu0l2     && Read Level Deactivate
  408. *
  409. * Deactivate Code from screen: GETORDER
  410. *
  411. #REGION 1
  412. ?? CHR(7)
  413. RETURN .F.