home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / protect.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  2.3 KB  |  137 lines
  1. G4C
  2.  
  3. winbig -1 -1 182 76 "Protect File(s)"
  4. wintype 11010000
  5. winout nil:
  6. varpath "climaster/*/functions.g"
  7.  
  8. xonload
  9. guiopen protect.g
  10.  
  11. xonopen
  12. update protect.g 1 0
  13. update protect.g 2 0
  14. update protect.g 3 0
  15. update protect.g 4 1
  16. update protect.g 5 1
  17. update protect.g 6 1
  18. update protect.g 7 1
  19. gosub functions.g getfile
  20. update protect.g 8 $cm_fname
  21.  
  22. xonclose
  23. lvdir none
  24. guiquit protect.g
  25.  
  26. box 0 0 0 17 out button
  27.  
  28. xcheckbox 0 17 26 11 S pro_scr 1 0 off
  29. gadid 1
  30. gadtitle above
  31. xcheckbox 26 17 26 11 P pro_pur 1 0 off
  32. gadid 2
  33. gadtitle above
  34. xcheckbox 52 17 26 11 A pro_arc 1 0 off
  35. gadid 3
  36. gadtitle above
  37. xcheckbox 78 17 26 11 R pro_rea 0 1 off
  38. gadid 4
  39. gadtitle above
  40. xcheckbox 104 17 26 11 W pro_wri 0 1 off
  41. gadid 5
  42. gadtitle above
  43. xcheckbox 130 17 26 11 E pro_exe 0 1 off
  44. gadid 6
  45. gadtitle above
  46. xcheckbox 156 17 26 11 D pro_del 0 1 off
  47. gadid 7
  48. gadtitle above
  49.  
  50. text 0 28 182 12 "" 30 box
  51. gadid 8
  52.  
  53. xbutton 0 40 91 12 "All On"
  54. update protect.g 1 1
  55. update protect.g 2 1
  56. update protect.g 3 1
  57. update protect.g 4 1
  58. update protect.g 5 1
  59. update protect.g 6 1
  60. update protect.g 7 1
  61.  
  62. xbutton 0 52 91 12 "All Off"
  63. update protect.g 1 0
  64. update protect.g 2 0
  65. update protect.g 3 0
  66. update protect.g 4 0
  67. update protect.g 5 0
  68. update protect.g 6 0
  69. update protect.g 7 0
  70.  
  71. xbutton 0 64 91 12 "Toggle"
  72. if $pro_scr = 1
  73.     update protect.g 1 0
  74. else
  75.     update protect.g 1 1
  76. endif
  77. if $pro_pur = 1
  78.     update protect.g 2 0
  79. else
  80.     update protect.g 2 1
  81. endif
  82. if $pro_arc = 1
  83.     update protect.g 3 0
  84. else
  85.     update protect.g 3 1
  86. endif
  87. if $pro_rea = 1
  88.     update protect.g 4 1
  89. else
  90.     update protect.g 4 0
  91. endif
  92. if $pro_wri = 1
  93.     update protect.g 5 1
  94. else
  95.     update protect.g 5 0
  96. endif
  97. if $pro_exe = 1
  98.     update protect.g 6 1
  99. else
  100.     update protect.g 6 0
  101. endif
  102. if $pro_del = 1
  103.     update protect.g 7 1
  104. else
  105.     update protect.g 7 0
  106. endif
  107.  
  108. xbutton 91 40 91 12 "Current"
  109. gosub protect.g buildbits
  110. action protect $cm_select $pro_code
  111. lvmulti off
  112. lvmulti next
  113. if $cm_select = ""
  114.     guiclose protect.g
  115. endif
  116. gosub functions.g getfile
  117. update protect.g 8 $cm_fname
  118.  
  119. xbutton 91 52 91 12 "All Files"
  120. gosub protect.g buildbits
  121. update protect.g 8 ""
  122. lvaction protect $pro_code
  123. guiclose protect.g
  124.  
  125. xbutton 91 64 91 12 Cancel
  126. guiclose protect.g
  127.  
  128. xroutine buildbits
  129. pro_code = $pro_del
  130. appvar pro_code $pro_exe
  131. appvar pro_code $pro_wri
  132. appvar pro_code $pro_rea
  133. appvar pro_code $pro_arc
  134. appvar pro_code $pro_pur
  135. appvar pro_code $pro_scr
  136. return
  137.