home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / favorite.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  2.2 KB  |  102 lines
  1. G4C
  2.  
  3. winbig -1 -1 400 88 ""
  4. winsmall -1 -1 400 90
  5. wintype 11110001
  6. winout nil:
  7. varpath "climaster/*/routine.g"
  8.  
  9. xonload
  10. guiopen favorite.g
  11.  
  12. xonopen
  13. lvuse favorite.g 1
  14. cm_goto = ""
  15. gosub favorite.g loadfav
  16.  
  17. xonclose
  18. delvar cm_goto
  19. lvuse climaster $cm_srce
  20. guiquit favorite.g
  21.  
  22. xonrmb
  23. guiclose favorite.g
  24.  
  25. xlistview 0 12 0 76  "" cm_goto "" 0 multi
  26. gadid 1
  27. gadfont topaz.font 8 000
  28. lvuse climaster $cm_srce
  29. gosub climaster godir
  30. gosub climaster update
  31. gosub climaster addpath
  32. guiclose favorite.g
  33. xlvhook 1
  34. setwintitle favorite.g "Favourites List               "
  35.  
  36. xbutton 0 0 100 12 "Reload List"
  37. gadid 3
  38. gosub favorite.g loadfav
  39.  
  40. xbutton 100 0 100 12 "Add Path"
  41. lvuse favorite.g 1
  42. update favorite.g 2 ""
  43. if $cm_srcedir > ""
  44.     lvsearch $cm_srcedir ci first
  45.     if $$lv.rec != $cm_srcedir
  46.         lvadd $cm_srcedir
  47.         lvsort asc
  48.         lvsave cmst:config/favourites
  49.     else
  50.         setwintitle favorite.g "Path Already Exists.         "
  51.     endif
  52. else
  53.     setwintitle favorite.g "No Source Dir Selected.          "
  54. endif
  55.  
  56. xbutton 200 0 100 12 "Del Path(s)"
  57. lvuse favorite.g 1
  58. update favorite.g 2 ""
  59. lvmulti first
  60. if $$lv.line > ''
  61.     while $$lv.line > ''
  62.         lvdel -1
  63.         lvmulti first
  64.     endwhile
  65. else
  66.     setwintitle favorite.g "No Path To Delete!               "
  67.     stop
  68. endif
  69. if $$lv.total > 0
  70.     lvsave cmst:config/favourites
  71.     setwintitle favorite.g "Path(s) Deleted.                 "
  72. elseif $$lv.total = 0
  73. andifexists file cmst:config/favourites
  74.     delete cmst:config/favourites
  75.     setwintitle favorite.g "All Paths Deleted.               "
  76. endif    
  77.  
  78. xbutton 300 0 100 12 "Delete List"
  79. ifexists file cmst:config/favourites
  80.     ezreq "DELETE LIST: Are You Sure?" "Delete|Cancel" opt
  81.     if $opt = 1
  82.         delete cmst:config/favourites
  83.         lvclear
  84.     else
  85.         setwintitle favorite.g "Operation Aborted.          "
  86.     endif
  87. else
  88.     setwintitle favorite.g "Favourites List Not Found.      "
  89. endif
  90.  
  91. xroutine loadfav
  92. setwintitle favorite.g "Favourites List                     "
  93. lvuse favorite.g 1
  94. ifexists file cmst:config/favourites
  95.     lvchange cmst:config/favourites
  96.     lvsort asc
  97. else
  98.     setwintitle favorite.g  "Favourites List Not Found.     "
  99. endif
  100.  
  101. ; -------------------------------------
  102.