home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / tools / uniform / ufcl032.prg < prev    next >
Text File  |  1993-07-28  |  2KB  |  93 lines
  1. * CLIPPER
  2. * ufcl032.prg - example for dynamic attribut modification
  3. *
  4. #include "UFCL01.INC"
  5. #include "menu01.inc"
  6. #include "menu02.inc"
  7. *
  8. * initialize mouse, save screen
  9. CALL MOUSEON
  10. FKZ = chr(0)
  11. DO menu03I
  12. DO aus_menu01
  13.  
  14. PROCEDURE aus_menu01
  15. * display menu01
  16. fld0 = "Functions "
  17. fld1 = "Programend"
  18. FKZ = chr(2)
  19. SM = chr(0)
  20. RET = chr(0)
  21. #include "menu01.pro"
  22. DO menu01I
  23. DO CASE
  24.    CASE RET = chr(200)
  25.     FKZ = chr(2)
  26.     SM = chr(0)
  27.     RET = chr(4)
  28.     DO aus_menu02
  29.    CASE RET = chr(201)
  30.     DO pend
  31.    OTHERWISE
  32.     DO aus_menu01
  33. ENDCASE
  34. RETURN
  35.  
  36. PROCEDURE aus_menu02
  37. * display menu02
  38. fld2 = "file new                F1   "
  39. fld3 = "file open               F2   "
  40. fld4 = "file delete             F3   "
  41. fld5 = "program end             F10  "
  42. #include "menu02.pro"
  43. DO menu02I
  44. DO CASE
  45. * first menu item or F1
  46.    CASE RET = chr(200)
  47.     DO aus_menu03
  48.    CASE RET = chr(101)
  49.     DO aus_menu03
  50.    * second menu item or F2
  51.    CASE RET = chr(201)
  52.     DO aus_menu03
  53.    CASE RET = chr(102)
  54.     DO aus_menu03
  55.    * third menu item or F3
  56.    CASE RET = chr(202)
  57.     DO aus_menu03
  58.    CASE RET = chr(103)
  59.     DO aus_menu03
  60.    * fourth menu item or F10
  61.    CASE RET = chr(203)
  62.     DO pend
  63.    CASE RET = chr(110)
  64.     DO pend
  65.    OTHERWISE
  66.     DO aus_menu02
  67.     FKZ = chr(3)
  68.     RET = chr(4)
  69. ENDCASE
  70. RETURN
  71.  
  72. PROCEDURE aus_menu03
  73. * display empty format menu03
  74. FKZ = chr(4)
  75. SM = chr(0)
  76. RET = chr(0)
  77. #include "menu03.pro"
  78. DO menu03I
  79. DO aus_menu01
  80. RETURN
  81.  
  82. PROCEDURE pend
  83. * clear mouse cursor, display saved screen
  84. CALL MOUSEOFF
  85. FKZ = chr(5)
  86. DO menu03I
  87. RETURN
  88.  
  89. * procedures to call UNIF
  90. #include "menu01.ini"
  91. #include "menu02.ini"
  92. #include "menu03.ini"
  93.