home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 6.ddi / SAMPLES / MAILMENU / GETNAME.SPR < prev    next >
Encoding:
Text File  |  1993-09-09  |  3.0 KB  |  108 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/29/93             GETNAME.SPR               13:16:43 
  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.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("_qh30sgl4r")
  45.     DEFINE WINDOW _qh30sgl4r ;
  46.         AT  0.000, 0.000  ;
  47.         SIZE 10.000,64.200 ;
  48.         TITLE "Address Lookup" ;
  49.         FONT "MS Sans Serif", 8 ;
  50.         FLOAT ;
  51.         NOCLOSE ;
  52.         MINIMIZE ;
  53.         SYSTEM ;
  54.         COLOR RGB(,,,192,192,192)
  55.     MOVE WINDOW _qh30sgl4r CENTER
  56. ENDIF
  57.  
  58.  
  59. *       *********************************************************
  60. *       *                                                         
  61. *       *              GETNAME/Windows Screen Layout              
  62. *       *                                                         
  63. *       *********************************************************
  64. *
  65.  
  66. #REGION 1
  67. IF WVISIBLE("_qh30sgl4r")
  68.     ACTIVATE WINDOW _qh30sgl4r SAME
  69. ELSE
  70.     ACTIVATE WINDOW _qh30sgl4r NOSHOW
  71. ENDIF
  72. @ 1.769,4.800 SAY "Enter Address Name:"  ;
  73.     FONT "MS Sans Serif", 10 ;
  74.     STYLE "BT"
  75. @ 3.615,7.600 GET m.newname ;
  76.     SIZE 1.000,35.429 ;
  77.     DEFAULT " " ;
  78.     FONT "MS Sans Serif", 10 ;
  79.     PICTURE "@K" ;
  80.     COLOR ,RGB(,,,255,255,255)
  81. @ 6.462,21.200 GET okbtn ;
  82.     PICTURE "@*HT \<Ok;\<Cancel" ;
  83.     SIZE 1.769,8.667,0.667 ;
  84.     DEFAULT 1 ;
  85.     FONT "MS Sans Serif", 8 ;
  86.     STYLE "B"
  87.  
  88. IF NOT WVISIBLE("_qh30sgl4r")
  89.     ACTIVATE WINDOW _qh30sgl4r
  90. ENDIF
  91.  
  92. READ CYCLE MODAL
  93.  
  94. RELEASE WINDOW _qh30sgl4r
  95. SELECT (m.currarea)
  96.  
  97.  
  98. #REGION 0
  99.  
  100. SET READBORDER &rborder
  101.  
  102. IF m.talkstat = "ON"
  103.     SET TALK ON
  104. ENDIF
  105. IF m.compstat = "ON"
  106.     SET COMPATIBLE ON
  107. ENDIF
  108.